sig
type uint2 = int
val read_uint2 : string -> int -> Netamqp_rtypes.uint2
val read_uint2_unsafe : string -> int -> Netamqp_rtypes.uint2
val write_uint2 : string -> int -> Netamqp_rtypes.uint2 -> unit
val write_uint2_unsafe : string -> int -> Netamqp_rtypes.uint2 -> unit
val uint2_as_string : Netamqp_rtypes.uint2 -> string
val decode_shortstr : string -> int Pervasives.ref -> int -> string
val decode_longstr : string -> int Pervasives.ref -> int -> string
val encode_shortstr : string -> string list * int
val encode_longstr : string -> string list * int
type ('table_field, 'table) table_field_standard =
[ `Decimal of int * Netnumber.uint4
| `Longstr of string
| `Null
| `Sint4 of Netnumber.int4
| `Table of 'table
| `Timestamp of float ]
type ('table_field, 'table) table_field_ok =
[ `Bool of bool | `Double of float | `Float of float | `Sint1 of int ]
type ('table_field, 'table) table_field_problematic =
[ `Array of 'table_field list
| `Shortstr of string
| `Sint2 of int
| `Sint8 of Netnumber.int8
| `Uint1 of int
| `Uint2 of int
| `Uint4 of Netnumber.uint4
| `Uint8 of Netnumber.uint8 ]
type table_field =
[ `Bool of bool
| `Decimal of int * Netnumber.uint4
| `Double of float
| `Float of float
| `Longstr of string
| `Null
| `Sint1 of int
| `Sint4 of Netnumber.int4
| `Table of Netamqp_rtypes.table
| `Timestamp of float ]
and table = (string * Netamqp_rtypes.table_field) list
val decode_table :
string -> int Pervasives.ref -> int -> Netamqp_rtypes.table
val encode_table : Netamqp_rtypes.table -> string list * int
val unsafe_rev_concat : string list -> int -> string
val mk_mstring : string -> Netxdr_mstring.mstring
end