lwt socket server

1 files changed, 24 insertions, 0 deletions

diff --git a/client.el b/client.el
new file mode 100644
index 0000000..91a85e6
--- /dev/null
+++ b/client.el
@@ -0,0 +1,24 @@
+(setq *mailbox* nil)
+
+(defun relational-engine-handler (process response)
+  ""
+  ;; (setq *mailbox* (json-read-from-string response))
+  (setq *mailbox* response)
+  (let ((response (process-get process :response)))
+    (message "Received: %s" response)    
+    (delete-process process)))
+
+(setq relational-engine-address "localhost")
+(setq relational-engine-port 4457)
+
+(defun relational-client (content)
+  ""
+  (let ((connection (open-network-stream "relational-engine" "*relational-engine-socket*" relational-engine-address relational-engine-port)))
+    (process-put connection :response nil)
+    (set-process-filter connection 'relational-engine-handler)
+    (process-send-string connection content)))
+
+(setq msg "read")
+
+(relational-client msg)
+*mailbox*