Debug_rpc (p.dap.1.0.2.doc.dap.rpc_lwt.Debug

Sourcetype t

The type of rpc connection

val create : 
  in_:Lwt_io.input_channel ->
  out:Lwt_io.output_channel ->
  ?next_seq:int ->
  unit ->
  t

create ~in_ ~out ?next_seq () Create a rpc connection

Source

val event : 
  t ->
  (module Debug_protocol.EVENT with type Payload.t = 'a) ->
  'a React.E.t

event rpc (module The_event) Get a The_event.Payload.t React.E.t for opposite end sent events

Source

val send_event : 
  t ->
  (module Debug_protocol.EVENT with type Payload.t = 'a) ->
  'a ->
  unit Lwt.t

send_event rpc (module The_event) payload Send event with payload to the opposite end

Source

val set_command_handler : 
  t ->
  (module Debug_protocol.COMMAND
    with type Arguments.t = 'a
     and type Result.t = 'b) ->
  ('a -> 'b Lwt.t) ->
  unit

set_command_handler rpc (module The_command) f Set handler f for The_command

Sourceval remove_command_handler : t -> (module Debug_protocol.COMMAND) -> unit

remove_command_handler rpc (module The_command) Remove handler for The_command

Source

val exec_command : 
  t ->
  (module Debug_protocol.COMMAND
    with type Arguments.t = 'a
     and type Result.t = 'b) ->
  'a ->
  'b Lwt.t

exec_command rpc (module The_command) arg Execute The_command with arg on the opposite end.

returns
res Returns promise of The_command.Result.t. You can use Lwt.cancel on it to cancel the request.

Sourceval start : t -> unit Lwt.t

start rpc Start rpc dispatch loop. You must call it before interact with rpc. This method will block until input_channel closed. You may call it in a Lwt.async block