DIRECTORYRope USING [Fetch, Length, ROPE],StatsDefs USING [StatIncr],PupRouterDefs USING [SneakySendUnlocked],PupStream USING [CloseReason],PupDefs,CommFlags USING [doStats, doDebug],DriverDefs USING [Glitch, Network, PutOnGlobalDoneQueue, GetDeviceChain],BufferDefs, -- SHARESPupTypes USING [allHosts, PupErrorCode, PupSocketID],DriverTypes USING [bufferSeal];PupErrors: PROGRAMIMPORTS StatsDefs, PupRouterDefs, DriverDefs, PupDefs, RopeEXPORTS BufferDefs, PupRouterDefs, PupStream, PupDefsSHARES BufferDefs =BEGIN OPEN DriverDefs, PupDefs;Network: PUBLIC TYPE = DriverDefs.Network;StreamClosing: PUBLIC ERROR [why: PupStream.CloseReason, text: Rope.ROPE] = CODE;RejectThisRequest: PUBLIC ERROR [error: Rope.ROPE] = CODE;suppressErrors: BOOLEAN _ FALSE;suppressBufferFull: BOOLEAN _ FALSE;BufferSealBroken: PUBLIC ERROR = CODE;BufferDidntArrive: PUBLIC ERROR = CODE;SetErrorSuppression: PUBLIC PROCEDURE [dontSendErrors: BOOLEAN] =BEGIN suppressErrors _ dontSendErrors; END;SetBufferFullSuppression: PUBLIC PROCEDURE [dontSend: BOOLEAN] =BEGIN suppressBufferFull _ dontSend; END;RejectPupWithBadChecksum: PUBLIC PROCEDURE [b: PupBuffer] =BEGIN Reject[b, badChecksumPupErrorCode]; END;Reject: PUBLIC PROCEDURE [b: PupBuffer, code: PupTypes.PupErrorCode] =BEGINIF BuildErrorPup[b, code, NIL] THEN PupRouterDefs.SneakySendUnlocked[b];END;SendErrorPup: PUBLIC PROCEDURE [b: PupBuffer, code: PupTypes.PupErrorCode, text: Rope.ROPE] =BEGIN IF BuildErrorPup[b, code, text] THEN PupRouterSendThis[b]; END;BuildErrorPup: PUBLIC PROCEDURE [b: PupBuffer, code: PupTypes.PupErrorCode, text: Rope.ROPE]RETURNS [ok: BOOLEAN] =BEGINp: LONG POINTER TO ARRAY [0..9] OF WORD = LOOPHOLE[@b.pupLength];temp: PupTypes.PupSocketID;network: Network _ b.network;IF CommFlags.doDebug AND b.seal # DriverTypes.bufferSeal THEN Glitch[BufferSealBroken];IF suppressErrors OR(suppressBufferFull AND code = resourceLimitsPupErrorCode) OR b.pupType =error OR b.dest.host = PupTypes.allHosts THENBEGIN DriverDefs.PutOnGlobalDoneQueue[b]; RETURN[FALSE]; END;IF CommFlags.doDebug AND network= NIL THEN Glitch[BufferDidntArrive];IF network.netNumber.b > 377B THEN network _ DriverDefs.GetDeviceChain[];FOR i: CARDINAL IN [0..9] DO b.errorHeader[i] _ p[i]; ENDLOOP;b.pupType _ error;b.errorCode _ code;b.errorOptions _ 0;temp _ b.dest.socket;b.dest _ b.source;b.source _ [[network.netNumber.b], [network.hostNumber], temp];IF text = NIL THENSELECT code FROMbadChecksumPupErrorCode => text _ "Bad Software Checksum";noProcessPupErrorCode => text _ "No such Port";resourceLimitsPupErrorCode => text _ "Buffers full";ENDCASE => NULL;IF text # NIL THENBEGINlength: INT = text.Length[];FOR i: INT IN [0..length) DO b.errorText[i] _ text.Fetch[i]; ENDLOOP;SetPupContentsBytes[b, 2*(10 + 1 + 1) + length];ENDELSE SetPupContentsBytes[b, 2*(10 + 1 + 1) + 0];IF CommFlags.doStats THEN StatsDefs.StatIncr[statErrorPupsSent];RETURN[TRUE];END;END.   О  File: PupErrors.mesa,  Last Edit: BLyon January 16, 1981  2:50 PMPktStream/ByteStream SIGNALs live here so they are defined only once Э╩Ё  Ш JЪЬAЩAJШ Ъ╧k	Ш	JЪЬЭЬЭЬШ!JЪЬ
ЭЬШJЪЬЭЬШ)JЪЬ
ЭЬШJШJЪЬ
ЭЬШ#ЪЬЭЬШJШ7ЧJЪЬ╧c	ШJЪЬ	ЭЬ'Ш5JЪЬЭЬШJШ ЧЪЬЭШJЪЭЬ4Ш;JЪЭЬ.Ш5JЪЭЬШJЪЭЬЭЬШJШ JЪЬ	ЭЬЭЬШ*JШ JЪЬDЩDJЪ	ЬЭЬЭЬ)ЭЬЭЬШQJЪ	ЬЭЬЭЬЭЬЭЬШ:JШ JШ JЪЬЭЬЭЬШ JЪЬЭЬЭЬШ$JШ JЪЬЭЬЭЬЭЬШ&JЪЬЭЬЭЬЭЬШ'JШ Ъ╧nЬЭЬЭ	ЬЭЬШAJЪЭЬ"ЭЬШ+JШ ЧЪЯЬЭЬЭ	ЬЭЬШ@JЪЭЬ ЭЬШ)JШ JШ ЧЪЯЬЭЬЭ	ЬШ;JЪЭЬ%ЭЬШ.JШ ЧЪЯЬЭЬЭ	Ь.ШFJЪЭШJЪЭЬЭЬЭЬ%ШHJЪЭЬШJШ ЧЪЯЬЭЬЭ	ЬШ JЪЬ6ЭЬШ=JЪЭЬЭЬЭЬЭЬШEJШ ЧЪЯЬЭЬЭ	ЬШ!JЪЬ6ЭЬШ;JЪЭЬЭЬШJЪЭШJЪЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬШAJШJШJЪЭЬЭЬ!ЭЬШWЪЭЬЭШJЪЬЭЬ$ЭЬШIJЪЬЭЬ!ЭШ-JЪЭЬ%ЭЬЭЬЭЬШ=ЧJЪЭЬЭЬ
ЭЬЭЬШEJЪЭЬЭЬ'ШIJЪ
ЭЬЭЬЭЬЭЬЭЬШ>JШJШJШJШJШJШ?ЪЭЬЭЬЭШЪЭЬЭШJШ:JШ/JШ4JЪЭЬЭЬШЧЧЪЭЬЭЬЭШJЪЭШJЪЬЭЬШJЪ
ЭЬЭЬЭЬЭЬ!ЭЬШEJЪЬ0Ш0JЪЭШЧJЪЭЬ,Ш0JЪЭЬЭЬ'Ш@JЪЭЬЭЬШJЪЭЬШJШ ЧJЪЭЬШJШ ЧЧ ЕЧ    о  ,  