自己动手写basic解释器(四)

自己动手写basic解释器

刺猬@http://blog.csdn.net/littlehedgehog

 





注: 文章basic解释源码摘自梁肇新先生的《编程高手箴言》(据他所说这个代码也是网上摘录的)，源码解读参考《java编程艺术》。《java编程艺术》里面自然是java版了(可能旭哥更加适合点儿)，我这里还是解读的C版basic解释器代码。




表达式已求，下面可以进入程序逻辑处理了，这里的代码量比较大，不过都很简单，后面主要是以程序注释为主。先来看看完整版的主函数:

1. main (int argc,char *argv[])
2. {
3.     char in[80];
4.     int answer;
5.     char *p_buf;
6.     char *t;
7. 
   
8.     if (argc!=2)  {
9.         printf ("usage: run <filename>/n");
10.         exit (1);
11.     }
12. 
    
13.     /* allocate memory for the program */
14.     if (!(p_buf=(char *)malloc(PROG_SIZE)))  {
15.         printf ("allocation failure");
16.         exit (1);
17.     }
18. 
    
19.     /* load the program to execute */
20.     if (!load_program(p_buf,argv[1]))  exit(1);
21. 
    
22.     if (setjmp(e_buf))  exit(1); /* initialize the long jump */
23. 
    
24.     prog = p_buf;
25.     scan_labels();  /*  搜索所有的标签  */
26.     ftos = 0;  /* 初始化栈指针  这个是为for循环作准备的  */
27.     gtos = 0;  /* 初始化栈指针  这个是为gosub作准备的 */
28.     do  {
29.         token_type = get_token();
30.         /* 如果当前是变量 */
31.         if (token_type==VARIABLE)  {
32.             putback();  /* 回退prog指针到变量前 */
33.             assignment();  /* 赋值  */
34.         }
35.         else  /* 除了变量那就是关键字了  可能有同学会问  呃  那个比如一个数字怎么没考虑  请想想一个数字怎么会单独出现 */
36.             switch (tok)  {
37.                 case PRINT:
38.                     print();
39.                     break;
40.                 case GOTO:
41.                     exec_goto();
42.                     break;
43.                 case IF:
44.                     exec_if();
45.                     break;
46.                 case FOR:
47.                     exec_for();
48.                     break;
49.                 case NEXT:
50.                     next();
51.                     break;
52.                 case INPUT:
53.                     input();
54.                     break;
55.                 case GOSUB:
56.                     gosub();
57.                     break;
58.                 case RETURN:
59.                     greturn();
60.                     break;
61.                 case END:
62.                     exit(0);
63.             }
64.     }while (tok != FINISHED);
65. }
66. 
    

main函数其实没啥好说的，主要是这个函数是个花架子，真正实在的逻辑处理不在这里。不过特别需要强调的是prog这个字符指针，这是程序的命根子，它打到哪儿我们就得运行到哪儿，get_token就得取哪儿的标识符。当然这种重要的东西肯定是掌握在我们自己手里。另外是setjmp函数，这个可以理解为windows系统中的系统还原，一旦出错我们程序可以跳到这个还原点。

在while循环里，我们一行一行处理源代码，注意是一行一行的进行，比如print a,b,c  我们会在print函数里面循环打印a,b,c 。而不会多次调用print，这种设计很巧妙。

来先看看变量赋值函数assignment:

1. /* 给变量赋值  比如 a＝3  
2.  * 注意这里为了简化起见，我们的变量就设置为26个字母
3.  */
4. assignment()
5. {
6.     int var,value;
8.     /* getthe variable name */
9.     get_token();
10.     if (!isalpha(*token))  //因为变量我们用字母代替 所以必定是字母类型
11.     {
12.         serror(4);
13.         return;
14.     }
16.     var = toupper(*token)-'A';  //转化为大写字母  然后减去'A' 这样让变量在hash表中有了座次 比如A减去A为0 这样A字符变量在变量hash表中第一个位置
18.     /* get the equals sign 
19.      * 这里我们取a=3 中间的等号*/
20.     get_token();
21.     if (*token!='=')    //既然赋值么 肯定有等号了
22.     {
23.         serror(3);
24.         return;
25.     }
27.     /* a=3  等号取走了 我们来取数值  */
28.     get_exp(&value);
29.    
30.     /* 把我们取到的变量 比如a 值为3 存放在hash表中 */
31.     variables[var] = value;
32. }

这里的变量我们用26个字母表示，比较简单，减少了我们代码逻辑判断，当然缺点就是变量不能见名知义，还有有时不够用，要知道我们这个basic没有所谓的全局变量和局部变量，都作为全局处理的。这里面又嵌套了一个函数——serror，看名字就知道是错误处理的:

1. /* display an error message */
2. void serror(int error)
3. {
4.     char *e[] = {
5.         "syntax error",
6.         "unbalanced parentheses",
7.         "no expression present",
8.         "equal sign expected",
9.         "not a variable",
10.         "label table full",
11.         "duplicate label",
12.         "undefined label",
13.         "THEN expected",
14.         "TO expected",
15.         "too many nested FOR loops",
16.         "NEXT without FOR",
17.         "too many nested GOSUB",
18.         "RETURN without GOSUB"
19.     };
21.     printf ("%s/n",e[error]);
22.     longjmp(e_buf,1);  /* return to save point */
23. }

这个函数就是个打印，里面有个longjmp，就是上面所说的跳到"系统恢复点"，与setjmp隔江相望。具体可以查查<unix高级环境编程>。