module Id : sig val name : string val version : string end
module Make :
  functor (Ast : Camlp4.Sig.Ast) ->
    sig
      module Ast :
        sig
          type loc = Ast.loc
          type meta_bool = Ast.meta_bool
          type 'a meta_option = 'a Ast.meta_option
          type 'a meta_list = 'a Ast.meta_list
          type ctyp = Ast.ctyp
          type patt = Ast.patt
          type expr = Ast.expr
          type module_type = Ast.module_type
          type sig_item = Ast.sig_item
          type with_constr = Ast.with_constr
          type module_expr = Ast.module_expr
          type str_item = Ast.str_item
          type class_type = Ast.class_type
          type class_sig_item = Ast.class_sig_item
          type class_expr = Ast.class_expr
          type class_str_item = Ast.class_str_item
          type match_case = Ast.match_case
          type ident = Ast.ident
          type binding = Ast.binding
          type rec_binding = Ast.rec_binding
          type module_binding = Ast.module_binding
          val loc_of_ctyp : ctyp -> loc
          val loc_of_patt : patt -> loc
          val loc_of_expr : expr -> loc
          val loc_of_module_type : module_type -> loc
          val loc_of_module_expr : module_expr -> loc
          val loc_of_sig_item : sig_item -> loc
          val loc_of_str_item : str_item -> loc
          val loc_of_class_type : class_type -> loc
          val loc_of_class_sig_item : class_sig_item -> loc
          val loc_of_class_expr : class_expr -> loc
          val loc_of_class_str_item : class_str_item -> loc
          val loc_of_with_constr : with_constr -> loc
          val loc_of_binding : binding -> loc
          val loc_of_rec_binding : rec_binding -> loc
          val loc_of_module_binding : module_binding -> loc
          val loc_of_match_case : match_case -> loc
          val loc_of_ident : ident -> loc
          class map :
            object ('a)
              method binding : binding -> binding
              method class_expr : class_expr -> class_expr
              method class_sig_item : class_sig_item -> class_sig_item
              method class_str_item : class_str_item -> class_str_item
              method class_type : class_type -> class_type
              method ctyp : ctyp -> ctyp
              method expr : expr -> expr
              method ident : ident -> ident
              method list : ('a -> 'b -> 'c) -> 'b list -> 'c list
              method loc : loc -> loc
              method match_case : match_case -> match_case
              method meta_bool : meta_bool -> meta_bool
              method meta_list :
                ('a -> 'd -> 'e) -> 'd meta_list -> 'e meta_list
              method meta_option :
                ('a -> 'f -> 'g) -> 'f meta_option -> 'g meta_option
              method module_binding : module_binding -> module_binding
              method module_expr : module_expr -> module_expr
              method module_type : module_type -> module_type
              method patt : patt -> patt
              method rec_binding : rec_binding -> rec_binding
              method sig_item : sig_item -> sig_item
              method str_item : str_item -> str_item
              method string : string -> string
              method unknown : 'h -> 'h
              method with_constr : with_constr -> with_constr
            end
          class fold :
            object ('a)
              method binding : binding -> 'a
              method class_expr : class_expr -> 'a
              method class_sig_item : class_sig_item -> 'a
              method class_str_item : class_str_item -> 'a
              method class_type : class_type -> 'a
              method ctyp : ctyp -> 'a
              method expr : expr -> 'a
              method ident : ident -> 'a
              method list : ('a -> 'b -> 'a) -> 'b list -> 'a
              method loc : loc -> 'a
              method match_case : match_case -> 'a
              method meta_bool : meta_bool -> 'a
              method meta_list : ('a -> 'c -> 'a) -> 'c meta_list -> 'a
              method meta_option : ('a -> 'd -> 'a) -> 'd meta_option -> 'a
              method module_binding : module_binding -> 'a
              method module_expr : module_expr -> 'a
              method module_type : module_type -> 'a
              method patt : patt -> 'a
              method rec_binding : rec_binding -> 'a
              method sig_item : sig_item -> 'a
              method str_item : str_item -> 'a
              method string : string -> 'a
              method unknown : 'e -> 'a
              method with_constr : with_constr -> 'a
            end
        end
      val parse :
        string -> ?directive_handler:'a -> 'b -> char Stream.t -> 'c
      val parse_implem :
        ?directive_handler:(Ast.str_item -> Ast.str_item option) ->
        Ast.loc -> char Stream.t -> 'a
      val parse_interf :
        ?directive_handler:(Ast.sig_item -> Ast.sig_item option) ->
        Ast.loc -> char Stream.t -> 'a
    end