-- file: WeaveInput.mesa
-- Pascal-to-Mesa translator output, translated at September 23, 1986 1:27:38 pm PDT


DIRECTORY
  PascalBasic,
  PascalWizardFiles,
  WeaveProcs,
  WeaveVars;

WeaveInput: PROGRAM IMPORTS PascalWizardFiles, WeaveProcs, WeaveVars EXPORTS WeaveProcs = PUBLIC
BEGIN OPEN PascalBasic, PascalWizardFiles, WeaveProcs, WeaveVars;
--:70----75:-- LinesDontMatch: PROCEDURE RETURNS[LinesDontMatchResult: PascalBoolean] = 
BEGIN  K:PascalInteger[0..BufSize];
 LinesDontMatchResult_TRUE;{IF ChangeLimit#Limit  THEN  GOTO Label10;
IF  INT[Limit]>0  THEN FOR i:INT    IN [ INT[0 ].. INT[Limit-1 ]] DO  K _ i; IF ChangeBuffer^[K]#Buffer^[K]
 THEN  GOTO Label10 ENDLOOP;LinesDontMatchResult_FALSE;EXITS Label10 => NULL}; END;--:75----76:
 PrimeTheChangeBuffer: PROCEDURE = 
BEGIN  K:PascalInteger[0..BufSize];
 --78:-- --79:-- ChangeLimit_0;--77:--{{WHILE TRUE DO BEGIN Line_Line+1;
IF  NOT InputLn[@ChangeFile] THEN  GOTO Label10;{IF  INT[Limit]<2  THEN  GOTO Label22;
IF Buffer^[0]#64  THEN  GOTO Label22;
IF( INT[Buffer^[1]]>=88)AND ( INT[Buffer^[1]]<=90) THEN Buffer^[1]_Buffer^[1]+32;
IF Buffer^[1]=120  THEN  GOTO Label30;
IF(Buffer^[1]=121)OR (Buffer^[1]=122) THEN BEGIN Loc_2;
BEGIN IF  NOT PhaseOne  THEN BEGIN PascalWriteLn[file: @TermOut];
PascalWriteLongString[file: @TermOut, item: "! Where is the matching @x?"];Error[]; END; END; END;EXITS Label22 => NULL}; END ENDLOOP ;
EXITS Label30 => NULL};--:77--DO Line_Line+1;
IF  NOT InputLn[@ChangeFile] THEN BEGIN BEGIN IF  NOT PhaseOne  THEN BEGIN
PascalWriteLn[file: @TermOut];PascalWriteLongString[file: @TermOut, item: "! Change file ended after @x"];Error[];
 END; END; GOTO Label10; END; IF  INT[Limit]>0 THEN EXIT; ENDLOOP;--:78--BEGIN ChangeLimit_Limit;
FOR i:INT    IN [ INT[0 ].. INT[Limit ]] DO  K _ i; ChangeBuffer^[K]_Buffer^[K] ENDLOOP; END--:79--;EXITS Label10 => NULL}; END;--:76
--80:-- CheckChange: PROCEDURE = 
BEGIN  N:PascalInteger;K:PascalInteger[0..BufSize];
 {IF LinesDontMatch [] THEN  GOTO Label10;N_0;
WHILE TRUE DO BEGIN Changing_ NOT Changing;TempLine_OtherLine;
OtherLine_Line;Line_TempLine;Line_Line+1;
IF  NOT InputLn[@ChangeFile] THEN BEGIN BEGIN IF  NOT PhaseOne  THEN BEGIN
PascalWriteLn[file: @TermOut];PascalWriteLongString[file: @TermOut, item: "! Change file ended before @y"];Error[];
 END; END;ChangeLimit_0;Changing_ NOT Changing;TempLine_OtherLine;
OtherLine_Line;Line_TempLine; GOTO Label10; END;--81:
IF  INT[Limit]>1  THEN IF Buffer^[0]=64  THEN BEGIN IF( INT[Buffer^[1]]>=88)AND ( INT[Buffer^[1
]]<=90) THEN Buffer^[1]_Buffer^[1]+32;
IF(Buffer^[1]=120)OR (Buffer^[1]=122) THEN BEGIN Loc_2;
BEGIN IF  NOT PhaseOne  THEN BEGIN PascalWriteLn[file: @TermOut];
PascalWriteLongString[file: @TermOut, item: "! Where is the matching @y?"];Error[]; END; END;
 END  ELSE IF Buffer^[1]=121  THEN BEGIN IF N>0  THEN BEGIN Loc_2;
BEGIN IF  NOT PhaseOne  THEN BEGIN PascalWriteLn[file: @TermOut];
{PascalWriteLongString[file: @TermOut, item: "! Hmm... "]; PascalWriteInteger[file: @TermOut, item: N, fieldMinLength: 1]
; PascalWriteLongString[file: @TermOut, item: " of the preceding lines failed to match"]};Error[]; END; END; END; GOTO Label10; END; END--:81--;--79:--BEGIN ChangeLimit_Limit;
FOR i:INT    IN [ INT[0 ].. INT[Limit ]] DO  K _ i; ChangeBuffer^[K]_Buffer^[K] ENDLOOP; END--:79--;
Changing_ NOT Changing;TempLine_OtherLine;OtherLine_Line;
Line_TempLine;Line_Line+1;
IF  NOT InputLn[@WebFile] THEN BEGIN BEGIN IF  NOT PhaseOne  THEN BEGIN
PascalWriteLn[file: @TermOut];PascalWriteLongString[file: @TermOut, item: "! WEB file ended during a change"];
Error[]; END; END;InputHasEnded_TRUE; GOTO Label10; END;
IF LinesDontMatch [] THEN N_N+1; END ENDLOOP ;EXITS Label10 => NULL}; END;--:80----82:
 ResetInput: PROCEDURE = 
BEGIN OpenInput[];Line_0;OtherLine_0;
Changing_TRUE;PrimeTheChangeBuffer[];Changing_ NOT Changing;
TempLine_OtherLine;OtherLine_Line;Line_TempLine;Limit_0;Loc_1;
Buffer^[0]_32;InputHasEnded_FALSE; END;--:82----83:-- GetLine: PROCEDURE
 = 
BEGIN 
 DO {--Label20:--IF Changing  THEN ChangedModule^[ModuleCount]_TRUE  ELSE--84:
BEGIN Line_Line+1;
IF  NOT InputLn[@WebFile] THEN InputHasEnded_TRUE  ELSE IF 
Limit=ChangeLimit  THEN IF Buffer^[0]=ChangeBuffer^[0] THEN IF  INT[ChangeLimit]>0
 THEN CheckChange[]; END--:84--;IF Changing  THEN BEGIN--85:
BEGIN Line_Line+1;
IF  NOT InputLn[@ChangeFile] THEN BEGIN BEGIN IF  NOT PhaseOne  THEN BEGIN
PascalWriteLn[file: @TermOut];PascalWriteLongString[file: @TermOut, item: "! Change file ended without @z"];
Error[]; END; END;Buffer^[0]_64;Buffer^[1]_122;Limit_2; END;
IF  INT[Limit]>1  THEN IF Buffer^[0]=64  THEN BEGIN IF( INT[Buffer^[1]]>=88)AND ( INT[Buffer^[1
]]<=90) THEN Buffer^[1]_Buffer^[1]+32;
IF(Buffer^[1]=120)OR (Buffer^[1]=121) THEN BEGIN Loc_2;
BEGIN IF  NOT PhaseOne  THEN BEGIN PascalWriteLn[file: @TermOut];
PascalWriteLongString[file: @TermOut, item: "! Where is the matching @z?"];Error[]; END; END;
 END  ELSE IF Buffer^[1]=122  THEN BEGIN PrimeTheChangeBuffer[];
Changing_ NOT Changing;TempLine_OtherLine;OtherLine_Line;
Line_TempLine; END; END; END--:85--;
IF  NOT Changing  THEN BEGIN ChangedModule^[ModuleCount]_TRUE; GOTO Label20;
 END; END;Loc_0;Buffer^[Limit]_32;EXIT; EXITS Label20 => NULL} ENDLOOP; END;--:83----88:

END.