DIRECTORYAlloc: TYPE USING [Bounds],BcdComData: TYPE USING [currentName, errors, errorStream, nErrors, nWarnings, sourceStream,table, textIndex, warnings],BcdControlDefs: TYPE USING [nullSourceIndex],BcdDefs: TYPE USING [FTIndex, FTNull, fttype, MTIndex, MTNull,mttype, NameRecord, NameString, NullName, sstype, sttype, VersionStamp],BcdErrorDefs: TYPE USING [ErrorClass, InterfaceId, ExportItemName, ImportItemName],ConvertUnsafe: TYPE USING [SubString],HashOps: TYPE USING [SubStringForHash],IO: TYPE USING [card, EndOf, GetChar, Put, PutChar, PutF, PutRope, SetIndex, string],Rope: TYPE USING [ROPE],Symbols: TYPE USING [HTIndex, htNull, STIndex, stNull],Table: TYPE USING [Base];BindErrors: PROGRAMIMPORTSAlloc, BcdErrorDefs, HashOps, IO,data: BcdComDataEXPORTS BcdErrorDefs SHARES BcdErrorDefs = {OPEN Symbols, BcdDefs, BcdErrorDefs, IO;SubString: TYPE~ConvertUnsafe.SubString;GetModule: PUBLIC SIGNAL RETURNS [errorMti: MTIndex, linkOffset: CARDINAL] ~ CODE;GetSti: PUBLIC SIGNAL RETURNS [errorSti: STIndex] ~ CODE;StreamIndex: TYPE~INT; -- FileStream.FileByteIndexPrintTextLine: PROC [origin: StreamIndex] ~ {start, lineIndex: StreamIndex _ origin;char: CHAR;THROUGH [1..100] UNTIL lineIndex=0 DOlineIndex _ lineIndex-1;IO.SetIndex[data.sourceStream, lineIndex];IF (data.sourceStream).GetChar[] = '\n THEN EXIT;start _ lineIndex;ENDLOOP;IO.SetIndex[data.sourceStream, start];THROUGH [1..100] UNTIL IO.EndOf[data.sourceStream] DOchar _ (data.sourceStream).GetChar[];SELECT char FROM'\n, '\032 => EXIT;ENDCASE => PutChar[data.errorStream, char];ENDLOOP;PutChar[data.errorStream, '\n];  RETURN};WriteChar: PROC [char: CHAR] ~ INLINE {PutChar[data.errorStream, char]};WriteRope: PROC [s: Rope.ROPE] ~ {PutRope[data.errorStream, s]};WriteString: PROC [s: STRING] ~ {Put[data.errorStream, IO.string[s]]};Space: PROC ~ INLINE {PutChar[data.errorStream, ' ]};ErrorLog: PROC [class: ErrorClass] ~ {IF data.textIndex # BcdControlDefs.nullSourceIndex THEN {WriteRope[", at "];WriteName[data.currentName];data.errorStream.PutF["[%d]\n", IO.card[data.textIndex]];PrintTextLine[data.textIndex]};SELECT class FROM$error =>   {data.errors _ TRUE; data.nErrors _ data.nErrors+1};$warning => {data.warnings _ TRUE; data.nWarnings _ data.nWarnings+1};ENDCASE};Prefix: PROC [class: ErrorClass] ~ {WriteChar['\n];IF class = $warning THEN WriteRope["Warning: "]};WriteNameBase: PROC [name: NameRecord, s: BcdDefs.NameString] ~ {offset: CARDINAL~name;length: CARDINAL~s.size[name];IF offset+length > s.string.length THEN RETURN;FOR i: CARDINAL IN [offset..offset+MIN[length,100]) DO WriteChar[s.string.text[i]] ENDLOOP};WriteName: PROC [name: NameRecord] ~ {WriteNameBase[name, LOOPHOLE[(data.table).Bounds[sstype].base]]};WriteVersion: PROC [v: VersionStamp, paren: BOOL_FALSE] ~ {IF paren THEN WriteRope["(version "];IF v.time = 0 THEN WriteRope["<null version>"]ELSE {StampWords: CARDINAL~VersionStamp.SIZE;str: PACKED ARRAY [0..4*StampWords) OF [0..16) ~ LOOPHOLE[v];digit: STRING~"0123456789abcdef"L;WriteChar['"];FOR i: NAT IN [0..4*StampWords) DO WriteChar[digit[str[i]]] ENDLOOP;WriteChar['"]};IF paren THEN WriteChar[')]};WriteHti: PROC [hti: HTIndex] ~ {IF hti # htNull THEN {ss: SubString;ss _ HashOps.SubStringForHash[hti];FOR i: CARDINAL IN [ss.offset..ss.offset+ss.length) DO WriteChar[ss.base[i]] ENDLOOP}};HtiForSti: PROC [sti: STIndex] RETURNS [HTIndex] ~ {RETURN [IF sti = stNull THEN htNull ELSE (data.table).Bounds[sttype].base[sti].hti]};ModuleName: PROC [mti: MTIndex] RETURNS [NameRecord] ~ {RETURN [IF mti = MTNull THEN NullName ELSE (data.table).Bounds[mttype].base[mti].name]};Error: PUBLIC PROC [class: ErrorClass, s: STRING] ~ {Prefix[class];  WriteString[s];ErrorLog[class]};ErrorSti: PUBLIC PROC [class: ErrorClass, s: STRING, sti: STIndex] ~ {Prefix[class];  WriteHti[HtiForSti[sti]]; Space[]; WriteString[s];ErrorLog[class]};ErrorHti: PUBLIC PROC [class: ErrorClass, s: STRING, hti: HTIndex] ~ {sti: STIndex~(SIGNAL GetSti[]);Prefix[class];  WriteHti[hti]; Space[]; WriteString[s];IF sti # stNull THEN {WriteRope[" (in "]; WriteHti[HtiForSti[sti]]; WriteChar[')]};ErrorLog[class]};ErrorName: PUBLIC PROC [class: ErrorClass, s: STRING, name: NameRecord] ~ {Prefix[class];WriteName[name]; Space[]; WriteString[s];ErrorLog[class]};ErrorItem: PUBLIC PROC [class: ErrorClass, s: STRING, export: InterfaceId, ep: CARDINAL] ~ {sti: STIndex~(SIGNAL GetSti[]);printed: BOOL_FALSE;ftb: Table.Base~(data.table).Bounds[fttype].base;PrintItem: PROC [s: SubString] ~ {FOR i: CARDINAL IN [s.offset .. s.offset+s.length) DO WriteChar[s.base[i]] ENDLOOP;printed _ TRUE};Prefix[class];BcdErrorDefs.ExportItemName[export~export, ep~ep, userProc~PrintItem];IF ~printed THEN data.errorStream.PutF["(item %d)", IO.card[ep]];WriteRope[" in interface "];IF export.name # NullName THEN WriteName[export.name]ELSE IF export.fti # FTNull THEN {WriteRope["from file "]; WriteName[ftb[export.fti].name]}ELSE WriteRope["(unknown)"];Space[]; WriteString[s];IF sti # stNull THEN {WriteRope[" (in "]; WriteHti[HtiForSti[sti]]; WriteChar[')]};ErrorLog[class]};ErrorModule: PUBLIC PROC [class: ErrorClass, s: STRING, mti: MTIndex] ~ {sti: STIndex~(SIGNAL GetSti[]);Prefix[class];  WriteName[ModuleName[mti]]; Space[]; WriteString[s];IF sti # stNull THEN {WriteRope[" (in "]; WriteHti[HtiForSti[sti]]; WriteChar[')]};ErrorLog[class]};ErrorInterface: PUBLIC PROC [class: ErrorClass, s: STRING, import: InterfaceId, ep: CARDINAL] ~ {mti: MTIndex;linkOffset: CARDINAL;printed: BOOL_FALSE;ftb: Table.Base~(data.table).Bounds[fttype].base;PrintItem: PROC [s: SubString] ~ {FOR i: CARDINAL IN [s.offset .. s.offset+s.length) DO WriteChar[s.base[i]] ENDLOOP;printed _ TRUE};[mti, linkOffset] _ SIGNAL GetModule[];Prefix[class];IF mti # MTNull THENBcdErrorDefs.ImportItemName[import~import, ep~ep,clientMti~mti, linkOffset~linkOffset, userProc~PrintItem];IF ~printed THEN data.errorStream.PutF["(item %d)", IO.card[ep]];WriteRope[" from "];IF import.name # NullName THEN WriteName[import.name]ELSE IF import.fti # FTNull THEN {WriteRope[" file "];  WriteName[ftb[import.fti].name]}ELSE WriteRope["(unknown)"];Space[]; WriteString[s];IF mti # MTNull THEN { WriteRope[" (imported by "]; WriteName[ModuleName[mti]]; WriteChar[')]};ErrorLog[class]};ErrorNameBase: PUBLIC PROC [class: ErrorClass, s: STRING, name: NameRecord, base: BcdDefs.NameString] ~ {Prefix[class];  WriteNameBase[name, base]; Space[]; WriteString[s];ErrorLog[class]};Error2Versions: PUBLIC PROC [class: ErrorClass, fileName: NameRecord, v1, v2: VersionStamp] ~ {ftb: Table.Base~(data.table).Bounds[fttype].base;Prefix[class];WriteName[fileName];WriteRope[" is referenced in two versions: "];WriteVersion[v1];  WriteRope[" and "];  WriteVersion[v2];ErrorLog[class]};ErrorFile: PUBLIC PROC [class: ErrorClass, s: STRING, fti: FTIndex] ~ {ftb: Table.Base~(data.table).Bounds[fttype].base;Prefix[class];  WriteName[ftb[fti].name]; Space[]; WriteString[s];ErrorLog[class]};Error2Files: PUBLIC PROC [class: ErrorClass, s: STRING, ft1, ft2: FTIndex] ~ {ftb: Table.Base~(data.table).Bounds[fttype].base;Prefix[class];WriteName[ftb[ft1].name]; WriteVersion[ftb[ft1].version, TRUE];Space[]; WriteString[s]; Space[];WriteName[ftb[ft2].name]; WriteVersion[ftb[ft2].version, TRUE];ErrorLog[class]};}.     BindErrors.mesaLast edited by Satterthwaite on December 22, 1982 12:22 pmLast edited by Lewis on 23-Jan-81 10:41:54Last Edited by: Maxwell, August 4, 1983 11:25 amPutNumber[data.errorStream, data.textIndex,[base~10, columns~1, unsigned~TRUE, zerofill~FALSE]]; Э╩  Ш JЪЬЩJЪЬ:Щ:JЪЬ*Щ*JЩ0JШ Ъ╧k	Ш	JЪЬЭЬЭЬ
ШЪЬЭЬЭЬШJШCJШЧJЪЬЭЬЭЬШ-ЪЬ	ЭЬЭЬШJШ)JЪЬHШHЧЪЬЭЬЭЬШJШ9ЧJЪЬЭЬЭЬШ&JЪЬ	ЭЬЭЬШ'JЪЭЬЭЬЭЬGШUJЪЬЭЬЭЬЭЬШJЪЬ	ЭЬЭЬ$Ш7JЪЬЭЬЭЬШJШ ЧЪЬЭШЪЭШJЪЬЭЬШ!JШЧJЪЭЬЭЬШ,JЪЭЬ!ЭЬШ(JШ JЪЬЭЬШ(JШ JЪЬЭЬЭЬЭЬ!ЭЬЭЬШRJЪ	ЬЭЬЭЬЭЬЭЬШ9JШ JЪЬЭЬЭЬ╧cШ2JШ Ъ╧nЬЭЬШ-JШ'JЪЬЭЬШЪЭЬ
ЭЬЭШ%JШJЪЭЬ(Ш*JЪЭЬ%ЭЬЭЬШ1JШJЪЭЬШЧJЪЭЬ$Ш&ЪЭЬ
ЭЬЭЬЭШ5JШ%ЪЭЬЭШJЪЬЭЬШJЪЭЬ$Ш+ЧJЪЭЬШЧJЪЬ!ЭЬШ)JШ ЧJЪЯ	ЬЭЬЭЬЭЬ#ШHJЪЯ	ЬЭЬ
ЭЬ#Ш@JЪЯЬЭЬЭЬЭЬШFJЪЯЬЭЬЭЬ!Ш5JШ ЪЯЬЭЬШ&ЪЭЬ1ЭЬШ9JШJШJЪЬ ЭЬШ9Щ+JЪЬЭЬЭЬЩ5ЧJШЧЪЭЬЭШJЪЬЭЬ!Ш@JЪЬЭЬ%ШFJЪЭЬШ	JШ ЧЧЪЯЬЭЬШ$JШJЪЭЬЭЬШ1JШ ЧЪЯЬЭЬ.ШAJЪЬЭЬШJЪЬЭЬШJЪЭЬ!ЭЬЭЬШ/JЪЭЬЭЬЭЬЭЬЭЬЭЬШ\JШ ЧЪЯ	ЬЭЬШ&JЪЬЭЬ%ШAJШ ЧЪЯЬЭЬЭЬЭЬШ;JЪЭЬЭЬШ%JЪЭЬЭЬШ.ЪЭЬШJЪЬЭЬЭЬШ'JЪ	ЬЭЬЭЬЭЬЭЬШ=JЪЬЭЬШ"JШJЪ
ЭЬЭЬЭЬЭЬЭЬШDJШЧJЪЭЬЭЬШJШ ЧЪЯЬЭЬШ!ЪЭЬЭЬШJШJШ#JЪ
ЭЬЭЬЭЬ"ЭЬЭЬШWJШ ЧЧЪЯ	ЬЭЬЭЬШ4JЪЭЬЭЬЭЬЭЬ-ШUJШ ЧЪЯ
ЬЭЬЭЬШ8JЪЭЬЭЬЭЬ
ЭЬ.ШXJШ JШ ЧЪЯЬЭЬЭЬЭЬШ5JШJШJШ ЧЪЯЬЭЬЭЬЭЬШFJШBJШJШ ЧЪЯЬЭЬЭЬЭЬШFJЪЬЭЬШJШ7JЪЭЬЭЬ?ШSJШJШ ЧЪЯ	ЬЭЬЭЬЭЬШKJШJШ)JШJШ ЧЪ
Я	ЬЭЬЭЬЭЬЭЬШ\JЪЬЭЬШJЪЬ	ЭЬЭЬШJШ1JШ ЪЯ	ЬЭЬШ"JЪ
ЭЬЭЬЭЬ!ЭЬЭЬШSJЪЬ
ЭЬШJШ ЧJШJШFJЪЭЬ
ЭЬ$ЭЬШAJШJЪЭЬЭЬШ5JЪЭЬЭЬЭЬ;Ш[JЪЭЬШJШJЪЭЬЭЬ?ШSJШJШ ЧЪЯЬЭЬЭЬЭЬШIJЪЬЭЬШJШDJЪЭЬЭЬ?ШSJШJШ ЧЪЯЬЭЬЭЬШJЪЬЭЬЭЬШDJШJЪЬЭЬШJЪЬ	ЭЬЭЬШJШ1JШ ЪЯ	ЬЭЬШ"JЪ
ЭЬЭЬЭЬ!ЭЬЭЬШSJЪЬ
ЭЬШJШ ЧJЪЬЭЬШ'JШЪЭЬЭШШJШJШ&JШЧЧJЪЭЬ
ЭЬ$ЭЬШAJШJЪЭЬЭЬШ5ЪЭЬЭЬЭЬШ"JШ6ЧJЪЭЬШJШЪЭЬЭЬШJШHЧJШJШ ЧЪЯЬЭЬЭЬШJЪЬЭЬ1ШMJШCJШJШ ЧЪЯЬЭЬЭЬШJШBJШ1JШJШJШ.JШ9JШJШ ЧЪЯ	ЬЭЬЭЬЭЬШGJШ1JШBJШJШ ЧЪЯЬЭЬЭЬЭЬШNJШ1JШJЪЬ9ЭЬШ?JШ!JЪЬ9ЭЬШ?JШJШ ЧJШJШ ЧЧ ЕЧ      &   