mirage-qubes 0.10.0 · OCaml Package

type msg_header = {

ty : int32;
len : int32;

}

val get_msg_header_ty : string -> int32

val get_msg_header_len : string -> int32

val sizeof_msg_header : int

type peer_info = {

version : int32;

}

val get_peer_info_version : string -> int32

val sizeof_peer_info : int

type exec_params = {

connect_domain : int32;
connect_port : int32;

}

val get_exec_params_connect_domain : string -> int32

val get_exec_params_connect_port : string -> int32

val sizeof_exec_params : int

type exit_status = {

return_code : int32;

}

val get_exit_status_return_code : string -> int32

val sizeof_exit_status : int

type trigger_service_params = {

service_name : string;
target_domain : string;
request_id : string;

}

val get_trigger_service_params_service_name : string -> string

val get_trigger_service_params_target_domain : string -> string

val get_trigger_service_params_request_id : string -> string

val sizeof_trigger_service_params : int

type trigger_service_params3 = {

target_domain : string;
request_id : string;

}

val get_trigger_service_params3_target_domain : string -> string

val get_trigger_service_params3_request_id : string -> string

val sizeof_trigger_service_params3 : int

type msg_type = [

| `Exec_cmdline
| `Just_exec
| `Service_connect
| `Service_refused
| `Trigger_service
| `Connection_terminated
| `Trigger_service3
| `Hello
| `Data_stdin
| `Data_stdout
| `Data_stderr
| `Data_exit_code

]

val type_of_int : 
  int32 ->
  [> `Connection_terminated
  | `Data_exit_code
  | `Data_stderr
  | `Data_stdin
  | `Data_stdout
  | `Exec_cmdline
  | `Hello
  | `Just_exec
  | `Service_connect
  | `Service_refused
  | `Trigger_service
  | `Trigger_service3
  | `Unknown of int32 ]

val int_of_type : 
  [< `Connection_terminated
  | `Data_exit_code
  | `Data_stderr
  | `Data_stdin
  | `Data_stdout
  | `Exec_cmdline
  | `Hello
  | `Just_exec
  | `Service_connect
  | `Service_refused
  | `Trigger_service
  | `Trigger_service3
  | `Unknown of int32 ] ->
  int32

val string_of_type : 
  [< `Connection_terminated
  | `Data_exit_code
  | `Data_stderr
  | `Data_stdin
  | `Data_stdout
  | `Exec_cmdline
  | `Hello
  | `Just_exec
  | `Service_connect
  | `Service_refused
  | `Trigger_service
  | `Trigger_service3
  | `Unknown of int32 ] ->
  string

type version = [

| `V2
| `V3

]

val version_of_int : int32 -> [> `Unknown_version of int32 | `V2 | `V3 ]

val int_of_version : [< `Unknown_version of int32 | `V2 | `V3 ] -> int32

module Framing : sig ... end

package mirage-qubes