<> <> <> <> 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.