浏览代码

Add single char variables

pull/1/head
mtardy 4 年前
父节点
当前提交
76fd9ab57c
共有 1 个文件被更改,包括 21 次插入4 次删除
  1. +21
    -4
      calc.leg

+ 21
- 4
calc.leg 查看文件

@ -8,12 +8,17 @@
#define YYSTYPE int #define YYSTYPE int
YYSTYPE yylval = 0; YYSTYPE yylval = 0;
int var[26];
%} %}
start = e:exp { yylval = e } start = e:exp { yylval = e }
exp = - s:sum { $$ = s }
exp = - (a:assign { $$ = a }
| s:sum { $$ = s }
)
assign = l:LETTER EQUAL n:sum { $$ = var[l - 'a'] = n }
sum = PLUS* l:prod sum = PLUS* l:prod
( PLUS+ r:prod { l += r } ( PLUS+ r:prod { l += r }
@ -23,11 +28,14 @@ sum = PLUS* l:prod
prod = l:neg prod = l:neg
( MULTI r:neg { l *= r } ( MULTI r:neg { l *= r }
| DIVIDE r:neg { l /= r } | DIVIDE r:neg { l /= r }
| MODULO r:neg { l %= r }
| MODULO r:neg { l %= r }
)* { $$ = l } )* { $$ = l }
neg = MINUS n:neg { $$ = -n } neg = MINUS n:neg { $$ = -n }
| n:NUMBER { $$ = n }
| n:value { $$ = n }
value = n:NUMBER { $$ = n }
| l:LETTER { $$ = var[l - 'a'] }
- = [ \t]* - = [ \t]*
NUMBER = < [0-9]+ > - { $$ = atoi(yytext) } NUMBER = < [0-9]+ > - { $$ = atoi(yytext) }
@ -35,7 +43,11 @@ PLUS = '+' -
MINUS = '-' - MINUS = '-' -
MULTI = '*' - MULTI = '*' -
DIVIDE = '/' - DIVIDE = '/' -
MODULO = '%' -
MODULO = '%' -
LETTER = (< [a-z] > { $$ = yytext[0] }
|< [A-Z] > { $$ = yytext[0] + 'a' - 'A' }
) -
EQUAL = '=' -
%% %%
@ -44,6 +56,11 @@ int main(int argc, char **argv)
while (yyparse()) { while (yyparse()) {
printf("%d\n", yylval); printf("%d\n", yylval);
} }
/*
for (int i = 0; i < 26; i++) {
printf("var[%d]=%d ", i, var[i]);
}
*/
return 0; return 0;
} }

正在加载...
取消
保存