45.txt

用ＢＣＢ做的pascal词法分析器

begin
 a1 := 7; $ , %
 b2 := 3 ;
 c3 := a1 + b2 * 5 ;
 d4 := a1 * b2 ; #
 while c3 := 1 do d4 := 0 //sadfs
 if a1 < b2 or c3 <> d4 then c3 :=1 ;
else c3 := 99
end