Draft: connecting to the LSP server via a TCP socket

src/vendor/vscode-ocaml-platform/src-bindings/vscode_languageclient/vscode_languageclient.ml

@@ -198,13 +198,15 @@ module StreamInfo = struct
   let njs_stream_of_string str : njs_stream =
     Format.ksprintf
       Js_of_ocaml.Js.Unsafe.eval_string
-      "new joo_global_object.webSocket (`%s`);"
+      "new webSocket (`%s`);"
       str
 
     let njs_stream_of_js = Obj.magic
 
     let njs_stream_to_js = Obj.magic
 
+    let njs_stream_of_socket: _ -> njs_stream = njs_stream_of_js
+
   include
     [%js:
     val writer : t -> njs_stream [@@js.get]

src/vendor/vscode-ocaml-platform/src-bindings/vscode_languageclient/vscode_languageclient.mli

@@ -167,12 +167,13 @@ module DidChangeConfiguration : sig
   val create : settings:Ojs.t -> unit -> t
 end
 
-module StreamInfo : sig
+module StreamInfo: sig
   include Js.T
 
   type njs_stream
 
   val njs_stream_of_string : string -> njs_stream
+  val njs_stream_of_socket : 'a -> njs_stream
 
   val writer : t -> njs_stream [@@js.get]
 

src/vendor/vscode-ocaml-platform/src-bindings/vscode_languageclient/vscode_languageclient_stub.js

@@ -1,2 +1,2 @@
 joo_global_object.vscode_languageclient = require("vscode-languageclient");
-joo_global_object.webSocket = require("ws");
+// joo_global_object.webSocket = require("ws");

src/vscode/superbol-vscode-platform/superbol_instance.ml

@@ -48,18 +48,19 @@ let start_language_server ({ context; _ } as t) =
   in
   let client =
     let cmd = Executable.command serverOptions in
-    if String.starts_with ~prefix:"ws://" cmd then
-      LanguageClient.make_stream ~id ~name
-        (fun () ->
-          let njs_stream =
-            Vscode_languageclient.StreamInfo.njs_stream_of_string cmd
-          in
-          Promise.return (
-            Vscode_languageclient.StreamInfo.create ()
-              ~writer:njs_stream
-              ~reader:njs_stream
-          )
-        )
+    if String.starts_with ~prefix:"tcp://" cmd then
+      LanguageClient.make_stream ~id ~name begin fun () ->
+        let njs_stream =
+          Vscode_languageclient.StreamInfo.njs_stream_of_socket @@
+          Node.Net.Socket.(connect (make ()))
+            ~host:"localhost"
+            ~port:8000
+        in
+        Promise.return @@
+        Vscode_languageclient.StreamInfo.create ()
+          ~writer:njs_stream
+          ~reader:njs_stream
+      end
     else
       let clientOptions = Superbol_languageclient.client_options () in
       LanguageClient.make () ~id ~name ~serverOptions ~clientOptions