Change Chain.block_hash to return option(hash)

2019-06-27 14:19:39 +02:00
parent 502a4e6464
commit a617a6469d
5 changed files with 12 additions and 5 deletions
@@ -130,6 +130,7 @@ builtin_function(BF) ->
    case BF of
        {event, EventT}            -> bfun(BF, builtin_event(EventT));
        abort                      -> bfun(BF, builtin_abort());
+        block_hash                 -> bfun(BF, builtin_block_hash());
        require                    -> bfun(BF, builtin_require());
        {map_lookup, Type}         -> bfun(BF, builtin_map_lookup(Type));
        map_put                    -> bfun(BF, builtin_map_put());
@@ -211,6 +212,12 @@ builtin_abort() ->
                   A(?REVERT)]}, %% Stack: 0,Ptr
     {tuple,[]}}.

+builtin_block_hash() ->
+    {[{"height", word}],
+     ?LET(hash, #prim_block_hash{ height = ?V(height)},
+          {ifte, ?EQ(hash, 0), option_none(), option_some(?V(hash))}),
+     aeso_icode:option_typerep(word)}.
+
 builtin_require() ->
    {[{"c", word}, {"msg", string}],
     {ifte, ?V(c), {tuple, []}, ?call(abort, [?V(msg)])},