DataMuseum.dk

top - metrics - download

    Length: 1536 (0x600)
    Types: TextFile
    Names: »initparser  «

└─⟦01e83a425⟧ Bits:30008166 Bånd med SW8010 og SW8500 source code
    └─⟦75ff9bef3⟧ 
        └─⟦this⟧ »initparser  « 

TextFile

job bbj 3 1 perm disc1 100 1
(parsetables =set 42 disc1 
scope user parsetables
p = algol list.no
p
finis)
begin
  integer i1,i2,i3,i4,i5,i6,i7,i8,i9,j,i,lrmax,lxmax;
  zone ptables,parsetables(128,1,stderror);
  integer field f2,f4,f6,f8,f10,f12,f14,f16,f18;

  f2:=2; f4:=4; f6:=6; f8:=8; f10:=10; f12:=12;
  f14:=14; f16:=16; f18:=18;
  open(ptables,4,<:ptables:>,0);
  open(parsetables,4,<:parsetables:>,0);
  <* read dimension variables and special values *>
  read(ptables,i1,i2,i3,i4,i5,i6,i7,i8);
  if i8<>0 then read(ptables,i9) else i9:=32;
  outrec6(parsetables,18);
  parsetables.f2:=i1;
  parsetables.f4:=i2;
  parsetables.f6:=i3;
  parsetables.f8:=i4;
  parsetables.f10:=i5;
  parsetables.f12:=i6;
  parsetables.f14:=i7;
  parsetables.f16:=i8;
  parsetables.f18:=i9;
  lxmax:=i4; lrmax:=i3;
  <* lexical tables *>
  for i:=1 step 1 until 63+lxmax+1 do
  begin
    readchar(ptables,i1); readchar(ptables,i1);
    read(ptables,i2,i3,i4);
    outrec6(parsetables,8);
    parsetables.f2:=i1; parsetables.f4:=i2;
    parsetables.f6:=i3; parsetables.f8:=i4;
  end;
  <* lr tables *>
  for i:=0 step 1 until lrmax do
  begin
    read(ptables,i1,i2,i3,i4);
    outrec6(parsetables,8);
    parsetables.f2:=i1; parsetables.f4:=i2;
    parsetables.f6:=i3; parsetables.f8:=i4;
    if i3<>5 then 
    begin read(ptables,i5); outrec6(parsetables,2);
      parsetables.f2:=i5;
    end;
  end;
  close(ptables,true); close(parsetables,true);
end
▶EOF◀