1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
%{
#include <idx.h>
#include <idx.tab.h>
%}
%union{
idxrowrec *row;
idxvalrec *val;
}
%token <val> NUM
%token <val> COL
%token <val> FUNC
%token <val> REG
%token <val> INDEF
%left OR
%left AND
%left '|'
%left '^'
%left '&'
%nonassoc EQ NE
%nonassoc '<' LE '>' GE
%left '+' '-'
%left '*' '/' '%'
%right '!' '~' UMINUS
%type <row> idx
%type <row> expr
%type <row> rowlist
%type <val> value
%glr-parser
%expect-rr 1
%%
/* combines lists of row numbers */
idx: expr { idxall($1); }
;
expr: rowlist
| expr OR expr { $$ = idxor($1,$3); }
| expr AND expr { $$ = idxand($1,$3); }
| '(' expr ')' { $$ = $2; }
;
/* generates lists of row numbers */
rowlist:REG { $$ = idxrowreg($1); }
| FUNC { $$ = idxrowfun($1); }
| value EQ value { $$ = idxroweq($1,$3); }
| value NE value { $$ = idxrowne($1,$3); }
| value '<' value { $$ = idxrowlt($1,$3); }
| value LE value { $$ = idxrowle($1,$3); }
| value '>' value { $$ = idxrowgt($1,$3); }
| value GE value { $$ = idxrowge($1,$3); }
;
value: NUM
| COL
| INDEF
| FUNC
| value '+' value { $$ = idxvaladd($1,$3); }
| value '-' value { $$ = idxvalsub($1,$3); }
| value '*' value { $$ = idxvalmul($1,$3); }
| value '/' value { $$ = idxvaldiv($1,$3); }
| value '%' value { $$ = idxvalmod($1,$3); }
| value '&' value { $$ = idxvaland($1,$3); }
| value '|' value { $$ = idxvalor($1,$3); }
| value '^' value { $$ = idxvalxor($1,$3); }
| '!' value { $$ = idxvalnot($2); }
| '~' value { $$ = idxvalcom($2); }
| '-' value %prec UMINUS { $$ = idxvalmin($2); }
| '(' value ')' { $$ = $2; }
;
%%
|
