diff --git a/multi-service/air-scripts/ethqlite_init.clj b/multi-service/air-scripts/ethqlite_init.clj new file mode 100644 index 0000000..992f7d2 --- /dev/null +++ b/multi-service/air-scripts/ethqlite_init.clj @@ -0,0 +1,16 @@ +(xor + (seq + (seq + (call relay ("op" "identity") []) + (call node_1 (service "init_service") [use_owner use_paywall api_key] result) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") [result]) + ) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") ["XOR FAILED" %last_error%]) + ) +) \ No newline at end of file diff --git a/multi-service/air-scripts/ethqlite_owner.clj b/multi-service/air-scripts/ethqlite_owner.clj new file mode 100644 index 0000000..33a6980 --- /dev/null +++ b/multi-service/air-scripts/ethqlite_owner.clj @@ -0,0 +1,17 @@ +(xor + (seq + (seq + (call relay ("op" "identity") []) + (call node_1 (service "am_i_owner") [] result) + ; (call node_1 (service "get_tplet") [] result) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") [result]) + ) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") ["XOR FAILED" %last_error%]) + ) +) \ No newline at end of file diff --git a/multi-service/air-scripts/ethqlite_reset.clj b/multi-service/air-scripts/ethqlite_reset.clj new file mode 100644 index 0000000..28af135 --- /dev/null +++ b/multi-service/air-scripts/ethqlite_reset.clj @@ -0,0 +1,16 @@ +(xor + (seq + (seq + (call relay ("op" "identity") []) + (call node_1 (service "owner_nuclear_reset") [] result) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") [result]) + ) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") ["XOR FAILED" %last_error%]) + ) +) \ No newline at end of file diff --git a/multi-service/air-scripts/ethqlite_roundtrip.clj b/multi-service/air-scripts/ethqlite_roundtrip.clj new file mode 100644 index 0000000..97f1de6 --- /dev/null +++ b/multi-service/air-scripts/ethqlite_roundtrip.clj @@ -0,0 +1,88 @@ +(xor + (seq + (seq + (seq + (seq + (seq + (seq + (seq + (call relay ("op" "identity") []) + (call node_1 (service_1 "get_latest_block") [api_key] hex_block_result) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") [hex_block_result]) + ) + ) + (seq + (seq + (call relay ("op" "identity") []) + (call node_2 (service_2 "hex_to_int") [hex_block_result] int_block_result) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") [int_block_result]) + ) + ) + ) + (seq + (seq + (call relay ("op" "identity") []) + (call node_1 (service_1 "get_block") [api_key int_block_result] block_result) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") [block_result]) + ) + ) + ) + (seq + (seq + (call relay ("op" "identity") []) + (call sqlite_node (sqlite_service "update_reward_blocks") [block_result] insert_result) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") [insert_result]) + ) + ) + ) + (seq + (seq + (call relay ("op" "identity") []) + (call sqlite_node (sqlite_service "get_latest_reward_block") [] select_result) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") [select_result]) + ) + ) + ) + (seq + (seq + (seq + (call relay ("op" "identity") []) + (call sqlite_node (sqlite_service "get_reward_block") [int_block_result] select_result_2) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") [select_result_2]) + ) + ) + (seq + (seq + (call relay ("op" "identity") []) + (call sqlite_node (sqlite_service "get_miner_rewards") [select_result_2.$.["block_miner"]!] select_result_3) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") [select_result_3]) + ) + ) + ) + ) + (seq + (call relay ("op" "identity") []) + (call %init_peer_id% (returnService "run") ["XOR FAILED" %last_error%]) + ) +)