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.    ь  PupErrors.mesaCopyright c 1985 by Xerox Corporation.  All rights reserved.BLyon January 16, 1981  2:50 PMRuss Atkinson (RRA) February 4, 1985 12:37:16 pm PSTPktStream/ByteStream SIGNALs live here so they are defined only onceЭ╩  Ш codeЪЬЩKЪЬ
╧mЬ1Щ<KЪЬЩJЩ4ЧKШ Ъ╧k	Ш	KЪЬЮЬЮЬШ!KЪЬ
ЮЬШKЪЬЮЬШ)KЪЬ
ЮЬШKШKЪЬ
ЮЬШ#KЪЬЮЬ9ШIKЪЬ╧c	ШKЪЬ	ЮЬ'Ш5KЪЬЮЬШKШ ЧЪЬЮШKЪЮЬ4Ш;KЪЮЬ.Ш5KЪЮЬШKЪЮЬЮЬШKШ KЪЬ	ЮЬЮЬШ*KШ KЪЬDЩDKЪ	ЬЮЬЮЬ)ЮЬЮЬШQKЪ	ЬЮЬЮЬЮЬЮЬШ:KШ KШ KЪЬЮЬЮЬШ KЪЬЮЬЮЬШ$KШ KЪЬЮЬЮЬЮЬШ&KЪЬЮЬЮЬЮЬШ'KШ Ъ╧nЬЮЬЮ	ЬЮЬШAKЪЮЬ"ЮЬШ+KШ ЧЪаЬЮЬЮ	ЬЮЬШ@KЪЮЬ ЮЬШ)KШ KШ ЧЪаЬЮЬЮ	ЬШ;KЪЮЬ%ЮЬШ.KШ ЧЪаЬЮЬЮ	Ь.ШFKЪЮШKЪЮЬЮЬЮЬ%ШHKЪЮЬШKШ ЧЪаЬЮЬЮ	ЬШ KЪЬ6ЮЬШ=KЪЮЬЮЬЮЬЮЬШEKШ ЧЪаЬЮЬЮ	ЬШ!KЪЬ6ЮЬШ;KЪЮЬЮЬШKЪЮШKЪЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШAKШKШKЪЮЬЮЬ!ЮЬШWЪЮЬЮШKЪЬЮЬ$ЮЬШIKЪЬЮЬ!ЮШ-KЪЮЬ%ЮЬЮЬЮЬШ=ЧKЪЮЬЮЬ
ЮЬЮЬШEKЪЮЬЮЬ'ШIKЪ
ЮЬЮЬЮЬЮЬЮЬШ>KШKШKШKШKШKШ?ЪЮЬЮЬЮШЪЮЬЮШKШ:KШ/KШ4KЪЮЬЮЬШЧЧЪЮЬЮЬЮШKЪЮШKЪЬЮЬШKЪ
ЮЬЮЬЮЬЮЬ!ЮЬШEKЪЬ0Ш0KЪЮШЧKЪЮЬ,Ш0KЪЮЬЮЬ'Ш@KЪЮЬЮЬШKЪЮЬШKШ ЧKЪЮЬШKШ ЧЧ ЕЧ    о  в  