QPQ-AG/gmbytecode
10
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases 9 Wiki Activity

More functions in aeb_fate_abi

Browse Source
This commit is contained in:
Hans Svensson 2019-06-18 13:51:06 +02:00
parent a0c3a990ed
commit c1fb3a47c7
2 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/aeb_fate_abi.erl
View File

@ -10,8 +10,9 @@
-module(aeb_fate_abi).
-export([ create_calldata/2
, function_name_from_function_hash/2
, get_function_hash_from_calldata/1 ]).
, get_function_hash_from_calldata/1
, get_function_name_from_function_hash/2
, get_function_type_from_function_hash/2 ]).
-include("../include/aeb_fate_data.hrl").
@ -26,11 +27,11 @@ create_calldata(FunName, Args) ->
aeb_fate_data:make_tuple({FunctionId,
aeb_fate_data:make_tuple(list_to_tuple(Args))}))}.
-spec function_name_from_function_hash(any(), aeb_fate_code:fcode()) ->
-spec get_function_name_from_function_hash(binary(), aeb_fate_code:fcode()) ->
{ok, term()} | {error, term()}.
function_name_from_function_hash(<<SymbolHash:4/binary, _:28/binary>>, FateCode) ->
function_name_from_function_hash(SymbolHash, FateCode);
function_name_from_function_hash(SymbolHash = <<_:4/binary>>, FateCode) ->
get_function_name_from_function_hash(<<SymbolHash:4/binary, _:28/binary>>, FateCode) ->
get_function_name_from_function_hash(SymbolHash, FateCode);
get_function_name_from_function_hash(SymbolHash = <<_:4/binary>>, FateCode) ->
Symbols = aeb_fate_code:symbols(FateCode),
case maps:get(SymbolHash, Symbols, undefined) of
undefined -> {error, no_function_matching_function_hash};
@ -46,3 +47,16 @@ get_function_hash_from_calldata(CallData) ->
catch _:_ ->
{error, bad_calldata}
end.
-spec get_function_type_from_function_hash(binary(), aeb_fate_code:fcode()) ->
{ok, term()} | {error, term()}.
get_function_type_from_function_hash(<<SymbolHash:4/binary, _:28/binary>>, FateCode) ->
get_function_type_from_function_hash(SymbolHash, FateCode);
get_function_type_from_function_hash(SymbolHash, FateCode) ->
Functions = aeb_fate_code:functions(FateCode),
case maps:get(SymbolHash, Functions, undefined) of
undefined ->
{error, no_function_matching_function_hash};
{{ArgTypes, RetType}, _Code} ->
{ok, ArgTypes, RetType}
end.

2
src/aeb_fate_code.erl
View File

@ -27,7 +27,7 @@
-include("../include/aeb_fate_data.hrl").
-ifdef(EQC).
-export([update_annotations/2
-export([ update_annotations/2
, update_functions/2
, update_symbols/2]).
-endif.