blob: 1f68f58369e525f2e2a97be2932fb57b39b6bd90 (
plain) (
blame)
1
2
3
4
5
6
7
8
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)))
|