jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

Allow to write x.f.g

Browse source
This commit is contained in:
Cédric Pasteur 2010-07-27 15:32:39 +02:00
parent 5b628d3c16
commit a3b271c948
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
compiler/heptagon/parsing/hept_parser.mly
View file

@ -393,6 +393,9 @@ _simple_exp:
| LBRACKET array_exp_list RBRACKET { mk_call Earray $2 }
| LPAREN tuple_exp RPAREN { mk_call Etuple $2 }
| LPAREN _exp RPAREN { $2 }
| simple_exp DOT c=longname
{ mk_call ~params:[mk_constructor_exp c (Loc($startpos(c),$endpos(c)))]
Efield [$1] }
;
node_name:
@ -461,9 +464,6 @@ _exp:
RPAREN DOUBLE_LESS simple_exp DOUBLE_GREATER LPAREN exps RPAREN
{ mk_iterator_call $1 $3 $5 $9 $12 }
/*Records operators */
| simple_exp DOT c=longname
{ mk_call ~params:[mk_constructor_exp c (Loc($startpos(c),$endpos(c)))]
Efield [$1] }
| LBRACE simple_exp WITH DOT c=longname EQUAL exp RBRACE
{ mk_call ~params:[mk_constructor_exp c (Loc($startpos(c),$endpos(c)))]
Efield_update [$2; $7] }