千月星跡

アイをも求めて彷徨っている孤独なヒーロー

的功能扩张....

%{

#include 
<stdlib.h>
#include 
"entint.tab.h"
extern 
long yylval;
%}

D        [
0-9]
N        [
1-9]
O        [
0-7]
H        [
0-9a-fA-F]

%%
"+"            {return(ADDOP);}
"-"            {return(SUBOP);}
"*"            {return(MULOP);}
"/"            {return(DIVOP);}
"**"            {return(POWOP);}
"!"            {return(FACTOP);}
"("            {return(LP);}
")"            {return(RP);}
end            {return(END);}
{N}{D}
*        |
0{O}*        |
0(X|x){H}+    {//将字符串??成?整型数 
                yylval 
= strtol((char*)yytext,(char**)NULL0); 
                return(NUMBER);
            }
[
T]        ;
n            {return(NL);}
.            {return(yytext[
0]);}

 

 

%{
#include 
<stdio.h>
#define YYSTYPE 
long
%} 
%token NUMBER
%token NL
%token 
END
%token LP
%token RP
%
left  ADDOP SUBOP
%
left  MULOP DIVOP
%
right POWOP
%
right FACTOP
%
right UMINUS
%start s

%%

s        :list        {printf(
"bye-bye... ");}
        ;
        
list    :
/*empty*/
            {printf(
"welcome to ecalc. ");}
        |list line
            {printf(
"end expression or end... ");}
        ;
line    :expr NL
            {printf(
"%ld,0x%lx,0%lo ",$1,$1,$1);}
        |
END NL
            {
                printf(
"bye-bye... ");
                YYACCEPT;
            }
        |
error NL
        ;
expr    :expr ADDOP expr
            {$$ 
= $1 + $3;}
        |expr SUBOP expr
            {$$ 
= $1 - $3;}
        |expr MULOP expr
            {$$ 
= $1 * $3;}
        |expr DIVOP expr
            {
                
if ($3 == 0){
                    printf(
"zero divide ");
                    YYERROR;
                }
                $$ 
= $1 / $3;
            }
        |expr POWOP expr
            {
                
if ($3 < 0){
                    printf(
"POWOP divide ");
                    YYERROR;                
                }
                $$ 
= lpower($1,$3);
            }
        |expr FACTOP
            {
                
if ($1 < 0){
                printf(
"FACTOP divide ");
                    YYERROR;                    
                }
                lfact($
1);
            }
        |SUBOP expr    %prec UMINUS
            {$$ 
= -$2;}
        |LP expr RP
            {$$ 
= $2;}
        |NUMBER
            {$$ 
= $1;}
        ;
%%
int yyerror(char *str){
    printf(
"%s ", str);
}
    
long lpower(long x, long y){

    
long i ,pw;
    
if (x == 0){
        return 
0;
    }
    
else{
        pw 
= 1;
        
for (i = y;i;--i){
            pw 
*= i;
        }
        return (pw);    
    }
}

long lfact(long x){
    
long i,fc;
    
    
for (fc = 1,i = x;i;--i){
        fc 
*= i;
    }
    return (fc);
}
阅读更多
文章标签: list token null
个人分类: YACC
上一篇ycaa的计算器,开始写ACTION
下一篇解释器的代码....
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭