yacc与lex问题

DIYBYPERL

YACC对应的文件：

1. %{
   
2. /* 计算器 */
   
3. %}
   
4. 
   
5. %{
   
6. #include <stdio.h>
   
7. #include <stdlib.h>
   
8. 
   
9. #define PRT(n, s, r) {printf("---------[%d:%s][$=%d]\n", n , s, r);}
   
10. 
    
11. extern FILE *yyin;
    
12. void yyerror(const char* s);
    
13. 
    
14. double vbltable[26];
    
15. %}
    
16. 
    
17. %union{
    
18.         double dval;
    
19.         int vblno;
    
20. }
    
21. 
    
22. %token <vblno> NAME
    
23. %token <dval> NUMBER
    
24. %left '-' '+'
    
25. %left '*' '/'
    
26. %nonassoc UMINUS
    
27. 
    
28. %type <dval> expression
    
29. %%
    
30. statement_list: statement '\n'
    
31.         | statement_list statement '\n'
    
32.         ;
    
33. statement:
    
34.         NAME '=' expression
    
35.                 { vbltable[$1] = $3; PRT(7, "=", 0);}
    
36.         | expression
    
37.                 { printf("= %d\n", $1);}
    
38.         ;
    
39. 
    
40. expression:
    
41.         expression '+' expression
    
42.                 { $ = $1 + $3; PRT(1, "+", $);}
    
43.         | expression '-' expression
    
44.                 { $ = $1 - $3; PRT(2, "-", $);}
    
45.         | expression '*' expression
    
46.                 { $ = $1 * $3; PRT(3, "*", $);}
    
47.         | expression '/' expression
    
48.                 {
    
49.                         if($3) $ = $1 / $3;
    
50.                         else yyerror("divided by zero!");
    
51.                         PRT(4, "/", $);
    
52.                 }
    
53.         | '-' expression %prec UMINUS
    
54.                 { $ = -$2; PRT(5, "-", $); }
    
55.         | '(' expression ')'
    
56.                 { $ = $2; PRT(6, "()", $); }
    
57.         | NUMBER
    
58.                 { $ = $1; PRT(7, "N", $1);}
    
59.         | NAME
    
60.                 { $ = vbltable[$1]; PRT(8, "NAME", $);}
    
61.         ;
    
62. 
    
63. %%
    
64. int main(void)
    
65. {
    
66. 
    
67.                 yyparse();
    
68. 
    
69. }
    
70. 
    
71. 
    
72. void yyerror(const char* s)
    
73. {
    
74.         printf("\n%s\n", s);
    
75. }
    
76. 
    
77. 
    

复制代码

LEX对应的文件：

1. %{
   
2. /* 计算器 */
   
3. %}
   
4. 
   
5. %{
   
6. #include "y.tab.h"
   
7. #include <math.h>
   
8. 
   
9. %}
   
10. 
    
11. %%
    
12. 
    
13. ([0-9]+|([0-9]*\.[0-9]+)([Ee][-+]?[0-9]+)?)        {
    
14.                 yylval.dval = atof(yytext);
    
15.                 return NUMBER;
    
16.         }
    
17. [ \t]        ;
    
18. [a-z]         {
    
19.                 yylval.vblno = yytext[0] - 'a'; return NAME;
    
20.         }
    
21. "$"        {
    
22.                 return 0;
    
23.         }
    
24. \n        |       
    
25. .        return yytext[0];
    
26. 
    
27. %%
    
28. 
    
29. int yywrap(void)
    
30. {
    
31.         return 1;
    
32. }
    

复制代码

这两个文件编译后的程序为“ly”，运行结果如下，为什么结果都是0？？？ 高手指导下！！！是在CENT-OS 6.3上测试的

1. root:/root/桌面/test/tflex>ly
   
2. 2
   
3. ---------[7:N][$=0]
   
4. = 0
   
5. 2+3
   
6. ---------[7:N][$=0]
   
7. ---------[7:N][$=0]
   
8. ---------[1:+][$=0]
   
9. = 0
   
10. 
    

复制代码

EricFisher

问题可能出在这里：

你应该使用{ $$ = $1 + $3; PRT(1, "+", $$);}，而不是{ $ = $1 + $3; PRT(1, "+", $);}。

DIYBYPERL

回复 2# EricFisher


    源代码里都是两个$，这是网页显示的问题。
要是代码是一个$能编译通过?
再帮我看看?

fly3ds

我认为，能搞懂lex与yacc都是非人类   

DIYBYPERL

回复 4# fly3ds
哈哈
高手指教！！！

   

EricFisher

哦，那可能是因为，你$$中缺省使用的union类型为double，但是却在printf使用的%d。改成%f试试。

DIYBYPERL

果然是。代码改动太多，看了好多遍也没发现。谢谢版主

cjaizss

fly3ds 发表于 2013-10-12 14:04
我认为，能搞懂lex与yacc都是非人类

有这么夸张？
编译原理看一遍之后，再来用lex/yacc,我想你会理解的快一些。