/usr/lib/ocaml/rpc/rpc.mli is in libocamlnet-ocaml-dev 4.0.4-1build3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 | (* $Id: rpc.mli 2195 2015-01-01 12:23:39Z gerd $
* ----------------------------------------------------------------------
*
*)
(** Common types and exceptions *)
open Netnumber
type protocol =
Tcp (** means: stream-oriented connection *)
| Udp;; (** means: datagram exchange *)
type mode =
Socket (** classical server socket *)
| BiPipe (** server is endpoint of a bidirectional pipe *)
(* these are error conditions sent to the client: *)
type server_error =
Unavailable_program (** accepted call! *)
| Unavailable_version of (uint4 * uint4) (** accepted call *)
| Unavailable_procedure (** accepted call *)
| Garbage (** accepted call *)
| System_err (** accepted call *)
| Rpc_mismatch of (uint4 * uint4) (** rejected call *)
| Auth_bad_cred (** rejected call *)
| Auth_rejected_cred (** rejected call *)
| Auth_bad_verf (** rejected call *)
| Auth_rejected_verf (** rejected call *)
| Auth_too_weak (** rejected call *)
| Auth_invalid_resp (** rejected call *)
| Auth_failed (** rejected call *)
| RPCSEC_GSS_credproblem (** rejected call *)
| RPCSEC_GSS_ctxproblem (** rejected call *)
;;
val string_of_server_error : server_error -> string
(** returns a string for debug purposes *)
exception Rpc_server of server_error;;
(** an exception generated by the RPC server *)
exception Rpc_cannot_unpack of string;;
(** RPC protocol error (bad data) *)
val create_inet_uaddr : Unix.inet_addr -> int -> string
(** Create an universal address from an internet addr and a port *)
val parse_inet_uaddr : string -> (Unix.inet_addr * int)
(** Parses an universal address and returns internet addr and port.
Failure if not parsable.
*)
val netid_of_inet_addr : Unix.inet_addr -> protocol -> string
(** Get the netid for an Internet address *)
val sockaddr_of_uaddr : string -> string -> (Unix.sockaddr * protocol) option
(** [sockaddr_of_uaddr netid uaddr]. Returns None for unknown netid *)
|