DIRECTORYAMBridge USING [TVToLC],AMTypes USING [IndexToTV, TV],IO USING [PutF],PrintTV USING [RegisterRefPrintProc, RegisterTVPrintProc, RefPrintProc, TVPrintProc],Pup USING [Address, Host, Net, Socket],PupType USING [CardFromSocket];PupDebug: CEDAR PROGRAMIMPORTS AMBridge, AMTypes, IO, PrintTV, PupType = {PrintRefPupAddress: PrintTV.RefPrintProc = {foo: REF READONLY Pup.Address _ NARROW[ref];socket: LONG CARDINAL _ PupType.CardFromSocket[foo.socket];IO.PutF[stream, "%B#%B#%B", [integer[foo.net]], [integer[foo.host]], [cardinal[socket]] ];};PrintTVPupAddress: PrintTV.TVPrintProc = TRUSTED {foo: Pup.Address;socket: LONG CARDINAL;netTV: AMTypes.TV _ AMTypes.IndexToTV[tv, 1];hostTV: AMTypes.TV _ AMTypes.IndexToTV[tv, 2];socketTV: AMTypes.TV _ AMTypes.IndexToTV[tv, 3];socketTVa: AMTypes.TV _ AMTypes.IndexToTV[socketTV, 1];socketTVb: AMTypes.TV _ AMTypes.IndexToTV[socketTV, 2];socketTVc: AMTypes.TV _ AMTypes.IndexToTV[socketTV, 3];socketTVd: AMTypes.TV _ AMTypes.IndexToTV[socketTV, 4];foo.net _ [AMBridge.TVToLC[netTV]];foo.host _ [AMBridge.TVToLC[hostTV]];foo.socket.a _ AMBridge.TVToLC[socketTVa];foo.socket.b _ AMBridge.TVToLC[socketTVb];foo.socket.c _ AMBridge.TVToLC[socketTVc];foo.socket.d _ AMBridge.TVToLC[socketTVd];socket _ PupType.CardFromSocket[foo.socket];IO.PutF[stream, "%B#%B#%B", [cardinal[foo.net]], [cardinal[foo.host]], [cardinal[socket]] ];};PrintTVPupNet: PrintTV.TVPrintProc = TRUSTED {net: Pup.Net;net _ [AMBridge.TVToLC[tv]];IO.PutF[stream, "%B", [cardinal[net]] ];};PrintTVPupHost: PrintTV.TVPrintProc = TRUSTED {host: Pup.Host;host _ [AMBridge.TVToLC[tv]];IO.PutF[stream, "%B", [cardinal[host]] ];};PrintTVPupSocket: PrintTV.TVPrintProc = TRUSTED {socket: Pup.Socket;socketTVa: AMTypes.TV _ AMTypes.IndexToTV[tv, 1];socketTVb: AMTypes.TV _ AMTypes.IndexToTV[tv, 2];socketTVc: AMTypes.TV _ AMTypes.IndexToTV[tv, 3];socketTVd: AMTypes.TV _ AMTypes.IndexToTV[tv, 4];socket.a _ AMBridge.TVToLC[socketTVa];socket.b _ AMBridge.TVToLC[socketTVb];socket.c _ AMBridge.TVToLC[socketTVc];socket.d _ AMBridge.TVToLC[socketTVd];IO.PutF[stream, "%B", [cardinal[PupType.CardFromSocket[socket]]] ];};PrintTV.RegisterRefPrintProc[CODE[Pup.Address], PrintRefPupAddress];PrintTV.RegisterTVPrintProc[CODE[Pup.Address], PrintTVPupAddress];PrintTV.RegisterTVPrintProc[CODE[Pup.Net], PrintTVPupNet];PrintTV.RegisterTVPrintProc[CODE[Pup.Host], PrintTVPupHost];PrintTV.RegisterTVPrintProc[CODE[Pup.Socket], PrintTVPupSocket];}.    PupDebug.mesaCopyright c 1986 by Xerox Corporation.  All rights reserved.Hal Murray, February 5, 1986 5:50:35 am PST[ref: REF READONLY ANY, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE][tv: TV, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE][tv: TV, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE][tv: TV, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE][tv: TV, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE] Ê‹  ˜ codešœ™Kšœ
Ïmœ1™<K™+—K˜ šÏk	˜	Jšœ	žœ
˜Jšœžœžœ˜Jšžœžœ˜KšœžœH˜UKšœžœ˜'Kšœžœ˜K˜ —šœ
žœž˜Kšžœžœ˜3K˜ K˜ •StartOfExpansion‘ -- [ref: REF READONLY ANY, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE]šÏbœ˜,KšÐck™Kšœžœžœžœ˜,Kšœžœžœ&˜;KšžœX˜ZK˜K˜ —–‚ -- [tv: TV, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE]šŸœžœ˜2Kš ~™~Kšœ˜Kšœžœžœ˜Kšœžœ˜-Kšœžœ˜.Kšœžœ˜0Kšœžœ"˜7Kšœžœ"˜7Kšœžœ"˜7Kšœžœ"˜7Kšœ#˜#Kšœ%˜%Kšœ*˜*Kšœ*˜*Kšœ*˜*Kšœ*˜*Kšœ,˜,KšžœZ˜\K˜K˜ —–‚ -- [tv: TV, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE]šŸœžœ˜.Kš ~™~Kšœ˜Kšœ˜Kšžœ&˜(K˜K˜ —K–‚ -- [tv: TV, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE]˜ –‚ -- [tv: TV, data: REF ANY, stream: STREAM, depth: INT _ 4, width: INT _ 32, verbose: BOOL _ FALSE] RETURNS [useOld: BOOL _ FALSE]šŸœžœ˜/Kš ~™~Kšœ˜Kšœ˜Kšžœ'˜)K˜K˜ —šŸœžœ˜1Kš ~™~Kšœ˜Kšœžœ˜1Kšœžœ˜1Kšœžœ˜1Kšœžœ˜1Kšœ&˜&Kšœ&˜&Kšœ&˜&Kšœ&˜&KšžœA˜CK˜K˜ —Kšœžœ#˜DKšœžœ"˜BKšœžœ˜:Kšœžœ˜<Kšœžœ ˜@K˜ —šœ˜K˜ K˜ —— …—    	Ò  e  