lex_test_data.txt

SimPas词法分析器。用flex编译生成yy.lex.c,然后用vc编译生成.exe文件

{
        Hanoi Tower Program     for Lex Test
}
COMMENT      ,{
        Hanoi Tower Program     for Lex Test
}
Line Count: 2

Line Count: 3
Program Hanoi (input,output);
KEY          ,Program
ID           ,Hanoi
PARENTHESES  ,(
ID           ,input
COMMA        ,,
ID           ,output
PARENTHESES  ,)
SEMICOLON    ,;
Line Count: 4

Line Count: 5
Var
KEY          ,Var
Line Count: 6
  disks:   integer;
ID           ,disks
COLON        ,:
KEY          ,integer
SEMICOLON    ,;
Line Count: 7
  a: array [1..10] of integer;
ID           ,a
COLON        ,:
KEY          ,array
ID           ,[1
DOT          ,.
DOT          ,.
NUMBER       ,10
ID           ,]
KEY          ,of
KEY          ,integer
SEMICOLON    ,;
Line Count: 8

Line Count: 9
procedure AHanoi ( source, temp, destination, n: integer );
KEY          ,procedure
ID           ,AHanoi
PARENTHESES  ,(
ID           ,source
COMMA        ,,
ID           ,temp
COMMA        ,,
ID           ,destination
COMMA        ,,
ID           ,n
COLON        ,:
KEY          ,integer
PARENTHESES  ,)
SEMICOLON    ,;
Line Count: 10
begin
KEY          ,begin
Line Count: 11
  if n > 0 then
KEY          ,if
ID           ,n
REL_OP       ,>
NUMBER       ,0
KEY          ,then
Line Count: 12
     begin
KEY          ,begin
Line Count: 13
       AHanoi( source, destination, temp, n - 1 );
ID           ,AHanoi
PARENTHESES  ,(
ID           ,source
COMMA        ,,
ID           ,destination
COMMA        ,,
ID           ,temp
COMMA        ,,
ID           ,n
ADD_OP       ,-
NUMBER       ,1
PARENTHESES  ,)
SEMICOLON    ,;
Line Count: 14
       writeln ( 'Move Disk ', n, ' From ', source, ' To ', destination );
KEY          ,writeln
PARENTHESES  ,(
STR_LITERAL  ,'Move Disk '
COMMA        ,,
ID           ,n
COMMA        ,,
STR_LITERAL  ,' From '
COMMA        ,,
ID           ,source
COMMA        ,,
STR_LITERAL  ,' To '
COMMA        ,,
ID           ,destination
PARENTHESES  ,)
SEMICOLON    ,;
Line Count: 15
       AHanoi( temp, source, destination, n - 1 );
ID           ,AHanoi
PARENTHESES  ,(
ID           ,temp
COMMA        ,,
ID           ,source
COMMA        ,,
ID           ,destination
COMMA        ,,
ID           ,n
ADD_OP       ,-
NUMBER       ,1
PARENTHESES  ,)
SEMICOLON    ,;
Line Count: 16
     end;
KEY          ,end
SEMICOLON    ,;
Line Count: 17
end;
KEY          ,end
SEMICOLON    ,;
Line Count: 18

Line Count: 19
begin
KEY          ,begin
Line Count: 20
  write ( 'Please Input Disk Number:' );
KEY          ,write
PARENTHESES  ,(
STR_LITERAL  ,'Please Input Disk Number:'
PARENTHESES  ,)
SEMICOLON    ,;
Line Count: 21
  read ( disks );
KEY          ,read
PARENTHESES  ,(
ID           ,disks
PARENTHESES  ,)
SEMICOLON    ,;
Line Count: 22
  a[9]:=10;
ID           ,a[9]
ASSIGN_OP    ,:=
NUMBER       ,10
SEMICOLON    ,;
Line Count: 23
  AHanoi (1, 2, 3, disks );
ID           ,AHanoi
PARENTHESES  ,(
NUMBER       ,1
COMMA        ,,
NUMBER       ,2
COMMA        ,,
NUMBER       ,3
COMMA        ,,
ID           ,disks
PARENTHESES  ,)
SEMICOLON    ,;
Line Count: 24
end.
KEY          ,end
DOT          ,.
Line Count: 25