Flex & GNU Bison 简单四则混合运算

%{
#include <math.h>
#include "main.tab.h"
void yyerror(const char *);
%}
integer [0-9]+
fraction "."{integer}
exponent [eE][+-]?{integer}
pointfloat {integer}?{fraction}|{integer}"."
exponentfloat ({integer}|{pointfloat})exponent
real {pointfloat}|{exponentfloat}
%%
{integer} {yylval.integer = atoi(yytext); return INTEGER; }
{real} {yylval.real = atof(yytext); return REAL; }
[-()+*/%/n] {return *yytext; }
[ /t] ;
. {yyerror("error: unknown character/n"); }
%%
int yywrap(void)
{
return 1;
} 

%{
#include <math.h>
#include <stdio.h>
void yyerror(const char *);
int yylex(void);
%}
%union{int integer; double real; };
%token <integer> INTEGER
%token <real> REAL
%type <integer> iexpr
%type <real> rexpr
%left UMINUS
%left '+' '-'
%left '*' '/' '%'
%%
lines: lines expr '/n'
| lines '/n'
|
;
expr: iexpr {printf("%d/n", $1); }
| rexpr {printf("%lg/n", $1); }
iexpr: INTEGER
| '-' iexpr %prec UMINUS {$$ = -$2; }
| iexpr '+' iexpr {$$ = $1 + $3; }
| iexpr '-' iexpr {$$ = $1 - $3; }
| iexpr '*' iexpr {$$ = $1 * $3; }
| iexpr '/' iexpr {$$ = $1 / $3; }
| iexpr '%' iexpr {$$ = $1 % $3; }
| '(' iexpr ')' {$$ = $2; }
;
rexpr: REAL
| '-' rexpr %prec UMINUS {$$ = -$2; }
| rexpr '+' rexpr {$$ = $1 + $3; }
| rexpr '-' rexpr {$$ = $1 - $3; }
| rexpr '*' rexpr {$$ = $1 * $3; }
| rexpr '/' rexpr {$$ = $1 / $3; }
| rexpr '%' rexpr {$$ = fmod($1, $3); }
| '(' rexpr ')' {$$ = $2; }
| rexpr '+' iexpr {$$ = $1 + $3; }
| rexpr '-' iexpr {$$ = $1 - $3; }
| rexpr '*' iexpr {$$ = $1 * $3; }
| rexpr '/' iexpr {$$ = $1 / $3; }
| rexpr '%' iexpr {$$ = fmod($1, $3); }
| iexpr '+' rexpr {$$ = $1 + $3; }
| iexpr '-' rexpr {$$ = $1 - $3; }
| iexpr '*' rexpr {$$ = $1 * $3; }
| iexpr '/' rexpr {$$ = $1 / $3; }
| iexpr '%' rexpr {$$ = fmod($1, $3); }
%%
void yyerror(const char *s)
{
fputs(s, stdout);
}
int main(void)
{
yyparse();
return 0;
} 

CC = gcc
CCFLAGS = -lm
RM = rm -f
BIN = main
OBJS = lex.yy.o $(BIN).tab.o
$(BIN): $(OBJS)
${CC} -o $(BIN) $(CCFLAGS) $(OBJS)
$(BIN).tab.h $(BIN).tab.c: $(BIN).y
bison -d $(BIN).y
lex.yy.c: $(BIN).l $(BIN).tab.h
flex $(BIN).l
.PHONY: clean
clean:
$(RM) $(OBJS) $(BIN) *.c *.h