Module Camlp4.Register

module Register: sig .. end

type 'a parser_fun = ?directive_handler:('a -> 'a option) -> PreCast.Loc.t -> char Stream.t -> 'a 

type 'a printer_fun = ?input_file:string -> ?output_file:string -> 'a -> unit 

val loaded_modules : string list Pervasives.ref

val iter_and_take_callbacks : (string * (unit -> unit) -> unit) -> unit

val declare_dyn_module : string -> (unit -> unit) -> unit

val register_str_item_parser : (?directive_handler:(Camlp4.PreCast.Syntax.Ast.str_item ->
                            Camlp4.PreCast.Syntax.Ast.str_item option) ->
        Camlp4.PreCast.Ast.loc ->
        char Stream.t -> Camlp4.PreCast.Syntax.Ast.str_item) ->
       unit

val register_sig_item_parser : (?directive_handler:(Camlp4.PreCast.Syntax.Ast.sig_item ->
                            Camlp4.PreCast.Syntax.Ast.sig_item option) ->
        Camlp4.PreCast.Ast.loc ->
        char Stream.t -> Camlp4.PreCast.Syntax.Ast.sig_item) ->
       unit

val register_parser : (?directive_handler:(Camlp4.PreCast.Syntax.Ast.str_item ->
                            Camlp4.PreCast.Syntax.Ast.str_item option) ->
        Camlp4.PreCast.Ast.loc ->
        char Stream.t -> Camlp4.PreCast.Syntax.Ast.str_item) ->
       (?directive_handler:(Camlp4.PreCast.Syntax.Ast.sig_item ->
                            Camlp4.PreCast.Syntax.Ast.sig_item option) ->
        Camlp4.PreCast.Ast.loc ->
        char Stream.t -> Camlp4.PreCast.Syntax.Ast.sig_item) ->
       unit

val register_str_item_printer : (?input_file:string ->
        ?output_file:string -> Camlp4.PreCast.Syntax.Ast.str_item -> unit) ->
       unit

val register_sig_item_printer : (?input_file:string ->
        ?output_file:string -> Camlp4.PreCast.Syntax.Ast.sig_item -> unit) ->
       unit

val register_printer : (?input_file:string ->
        ?output_file:string -> Camlp4.PreCast.Syntax.Ast.str_item -> unit) ->
       (?input_file:string ->
        ?output_file:string -> Camlp4.PreCast.Syntax.Ast.sig_item -> unit) ->
       unit

module Plugin: 
functor (Id : Camlp4.Sig.Id) -> 
functor (Maker : functor (Unit : sig
end) -> sig
end) -> sig .. end

module SyntaxExtension: 
functor (Id : Camlp4.Sig.Id) -> 
functor (Maker : Camlp4.Sig.SyntaxExtension) -> sig .. end

module OCamlSyntaxExtension: 
functor (Id : Camlp4.Sig.Id) -> 
functor (Maker : functor (Syn : Camlp4.Sig.Camlp4Syntax) -> Camlp4.Sig.Camlp4Syntax) -> sig .. end

module SyntaxPlugin: 
functor (Id : Camlp4.Sig.Id) -> 
functor (Maker : functor (Syn : Camlp4.Sig.Syntax) -> sig
end) -> sig .. end

module Printer: 
functor (Id : Camlp4.Sig.Id) -> 
functor (Maker : functor (Syn : Camlp4.Sig.Syntax) -> Sig.Printer(Syn.Ast).S) -> sig .. end

module OCamlPrinter: 
functor (Id : Camlp4.Sig.Id) -> 
functor (Maker : functor (Syn : Camlp4.Sig.Camlp4Syntax) -> Sig.Printer(Syn.Ast).S) -> sig .. end

module OCamlPreCastPrinter: 
functor (Id : Camlp4.Sig.Id) -> 
functor (P : Sig.Printer(PreCast.Ast).S) -> sig .. end

module Parser: 
functor (Id : Camlp4.Sig.Id) -> 
functor (Maker : functor (Ast : Camlp4.Sig.Ast) -> Sig.Parser(Ast).S) -> sig .. end

module OCamlParser: 
functor (Id : Camlp4.Sig.Id) -> 
functor (Maker : functor (Ast : Camlp4.Sig.Camlp4Ast) -> Sig.Parser(Ast).S) -> sig .. end

module OCamlPreCastParser: 
functor (Id : Camlp4.Sig.Id) -> 
functor (P : Sig.Parser(PreCast.Ast).S) -> sig .. end

module AstFilter: 
functor (Id : Camlp4.Sig.Id) -> 
functor (Maker : functor (F : Camlp4.Sig.AstFilters) -> sig
end) -> sig .. end

module CurrentParser: sig .. end

module CurrentPrinter: sig .. end

val enable_ocaml_printer : unit -> unit

val enable_ocamlr_printer : unit -> unit

val enable_dump_ocaml_ast_printer : unit -> unit

val enable_dump_camlp4_ast_printer : unit -> unit

val enable_null_printer : unit -> unit