add jsonrpc-stdio-patch.lisp

frontends/jsonrpc/jsonrpc-stdio-patch.lisp

@@ -0,0 +1,28 @@
+(in-package :jsonrpc/transport/stdio)
+
+(defmethod send-message-using-transport ((transport stdio-transport) connection message)
+  (let ((json (trivial-utf-8:string-to-utf-8-bytes
+               (with-output-to-string (s)
+                 (yason:encode message s))))
+        (stream (connection-socket connection)))
+    (format stream "Content-Length: ~A~C~C~:*~:*~C~C"
+            (length json)
+            #\Return
+            #\Newline)
+    (write-sequence json stream)
+    (force-output stream)))
+
+(defmethod receive-message-using-transport ((transport stdio-transport) connection)
+  (let* ((stream (connection-socket connection))
+         (headers (read-headers stream))
+         (length (ignore-errors (parse-integer (gethash "content-length" headers)))))
+    (when length
+      (let ((body
+              (with-output-to-string (out)
+                (loop
+                  :for c := (read-char stream)
+                  :do (write-char c out)
+                      (decf length (babel:string-size-in-octets (string c)))
+                      (when (<= length 0)
+                        (return))))))
+        (parse-message body)))))

frontends/jsonrpc/lem-jsonrpc.asd

@@ -5,7 +5,8 @@
                "trivial-utf-8"
                "jsonrpc/transport/stdio")
   :serial t
-  :components ((:file "utils")
+  :components ((:file "jsonrpc-stdio-patch")
+               (:file "utils")
                (:file "view")
                (:file "main")))