Copyright (C) 1983 by Xerox Corporation. All rights reserved. The following program was created in 1983 but has not been published within the meaning of the copyright law, is furnished under license, and may not be used, copied and/or disclosed except in accordance with the terms of said license.
TCPWatcher.mesa
Last Edited by: HGM, March 22, 1984 9:04:57 pm PST
John Larson, April 14, 1986 11:35:22 pm PST
DIRECTORY
IO USING [STREAM],
TypeScript USING [ChangeLooks],
ViewerIO USING [CreateViewerStreams, GetViewerFromStream],
TCPLogging USING [logFile];
TCPWatcher:
CEDAR
PROGRAM
IMPORTS TypeScript, ViewerIO, TCPLogging =
BEGIN
in, out: IO.STREAM;
[in: in, out: out] ← ViewerIO.CreateViewerStreams[
name: "TCP.log", viewer: NIL, backingFile: "TCP.log", editedStream: FALSE];
TypeScript.ChangeLooks[ViewerIO.GetViewerFromStream[out], 'f];
TCPLogging.logFile ← out;
END.