-- 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.