Преглед изворни кода

Add arbitrary var identifiers

master
mtardy пре 4 година
родитељ
комит
9c2a4e0c13
3 измењених фајлова са 86 додато и 26 уклоњено
  1. +3
    -0
      .gitignore
  2. +81
    -25
      calc.leg
  3. +2
    -1
      test.sh

+ 3
- 0
.gitignore Прегледај датотеку

@ -1,6 +1,9 @@
# vscode settings
.vscode/
# dicho
dicho.c
# ignore generated parser
calc.c

+ 81
- 25
calc.leg Прегледај датотеку

@ -6,9 +6,71 @@
* run: echo "2+3" | ./calc
*/
#define YYSTYPE int
YYSTYPE yylval = 0;
int var[26];
#define NSYMBOLS 256
union u_t {
int ival;
char *sval;
};
typedef struct symbol_t {
char *ident;
int value;
} symbol_t;
typedef struct table_t {
symbol_t *array[NSYMBOLS];
int size;
} table_t;
#define YYSTYPE union u_t
YYSTYPE yylval;
table_t table;
// This buffer is for storing yytext identifier during assignement
char *ident_buf;
symbol_t* new_symbol(char *ident, int value)
{
symbol_t* s = malloc(sizeof(symbol_t));
char * ident_copy = malloc(strlen(ident) + 1);
strcpy(ident_copy, ident);
free(ident_buf);
s->ident = ident_copy;
s->value = value;
return s;
}
symbol_t * add(char *ident, int value)
{
symbol_t *new_s = new_symbol(ident, value);
if (table.size >= NSYMBOLS) {
printf("Error: too many symbols\n");
exit(1);
}
int i = table.size;
table.array[i] = new_s;
table.size++;
return table.array[i];
}
// Returns int value of identifier, when identifier is undefined, returns 0
int get_value(const char *ident)
{
for(int i=0; i < table.size; i++) {
//printf("comparaison %s, %s\n", table.array[i].ident, ident);
if (strcmp(table.array[i]->ident, ident) == 0) {
return table.array[i]->value;
}
}
// printf("'%s' identifier not found\n", ident);
return 0;
}
%}
@ -18,49 +80,43 @@ exp = - (a:assign { $$ = a }
| s:sum { $$ = s }
)
assign = l:LETTER EQUAL n:sum { $$ = var[l - 'a'] = n }
assign = l:IDENT { ident_buf = strdup(l.sval) }
EQUAL n:sum { $$.ival = add(ident_buf, n.ival)->value;}
sum = PLUS* l:prod
( PLUS+ r:prod { l += r }
| MINUS r:prod { l -= r }
)* { $$ = l }
( PLUS+ r:prod { l.ival += r.ival }
| MINUS r:prod { l.ival -= r.ival }
)* { $$.ival = l.ival }
prod = l:neg
( MULTI r:neg { l *= r }
| DIVIDE r:neg { l /= r }
| MODULO r:neg { l %= r }
)* { $$ = l }
( MULTI r:neg { l.ival *= r.ival }
| DIVIDE r:neg { l.ival /= r.ival }
| MODULO r:neg { l.ival %= r.ival }
)* { $$.ival = l.ival }
neg = MINUS n:neg { $$ = -n }
| n:value { $$ = n }
neg = MINUS n:neg { $$.ival = -n.ival }
| n:value { $$.ival = n.ival }
value = n:NUMBER { $$ = n }
| l:LETTER { $$ = var[l - 'a'] }
value = n:NUMBER { $$.ival = n.ival }
| l:IDENT { $$.ival = get_value(l.sval) }
- = [ \t]*
NUMBER = < [0-9]+ > - { $$ = atoi(yytext) }
NUMBER = < [0-9]+ > - { $$.ival = atoi(yytext) }
PLUS = '+' -
MINUS = '-' -
MULTI = '*' -
DIVIDE = '/' -
MODULO = '%' -
LETTER = (< [a-z] > { $$ = yytext[0] }
|< [A-Z] > { $$ = yytext[0] + 'a' - 'A' }
) -
EQUAL = '=' -
IDENT = < [a-zA-Z]+ > - { $$.sval = yytext }
%%
int main(int argc, char **argv)
{
while (yyparse()) {
printf("%d\n", yylval);
}
/*
for (int i = 0; i < 26; i++) {
printf("var[%d]=%d ", i, var[i]);
printf("%d\n", yylval.ival);
}
*/
return 0;
}

+ 2
- 1
test.sh Прегледај датотеку

@ -17,6 +17,7 @@ echo "-3*2+10*2" | ./${PROG} | cmp <(echo "14") && echo "test#11 passed!" || tru
echo "- 5% 2 +2-6 / 2" | ./${PROG} | cmp <(echo "-2") && echo "test#12 passed!" || true
echo "a=3" | ./${PROG} | cmp <(echo "3") && echo "test#13 passed!" || true
echo "a=3 a*2" | ./${PROG} | cmp <(printf "3\n6\n") && echo "test#14 passed!" || true
echo "a=10 z=13 A+z" | ./${PROG} | cmp <(printf "10\n13\n23\n") && echo "test#15 passed!" || true
echo "a=10 z=13 a+z" | ./${PROG} | cmp <(printf "10\n13\n23\n") && echo "test#15 passed!" || true
echo "tamales=10 tomato=2 tamales*tomato" | ./${PROG} | cmp <(printf "10\n2\n20\n") && echo "test#16 passed!" || true
make clean

Loading…
Откажи
Сачувај