From a560fab1af19a55e64820d5603e9c34adfa89a66 Mon Sep 17 00:00:00 2001
From: boneyard93501 <4523011+boneyard93501@users.noreply.github.com>
Date: Thu, 18 Mar 2021 15:31:42 -0500
Subject: [PATCH] add script storage  scripts

---
 .../air-scripts/add_stored_service.clj        | 10 ++++
 .../air-scripts/ethqlite_block_committer.clj  | 52 +++++++++++++++++++
 .../air-scripts/list_stored_services.clj      | 10 ++++
 .../air-scripts/remove_stored_service.clj     | 10 ++++
 4 files changed, 82 insertions(+)
 create mode 100644 multi-service/air-scripts/add_stored_service.clj
 create mode 100644 multi-service/air-scripts/ethqlite_block_committer.clj
 create mode 100644 multi-service/air-scripts/list_stored_services.clj
 create mode 100644 multi-service/air-scripts/remove_stored_service.clj

diff --git a/multi-service/air-scripts/add_stored_service.clj b/multi-service/air-scripts/add_stored_service.clj
new file mode 100644
index 0000000..38c17cd
--- /dev/null
+++ b/multi-service/air-scripts/add_stored_service.clj
@@ -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%])
+        )   
+)
diff --git a/multi-service/air-scripts/ethqlite_block_committer.clj b/multi-service/air-scripts/ethqlite_block_committer.clj
new file mode 100644
index 0000000..598e0d7
--- /dev/null
+++ b/multi-service/air-scripts/ethqlite_block_committer.clj
@@ -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%])
+    )  
+)
diff --git a/multi-service/air-scripts/list_stored_services.clj b/multi-service/air-scripts/list_stored_services.clj
new file mode 100644
index 0000000..703ad2e
--- /dev/null
+++ b/multi-service/air-scripts/list_stored_services.clj
@@ -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%])
+        )   
+)
diff --git a/multi-service/air-scripts/remove_stored_service.clj b/multi-service/air-scripts/remove_stored_service.clj
new file mode 100644
index 0000000..66e2e78
--- /dev/null
+++ b/multi-service/air-scripts/remove_stored_service.clj
@@ -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%])
+        )   
+)