Module Pa_estring

module Pa_estring: sig .. end

type specifier = string 
type context 
val register_expr_specifier : specifier ->
(context ->
Camlp4.PreCast.Loc.t -> string -> Camlp4.PreCast.Ast.expr) ->
unit
val register_patt_specifier : specifier ->
(context ->
Camlp4.PreCast.Loc.t -> string -> Camlp4.PreCast.Ast.patt) ->
unit
val register_when_specifier : specifier ->
(context ->
Camlp4.PreCast.Loc.t ->
Camlp4.PreCast.Ast.ident -> string -> Camlp4.PreCast.Ast.expr) ->
unit
val register_shared_expr : context -> Camlp4.PreCast.Ast.expr -> Camlp4.PreCast.Ast.ident
type 'a llist = 
| Nil of Camlp4.PreCast.Loc.t
| Cons of Camlp4.PreCast.Loc.t * 'a * 'a llist
val loc_of_llist : 'a llist -> Camlp4.PreCast.Loc.t
val llength : 'a llist -> int
val lfoldr : (Camlp4.PreCast.Loc.t -> 'a -> 'acc -> 'acc) ->
(Camlp4.PreCast.Loc.t -> 'acc) -> 'a llist -> 'acc
val list_of_llist : 'a llist -> 'a list
val llist_of_list : Camlp4.PreCast.Loc.t -> 'a list -> 'a llist
val ldrop : int -> 'a llist -> 'a llist
val ltake : int -> 'a llist -> 'a llist
val lappend : 'a llist -> 'a llist -> 'a llist
val llist_expr : (Camlp4.PreCast.Loc.t -> 'a -> Camlp4.PreCast.Ast.expr) ->
'a llist -> Camlp4.PreCast.Ast.expr
val llist_patt : (Camlp4.PreCast.Loc.t -> 'a -> Camlp4.PreCast.Ast.patt) ->
'a llist -> Camlp4.PreCast.Ast.patt
val unescape : Camlp4.PreCast.Loc.t -> string -> char llist