Additional Vscode and NodeJS bindings

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

@@ -283,8 +283,8 @@ module ChildProcess = struct
     | `Disconnect f -> on t "disconnect" @@ [%js.of: unit -> unit] f
     | `Error f -> on t "error" @@ [%js.of: err:JsError.t -> unit] f
     | `Exit f -> on t "exit" @@ [%js.of: code:int -> ?signal:string -> unit -> unit] f
-    | `Message f ->
-      on t "message" @@ [%js.of: message:Ojs.t -> sendHandle:Ojs.t -> unit] f
+    | `Message f -> on t "message" @@ [%js.of: message:Ojs.t -> sendHandle:Ojs.t -> unit] f
+    | `Spawn f -> on t "spawn" @@ [%js.of: unit -> unit] f
 
   type return =
     { exitCode : int

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

@@ -240,6 +240,8 @@ module ChildProcess : sig
        | `Disconnect of unit -> unit
        | `Error of err:JsError.t -> unit
        | `Exit of code:int -> ?signal:string -> unit -> unit
+       | `Message of message:Ojs.t -> sendHandle:Ojs.t -> unit
+       | `Spawn of unit -> unit
        ]
     -> unit
 

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

@@ -3334,6 +3334,39 @@ module Commands = struct
       [@@js.global "vscode.commands.getCommands"]]
 end
 
+module EvaluatableExpression = struct
+  include Interface.Make ()
+
+  include
+    [%js:
+    val range: t -> Range.t [@@js.get]
+    val expression: t -> string or_undefined [@@js.get]
+
+    val create :
+      range:Range.t -> ?expression:string -> unit -> t [@@js.builder]]
+end
+
+module EvaluatableExpressionProvider = struct
+  include Interface.Make ()
+
+  include
+    [%js:
+    val provideEvaluatableExpression:
+         t
+      -> document: TextDocument.t
+      -> position: Position.t
+      -> token: CancellationToken.t
+      -> EvaluatableExpression.t ProviderResult.t [@@js.call]
+
+    val create :
+      provideEvaluatableExpression:
+           (document: TextDocument.t
+         -> position: Position.t
+         -> token: CancellationToken.t
+         -> EvaluatableExpression.t ProviderResult.t)
+      -> t [@@js.builder]]
+end
+
 module Languages = struct
   include
     [%js:
@@ -3343,6 +3376,12 @@ module Languages = struct
       -> Disposable.t
       [@@js.global "vscode.languages.registerDocumentFormattingEditProvider"]
 
+    val registerEvaluatableExpressionProvider:
+         selector:DocumentSelector.t
+      -> provider:EvaluatableExpressionProvider.t
+      -> Disposable.t
+      [@@js.global "vscode.languages.registerEvaluatableExpressionProvider"]
+
     val registerHoverProvider :
       selector:DocumentSelector.t -> provider:HoverProvider.t -> Disposable.t
       [@@js.global "vscode.languages.registerHoverProvider"]