Up
module
Netplex_ctrl_srv
:
sig
#
module
Control :
sig
#
module
V1 :
sig
#
val
bind : ?program_number:
Netnumber
.
uint4
->
?version_number:
Netnumber
.
uint4
->
proc_ping:(
Netplex_ctrl_aux
.
t_Control'V1'ping'arg
->
Netplex_ctrl_aux
.
t_Control'V1'ping'res
)
->
proc_poll:(
Netplex_ctrl_aux
.
t_Control'V1'poll'arg
->
Netplex_ctrl_aux
.
t_Control'V1'poll'res
)
->
proc_accepted:(
Netplex_ctrl_aux
.
t_Control'V1'accepted'arg
->
Netplex_ctrl_aux
.
t_Control'V1'accepted'res
)
->
Rpc_server
.
t
->
unit
#
val
bind_async : ?program_number:
Netnumber
.
uint4
->
?version_number:
Netnumber
.
uint4
->
proc_ping:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Control'V1'ping'arg
->
(
Netplex_ctrl_aux
.
t_Control'V1'ping'res
->
unit)
->
unit)
->
proc_poll:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Control'V1'poll'arg
->
(
Netplex_ctrl_aux
.
t_Control'V1'poll'res
->
unit)
->
unit)
->
proc_accepted:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Control'V1'accepted'arg
->
(
Netplex_ctrl_aux
.
t_Control'V1'accepted'res
->
unit)
->
unit)
->
Rpc_server
.
t
->
unit
end
end
#
module
System :
sig
#
module
V1 :
sig
#
val
bind : ?program_number:
Netnumber
.
uint4
->
?version_number:
Netnumber
.
uint4
->
proc_ping:(
Netplex_ctrl_aux
.
t_System'V1'ping'arg
->
Netplex_ctrl_aux
.
t_System'V1'ping'res
)
->
proc_lookup:(
Netplex_ctrl_aux
.
t_System'V1'lookup'arg
->
Netplex_ctrl_aux
.
t_System'V1'lookup'res
)
->
proc_send_message:(
Netplex_ctrl_aux
.
t_System'V1'send_message'arg
->
Netplex_ctrl_aux
.
t_System'V1'send_message'res
)
->
proc_log:(
Netplex_ctrl_aux
.
t_System'V1'log'arg
->
Netplex_ctrl_aux
.
t_System'V1'log'res
)
->
proc_call_plugin:(
Netplex_ctrl_aux
.
t_System'V1'call_plugin'arg
->
Netplex_ctrl_aux
.
t_System'V1'call_plugin'res
)
->
proc_register_container_socket:(
Netplex_ctrl_aux
.
t_System'V1'register_container_socket'arg
->
Netplex_ctrl_aux
.
t_System'V1'register_container_socket'res
)
->
proc_lookup_container_sockets:(
Netplex_ctrl_aux
.
t_System'V1'lookup_container_sockets'arg
->
Netplex_ctrl_aux
.
t_System'V1'lookup_container_sockets'res
)
->
proc_activate_lever:(
Netplex_ctrl_aux
.
t_System'V1'activate_lever'arg
->
Netplex_ctrl_aux
.
t_System'V1'activate_lever'res
)
->
Rpc_server
.
t
->
unit
#
val
bind_async : ?program_number:
Netnumber
.
uint4
->
?version_number:
Netnumber
.
uint4
->
proc_ping:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_System'V1'ping'arg
->
(
Netplex_ctrl_aux
.
t_System'V1'ping'res
->
unit)
->
unit)
->
proc_lookup:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_System'V1'lookup'arg
->
(
Netplex_ctrl_aux
.
t_System'V1'lookup'res
->
unit)
->
unit)
->
proc_send_message:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_System'V1'send_message'arg
->
(
Netplex_ctrl_aux
.
t_System'V1'send_message'res
->
unit)
->
unit)
->
proc_log:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_System'V1'log'arg
->
(
Netplex_ctrl_aux
.
t_System'V1'log'res
->
unit)
->
unit)
->
proc_call_plugin:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_System'V1'call_plugin'arg
->
(
Netplex_ctrl_aux
.
t_System'V1'call_plugin'res
->
unit)
->
unit)
->
proc_register_container_socket:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_System'V1'register_container_socket'arg
->
(
Netplex_ctrl_aux
.
t_System'V1'register_container_socket'res
->
unit)
->
unit)
->
proc_lookup_container_sockets:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_System'V1'lookup_container_sockets'arg
->
(
Netplex_ctrl_aux
.
t_System'V1'lookup_container_sockets'res
->
unit)
->
unit)
->
proc_activate_lever:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_System'V1'activate_lever'arg
->
(
Netplex_ctrl_aux
.
t_System'V1'activate_lever'res
->
unit)
->
unit)
->
Rpc_server
.
t
->
unit
end
end
#
module
Admin :
sig
#
module
V2 :
sig
#
val
bind : ?program_number:
Netnumber
.
uint4
->
?version_number:
Netnumber
.
uint4
->
proc_ping:(
Netplex_ctrl_aux
.
t_Admin'V2'ping'arg
->
Netplex_ctrl_aux
.
t_Admin'V2'ping'res
)
->
proc_list:(
Netplex_ctrl_aux
.
t_Admin'V2'list'arg
->
Netplex_ctrl_aux
.
t_Admin'V2'list'res
)
->
proc_enable:(
Netplex_ctrl_aux
.
t_Admin'V2'enable'arg
->
Netplex_ctrl_aux
.
t_Admin'V2'enable'res
)
->
proc_disable:(
Netplex_ctrl_aux
.
t_Admin'V2'disable'arg
->
Netplex_ctrl_aux
.
t_Admin'V2'disable'res
)
->
proc_restart:(
Netplex_ctrl_aux
.
t_Admin'V2'restart'arg
->
Netplex_ctrl_aux
.
t_Admin'V2'restart'res
)
->
proc_restart_all:(
Netplex_ctrl_aux
.
t_Admin'V2'restart_all'arg
->
Netplex_ctrl_aux
.
t_Admin'V2'restart_all'res
)
->
proc_system_shutdown:(
Netplex_ctrl_aux
.
t_Admin'V2'system_shutdown'arg
->
Netplex_ctrl_aux
.
t_Admin'V2'system_shutdown'res
)
->
proc_reopen_logfiles:(
Netplex_ctrl_aux
.
t_Admin'V2'reopen_logfiles'arg
->
Netplex_ctrl_aux
.
t_Admin'V2'reopen_logfiles'res
)
->
proc_send_admin_message:(
Netplex_ctrl_aux
.
t_Admin'V2'send_admin_message'arg
->
Netplex_ctrl_aux
.
t_Admin'V2'send_admin_message'res
)
->
Rpc_server
.
t
->
unit
#
val
bind_async : ?program_number:
Netnumber
.
uint4
->
?version_number:
Netnumber
.
uint4
->
proc_ping:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Admin'V2'ping'arg
->
(
Netplex_ctrl_aux
.
t_Admin'V2'ping'res
->
unit)
->
unit)
->
proc_list:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Admin'V2'list'arg
->
(
Netplex_ctrl_aux
.
t_Admin'V2'list'res
->
unit)
->
unit)
->
proc_enable:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Admin'V2'enable'arg
->
(
Netplex_ctrl_aux
.
t_Admin'V2'enable'res
->
unit)
->
unit)
->
proc_disable:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Admin'V2'disable'arg
->
(
Netplex_ctrl_aux
.
t_Admin'V2'disable'res
->
unit)
->
unit)
->
proc_restart:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Admin'V2'restart'arg
->
(
Netplex_ctrl_aux
.
t_Admin'V2'restart'res
->
unit)
->
unit)
->
proc_restart_all:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Admin'V2'restart_all'arg
->
(
Netplex_ctrl_aux
.
t_Admin'V2'restart_all'res
->
unit)
->
unit)
->
proc_system_shutdown:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Admin'V2'system_shutdown'arg
->
(
Netplex_ctrl_aux
.
t_Admin'V2'system_shutdown'res
->
unit)
->
unit)
->
proc_reopen_logfiles:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Admin'V2'reopen_logfiles'arg
->
(
Netplex_ctrl_aux
.
t_Admin'V2'reopen_logfiles'res
->
unit)
->
unit)
->
proc_send_admin_message:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Admin'V2'send_admin_message'arg
->
(
Netplex_ctrl_aux
.
t_Admin'V2'send_admin_message'res
->
unit)
->
unit)
->
Rpc_server
.
t
->
unit
end
end
#
module
Semaphore :
sig
#
module
V1 :
sig
#
val
bind : ?program_number:
Netnumber
.
uint4
->
?version_number:
Netnumber
.
uint4
->
proc_ping:(
Netplex_ctrl_aux
.
t_Semaphore'V1'ping'arg
->
Netplex_ctrl_aux
.
t_Semaphore'V1'ping'res
)
->
proc_increment:(
Netplex_ctrl_aux
.
t_Semaphore'V1'increment'arg
->
Netplex_ctrl_aux
.
t_Semaphore'V1'increment'res
)
->
proc_decrement:(
Netplex_ctrl_aux
.
t_Semaphore'V1'decrement'arg
->
Netplex_ctrl_aux
.
t_Semaphore'V1'decrement'res
)
->
proc_get:(
Netplex_ctrl_aux
.
t_Semaphore'V1'get'arg
->
Netplex_ctrl_aux
.
t_Semaphore'V1'get'res
)
->
proc_create:(
Netplex_ctrl_aux
.
t_Semaphore'V1'create'arg
->
Netplex_ctrl_aux
.
t_Semaphore'V1'create'res
)
->
proc_destroy:(
Netplex_ctrl_aux
.
t_Semaphore'V1'destroy'arg
->
Netplex_ctrl_aux
.
t_Semaphore'V1'destroy'res
)
->
Rpc_server
.
t
->
unit
#
val
bind_async : ?program_number:
Netnumber
.
uint4
->
?version_number:
Netnumber
.
uint4
->
proc_ping:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Semaphore'V1'ping'arg
->
(
Netplex_ctrl_aux
.
t_Semaphore'V1'ping'res
->
unit)
->
unit)
->
proc_increment:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Semaphore'V1'increment'arg
->
(
Netplex_ctrl_aux
.
t_Semaphore'V1'increment'res
->
unit)
->
unit)
->
proc_decrement:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Semaphore'V1'decrement'arg
->
(
Netplex_ctrl_aux
.
t_Semaphore'V1'decrement'res
->
unit)
->
unit)
->
proc_get:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Semaphore'V1'get'arg
->
(
Netplex_ctrl_aux
.
t_Semaphore'V1'get'res
->
unit)
->
unit)
->
proc_create:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Semaphore'V1'create'arg
->
(
Netplex_ctrl_aux
.
t_Semaphore'V1'create'res
->
unit)
->
unit)
->
proc_destroy:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Semaphore'V1'destroy'arg
->
(
Netplex_ctrl_aux
.
t_Semaphore'V1'destroy'res
->
unit)
->
unit)
->
Rpc_server
.
t
->
unit
end
end
#
module
Sharedvar :
sig
#
module
V1 :
sig
#
val
bind : ?program_number:
Netnumber
.
uint4
->
?version_number:
Netnumber
.
uint4
->
proc_ping:(
Netplex_ctrl_aux
.
t_Sharedvar'V1'ping'arg
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'ping'res
)
->
proc_create_var:(
Netplex_ctrl_aux
.
t_Sharedvar'V1'create_var'arg
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'create_var'res
)
->
proc_set_value:(
Netplex_ctrl_aux
.
t_Sharedvar'V1'set_value'arg
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'set_value'res
)
->
proc_get_value:(
Netplex_ctrl_aux
.
t_Sharedvar'V1'get_value'arg
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'get_value'res
)
->
proc_delete_var:(
Netplex_ctrl_aux
.
t_Sharedvar'V1'delete_var'arg
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'delete_var'res
)
->
proc_wait_for_value:(
Netplex_ctrl_aux
.
t_Sharedvar'V1'wait_for_value'arg
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'wait_for_value'res
)
->
proc_dump:(
Netplex_ctrl_aux
.
t_Sharedvar'V1'dump'arg
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'dump'res
)
->
Rpc_server
.
t
->
unit
#
val
bind_async : ?program_number:
Netnumber
.
uint4
->
?version_number:
Netnumber
.
uint4
->
proc_ping:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'ping'arg
->
(
Netplex_ctrl_aux
.
t_Sharedvar'V1'ping'res
->
unit)
->
unit)
->
proc_create_var:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'create_var'arg
->
(
Netplex_ctrl_aux
.
t_Sharedvar'V1'create_var'res
->
unit)
->
unit)
->
proc_set_value:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'set_value'arg
->
(
Netplex_ctrl_aux
.
t_Sharedvar'V1'set_value'res
->
unit)
->
unit)
->
proc_get_value:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'get_value'arg
->
(
Netplex_ctrl_aux
.
t_Sharedvar'V1'get_value'res
->
unit)
->
unit)
->
proc_delete_var:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'delete_var'arg
->
(
Netplex_ctrl_aux
.
t_Sharedvar'V1'delete_var'res
->
unit)
->
unit)
->
proc_wait_for_value:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'wait_for_value'arg
->
(
Netplex_ctrl_aux
.
t_Sharedvar'V1'wait_for_value'res
->
unit)
->
unit)
->
proc_dump:(
Rpc_server
.
session
->
Netplex_ctrl_aux
.
t_Sharedvar'V1'dump'arg
->
(
Netplex_ctrl_aux
.
t_Sharedvar'V1'dump'res
->
unit)
->
unit)
->
Rpc_server
.
t
->
unit
end
end
end