stuff wip

x05-rq/src/rq.erl

@@ -40,6 +40,8 @@ help_screen() ->
         rq my tuples            my rbx_tuples
         rq query ak_...         hz:acc("ak_...")
         rq query ct_...         hz:contract("ak_...")
+        rq lookup NAME
+        rq register NAME
         rq src names.aes        print contract source
         rq src rubicon.aes      print contract source
     """.
@@ -76,6 +78,8 @@ rq_II(Args) ->
         ["my", "akstr"]         -> rq_my(akstr);
         ["my", "rbx_tuples"]    -> rq_my(rbx_tuples);
         ["my", "tuples"]        -> rq_my(rbx_tuples);
+        ["lookup", Name]        -> rq_lookup(Name);
+        ["register", Name]      -> rq_register(Name);
         ["query" | Args2]   -> rq_query(Args2);
         ["src" | Args2]     -> rq_src(Args2);
         ["-h" | Args2]      -> rq_help(Args2);
@@ -172,7 +176,19 @@ dbg_rct() ->
     io:format(Format, Args).
 
 
-%du_register(
+rq_register(Name) ->
+    {ok, CallTx} = hz:contract_call(my_akstr(), nct_aaci(), nct_ctstr(), "register", [Name]),
+    {ok, SignedTx} = hz:sign_tx(CallTx, my_secret_key()),
+    {ok, Result} = hz:post_tx(SignedTx),
+    io:format("~tp~n", [Result]).
+
+rq_lookup(Name) ->
+    {ok, CallTx} = hz:contract_call(my_akstr(), nct_aaci(), nct_ctstr(), "lookup", {erlang, [Name]}),
+    SignedTx = hz:sign_tx(CallTx, my_secret_key()),
+    {ok, Result} = hz:post_tx(SignedTx),
+    io:format("~tp~n", [Result]).
+
+
 
 %% name contract deployed address
 nct_ctstr() ->