`sig
type patt = Camlp4.PreCast.Syntax.Ast.patt
type expr = Camlp4.PreCast.Syntax.Ast.expr
type loc_t = Camlp4.PreCast.Syntax.Ast.Loc.t
type 'a field
type pattern = Bitstring_persistent.patt Bitstring_persistent.field list
type constructor =
Bitstring_persistent.expr Bitstring_persistent.field list
type named = string * Bitstring_persistent.alt
and alt =
Pattern of Bitstring_persistent.pattern
| Constructor of Bitstring_persistent.constructor
val string_of_pattern : Bitstring_persistent.pattern -> string
val string_of_constructor : Bitstring_persistent.constructor -> string
val string_of_pattern_field :
Bitstring_persistent.patt Bitstring_persistent.field -> string
val string_of_constructor_field :
Bitstring_persistent.expr Bitstring_persistent.field -> string
val named_to_channel :
Pervasives.out_channel -> Bitstring_persistent.named -> unit
val named_to_string : Bitstring_persistent.named -> string
val named_to_buffer :
string -> int -> int -> Bitstring_persistent.named -> int
val named_from_channel :
Pervasives.in_channel -> Bitstring_persistent.named
val named_from_string : string -> int -> Bitstring_persistent.named
val create_pattern_field :
Bitstring_persistent.loc_t ->
Bitstring_persistent.patt Bitstring_persistent.field
val set_lident_patt :
Bitstring_persistent.patt Bitstring_persistent.field ->
string -> Bitstring_persistent.patt Bitstring_persistent.field
val set_int_patt :
Bitstring_persistent.patt Bitstring_persistent.field ->
int -> Bitstring_persistent.patt Bitstring_persistent.field
val set_string_patt :
Bitstring_persistent.patt Bitstring_persistent.field ->
string -> Bitstring_persistent.patt Bitstring_persistent.field
val set_unbound_patt :
Bitstring_persistent.patt Bitstring_persistent.field ->
Bitstring_persistent.patt Bitstring_persistent.field
val set_patt :
Bitstring_persistent.patt Bitstring_persistent.field ->
Bitstring_persistent.patt ->
Bitstring_persistent.patt Bitstring_persistent.field
val set_length_int :
'a Bitstring_persistent.field -> int -> 'a Bitstring_persistent.field
val set_length :
'a Bitstring_persistent.field ->
Bitstring_persistent.expr -> 'a Bitstring_persistent.field
val set_endian :
'a Bitstring_persistent.field ->
Bitstring.endian -> 'a Bitstring_persistent.field
val set_endian_expr :
'a Bitstring_persistent.field ->
Bitstring_persistent.expr -> 'a Bitstring_persistent.field
val set_signed :
'a Bitstring_persistent.field -> bool -> 'a Bitstring_persistent.field
val set_type_int :
'a Bitstring_persistent.field -> 'a Bitstring_persistent.field
val set_type_string :
'a Bitstring_persistent.field -> 'a Bitstring_persistent.field
val set_type_bitstring :
'a Bitstring_persistent.field -> 'a Bitstring_persistent.field
val set_location :
'a Bitstring_persistent.field ->
Bitstring_persistent.loc_t -> 'a Bitstring_persistent.field
val set_offset_int :
'a Bitstring_persistent.field -> int -> 'a Bitstring_persistent.field
val set_offset :
'a Bitstring_persistent.field ->
Bitstring_persistent.expr -> 'a Bitstring_persistent.field
val set_no_offset :
'a Bitstring_persistent.field -> 'a Bitstring_persistent.field
val set_check :
'a Bitstring_persistent.field ->
Bitstring_persistent.expr -> 'a Bitstring_persistent.field
val set_no_check :
'a Bitstring_persistent.field -> 'a Bitstring_persistent.field
val set_bind :
'a Bitstring_persistent.field ->
Bitstring_persistent.expr -> 'a Bitstring_persistent.field
val set_no_bind :
'a Bitstring_persistent.field -> 'a Bitstring_persistent.field
val set_save_offset_to :
'a Bitstring_persistent.field ->
Bitstring_persistent.patt -> 'a Bitstring_persistent.field
val set_save_offset_to_lident :
'a Bitstring_persistent.field -> string -> 'a Bitstring_persistent.field
val set_no_save_offset_to :
'a Bitstring_persistent.field -> 'a Bitstring_persistent.field
val create_constructor_field :
Bitstring_persistent.loc_t ->
Bitstring_persistent.expr Bitstring_persistent.field
val set_lident_expr :
Bitstring_persistent.expr Bitstring_persistent.field ->
string -> Bitstring_persistent.expr Bitstring_persistent.field
val set_int_expr :
Bitstring_persistent.expr Bitstring_persistent.field ->
int -> Bitstring_persistent.expr Bitstring_persistent.field
val set_string_expr :
Bitstring_persistent.expr Bitstring_persistent.field ->
string -> Bitstring_persistent.expr Bitstring_persistent.field
val set_expr :
Bitstring_persistent.expr Bitstring_persistent.field ->
Bitstring_persistent.expr ->
Bitstring_persistent.expr Bitstring_persistent.field
val get_patt :
Bitstring_persistent.patt Bitstring_persistent.field ->
Bitstring_persistent.patt
val get_expr :
Bitstring_persistent.expr Bitstring_persistent.field ->
Bitstring_persistent.expr
val get_length : 'a Bitstring_persistent.field -> Bitstring_persistent.expr
type endian_expr =
ConstantEndian of Bitstring.endian
| EndianExpr of Bitstring_persistent.expr
val get_endian :
'a Bitstring_persistent.field -> Bitstring_persistent.endian_expr
val get_signed : 'a Bitstring_persistent.field -> bool
type field_type = Int | String | Bitstring
val get_type :
'a Bitstring_persistent.field -> Bitstring_persistent.field_type
val get_location :
'a Bitstring_persistent.field -> Bitstring_persistent.loc_t
val get_offset :
'a Bitstring_persistent.field -> Bitstring_persistent.expr option
val get_check :
'a Bitstring_persistent.field -> Bitstring_persistent.expr option
val get_bind :
'a Bitstring_persistent.field -> Bitstring_persistent.expr option
val get_save_offset_to :
'a Bitstring_persistent.field -> Bitstring_persistent.patt option
end`