Module Camlp4.Register.CurrentParser

module CurrentParser: sig .. end

module Ast: Camlp4.PreCast.Ast

val parse_interf : ?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

val parse_implem : ?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