Implementation of DFA 7
/1
0
case
state
of
...
f2: begin
{
integer
}
if symbol in
['0'..'9']
then
str
:= str + symbol;
else
begin
ungetchar(symbol);
{return symbol}
TOKEN := INTEGER
;
{conversion value of str to integer}
break;
end;
end; {state f2}
16
/35
s
integer
f
2
0..9
0..9