DIRECTORYGermSwap USING [switches],PupDefs USING [PupAddress, PupBuffer, PupRouterSendThis, PupSocket, PupSocketDestroy, PupSocketKick, PupSocketMake, ReturnFreePupBuffer, ReturnPup, SwapPupSourceAndDest, veryLongWait],PupTypes USING [echoSoc, fillInPupAddress],PupEchoServer USING [echoStatsReply, echoStatsRequest, EchoStatsEntry, echoVersion],PupWireFormat USING [MesaToBcplLongNumber];PupEchoServerImpl: CEDAR MONITORIMPORTSGermSwap, PupDefs, PupWireFormatEXPORTS PupEchoServer =BEGINpupsEchoed: INT _ 0;pleaseStopServer: BOOLEAN _ FALSE;server: PROCESS _ NIL;serverSoc: PupDefs.PupSocket _ NIL;Start: PUBLIC ENTRY PROC = {IF server # NIL THEN RETURN;pleaseStopServer _ FALSE;server _ FORK Server[]; };Stop: PUBLIC ENTRY PROC = TRUSTED {IF server = NIL THEN RETURN;pleaseStopServer _ TRUE;IF server # NIL THEN {PupDefs.PupSocketKick[serverSoc]; JOIN server; };server _ NIL; };Server: PROC = TRUSTED {serverSoc _ PupDefs.PupSocketMake[PupTypes.echoSoc, PupTypes.fillInPupAddress, PupDefs.veryLongWait];UNTIL pleaseStopServer DOb: PupDefs.PupBuffer _ serverSoc.get[];IF b # NIL THEN {SELECT b.pupType FROMechoMe => {b.pupType _ iAmEcho;PupDefs.SwapPupSourceAndDest[b];PupDefs.PupRouterSendThis[b];pupsEchoed _ pupsEchoed.SUCC; };PupEchoServer.echoStatsRequest => {EchoStatsEntry: TYPE = PupEchoServer.EchoStatsEntry;ese: LONG POINTER TO EchoStatsEntry _ LOOPHOLE[@b.pupWords];ese^ _ [version: PupEchoServer.echoVersion,pupsEchoed: PupWireFormat.MesaToBcplLongNumber[pupsEchoed]];PupDefs.ReturnPup[b, PupEchoServer.echoStatsReply, 2*SIZE[EchoStatsEntry]]; };ENDCASE => PupDefs.ReturnFreePupBuffer[b]; };ENDLOOP;PupDefs.PupSocketDestroy[serverSoc];serverSoc _ NIL; };IF ~GermSwap.switches[c] THEN Start[];END.    Z  PupEchoServerImpl.mesaHal Murray June 3, 1985 8:44:31 pm PDTServer data (global) Э╩`  Ш ЪЬЩIcodeЩ&ЧJШ Ъ╧k	Ш	JЪЬ	ЭЬШJЪЬЭЬлШ╕JЪЬ	ЭЬШ+JЪЬЭЬAШTЪЬЭЬШ+JШ ЧЧЪЬЭЬЭШ ЪЭШJЪЬ Ш ЧJЪЭЬШJЪЭШJШ ЩJЪЬЭЬШJЪЬЭЬЭЬШ"JЪЬЭЬЭЬШJЪЬЭЬШ#ЧJШ Ъ╧nЬЭЬШJЪЭЬ
ЭЬЭЬЭЬШJЪЬЭЬШJЪЬ	ЭЬШJШ ЧЪЮЬЭЬЭ	Ш#JЪЭЬ
ЭЬЭЬЭЬШJЪЬЭЬШJЪЭЬ
ЭЬЭЬ$ЭЬШGJЪЬ	ЭЬШJШ ЧЪЮЬЭЬЭ	ШЪЬ"Ш"JЪЬCШCЧЪЭЬЭШJЪЬ'Ш'ЪЭЬЭЬЭШЪЭЬЭШШJШJШ JШJЪЬЭЬШ ЧШ#JЪЬЭЬ Ш4JЪ	ЬЭЬЭЬЭЬЭЬШ<ШJЪЬ#Ш#JШ<ЧШJЪЬ#ЭЬШ<ЧЧJЪЭЬ&Ш-ЧЧJЪЭЬШЧJЪЬ$Ш$JЪЬЭЬШЧJШ ЪЭЬЭЬ	Ш&JШ ЧJЪЭЬШJШ JШ JШ ЧЧ ЕЧ    ь  	ж  