diff options
author | Darren Bane <darren.bane@gmail.com> | 2021-01-17 00:54:23 +0000 |
---|---|---|
committer | Darren Bane <darren.bane@gmail.com> | 2021-01-17 00:54:23 +0000 |
commit | ec33fa3c80f852d60d7e2fcd046cc49c08fad803 (patch) | |
tree | 46d4952b98745fc2da89765ce1f228040cb6c526 /cecho.lisp | |
parent | 6222836c3b031ce6cf4bc98c3bbf7ff896d23786 (diff) | |
download | lsp-ec33fa3c80f852d60d7e2fcd046cc49c08fad803.tar.gz |
Making changes
Diffstat (limited to 'cecho.lisp')
-rw-r--r-- | cecho.lisp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/cecho.lisp b/cecho.lisp new file mode 100644 index 0000000..1f68f58 --- /dev/null +++ b/cecho.lisp @@ -0,0 +1,9 @@ +(require "jsonrpc") +(defun main () + (let ((server (jsonrpc:make-server))) + (jsonrpc:expose server "subtract" (lambda (args) + (- (gethash "l" args) (gethash "r" args)))) + (jsonrpc:expose server "add" (lambda (args) + (+ (gethash "l" args) (gethash "r" args)))) + (jsonrpc:expose server "quit" (lambda (args) (quit))) + (jsonrpc:server-listen server :port 8192 :mode :tcp))) |