diff options
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))) |