#
type longstring = string
#
type event = [
| `event_none
| `event_accept of int
| `event_noaccept
| `event_received_message
of message| `event_received_admin_message
of message| `event_shutdown
| `event_system_shutdown
]
#
type t_Control'V1'ping'arg = unit
#
type t_Control'V1'ping'res = unit
#
type t_Control'V1'poll'arg = int * bool
#
type t_Control'V1'poll'res =
event
#
type t_Control'V1'accepted'arg = unit
#
type t_Control'V1'accepted'res = unit
#
type t_System'V1'ping'arg = unit
#
type t_System'V1'ping'res = unit
#
type t_System'V1'send_message'res = unit
#
type t_System'V1'log'res = unit
#
type t_System'V1'register_container_socket'res = unit
#
type t_System'V1'activate_lever'arg = int *
longstring
#
type unit_result = [
| `code_ok
]
#
type port = [
| `pf_unknown
]
#
type port_list =
port array
#
type prot_list =
prot array
#
type cnt_state = [
| `cstate_accepting
| `cstate_selected
| `cstate_busy
| `cstate_starting
| `cstate_shutdown
]
#
type t_Admin'V2'ping'arg = unit
#
type t_Admin'V2'ping'res = unit
#
type t_Admin'V2'list'arg = unit
#
type t_Admin'V2'restart_all'arg = unit
#
type t_Admin'V2'system_shutdown'arg = unit
#
type t_Admin'V2'reopen_logfiles'arg = unit
#
type t_Admin'V2'send_admin_message'res = unit
#
type t_Semaphore'V1'ping'arg = unit
#
type t_Semaphore'V1'ping'res = unit
#
type t_Semaphore'V1'increment'res = int64
#
type t_Semaphore'V1'decrement'arg =
longstring * bool
#
type t_Semaphore'V1'decrement'res = int64
#
type t_Semaphore'V1'get'res = int64
#
type t_Semaphore'V1'create'arg =
longstring * int64 * bool
#
type t_Semaphore'V1'create'res = bool
#
type t_Semaphore'V1'destroy'res = unit
#
type shvar_code = [
| `shvar_ok
| `shvar_badtype
| `shvar_notfound
| `shvar_exists
| `shvar_noperm
]
#
type shvar_get = [
| `shvar_badtype
| `shvar_notfound
| `shvar_exists
| `shvar_noperm
]
#
type t_Sharedvar'V1'ping'arg = unit
#
type t_Sharedvar'V1'ping'res = unit
#
type t_Sharedvar'V1'wait_for_value'res =
shvar_get
#
type t_Sharedvar'V1'dump'res = unit