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 = 

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