fluencelabs/examples
1
0
Fork 0
mirror of https://github.com/fluencelabs/examples synced 2025-03-16 16:20:50 +00:00
Code Issues Projects Releases Wiki Activity

add script storage scripts

Browse Source
This commit is contained in:
boneyard93501 2021-03-18 15:31:42 -05:00
parent c508d096e7
commit a560fab1af
4 changed files with 82 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
multi-service/air-scripts/add_stored_service.clj Normal file
View File

@ -0,0 +1,10 @@
(xor
(seq
(call node ("script" "add") [script interval] id)
(call %init_peer_id% (returnService "run") [id])
)
(seq
(call relay ("op" "identity") [])
(call %init_peer_id% (returnService "run") ["XOR FAILED" %last_error%])
)
)

52
multi-service/air-scripts/ethqlite_block_committer.clj Normal file
View File

@ -0,0 +1,52 @@
(xor
(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
(call relay ("op" "identity") [])
(call %init_peer_id% (returnService "run") ["XOR FAILED" %last_error%])
)
)

10
multi-service/air-scripts/list_stored_services.clj Normal file
View File

@ -0,0 +1,10 @@
(xor
(seq
(call node ("script" "list") [] list)
(call %init_peer_id% (returnService "run") [list])
)
(seq
(call relay ("op" "identity") [])
(call %init_peer_id% (returnService "run") ["XOR FAILED" %last_error%])
)
)

10
multi-service/air-scripts/remove_stored_service.clj Normal file
View File

@ -0,0 +1,10 @@
(xor
(seq
(call node ("script" "remove") [script_id] result)
(call %init_peer_id% (returnService "run") [result])
)
(seq
(call relay ("op" "identity") [])
(call %init_peer_id% (returnService "run") ["XOR FAILED" %last_error%])
)
)