mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* "pattern" non-terminal.

Browse source
This commit is contained in:
Eelco Dolstra 2008-08-14 10:14:34 +00:00
parent efe4b690ae
commit e818838412
1 changed files with 8 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/libexpr/parser.y
View file

@ -211,7 +211,7 @@ static void freeAndUnprotect(void * p)
}
%type <t> start expr expr_function expr_if expr_op
%type <t> expr_app expr_select expr_simple bind inheritsrc formal
%type <t> expr_app expr_select expr_simple bind inheritsrc formal pattern
%type <ts> binds ids expr_list formals string_parts ind_string_parts
%token <t> ID INT STR IND_STR PATH URI
%token IF THEN ELSE ASSERT WITH LET IN REC INHERIT EQ NEQ AND OR IMPL
@ -236,10 +236,8 @@ start: expr { data->result = $1; };
expr: expr_function;
expr_function
: '{' formals '}' ':' expr_function
{ $$ = makeFunction(makeAttrsPat($2), $5, CUR_POS); }
| ID ':' expr_function
{ $$ = makeFunction(makeVarPat($1), $3, CUR_POS); }
: pattern ':' expr_function
{ $$ = makeFunction($1, $3, CUR_POS); }
| ASSERT expr ';' expr_function
{ $$ = makeAssert($2, $4, CUR_POS); }
| WITH expr ';' expr_function
@ -320,6 +318,11 @@ ind_string_parts
| { $$ = ATempty; }
;
pattern
: ID { $$ = makeVarPat($1); }
| '{' formals '}' { $$ = makeAttrsPat($2); }
;
binds
: binds bind { $$ = ATinsert($1, $2); }
| { $$ = ATempty; }