Pascal文法子集的词法分析及递归下降法语法分析的实现源码

Pascal文法子集的词法分析器和语法分析器，在vc++ 6.0下运行成功，c语言编写

{ this little source program is used to illustrate the procedure of syntax analysis. }
VAR num1num2num3:INTEGER;
BEGIN
num1:=num1+500;
num2:=num2+850*365;
num3:=（num1+455）+（（（num2+568）*（num1+1654））+500）;
IF num1<>num2
   THEN num1:=num2
   ELSE IF num1=num2
           THEN num1:=num3
           ELSE num1:=0;
WHILE num2>=num3
   DO WHILE num1<=num2
        DO num2:=num2+num3;
BEGIN
   num1:=num1+300;
   num2:=num2+450*65;
   num3:=（num1+45）+（（num2+56）*（num1+165））;
   IF num1<>num2
      THEN num1:=num2
      ELSE IF num1=num2
              THEN num1:=num2+num1
      ELSE num1:=1;
   WHILE num2>num3
      DO WHILE num1>num2
           DO num2:=num2+num3
END;
PROCEDURE id（ide1ide2）;
   BEGIN
   num1:=num1+500; 
   num2:=num2+450*65;
   num3:=（num1+45）+（（num2+56）*（num1+165））;
   IF num1<>num2
      THEN num1:=num2
      ELSE IF num1=num2
              THEN num1:=num2+num1
      ELSE num1:=1;
   WHILE num2>num3
     DO WHILE num1>num2
     DO num2:=num2+num3
END
END.

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1028  2010-11-08 23:50  词法分析+语法分析\code.cpp

     文件      23763  2010-11-08 23:54  词法分析+语法分析\Parser of Pascal.cpp

     文件       6644  2010-11-08 23:42  词法分析+语法分析\Scanner of Pascal.cpp

     文件        253  2010-12-25 16:42  词法分析+语法分析\使用说明.txt

     目录          0  2010-12-25 16:37  词法分析+语法分析

----------- ---------  ---------- -----  ----

                31688                    5