DIRECTORYArpa USING [Address],ArpaBuf USING [Hdr, maxBodyBytes],Basics USING [FWORD, HWORD],CommBuffer USING [Overhead];ArpaICMPBuf: CEDAR DEFINITIONS ~ {HWORD: TYPE ~ Basics.HWORD;FWORD: TYPE ~ Basics.FWORD;maxBytes: CARDINAL ~ ArpaBuf.maxBodyBytes;ICMPType: TYPE ~ MACHINE DEPENDENT {echoReply(0),destUnreachable(3),sourceQuench(4),redirect(5),echo(8),timeExceeded(11),parameterProblem(12),timestamp(13),timestampReply(14),infoRequest(15),infoReply(16),last(0FFH)};ICMPCode: TYPE ~ BYTE;DestUnreachableCode: TYPE ~ MACHINE DEPENDENT {netUnreachable(0),hostUnreachable(1),protocolUnreachable(2),portUnreachable(3),mustFragment(4),sourceRouteFailure(5),last(0FFH)};RedirectCode: TYPE ~ MACHINE DEPENDENT {network(0),host(1),networkAndService(2),hostAndService(3),last(0FFH)};TimeExceededCode: TYPE ~ MACHINE DEPENDENT {timeToLive(0),fragmentReassembly(1),last(0FFH)};Hdr: TYPE ~ MACHINE DEPENDENT RECORD [SELECT OVERLAID * FROMany => [icmpType: ICMPType,icmpCode: ICMPCode,checksum: HWORD],destUnreachable => [destUnreachableType: ICMPType,destUnreachableCode: DestUnreachableCode],redirect => [redirectType: ICMPType,redirectCode: RedirectCode],timeExceeded => [timeExceededType: ICMPType,timeExceededCode: TimeExceededCode],ENDCASE];hdrBytes: CARDINAL ~ BYTES[Hdr];Body: TYPE ~ MACHINE DEPENDENT RECORD [SELECT OVERLAID * FROMbytes => [bytes: PACKED ARRAY [0..maxBodyBytes) OF BYTE],chars => [chars: PACKED ARRAY [0..maxBodyChars) OF CHAR],hWords => [hWords: PACKED ARRAY [0..maxBodyHWords) OF HWORD],fWords => [fWords: PACKED ARRAY [0..maxBodyFWords) OF FWORD],echoReply => [echoReply: EchoRequestOrReplyBody],destUnreachable => [destUnreachable: ReturnedDataBody],sourceQuench => [sourceQuench: ReturnedDataBody],redirect => [redirect: ReturnedDataAndAddressBody],echo => [echo: EchoRequestOrReplyBody],timeExceeded => [timeExceeded: ReturnedDataBody],parameterProblem => [parameterProblem: ReturnedDataAndPointerBody],timestamp => [timestamp: TimesBody],timestampReply => [timestampReply: TimesBody],infoRequest => [infoRequest: InfoRequestOrReplyBody],infoReply => [infoReply: InfoRequestOrReplyBody]ENDCASE];maxBodyBytes: CARDINAL ~ maxBytes - hdrBytes;maxBodyChars: CARDINAL ~ maxBodyBytes;maxBodyHWords: CARDINAL ~ maxBodyBytes/BYTES[HWORD];maxBodyFWords: CARDINAL ~ maxBodyBytes/BYTES[FWORD];EchoRequestOrReplyBody: TYPE ~ MACHINE DEPENDENT RECORD [identifier: HWORD,sequenceNum: HWORD,data: PACKED ARRAY [0..maxEchoDataBytes) OF BYTE];maxEchoDataBytes: CARDINAL ~ maxBytes - hdrBytes - 2*BYTES[HWORD];ReturnedDataBody: TYPE ~ MACHINE DEPENDENT RECORD [unused: FWORD,origHdr: ArpaBuf.Hdr,origBody: PACKED ARRAY [0..8) OF BYTE];ReturnedDataAndAddressBody: TYPE ~ MACHINE DEPENDENT RECORD [address: Arpa.Address,origHdr: ArpaBuf.Hdr,origBody: PACKED ARRAY [0..8) OF BYTE];ReturnedDataAndPointerBody: TYPE ~ MACHINE DEPENDENT RECORD [pointer: BYTE,unused1, unused2, unused3: BYTE,origHdr: ArpaBuf.Hdr,origBody: PACKED ARRAY [0..8) OF BYTE];TimesBody: TYPE ~ MACHINE DEPENDENT RECORD [identifier: HWORD,sequenceNum: HWORD,originateTimestamp: Timestamp,receiveTimestamp: Timestamp,transmitTimestamp: Timestamp];Timestamp: TYPE ~ FWORD; -- milliseconds since midnight UT.InfoRequestOrReplyBody: TYPE ~ MACHINE DEPENDENT RECORD [identifier: HWORD,sequenceNum: HWORD];Packet: TYPE ~ REF PacketObject;PacketObject: TYPE ~ MACHINE DEPENDENT RECORD [hdr: Hdr,body: Body];Buffer: TYPE ~ REF BufferObject;BufferObject: TYPE ~ MACHINE DEPENDENT RECORD [ovh: CommBuffer.Overhead,hdr1: ArpaBuf.Hdr,hdr2: Hdr,body: Body];}.   ¨  ArpaICMPBuf.mesaCopyright c 1986 by Xerox Corporation.  All rights reserved.Demers, August 26, 1987 2:09:27 pm PDTFormat for Arpa ICMP packets.HeaderMust be 0 except for the type-specific codes defined below ...BodyPacketBufferAll buffers start out as Driver.Buffer's.  Clients may SmashType between Driver.Buffer and ArpaBuf.Buffer, so the "right" module gets to do finalization.  This is VERY delicate.Ê™  ˜ codešœ™Kšœ
Ïmœ1™<Kšœ&™&—K™ Kšœ™K™ šÏk	˜	Kšœžœ˜Kšœžœ˜"Kšœžœžœžœ˜Kšœžœ˜—K˜ šÑblnœžœžœ˜"K˜ Kšžœžœ
žœ˜Kšžœžœ
žœ˜K˜ Kšœ
žœ˜*K˜ head™šœ
žœžœž	œ˜$J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜J˜
J˜J˜ —šœ
žœžœ˜J™>—J˜ šœžœžœž	œ˜/J˜J˜J˜J˜J˜J˜J˜
J˜J˜ —šœžœžœž	œ˜(J˜J˜J˜J˜J˜
J˜J˜ —šœžœžœž	œ˜,J˜J˜J˜
J˜J˜ —š	œžœžœž	œžœ˜&šžœžœž˜Kšœ:žœ˜AKšœ]˜]KšœA˜AKšœQ˜QKšž˜—Kšœ˜—K˜ Kšœ
žœžœ˜ —K˜ ™š	œžœžœž	œžœ˜'šžœžœž˜Kš	œžœžœžœžœ˜9Kš	œžœžœžœžœ˜9Kš	œžœžœžœžœ˜=Kš	œžœžœžœžœ˜=K˜ Kšœ1˜1Kšœ7˜7Kšœ1˜1Kšœ3˜3Kšœ'˜'Kšœ1˜1KšœC˜CKšœ$˜$Kšœ.˜.K˜5K˜0Kšž˜—Kšœ˜—K˜ Kšœžœ˜-Kšœžœ˜&Kšœžœžœžœ˜4Kšœžœžœžœ˜4K˜ K˜ š	œžœžœž	œžœ˜9Kšœžœ˜Jšœžœ˜Kšœžœžœžœž˜0Kšœ˜K˜ —šœžœžœžœ˜BK˜ —š	œžœžœž	œžœ˜3Kšœžœ˜Kšœ˜Kšœ
žœžœžœž˜%Kšœ˜—K˜ š	œžœžœž	œžœ˜=Kšœ˜Kšœ˜Kšœ
žœžœžœž˜%Kšœ˜K˜ —š	œžœžœž	œžœ˜=Kšœ	žœ˜Kšœžœ˜ Kšœ˜Kšœ
žœžœžœž˜%Kšœ˜K˜ —š	œžœžœž	œžœ˜,Kšœžœ˜Kšœžœ˜K˜K˜K˜K˜K˜ —šœžœžœÏc"˜;K˜ —š	œžœžœž	œžœ˜9Kšœžœ˜Kšœž˜K˜——™Kšœžœžœ˜ š	œžœžœž	œžœ˜/Kšœ	˜	Kšœ˜—K˜ —™K™±K™ Kšœžœžœ˜ š	œžœžœž	œžœ˜/Kšœ˜K˜K˜
K˜—K™ —Kšœ˜—J˜ J˜ J˜ J˜ J˜ J˜ — …—    Z  ›  