Pascal News

1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698
1699
1700
1701
1702
1703
1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1718
1719
1720
1722
1723
1724
function element(fsys:sos):sp
):sp;
var lsp,lsp1,hsp:sp; min ,max. :integer; ok:boolean; sepsy:symbol; lip:ip;
oksys :808;
begin insym; nextif(lbrack,..o34); hsp:=n11;
repeat lsp:=newsp(artyp,O); initpos(lsp~ .arpos);
lsp~ .aeltype:=hsp; hsp:=lsp; {link reversed}
if artyp=carray then
begin sepsy:=semicolon; oksys:=[identJ;
lip: =newident( carrbnd ,lsp,n11,..o35);
if" lipnil then enterid (lip);
nextif( colon2, ..036);
lip: =newident( carrbnd ,lsp,lip,..037);
if"lipn11 then enterid(l1p);
next1f(colonl, ..038); lspl: =typid{+039);
ok: =nicescalar( desub( lspl»;
encI
else
begin sepsy:=comma; oksys:=[ident •• lparentJ;
lspl: =simpletyp( fsys+ [comma,rbrack,ofsy,ident•• packedsyJ);
ok:=bounds( lspl,min,max)
end;
if not ok then begin error( +0'10); lsp 1: =nil end;
lsp~ .inxtype:=lspl
until endofloop( fsys+[rbrack,ofsy, ident •• packedsyJ, okays,
sepsy,..o41); {+042)
nextif(rbrack,..o1l3); next1f(ofsy,..o'l'l);
lsp:=element(fsys) ;
if lspnil then sflag:=sflag + lspA .sflag * [withfileJ;
repeat {rever se 1 inks and compute s1 ze)
lap1:=hspA .aeltype; hSpA .aeltype:=lsp; hSpA .sflag:=sflag;
if artyp=arrays then hSpA .size:=arraysize(hsp,spack in sflag);
lsp:=hsp; hsp:=lspl
until hsp=nil; {lsp points to array with highest dimension)
arraytyp: =lap
encI;
function type fays :sos): sp;
var lsp"lsp1!sp; oc,sz,mln,max:lnteger;
sflag:sflagset; Inp:np;
function fldlist(fsys:sos):sp;
{level 2: « typ)
var fip,hip,lip:ip; lsp:sp;
1737
1738
1739
1740
1741
1742
lH3
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
begin lid:=id; insym end;
end;
if sy=ofsy then {otherwise you may destroy id)
begin id:=lid; l1p:=searchid([typesJ) end;
end;
if lip=nil then tfsp:=nil else tfsp:=lipA .idtype;
if bounds( tfsp,lnt ,nvar) then nvar: =nvar-int+ 1 else
begin nvar: =0:
if tfspnil then begin error(+047); tfsp:=nil end
end;
tspA .tfldsp: =tfsp;
if tipnll then {explicit tag)
begin tipA .1dtype :=tfsp;
tip~ .foffset:=address(oc,sizeof(tfsp) ,spack in sflag)
end;
nextif(ofsy,..o48); minoc:=oc; maxoc:=minoc; headsp:=nil;
repeat hsp:=nil; {for each caselabel list)
repeat nvar:=nvar-1;
int: =cstinteger( fsys+[ident .. plussy ,comma ,colon 1, lparent,
semicolon .casesy,rparent] t tfsp, +049);
lsp:=headsp; {each label may occur only once)
while lspnll do
begin if' lspA .varval=int then error(+050);
lsp:=lspA .nxtvar
end;
vsp:=newsp( variant,O); vsp'" .varval :=int;
vsp'" .nxtvar:=headsp; headsp:=vsp; {ohain of oase labels}
VSpA .subtsp:=hsp; hsp:=vsp;
{use this field to link labels with same variant)
untl.l endofloop( fsys+[oolon 1, lparent,semioolon ,casesy,rparentJ,
[ident •• plussyJ,comma,..o51~; {+052)
nextif(colonl,..o53); nextif( lparent,+054);
tsp 1: =fldlist (fsys+[rparent ,semicolon,ident•• plussyJ);
it oc>maxoo then maxoc: =00;
while v sp nil do
begin VSpA .size:=oc; hsp:=VSpA .subtsp;
VSpA .subtsp:=tspl; vsp:=hsp
encI;
nextif(rparent ,..055);
oc:=minoc;
until lastsemicolon(fsys,[ident •• plussyJ,..o56); (+057 ..058)
if nvar>O then error(-(+059»;
tsp .... fstvar:=headsp; tsp .... size:=minoc; oc:=maxoc; varpart:=tsp;
end;
...,
:J>
en
C'"">
:J>
r-
z:
FT1
:a::
en
N ""
N
0
"" N
\.N
V>
FT1
...,
-I
FT1
:3
t:C
FT1
.::0
.....