From f59749f0118807502618e25fba89c7a3fd083b54 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Mon, 25 Nov 2024 00:20:05 -0300 Subject: lwt socket server --- client.el | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 client.el (limited to 'client.el') 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* -- cgit v1.2.3