Commit 72f04964 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2003-05-14 14:12:49 by cvscast] Empty log message

Original author: cvscast
Date: 2003-05-14 14:12:49+00:00
parent 83bc8de4
......@@ -175,7 +175,7 @@ EXTEND
|
[ e1 = expr; op = ["+" | "-" | "@" ]; e2 = expr ->
exp loc (Op (op,[e1;e2]))
| e = expr; "\\"; l = [LIDENT | UIDENT] ->
| e = expr; "\\"; l = [LIDENT | UIDENT | keyword ] ->
exp loc (RemoveField (e,LabelPool.mk l))
]
|
......@@ -192,7 +192,7 @@ EXTEND
exp loc (Op ("flatten", [Map (e,[b])]))
]
|
[ e = expr; "."; l = [LIDENT | UIDENT] ->
[ e = expr; "."; l = [LIDENT | UIDENT | keyword ] ->
exp loc (Dot (e,LabelPool.mk l))
]
......@@ -399,7 +399,7 @@ EXTEND
];
record_spec:
[ [ r = LIST0 [ l = [LIDENT | UIDENT]; "=";
[ [ r = LIST0 [ l = [LIDENT | UIDENT | keyword ]; "=";
o = [ "?" -> true | -> false];
x = pat ->
let x = if o then mk loc (Optional x) else x in
......@@ -417,7 +417,7 @@ EXTEND
const:
[
[ i = INT -> Types.Integer (Intervals.mk i)
| "`"; a = [LIDENT | UIDENT] -> Types.Atom (Atoms.mk a)
| "`"; a = [LIDENT | UIDENT | keyword ] -> Types.Atom (Atoms.mk a)
| c = char -> Types.Char c ]
];
......@@ -431,7 +431,7 @@ EXTEND
expr_record_spec:
[ [ r = LIST1
[ l = [LIDENT | UIDENT]; "="; x = expr ->
[ l = [LIDENT | UIDENT | keyword ]; "="; x = expr ->
(LabelPool.mk l,x) ]
SEP ";" ->
exp loc (RecordLitt (make_record loc r))
......
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