-- file: WeaveImpl.mesa
-- Pascal-to-Mesa translator output, translated at September 23, 1986 1:27:38 pm PDT
DIRECTORY
PascalBasic,
PascalWizardFiles,
WeaveProcs,
WeaveVars;
WeaveImpl: PROGRAM IMPORTS PascalBasic, PascalWizardFiles, WeaveProcs, WeaveVars EXPORTS WeaveProcs = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, WeaveProcs, WeaveVars;
--2:----4:----$C-,A+,D- ----[$C+,D+]----:4
Error9999: ERROR = CODE;
WeaveRun: UnsafeCommandProc = BEGIN
{ENABLE Error9999 => GOTO Label9999;Initialize[];
{PascalWriteLongString[file: @TermOut, item: "This is Weave 2.7 for Cedar 6.0"]; PascalWriteLn[file: @TermOut]};--65:--IdLoc←10;
IdFirst←7;Buffer↑[7]←97;Buffer↑[8]←110;Buffer↑[9]←100;
CurName←IdLookup[28];IdFirst←5;Buffer↑[5]←97;Buffer↑[6]←114;
Buffer↑[7]←114;Buffer↑[8]←97;Buffer↑[9]←121;CurName←IdLookup[4];
IdFirst←5;Buffer↑[5]←98;Buffer↑[6]←101;Buffer↑[7]←103;Buffer↑[8]←105;
Buffer↑[9]←110;CurName←IdLookup[5];IdFirst←6;Buffer↑[6]←99;
Buffer↑[7]←97;Buffer↑[8]←115;Buffer↑[9]←101;CurName←IdLookup[6];
IdFirst←5;Buffer↑[5]←99;Buffer↑[6]←111;Buffer↑[7]←110;Buffer↑[8]←115;
Buffer↑[9]←116;CurName←IdLookup[7];IdFirst←7;Buffer↑[7]←100;
Buffer↑[8]←105;Buffer↑[9]←118;CurName←IdLookup[8];IdFirst←8;
Buffer↑[8]←100;Buffer↑[9]←111;CurName←IdLookup[9];IdFirst←4;
Buffer↑[4]←100;Buffer↑[5]←111;Buffer↑[6]←119;Buffer↑[7]←110;
Buffer↑[8]←116;Buffer↑[9]←111;CurName←IdLookup[20];IdFirst←6;
Buffer↑[6]←101;Buffer↑[7]←108;Buffer↑[8]←115;Buffer↑[9]←101;
CurName←IdLookup[10];IdFirst←7;Buffer↑[7]←101;Buffer↑[8]←110;
Buffer↑[9]←100;CurName←IdLookup[11];IdFirst←6;Buffer↑[6]←102;
Buffer↑[7]←105;Buffer↑[8]←108;Buffer↑[9]←101;CurName←IdLookup[4];
IdFirst←7;Buffer↑[7]←102;Buffer↑[8]←111;Buffer↑[9]←114;
CurName←IdLookup[12];IdFirst←2;Buffer↑[2]←102;Buffer↑[3]←117;
Buffer↑[4]←110;Buffer↑[5]←99;Buffer↑[6]←116;Buffer↑[7]←105;
Buffer↑[8]←111;Buffer↑[9]←110;CurName←IdLookup[17];IdFirst←6;
Buffer↑[6]←103;Buffer↑[7]←111;Buffer↑[8]←116;Buffer↑[9]←111;
CurName←IdLookup[13];IdFirst←8;Buffer↑[8]←105;Buffer↑[9]←102;
CurName←IdLookup[14];IdFirst←8;Buffer↑[8]←105;Buffer↑[9]←110;
CurName←IdLookup[30];IdFirst←5;Buffer↑[5]←108;Buffer↑[6]←97;
Buffer↑[7]←98;Buffer↑[8]←101;Buffer↑[9]←108;CurName←IdLookup[7];
IdFirst←7;Buffer↑[7]←109;Buffer↑[8]←111;Buffer↑[9]←100;
CurName←IdLookup[8];IdFirst←7;Buffer↑[7]←110;Buffer↑[8]←105;
Buffer↑[9]←108;CurName←IdLookup[16];IdFirst←7;Buffer↑[7]←110;
Buffer↑[8]←111;Buffer↑[9]←116;CurName←IdLookup[29];IdFirst←8;
Buffer↑[8]←111;Buffer↑[9]←102;CurName←IdLookup[9];IdFirst←8;
Buffer↑[8]←111;Buffer↑[9]←114;CurName←IdLookup[55];IdFirst←4;
Buffer↑[4]←112;Buffer↑[5]←97;Buffer↑[6]←99;Buffer↑[7]←107;
Buffer↑[8]←101;Buffer↑[9]←100;CurName←IdLookup[13];IdFirst←1;
Buffer↑[1]←112;Buffer↑[2]←114;Buffer↑[3]←111;Buffer↑[4]←99;
Buffer↑[5]←101;Buffer↑[6]←100;Buffer↑[7]←117;Buffer↑[8]←114;
Buffer↑[9]←101;CurName←IdLookup[17];IdFirst←3;Buffer↑[3]←112;
Buffer↑[4]←114;Buffer↑[5]←111;Buffer↑[6]←103;Buffer↑[7]←114;
Buffer↑[8]←97;Buffer↑[9]←109;CurName←IdLookup[17];IdFirst←4;
Buffer↑[4]←114;Buffer↑[5]←101;Buffer↑[6]←99;Buffer↑[7]←111;
Buffer↑[8]←114;Buffer↑[9]←100;CurName←IdLookup[18];IdFirst←4;
Buffer↑[4]←114;Buffer↑[5]←101;Buffer↑[6]←112;Buffer↑[7]←101;
Buffer↑[8]←97;Buffer↑[9]←116;CurName←IdLookup[19];IdFirst←7;
Buffer↑[7]←115;Buffer↑[8]←101;Buffer↑[9]←116;CurName←IdLookup[4];
IdFirst←6;Buffer↑[6]←116;Buffer↑[7]←104;Buffer↑[8]←101;Buffer↑[9]←110;
CurName←IdLookup[9];IdFirst←8;Buffer↑[8]←116;Buffer↑[9]←111;
CurName←IdLookup[20];IdFirst←6;Buffer↑[6]←116;Buffer↑[7]←121;
Buffer↑[8]←112;Buffer↑[9]←101;CurName←IdLookup[7];IdFirst←5;
Buffer↑[5]←117;Buffer↑[6]←110;Buffer↑[7]←116;Buffer↑[8]←105;
Buffer↑[9]←108;CurName←IdLookup[21];IdFirst←7;Buffer↑[7]←118;
Buffer↑[8]←97;Buffer↑[9]←114;CurName←IdLookup[22];IdFirst←5;
Buffer↑[5]←119;Buffer↑[6]←104;Buffer↑[7]←105;Buffer↑[8]←108;
Buffer↑[9]←101;CurName←IdLookup[12];IdFirst←6;Buffer↑[6]←119;
Buffer↑[7]←105;Buffer↑[8]←116;Buffer↑[9]←104;CurName←IdLookup[12];
IdFirst←3;Buffer↑[3]←120;Buffer↑[4]←99;Buffer↑[5]←108;Buffer↑[6]←97;
Buffer↑[7]←117;Buffer↑[8]←115;Buffer↑[9]←101;CurName←IdLookup[23];
--:65--PhaseI[];PhaseIi[];PhaseIii[];--86:
IF ChangeLimit#0 THEN BEGIN FOR i:INT IN [ INT[0 ].. INT[ChangeLimit ]] DO Loc ← i; Buffer↑[Loc]
←ChangeBuffer↑[Loc] ENDLOOP;Limit←ChangeLimit;Changing←TRUE;
Line←OtherLine;Loc←ChangeLimit;
BEGIN IF NOT PhaseOne THEN BEGIN PascalWriteLn[file: @TermOut];
PascalWriteLongString[file: @TermOut, item: "! Change file entry did not match"];Error[]; END; END;
END--:86--;EXITS Label9999 => NULL};--[263:]BEGIN WRITELN(TERM←OUT);
-- WRITE(TERM←OUT,'Memory usage statistics: ',NAME←PTR:1,' names, ',
-- XREF←PTR:1,' cross references, ',BYTE←PTR[0]:1);END;
-- FOR CUR←BANK:=1 TO 1 DO WRITE(TERM←OUT,'+',BYTE←PTR[CUR←BANK]:1);
-- WRITE(TERM←OUT,' bytes;');BEGIN WRITELN(TERM←OUT);
-- WRITE(TERM←OUT,'parsing required ',MAX←SCR←PTR:1,' scraps, ',MAX←TXT←PTR
-- :1,' texts, ',MAX←TOK←PTR:1,' tokens, ',MAX←STACK←PTR:1,' levels;');END;
-- BEGIN WRITELN(TERM←OUT);
-- WRITE(TERM←OUT,'sorting required ',MAX←SORT←PTR:1,' levels.');END[:263];
-- --FileClose[@WebFile];FileClose[@ChangeFile];FileClose[@TexFile];
--264:--SELECT History FROM 0 =>BEGIN PascalWriteLn[file: @TermOut];
PascalWriteLongString[file: @TermOut, item: "(No errors were found.)"]; END;1 =>BEGIN PascalWriteLn[file: @TermOut];
PascalWriteLongString[file: @TermOut, item: "(Did you see the warning message above?)"]; END;
2 =>BEGIN PascalWriteLn[file: @TermOut];
PascalWriteLongString[file: @TermOut, item: "(Pardon me, but I think I spotted something wrong.)"];
END;3 =>BEGIN PascalWriteLn[file: @TermOut];
PascalWriteLongString[file: @TermOut, item: "(That was a fatal error, my friend.)"]; END; ENDCASE--:264--;
PascalWriteLn[file: @TermOut];--:262
END;
PascalRegister["Weave", WeaveRun];
END.