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
| "("; l = LIST1 expr SEP ","; ")" -> exp loc (tuple l)
| "["; l = LIST0 seq_elem; e = OPT [ ";"; e = expr -> e ]; "]" ->
let e = match e with Some e -> e | None -> cst_nil in
List.fold_right
(fun x q ->
match x with
| `Elems l -> tuple_queue l q
| `Explode x -> Op ("@",[x;q])
) l e
let l = List.fold_right
(fun x q ->
match x with
| `Elems l -> tuple_queue l q
| `Explode x -> Op ("@",[x;q])
) l e
in
exp loc l
| t = [ a = TAG ->
exp loc (Cst (Types.Atom (Atoms.mk a)))
| "<"; 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