ProtocolServer (vscode-debugadapter.DebugAdapter.Protocol.ProtocolServer)

include sig ... end

type t = private VSCodeDebugAdapter.t

val t_of_js : Ojs.t -> t

val t_to_js : t -> Ojs.t

include sig ... end

val dispose : t -> Interop.Js.Any.t

val onDidSendMessage : t -> DebugProtocalMessage.t Event0.t

val handleMessage : t -> msg:DebugProtocol.ProtocolMessage.t -> unit

val start : 
  t ->
  inStream:Node.Stream.Readable.t ->
  outStream:Node.Stream.Writable.t ->
  unit

val stop : t -> unit

val sendEvent : t -> event:DebugProtocol.Event.t -> unit

val sendResponse : t -> response:DebugProtocol.Response.t -> unit

val sendRequest : 
  t ->
  command:string ->
  args:'a ->
  timeout:int ->
  cb:(response:DebugProtocol.Response.t -> unit) ->
  unit

val dispatchRequest : t -> request:DebugProtocol.Request.t -> unit