type context = {mutable current : unit -> Pxp_lexer_types.token;mutable get_next : unit -> Pxp_lexer_types.token;mutable current_token : Pxp_lexer_types.token;mutable manager : Pxp_entity_manager.entity_manager;}type continuation_state = {cont_context : context;cont_extend_dtd : bool;cont_process_xmldecl : bool;}exception Interrupt_parsing of continuation_stateval make_context :
?first_token:Pxp_lexer_types.token ->
Pxp_entity_manager.entity_manager ->
contexttype extended_entry = [ | `Entry_content of [ `Dummy ] list| `Entry_continuation of continuation_state| `Entry_declarations of [ `Extend_dtd_fully | `Val_mode_dtd ] list| `Entry_document of [ `Extend_dtd_fully | `Parse_xml_decl | `Val_mode_dtd ] list| `Entry_element_content of [ `Dummy ] list| `Entry_expr of [ `Dummy ] list ]val stack_create : 't -> 't array_stackval stack_push : 't -> 't array_stack -> unitval stack_top : 't array_stack -> 'tval stack_pop : 't array_stack -> 'tclass virtual core_parser : Pxp_dtd.dtd -> Pxp_types.config -> int -> object ... end