DIRECTORY PupTypes, PupDefs, PupStream, IO, Rope, Stream, PDUser; PDChatServerStub: CEDAR PROGRAM IMPORTS PupDefs, PupStream, Stream, PDUser = BEGIN NewConnection: PROCEDURE [stream: IO.STREAM, pupAddress: PupDefs.PupAddress] = TRUSTED { otherGuy: Rope.ROPE _ PupDefs.GetHostName[pupAddress]; s: Stream.Handle _ Stream.FromIOStreams[stream, stream]; PDUser.TalkWithUser[s ! PupStream.StreamClosing => CONTINUE]; Stream.Delete[s]; }; pupListener: PupStream.PupListener _ PupStream.CreatePupByteStreamListener[ local: PupTypes.telnetSoc, proc: NewConnection, ticks: PupStream.SecondsToTocks[300] ]; END. ŒPDChatServerStub.mesa Copyright (C) 1984, Xerox Corporation. All rights reserved. Michael Plass, September 11, 1984 3:54:15 pm PDT ÊÍ˜J™J™<™0J™—šÏk œœ˜AJ˜—šœ ˜Jšœ#˜*šœ˜J˜—š Ïn œ œ œœ$œ˜XJšœœ#˜6Jšœ8˜8Jšœ3œ˜=Jšœ˜Jšœ˜J˜—šœK˜KJšœ˜Jšœ˜Jšœ$˜$J˜J˜—Jšœ˜——…—`¹