`sig
type t
val create :
Netnumber.uint4 ->
Netnumber.uint4 ->
Netxdr.xdr_type_system ->
(string * (Netnumber.uint4 * Netxdr.xdr_type_term * Netxdr.xdr_type_term))
list -> Rpc_program.t
val id : Rpc_program.t -> int
val update :
?program_number:Netnumber.uint4 ->
?version_number:Netnumber.uint4 -> Rpc_program.t -> Rpc_program.t
val program_number : Rpc_program.t -> Netnumber.uint4
val version_number : Rpc_program.t -> Netnumber.uint4
val null_proc_name : Rpc_program.t -> string option
val signature :
Rpc_program.t ->
string -> Netnumber.uint4 * Netxdr.xdr_type * Netxdr.xdr_type
val procedure_number : Rpc_program.t -> string -> Netnumber.uint4
end`