自己動手寫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高級環境編程>。