Commit 934bda8a authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2002-11-25 16:04:21 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-25 16:04:21+00:00
parent 0866f98d
......@@ -48,7 +48,7 @@ rule token = parse
}
| uppercase identchar* ( ':' identchar+)* { "UIDENT",Lexing.lexeme lexbuf }
| ascii_digit+ { "INT",Lexing.lexeme lexbuf }
| "<" blank* (lowercase | uppercase) identchar* {
| "<" (lowercase | uppercase) identchar* {
let s = Lexing.lexeme lexbuf in
"TAG", String.sub s 1 (String.length s - 1)
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment