Implementace DKA 7
/1
0
case
state
of
...
f2: begin
{
celé číslo
}
if symbol in
['0'..'9']
then
str
:= str + symbol;
else
begin
ungetchar(symbol);
{
návrat znaku
}
TOKEN := INTEGER
;
{
převod
hodnoty
str
na
integer
}
break;
end;
end; {sta
v
f2}
16
/35
s
integer
f
2
0..9
0..9