Разработка компиляторов. Ишакова Е.Н. - 18 стр.

UptoLike

ВУЗ: 

ОГУ | Оренбург

Составители: 

Рубрика: 

18
case CS of
H
: if CH=’ ‘ then gc
else
if let then
begin
nill
; add;
gc
; CS:= I
end
else
if digit then
begin
B
:=ord(CH)-ord(‘0’);
gc
; CS:= N
end
else
if CH
= ‘:’ then
begin
gc
;
CS
:= DV
end
else
if CH
=’.’ then
begin
out
(2,1);
CS
:=V
end
else
if CH
=’{‘ then
begin
gc
; CS:=C
end
else CS
:=O;
I
: if let or digit then
begin
add
; gc
end
else begin
look
(TW);
if z<>0 then
begin
out
(1,z); CS:=H
end
else begin
put
(TI);
out
(4,z); 
case CS of
   H: if CH=’ ‘ then gc
        else
            if let then
                begin
                    nill; add;
                    gc; CS:= I
                end
            else
                if digit then
                    begin
                        B:=ord(CH)-ord(‘0’);
                        gc; CS:= N
                    end
                else
                    if CH= ‘:’ then
                        begin
                            gc;
                            CS:= DV
                        end
                    else
                        if CH=’.’ then
                            begin
                                out(2,1);
                                CS:=V
                            end
                        else
                            if CH=’{‘ then
                                begin
                                   gc; CS:=C
                                end
                            else CS:=O;
   I: if let or digit then
          begin
              add; gc
          end
     else begin
                look(TW);
                if z<>0 then
                    begin
                        out(1,z); CS:=H
                    end
                else begin
                          put(TI);
                          out(4,z);
                                               18

Страницы