-(* $Id$
- * ----------------------------------------------------------------------
- *
- *)
-
-
- class dummy_entity = object end
-
- let dummy_entity = ( new dummy_entity : entity_id )
-
- (* The following tokens are pre-allocated to reduce the load on the
- * GC.
- *)
-
- let tok_Doctype__Document_type = Doctype dummy_entity, Document_type
- let tok_Ignore__Document = Ignore, Document
- let tok_Ignore__Within_tag = Ignore, Within_tag
- let tok_Ignore__Document_type = Ignore, Document_type
- let tok_Ignore__Declaration = Ignore, Declaration
- let tok_Ignore__Ignored = Ignore, Ignored_section
- let tok_Eof__Document = Eof, Document
- let tok_Eof__Content = Eof, Content
- let tok_Eof__Within_tag = Eof, Within_tag
- let tok_Eof__Document_type = Eof, Document_type
- let tok_Eof__Declaration = Eof, Declaration
- let tok_Eof__Ignored = Eof, Ignored_section
- let tok_LineEndCRLF__Content = LineEnd "\r\n", Content
- let tok_LineEndCR__Content = LineEnd "\r", Content
- let tok_LineEndLF__Content = LineEnd "\n", Content
- let tok_CharDataRBRACKET__Content = CharData "]", Content
- let tok_Eq__Within_tag = Eq, Within_tag
- let tok_Rangle__Content = Rangle, Content
- let tok_Rangle_empty__Content = Rangle_empty, Content
- let tok_Dtd_begin__Declaration = Dtd_begin dummy_entity, Declaration
- let tok_Doctype_rangle__Document = Doctype_rangle dummy_entity, Document
- let tok_Percent__Declaration = Percent, Declaration
- let tok_Plus__Declaration = Plus, Declaration
- let tok_Star__Declaration = Star, Declaration
- let tok_Bar__Declaration = Bar, Declaration
- let tok_Comma__Declaration = Comma, Declaration
- let tok_Qmark__Declaration = Qmark, Declaration
- let tok_Lparen__Declaration = Lparen dummy_entity, Declaration
- let tok_RparenPlus__Declaration = RparenPlus dummy_entity, Declaration
- let tok_RparenStar__Declaration = RparenStar dummy_entity, Declaration
- let tok_RparenQmark__Declaration = RparenQmark dummy_entity, Declaration
- let tok_Rparen__Declaration = Rparen dummy_entity, Declaration
- let tok_Required__Declaration = Required, Declaration
- let tok_Implied__Declaration = Implied, Declaration
- let tok_Fixed__Declaration = Fixed, Declaration
- let tok_Pcdata__Declaration = Pcdata, Declaration
- let tok_Decl_element__Declaration = Decl_element dummy_entity, Declaration
- let tok_Decl_attlist__Declaration = Decl_attlist dummy_entity, Declaration
- let tok_Decl_entity__Declaration = Decl_entity dummy_entity, Declaration
- let tok_Decl_notation__Declaration = Decl_notation dummy_entity, Declaration
- let tok_Conditional_begin__Declaration = Conditional_begin dummy_entity,
- Declaration
- let tok_Conditional_begin__Ignored = Conditional_begin dummy_entity,
- Ignored_section
- let tok_Conditional_end__Declaration = Conditional_end dummy_entity,
- Declaration
- let tok_Conditional_end__Ignored = Conditional_end dummy_entity,
- Ignored_section
- let tok_Conditional_body__Declaration = Conditional_body dummy_entity,
- Declaration
- let tok_Decl_rangle__Declaration = Decl_rangle dummy_entity, Declaration
- let tok_Dtd_end__Document_type = Dtd_end dummy_entity, Document_type
-
-(* ======================================================================
- * History:
- *
- * $Log$
- * Revision 1.1 2000/11/17 09:57:32 lpadovan
- * Initial revision
- *
- * Revision 1.2 2000/08/18 20:19:59 gerd
- * Comments return different comment tokens.
- *
- * Revision 1.1 2000/05/20 20:33:25 gerd
- * Initial revision.
- *
- *
- *)