X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Fpxp%2Fpxp%2Flexers%2Fpxp_lex_within_tag.src;fp=helm%2FDEVEL%2Fpxp%2Fpxp%2Flexers%2Fpxp_lex_within_tag.src;h=0000000000000000000000000000000000000000;hb=e108abe5c0b4eb841c4ad332229a6c0e57e70079;hp=39697b00a4981358406d8d771d7f252a3f5609eb;hpb=1456c337a60f6677ee742ff7891d43fc382359a9;p=helm.git diff --git a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_within_tag.src b/helm/DEVEL/pxp/pxp/lexers/pxp_lex_within_tag.src deleted file mode 100644 index 39697b00a..000000000 --- a/helm/DEVEL/pxp/pxp/lexers/pxp_lex_within_tag.src +++ /dev/null @@ -1,69 +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 - - -rule scan_within_tag = parse - ws+ - { tok_Ignore__Within_tag } - | name - { Name (Lexing.lexeme lexbuf ), Within_tag } - | '=' - { tok_Eq__Within_tag } - | '"' character_except_quot* '"' - { let s = Lexing.lexeme lexbuf in - let v = String.sub s 1 (String.length s - 2) in - Attval v, Within_tag } - | '"' - { raise (WF_error ("Cannot find the second quotation mark")) - } - | "'" character_except_apos* "'" - { let s = Lexing.lexeme lexbuf in - let v = String.sub s 1 (String.length s - 2) in - Attval v, Within_tag } - | "'" - { raise (WF_error ("Cannot find the second quotation mark")) - } - | '>' - { tok_Rangle__Content } - | "/>" - { tok_Rangle_empty__Content } - | eof - { tok_Eof__Within_tag } - | character - { raise (WF_error ("Illegal inside tags")) } - | _ - { 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. - * - * - *)