[r2002-11-11 23:23:39 by cvscast] Empty log message

Original author: cvscast
Date: 2002-11-11 23:23:39+00:00

parser/parser.ml

@@ -216,6 +216,7 @@ EXTEND
     | x = regexp; "?" ->  Alt (x, Epsilon)
     | x = regexp; "??" -> Alt (Epsilon, x) ]
   | [ "("; x = regexp; ")" -> x
+    | "("; a = LIDENT; ":="; c = const; ")" -> Elem (mk loc (Constant (a,c)))
     | UIDENT "PCDATA" -> string_regexp
     | i = STRING1; "--"; j = STRING1 ->
 	let i = Chars.Unichar.from_char (parse_char loc i)