Algol 68 - ACM Digital Library

192/van Wijngaarden, et al.ALGOL 68 Revised Report193count of (F of format of f) [ 1 ] : = 1else format ended : = truetlelseref int forp = forp off;ref flex [ ] piece aleph = F of format off;case (c of aleph [forp ]) [ cp of aleph [forp ] ] in(collitem cl):([1 : upb (il of c/)] sinsert si;bp of aleph [p of cl] := forp; forp := skip;(staticize insertion (il of cl, si),count of aleph [p of cl ] : = rep of cl);(aleph : ~ : For format of fl undefined);(read l get insertion (f, si) I put insertion (f, si));cp of aleph [p of cl ] := O;forp : = p of cl) ,(picture pict): (picture found : = true; picture : = pict)esac;while(forp ~ O Icp of aleph [forp ] = upb c of aleph [forp ] l faIse)do it (count of aleph [forp ] -: = 1) 1then (staticize insertion (ins [1 |, sins |I ]),staticize insertion (ins [2 : J, sins [2 : J))fi;mode .~ shame = struct (flex [ 1 : 0 ] sinsert si, int rep, bool supp,char marker) ;proc ~ staticize frames =([ ] frame frames, ref [ ] shame s frames) void :¢ calls collaterally all the replicators in 'frames'¢if upb frames = 1then[1 : upb (i of frames [1 ])] sinsert si;(staticize insertion (i of frames [1 ], si),rep of sframes [1] := rep of frames [1]);si of sframes [1 ] := si;supp of sframes [1 ] := supp of frames [1 ],¢marker of sframes [1 ] := marker of frames [i ]eIif upb frames > 1then (staticize frames (frames [ 1 ], sframes [1 ]),staticize frames (frames [2 : ], sframes [2 : ]))fl;proc 9put insertion = (ref file f, [ ] sinsert si) void :begin set write mood (f);for k to upb sidocase sa of si [k] in(char a): alignment (f, rep of si [k], a, false),(string s):to rep of si [k]dofor i to upb sdo check pos (f); put char (f, s [ i ]) ododesacodend;