DIRECTORY PupName, PupStream, PupWKS, IO, Rope, Stream, PDUser; PDChatServerStub: CEDAR PROGRAM IMPORTS PupName, PupStream, Stream, PDUser = BEGIN NewConnection: PupStream.ListenerProc = TRUSTED { otherGuy: Rope.ROPE _ PupName.AddressToRope[remote]; s: Stream.Handle _ Stream.FromIOStreams[stream, stream]; PDUser.TalkWithUser[s ! PupStream.StreamClosing => CONTINUE]; Stream.Delete[s]; }; pupListener: PupStream.Listener _ PupStream.CreateListener[ local: PupWKS.telnet, worker: NewConnection, getTimeout: 60000, putTimeout: 60000 ]; END. ΒPDChatServerStub.mesa Copyright (C) 1984, Xerox Corporation. All rights reserved. Michael Plass, September 11, 1984 3:54:15 pm PDT Last Edited by: Gasbarro June 23, 1986 12:12:36 pm PDT ΚΠ˜J™J™<™0Icode™6J™—šΟk œœ˜?J˜—šœ ˜Jšœ#˜*šœ˜J˜—šΟn œœ˜1Jšœœ!˜4Jšœ8˜8Jšœ3œ˜=Jšœ˜Jšœ˜J˜—šœ;˜;Jšœ˜Kšœ˜Kšœ˜Kšœ˜J˜J˜—Jšœ˜——…—"΄