X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Fpxp%2Fpxp%2Flexers%2Fpxp_lex_dtd_string.src;fp=helm%2FDEVEL%2Fpxp%2Fpxp%2Flexers%2Fpxp_lex_dtd_string.src;h=0000000000000000000000000000000000000000;hb=c7514aaa249a96c5fdd39b1123fbdb38d92f20b6;hp=1fb11e65271f0e36259e068d2c2551eeb2c8a2b4;hpb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;p=helm.git diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_dtd_string.src b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_dtd_string.src deleted file mode 100644 index 1fb11e652..000000000 --- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_dtd_string.src +++ /dev/null @@ -1,70 +0,0 @@ -(* $Id$ - * ---------------------------------------------------------------------- - * - *) - - -{ - open Pxp_types - open Pxp_lexer_types - -#insert open_pxp_lex_aux_*.src -#insert pxp_lex_aux.src - -} - -#insert pxp_lex_defs_*.def -(* The following scanner is used to determine the replacement text of - * internal entities: - *) - -rule scan_dtd_string = parse - '%' name ';' - { let s = Lexing.lexeme lexbuf in - PERef (String.sub s 1 (String.length s - 2)) } - | '%' - { raise(WF_error("The character '%' must be written as '%'")) } - | '&' name ';' - { let s = Lexing.lexeme lexbuf in - ERef (String.sub s 1 (String.length s - 2)) } - | "&#" ascii_digit+ ";" - { let s = Lexing.lexeme lexbuf in - CRef (int_of_string (String.sub s 2 (String.length s - 3))) } - | "&#x" ascii_hexdigit+ ";" - { let s = Lexing.lexeme lexbuf in - CRef (int_of_string ("0x" ^ String.sub s 3 (String.length s - 4))) } - | '&' - { raise(WF_error("The character '&' must be written as '&'")) } - | '\013' '\010' - { CRef(-1) } - | '\013' - { CRef(-2) } - | '\010' - { CRef(-3) } - | '\009' - { CharData "\009" } - | printable_character_except_amp_percent+ - { CharData (Lexing.lexeme lexbuf) } - | eof - { Eof } - | _ - { raise Netconversion.Malformed_code } - -(* ====================================================================== - * History: - * - * $Log$ - * Revision 1.1 2000/11/17 09:57:32 lpadovan - * Initial revision - * - * Revision 1.3 2000/08/14 22:18:34 gerd - * Bad_character_stream -> Netconversion.Malformed_code - * - * Revision 1.2 2000/05/29 23:53:12 gerd - * Updated because Markup_* modules have been renamed to Pxp_*. - * - * Revision 1.1 2000/05/20 20:33:25 gerd - * Initial revision. - * - * - *)