DIRECTORY IO USING [STREAM], Rope USING [ROPE], ViewerClasses USING [Viewer], WalnutDefs USING [Segment]; WalnutOpsInternal: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; STREAM: TYPE = IO.STREAM; mailStream: STREAM; newMailSomewhere: BOOL; errorInProgress: BOOL; recentActivity: BOOL; started: BOOL; isShutdown: BOOL; systemIsReadOnly: BOOL; walnutSegment: WalnutDefs.Segment; rootFileName: ROPE; statsStream, statsProgressStream: STREAM; statsProgressTS: ViewerClasses.Viewer; CarefullyApply: PROC[proc: PROC[], didUpdate: BOOL]; -- for extended operations (get log write lock); if BOOL is TRUE, op is "inProgress" LongRunningApply: PROC[proc: PROC[inProgress: BOOL]]; StartStatsReporting: PROC; StatsReport: PROC[msg: ROPE]; Restart: PROC; -- used for newMail, readArchive, and scavenge ParseLog: PROC[verbose: BOOL_ FALSE] RETURNS[numNew: INT]; CheckInProgress: PROC; CheckReport: PROC[msg1, msg2, msg3: ROPE_ NIL]; DoLogExpunge: PROC[expungeID: INT]; END. WalnutOpsInternal.mesa Willie-Sue, June 17, 1986 11:31:48 am PDT Communication between WalnutOpsImpl and WalnutOpsImpl2 Copyright c 1984 by Xerox Corporation. All rights reserved. Last Edited by: Willie-sue, January 10, 1985 12:44:02 pm PST Procedures Κ%˜šΟb™J™)—J™Jšœ7™7Jšœ Οmœ1™