`sig
type camlbox_address = string
type 'a camlbox
type 'a camlbox_sender
exception Empty
exception Message_too_big
val create_camlbox :
Netcamlbox.camlbox_address -> int -> int -> 'a Netcamlbox.camlbox
val unlink_camlbox : Netcamlbox.camlbox_address -> unit
val format_camlbox : Unix.file_descr -> int -> int -> 'a Netcamlbox.camlbox
val camlbox_fd : Netcamlbox.camlbox_address -> Unix.file_descr
val camlbox_capacity : Netcamlbox.camlbox_address -> int
val camlbox_bcapacity : 'a Netcamlbox.camlbox -> int
val camlbox_scapacity : 'a Netcamlbox.camlbox_sender -> int
val camlbox_msg_size : Netcamlbox.camlbox_address -> int
val camlbox_bmsg_size : 'a Netcamlbox.camlbox -> int
val camlbox_smsg_size : 'a Netcamlbox.camlbox_sender -> int
val camlbox_messages : Netcamlbox.camlbox_address -> int
val camlbox_bmessages : 'a Netcamlbox.camlbox -> int
val camlbox_smessages : 'a Netcamlbox.camlbox_sender -> int
val camlbox_get : 'a Netcamlbox.camlbox -> int -> 'a
val camlbox_get_copy : 'a Netcamlbox.camlbox -> int -> 'a
val camlbox_delete : 'a Netcamlbox.camlbox -> int -> unit
val camlbox_wait : 'a Netcamlbox.camlbox -> int list
val camlbox_cancel_wait : 'a Netcamlbox.camlbox -> unit
val camlbox_sender :
Netcamlbox.camlbox_address -> 'a Netcamlbox.camlbox_sender
val camlbox_sender_of_fd : Unix.file_descr -> 'a Netcamlbox.camlbox_sender
val camlbox_send :
?prefer:int ->
?slot:int Pervasives.ref -> 'a Netcamlbox.camlbox_sender -> 'a -> unit
val camlbox_wake : 'a Netcamlbox.camlbox_sender -> unit
end`