From 3c010bed71b5fdfe56a818cb9e20a7e5ca55ba1c Mon Sep 17 00:00:00 2001 From: Tobias Lindahl Date: Fri, 7 Jun 2019 14:24:26 +0200 Subject: [PATCH] Add TTL to oracle register --- src/aeb_fate_generate_ops.erl | 2 +- test/asm_code/oracles.fate | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/aeb_fate_generate_ops.erl b/src/aeb_fate_generate_ops.erl index 1458a34..9d9a84e 100644 --- a/src/aeb_fate_generate_ops.erl +++ b/src/aeb_fate_generate_ops.erl @@ -142,7 +142,7 @@ ops_defs() -> , { 'LOG4', 16#5f, false, 3, [a,a,a,a,a], log, {integer, integer, integer, integer, string}, none, "Create a log message with four topics in the call object."} %% Transaction ops , { 'SPEND', 16#60, false, 3, [a,a], spend, {address, integer}, none, "Transfer Arg1 tokens to account Arg0. (If the contract account has at least that many tokens."} - , { 'ORACLE_REGISTER', 16#61, false, 3, [a,a,a,a,a,a], oracle_register, {any,any,any,any,any}, any, "NYI"} + , { 'ORACLE_REGISTER', 16#61, false, 3, [a,a,a,a,a,a,a], oracle_register, {any,any,any,any,any,any}, oracle, "TODO: Document and describe types"} %% TODO: , { 'ORACLE_QUERY', 16#62, false, 3, [], oracle_query, {}, none, "NYI"} , { 'ORACLE_RESPOND', 16#63, false, 3, [], oracle_respond, {}, none, "NYI"} diff --git a/test/asm_code/oracles.fate b/test/asm_code/oracles.fate index cb73571..3c9b676 100644 --- a/test/asm_code/oracles.fate +++ b/test/asm_code/oracles.fate @@ -1,5 +1,5 @@ ;; CONTRACT oracles -FUNCTION register (address, integer) : oracle - ORACLE_REGISTER a arg0 () arg1 'string '{variant, [{tuple, []}, {tuple, [integer]}]} +FUNCTION register (address, integer, {variant, [{tuple, [integer]}, {tuple, [integer]}]}) : oracle + ORACLE_REGISTER a () arg0 arg1 arg2 'string '{variant, [{tuple, []}, {tuple, [integer]}]} RETURN