其他语言

本类阅读TOP10

·基于Solaris 开发环境的整体构思
·使用AutoMake轻松生成Makefile
·BCB数据库图像保存技术
·GNU中的Makefile
·射频芯片nRF401天线设计的分析
·iframe 的自适应高度
·BCB之Socket通信
·软件企业如何实施CMM
·入门系列--OpenGL最简单的入门
·WIN95中日志钩子(JournalRecord Hook)的使用

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
用Lex(flex)和yacc(bison)写的简单计算器

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

Lex文件如下:
  %{
#include "cal.tab.h"
%}
%option noyywrap
integer      [0-9]+
dreal        ([0-9]*"."[0-9]+)
ereal        ([0-9]*"."[0-9]+[EedD][+-]?[0-9]+)
real         {dreal}|{ereal}
nl           \n
plus         "+"
minus        "-"
times        "*"
divide       "/"
lp           "("
rp           ")"
module       "%"
power        "^"
%%
[ \t]        ;  /*skip any blanks */
{integer}    { sscanf(yytext, "%d", &yylval.integer);
               return INTEGER;
             }
{real}       { sscanf(yytext, "%lf", &yylval.real);/*yylval = atof(yytext);  it doesn't work under MSVSC*/
               return REAL;
              }

{plus}       { return PLUS;}
{minus}      { return MINUS;}
{times}      { return TIMES;}
{divide}     { return DIVIDE;}
{module}     { return MODULE;}
{power}      { return POWER;}
{lp}         { return LP;}
{rp}         { return RP;}

{nl}         { return NL;}
.            { return yytext[0];}
以上是Lex文件的代码(cal.l),lex是用来得到token。

有了token之后呢,就用yacc(本人用的是GNU的可以在windows下面运行的bison)才处理这些符号。也就是写出一个个的状态,最后得到分析结果。

下面是yacc文件的代码(cal.y):
%{
#include  <stdio.h>
#include  <math.h>


%}
%union{ double   real; /* real value */
        int   integer; /* integer value */
      }
%token <real> REAL
%token <integer> INTEGER

%start  lines
%token NUMBER NL
%token PLUS MINUS TIMES DIVIDE MODULE POWER LP RP

%type <real>  rexpr
%type <integer> iexpr


%left PLUS MINUS     /*left associative */
%left TIMES DIVIDE MODULE /*left associative */
%left POWER
%left UNARYMINUS

%%
lines: /* nothing */
     | lines line NL
     | lines error NL
       { yyerror();yyerrok; }
     ;
line : iexpr
         {printf("%d\n",$1);}
     |  rexpr
         {printf("%lf\n",$1);}
     ;
iexpr: INTEGER
       { $$ = $1; }
     | iexpr PLUS iexpr
       { $$ = $1 + $3;}
     | iexpr MINUS iexpr
       { $$ = $1 - $3;}
     | iexpr TIMES iexpr
       { $$ = $1 * $3;}
     | iexpr DIVIDE iexpr
       { if($3)
          $$ = $1 / $3;
         else
         {
          $$ = $1;
          printf (stderr, "%d.%d-%d.%d: division by zero",
                           @3.first_line, @3.first_column,
                           @3.last_line, @3.last_column);
       }
       }
     | iexpr MODULE iexpr
       { $$ = $1 % $3; }
     | iexpr POWER iexpr
       { $$ = pow($1, $3);}    
     | MINUS iexpr %prec UNARYMINUS
       { $$ = - $2;}
     | LP iexpr RP
       { $$ = $2;}
     | LP iexpr error
         { $$ = $2; yyerror("missing ')'"); yyerrok;}
     | PLUS iexpr %prec UNARYMINUS
         { $$ = $2;}
     ;   

   
rexpr :REAL
         { $$ = $1; }
     | rexpr PLUS rexpr
         { $$ = $1 + $3; }
     | rexpr MINUS rexpr
         { $$ = $1 - $3; }
     | rexpr TIMES rexpr
         { $$ = $1 * $3; }
     | rexpr DIVIDE rexpr
         {
            if ($3)
                $$ = $1 / $3;
            else
            {
                $$ = $1;
                printf (stderr, "%d.%d-%d.%d: division by zero",
                           @3.first_line, @3.first_column,
                           @3.last_line, @3.last_column);
             }
           }
     | rexpr POWER rexpr
       { $$ = pow($1,$3); }
     | LP rexpr RP
         { $$ = $2; }
     | LP rexpr error
         { $$ = $2; yyerror("missing ')'"); yyerrok;}
     | MINUS rexpr %prec UNARYMINUS
         { $$ = -$2; }
     | PLUS rexpr %prec UNARYMINUS
         { $$ = $2;}
    
     | iexpr PLUS rexpr
       { $$ = (double)$1 + $3;}
     | iexpr MINUS rexpr
       { $$ = (double)$1 - $3;}
     | iexpr TIMES rexpr
       { $$ = (double)$1 * $3;}
     | iexpr DIVIDE rexpr
       { if($3)
           $$ = (double)$1 / $3;
         else
         { $$ = $1;
                printf (stderr, "%d.%d-%d.%d: division by zero",
                           @3.first_line, @3.first_column,
                           @3.last_line, @3.last_column);
        }
       }
     | iexpr POWER rexpr
       { $$ = pow((double)$1,$3); }
     | rexpr PLUS iexpr
       { $$ = $1 + (double)$3;}
     | rexpr MINUS iexpr
       { $$ = $1 - (double)$3;}
     | rexpr TIMES iexpr
       { $$ = $1 * (double)$3;}
     | rexpr DIVIDE iexpr
       { if($3)
          $$ = $1 / (double)$3;
         else
          { $$ = $1;
            printf (stderr, "%d.%d-%d.%d: division by zero",
                           @3.first_line, @3.first_column,
                           @3.last_line, @3.last_column);
         }
       }
    | rexpr POWER iexpr
       { $$ = pow($1,(double)$3); }

     ;
%%

void main()
{
     yyparse();
}

int yyerror(char* msg)
{
      printf("Error: %s encountered \n", msg);
}

 这样一个支持+,-,×,/,^,以及括号运算的计算器就做成了。所用时间不会超过半个小时,如果用c,或c++写个算符优先文法的话可是一个不小的工程。由此可见lex和yacc的魅力了!

编译命令是:fLex cal.l
                        bison -d -v cal.y
                         pause

任何建议,问题,欢迎:buaa_chenx@hotmail.com




相关文章

相关软件