This commit was manufactured by cvs2svn to create branch

[helm.git] / helm / DEVEL / pxp / pxp / pxp_lexers.ml

diff --git a/helm/DEVEL/pxp/pxp/pxp_lexers.ml b/helm/DEVEL/pxp/pxp/pxp_lexers.ml
deleted file mode 100644 (file)
index ce6e7b3..0000000
--- a/helm/DEVEL/pxp/pxp/pxp_lexers.ml
+++ /dev/null
@@ -1,90 +0,0 @@
-(* $Id$
- * ----------------------------------------------------------------------
- * PXP: The polymorphic XML parser for Objective Caml.
- * Copyright 1999 by Gerd Stolpmann. See LICENSE for details.
- *)
-
-
-open Pxp_types
-open Pxp_lexer_types
-
-let lexer_set_iso88591 = 
-  { lex_encoding         = `Enc_iso88591;
-    scan_document        = Pxp_lex_document_iso88591.scan_document;
-    scan_content         = Pxp_lex_content_iso88591.scan_content;
-    scan_within_tag      = Pxp_lex_within_tag_iso88591.scan_within_tag;
-    scan_document_type   = Pxp_lex_document_type_iso88591.
-                            scan_document_type;
-    scan_declaration     = Pxp_lex_declaration_iso88591.scan_declaration;
-    scan_content_comment  = Pxp_lex_misc_iso88591.scan_content_comment;
-    scan_decl_comment     = Pxp_lex_misc_iso88591.scan_decl_comment;
-    scan_document_comment = Pxp_lex_misc_iso88591.scan_document_comment;
-    scan_ignored_section = Pxp_lex_name_string_iso88591.
-                             scan_ignored_section;
-    scan_xml_pi          = Pxp_lex_misc_iso88591.scan_xml_pi;
-    scan_dtd_string      = Pxp_lex_dtd_string_iso88591.scan_dtd_string;
-    scan_content_string  = Pxp_lex_content_string_iso88591.
-                            scan_content_string;
-    scan_name_string     = Pxp_lex_name_string_iso88591.scan_name_string;
-    scan_only_xml_decl   = Pxp_lex_misc_iso88591.scan_only_xml_decl;
-    scan_for_crlf        = Pxp_lex_misc_iso88591.scan_for_crlf;
-  }
-;;
-
-
-let lexer_set_utf8 = ref None
-;;
-
-
-let init_utf8 ls =
-  lexer_set_utf8 := Some ls
-;;
-
-
-let get_lexer_set enc =
-  match enc with
-      `Enc_iso88591 -> lexer_set_iso88591
-    | `Enc_utf8 ->
-       ( match !lexer_set_utf8 with
-             None ->
-               failwith ("Pxp_lexers: UTF-8 lexers not initialized")
-           | Some ls ->
-               ls
-       )
-    | _ ->
-       failwith ("Pxp_lexers: This type of internal encoding is not supported")
-;;
-
-(* ======================================================================
- * History:
- * 
- * $Log$
- * Revision 1.1  2000/11/17 09:57:29  lpadovan
- * Initial revision
- *
- * Revision 1.4  2000/05/29 23:48:38  gerd
- *     Changed module names:
- *             Markup_aux          into Pxp_aux
- *             Markup_codewriter   into Pxp_codewriter
- *             Markup_document     into Pxp_document
- *             Markup_dtd          into Pxp_dtd
- *             Markup_entity       into Pxp_entity
- *             Markup_lexer_types  into Pxp_lexer_types
- *             Markup_reader       into Pxp_reader
- *             Markup_types        into Pxp_types
- *             Markup_yacc         into Pxp_yacc
- * See directory "compatibility" for (almost) compatible wrappers emulating
- * Markup_document, Markup_dtd, Markup_reader, Markup_types, and Markup_yacc.
- *
- * Revision 1.3  2000/05/29 21:14:57  gerd
- *     Changed the type 'encoding' into a polymorphic variant.
- *
- * Revision 1.2  2000/05/23 00:09:44  gerd
- *     The UTF-8 lexer set is no longer initialized here. It is done
- * in the new module Pxp_utf8. Reason: You can link without UTF-8 support.
- *
- * Revision 1.1  2000/05/20 20:30:50  gerd
- *     Initial revision.
- *
- * 
- *)