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

[r2003-05-10 22:14:17 by cvscast] Location for [...]

Original author: cvscast
Date: 2003-05-10 22:14:17+00:00
parent e036e995
...@@ -194,12 +194,14 @@ EXTEND ...@@ -194,12 +194,14 @@ EXTEND
| "("; l = LIST1 expr SEP ","; ")" -> exp loc (tuple l) | "("; l = LIST1 expr SEP ","; ")" -> exp loc (tuple l)
| "["; l = LIST0 seq_elem; e = OPT [ ";"; e = expr -> e ]; "]" -> | "["; l = LIST0 seq_elem; e = OPT [ ";"; e = expr -> e ]; "]" ->
let e = match e with Some e -> e | None -> cst_nil in let e = match e with Some e -> e | None -> cst_nil in
List.fold_right let l = List.fold_right
(fun x q -> (fun x q ->
match x with match x with
| `Elems l -> tuple_queue l q | `Elems l -> tuple_queue l q
| `Explode x -> Op ("@",[x;q]) | `Explode x -> Op ("@",[x;q])
) l e ) l e
in
exp loc l
| t = [ a = TAG -> | t = [ a = TAG ->
exp loc (Cst (Types.Atom (Atoms.mk a))) exp loc (Cst (Types.Atom (Atoms.mk a)))
| "<"; e = expr LEVEL "no_appl" -> e ]; | "<"; e = expr LEVEL "no_appl" -> e ];
......
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