ocamlnet 4.1.9-2 · OCaml Package

exception Connection_lost

type t

type session

type connection_id

type connector =

| Localhost of int
| Portmapped
| Internet of Unix.inet_addr * int
| Unix of string
| W32_pipe of string
| Descriptor of Unix.file_descr
| Dynamic_descriptor of unit -> Unix.file_descr

type binding_sync = {

sync_name : string;
sync_proc : t -> Netxdr.xdr_value -> Netxdr.xdr_value;

}

type binding_async = {

async_name : string;
async_invoke : t -> session -> Netxdr.xdr_value -> unit;

}

type binding =

| Sync of binding_sync
| Async of binding_async

val connector_of_sockaddr : Unix.sockaddr -> connector

val connector_of_socksymbol : Netsockaddr.socksymbol -> connector

val create : 
  ?program_number:Netnumber.uint4 ->
  ?version_number:Netnumber.uint4 ->
  Unixqueue.event_system ->
  connector ->
  Rpc.protocol ->
  Rpc.mode ->
  Rpc_program.t ->
  binding list ->
  int ->
  t

class type socket_config = object ... end

val default_socket_config : socket_config

class default_socket_config : socket_config

val tls_socket_config : 
  (module Netsys_crypto_types.TLS_CONFIG) ->
  socket_config

class tls_socket_config : (module Netsys_crypto_types.TLS_CONFIG) -> socket_config

type internal_pipe = Netxdr.xdr_value Netsys_polypipe.polypipe

type internal_socket = Netxdr.xdr_value Netsys_polysocket.polyserver

type mode2 = [

| `Dummy of Rpc.protocol
| `Internal_endpoint of internal_pipe * internal_pipe
| `Internal_socket of internal_socket
| `Multiplexer_endpoint of Rpc_transport.rpc_multiplex_controller
| `Socket of Rpc.protocol * connector * socket_config
| `Socket_endpoint of Rpc.protocol * Unix.file_descr

]

val create2 : mode2 -> Unixqueue.event_system -> t

val bind : 
  ?program_number:Netnumber.uint4 ->
  ?version_number:Netnumber.uint4 ->
  ?pm_continue:bool ->
  Rpc_program.t ->
  binding list ->
  t ->
  unit

val unbind : 
  ?program_number:Netnumber.uint4 ->
  ?version_number:Netnumber.uint4 ->
  Rpc_program.t ->
  t ->
  unit

val bound_programs : t -> Rpc_program.t list

val get_event_system : session -> Unixqueue.event_system

val get_connection_id : session -> connection_id

val get_xid : session -> Netnumber.uint4

val get_socket_name : session -> Unix.sockaddr

val get_peer_name : session -> Unix.sockaddr

val get_conn_socket_name : connection_id -> Unix.sockaddr

val get_conn_peer_name : connection_id -> Unix.sockaddr

val get_server : session -> t

val get_main_socket_name : t -> Unix.sockaddr

val get_protocol : t -> Rpc.protocol

val get_srv_event_system : t -> Unixqueue.unix_event_system

val get_last_proc_info : t -> string

val is_dummy : t -> bool

val get_tls_session_props : session -> Nettls_support.tls_session_props option

val get_gssapi_props : session -> Netsys_gssapi.server_props option

type rule = [

| `Accept
| `Accept_limit_length of int * rule
| `Deny
| `Drop
| `Reject
| `Reject_with of Rpc.server_error

]

val set_session_filter : t -> (Rpc_transport.sockaddr -> rule) -> unit

val set_session_filter_2 : 
  t ->
  (Rpc_transport.sockaddr -> connection_id -> rule) ->
  unit

val set_mstring_factories : t -> Netxdr_mstring.named_mstring_factories -> unit

val reply : session -> Netxdr.xdr_value -> unit

val reply_error : session -> Rpc.server_error -> unit

val set_exception_handler : t -> (exn -> string -> unit) -> unit

val set_onclose_action : t -> (connection_id -> unit) -> unit

val set_timeout : t -> float -> unit

val stop_server : ?graceful:bool -> t -> unit

val stop_connection : t -> connection_id -> unit

type auth_result =

| Auth_positive of string * string * string * Netxdr.encoder option * Netxdr.decoder option * Netsys_gssapi.server_props option
| Auth_negative of Rpc.server_error
| Auth_reply of Netxdr_mstring.mstring list * string * string
| Auth_drop

exception Late_drop

type auth_peeker = [

| `None
| `Peek_descriptor of Unix.file_descr -> string option
| `Peek_multiplexer of Rpc_transport.rpc_multiplex_controller -> string option

]

class type auth_details = object ... end

class type auth_method = object ... end

val set_auth_methods : t -> auth_method list -> unit

val auth_none : auth_method

val auth_too_weak : auth_method

val auth_transport : auth_method

val get_user : session -> string

val get_auth_method : session -> auth_method

val xdr_ctx : t -> Netxdr.ctx

val verbose : bool -> unit

val detach : t -> unit

val set_debug_name : t -> string -> unit

val get_debug_name : t -> string

module Debug : sig ... end

package ocamlnet