diff options
Diffstat (limited to 'client.el')
| -rw-r--r-- | client.el | 24 |
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* |