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

Corrections and improvements

Browse Source
This commit is contained in:
Craig Everett 2025-03-04 22:43:19 +09:00
parent 2d4350fa49
commit fe05ddf9c3
2 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
counter.aes
View File

@ -6,8 +6,8 @@ contract Counter =
stateful entrypoint init() =
{value = 1}
stateful entrypoint increment() =
put({value = state.value + 1})
stateful entrypoint increment(n : int) =
put({value = state.value + n})
entrypoint value() =
state.value
state.value

19
toy_caller.erl
View File

@ -20,7 +20,8 @@ deploy(Source, PubKey, SecKey) ->
end.
deploy2(Build, PubKey, SecKey) ->
ChainID = <<"groot.testnet">>, % NOTE: This obviously should come from the chain
{ok, #{"network_id" := ChainID}} = hz:status(),
NetworkID = list_to_binary(ChainID),
{ok, Height} = hz:top_height(),
{ok, Nonce} = hz:next_nonce(PubKey),
TTL = Height + 10000,
@ -31,8 +32,8 @@ deploy2(Build, PubKey, SecKey) ->
case hz:contract_create_built(PubKey,
Nonce, Amount, TTL, Gas, GasPrice,
Build, InitArgs) of
{ok, CreateTX} -> deploy3(SecKey, CreateTX, ChainID);
Error -> gmc_v_devman:trouble(Error)
{ok, CreateTX} -> deploy3(SecKey, CreateTX, NetworkID);
Error -> gd_v_devman:trouble(Error)
end.
deploy3(SecKey, CreateTX, ChainID) ->
@ -42,21 +43,21 @@ deploy3(SecKey, CreateTX, ChainID) ->
ok = io:format("The transaction hash is: ~p", [TXHash]),
deploy4(Data);
{ok, WTF} ->
gmc_v_devman:trouble({error, WTF});
gd_v_devman:trouble({error, WTF});
Error ->
gmc_v_devman:trouble(Error)
gd_v_devman:trouble(Error)
end.
deploy4(#{"tx_hash" := TXHash}) ->
case hz:tx_info(TXHash) of
{ok, #{"call_info" := #{"return_type" := "ok", "contract_id" := ConID}}} ->
gmc_v_devman:open_contract(ConID);
gd_v_devman:open_contract(ConID);
{error, "Tx not mined"} ->
gmc_v_devman:trouble({tx_hash, TXHash});
gd_v_devman:trouble({tx_hash, TXHash});
{ok, Reason = #{"call_info" := #{"return_type" := "revert"}}} ->
gmc_v_devman:trouble({error, Reason});
gd_v_devman:trouble({error, Reason});
Error ->
gmc_v_devman:trouble(Error)
gd_v_devman:trouble(Error)
end.