Commit e5e0d621 authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: cvscast
Date: 2002-11-11 23:23:39+00:00
parent 5cefbfb5
......@@ -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)
......
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