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

 

自己动手写basic解释器

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

 





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




是所谓先来后到，我们还是按照主函数出现的顺序，依次分析逻辑函数。

1、print
print函数主要的关注两点，第一点是打印格式，第二点是打印方式。比如我举两例:

1. print a
2. print "hello world "    '要分清楚打印变量还是打印字符串  这是打印方式的问题
4. print a,b
5. print a;b      '要分清楚打印格式，注意一个是分号一个是逗号  两者有区别!

print代码:

1. /* execute a simple version of the BASIC PRINT statement 
2.  * 执行打印  这里我们还是举例说明*/
3. void print()
4. {
5.     int answer;
6.     int len=0,spaces;
7.     char last_delim;
8.    
9.     do  {
10.         get_token();  /* get next list item */
11.         if (tok==EOL||tok==FINISHED)  break;  //如果取到的符号是一行结束或者文件结束  自然的打印结束
13.                  
14.         //BASIC 中print一般有两种用法  第二种就是print "hello world"  打印字符串  
15.         if (token_type==QUOTE)  
16.         {  
17.             printf ("%s",token);
18.             len+=strlen(token);
19.             get_token();    //注意我们打印了后又取了一次符号
20.         }
21.         else   //打印变量的
22.         { 
23.             putback();
24.             get_exp(&answer);
25.             get_token();    //注意我们打印了后又取了一次符号
26.             len += printf ("%d",answer);
27.         }
28.         last_delim = *token;    
29.         
30.         
31.         /* Basic 有两种打印间隔标识 
32.          * 比如 print a,b 表示按标准格式打印
33.          * 而print a;b 表示按照紧凑格式打印  
34.          * 所谓标准格式简单来讲就是间隔大点儿  紧凑自然间隔小点儿  
35.          */
36.         if (*token==',')  
37.         {
38.             /* compute number of move to next tab */
39.             spaces = 8-(len%8);
40.             len += spaces;  /* add in the tabbing position */
41.             while (spaces)  {
42.                 printf (" ");
43.                 spaces--;
44.             }
45.         }
46.         else if (*token==';')  
47.             printf ("  ");
48.         else if (tok != EOL && tok != FINISHED) serror (0);     //print a,b 打完一次后 要么是逗号、分号 要么就是行结束或者文件结束  如果四者不居其一  必然错了
49.     } while (*token==';'||*token==',');     //例如 print a,b,c 如果token是逗号、分号 那么表示后面还有打印  继续来
51.     /* 当处于行结束或者文件结束  那么前一次分界符不能是;或者,  
52.      * 示例 如果 "print a," 这个明显是语法错误 a后面不应该要逗号
53.      * 那么打印完a取出token是逗号  我们赋值给last_delim 继续循环
54.      *  下一个是行结束  跳出打印但是检验出last_delim是逗号  出错 */
55.     if (tok==EOL||tok==FINISHED)    
56.     {
57.         if (last_delim != ';' && last_delim != ',') printf ("/n");
58.     }
59.     else serror(0);  /* error is not, or ; */
60. }

2、goto
关于goto的争论还是上个世纪计算机洪荒时代，争论的结果是大量程序员在程序中尽量回避goto这个关键字，其实合理的使用goto不但提升效率，还能增加代码可读性。

1. /* execute a GOTO statement. 
2.  * goto一般形式即是 goto label 
3.  */
4. void exec_goto()
5. {
6.     char *loc;
8.     get_token();  /* 这里获取标号，即是标签内容 */
9.     
10.     loc = find_label (token);  //标签是为跳转所用，所以获取标签后我们马上要想办法得到标签所代表地址
11.     if (loc=='/0')
12.         serror(7);  /* 出错 */
13.     else prog=loc;  /* 重新 设置prog指针  指出了下一个我们运行的地址  我们得完全听他的*/
14. }

label表在我们最开始处理程序的时候已经完成，我理解为"预处理"，代码如下，总的思路是扫描一遍代码，搜索标号。 注意 在我们这个basic中，我们标号的规定是必须在一行开头，并且是数字.  这个例子可以参照文章第一部分我举的那个basic例子，其实我们可以看到现实中确实有这样basic规定，比如smallbasic。
标签初始化：scan_labels():

1. /* 搜索所有标签 
2.  * 这个函数可以说是basic里面的预处理  
3.  * 我们搜索源代码 找出里面的标签  将其存入标签表
4.  * 所谓标签label 其实C语言也有 不过一般不常用 因为label多半和goto一起出现的  而在结构化程序设计中 goto出现被人认为是绝对不能的
5.  * 不过内核中goto却是常常出现
6.  */
7. void scan_labels()
8. {
9.     int addr;
10.     char *temp;
12.     label_init();  /* zero all labels */
13.     temp = prog;  /* save poiter to top of program */
15.     /* 如果源代码中第一个token是个数字的话  存入标签表中  表明是个标签*/
16.     get_token();
17.     if (token_type==NUMBER)  
18.     {
19.         strcpy (label_table[0].name,token);
20.         label_table[0].p=prog;
21.     }
22.    
23.     find_eol();     //提行
24.     do  {
25.         get_token();
26.         if (token_type==NUMBER)     //如果是数字  注意我们标签定义为行开头、数字
27.         {
28.             addr = get_next_label(token);
29.             if (addr==-1||addr==-2)  
30.             {
31.                 (addr==-1) ? serror(5):serror(6);
32.             }
33.             strcpy (label_table[addr].name,token);
34.             label_table[addr].p = prog;  /* 标签干什么用的  就是方便跳转阿  所以我们要记录标签所在地址 */
35.         }
36.         /* if not on a blank line , find next line */
37.         if (tok!=EOL) find_eol();
38.     } while (tok!=FINISHED);
39.     prog = temp;  /* restore to original */
40. }

3、if
if这个函数貌似有点儿问题。我直接加在注释里的，如果我理解错了，还请各位指出:

1. /* execute an IF statement 
2.  * 执行if语句
3.  */
4. void exec_if()
5. {
6.     int x,y,cond;
7.     char op;
8.     /* 这里我们只是处理一个简单的if  就是if (x operator y) */
9.     get_exp(&x);  /* 获取操作符左边数值 */
11.     get_token();  /* 获取操作符  "比较符" */
12.     if (!strcmp("<>",*token))   //这里有点儿问题  一个字符串不可能跟一个字符比较吧
13.     {
14.         serror(0);  /* not a leagal oprator */
15.         return;
16.     }
17.     op = *token;
18.     get_exp(&y);  /* 操作符右边  */
20.     /* determine the outcome */
21.     cond = 0;
22.     switch(op)  {
23.         case '<':
24.             if (x<y) cond=1;
25.             break;
26.         case '>':
27.             if (x>y) cond=1;
28.             break;
29.         case '==':      //这里也是有点儿问题，op是字符类型 怎么会可能会是'=='，而且好笑的是basic没有这个符号
30.             if (x==y) cond=1;
31.             break;
32.     }
33.     if (cond)  {  /* is true so process target of IF */
34.         get_token();
35.         if (tok != THEN)  {     //if 后面会连上then 所以有if没then是错误的
36.             serror(8);
37.             return;
38.         }  /* else program execution starts on next line */
39.     }
40.     else find_eol();  /* find start of next line */
41. }