-- WalnutExtras.Mesa

-- Last Edited by: Willie-Sue, September 26, 1983 11:46 am

DIRECTORY
 Menus USING [Menu],
 Rope USING [ROPE],
 ViewerClasses USING [Viewer];

WalnutExtras: CEDAR DEFINITIONS =

BEGIN

ROPE: TYPE = Rope.ROPE;
InitialNotifyLabel: PUBLIC ROPE;

-- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
DoWaitCall: PROC[proc: PROC[REF ANY], ra: REF ANY← NIL];

NotifyIfAppropriate: PROC[ra: REF ANY];
-- if ra is a WalnutQueueEntry THEN does a NOTIFY on its condition variable

ExpungeProc: PROC[ra: REF ANY];

DumpProc: PROC[ra: REF ANY];

RetrieveNewMailProc: PROC[ra: REF ANY];

ScavengeProc: PROC[ra: REF ANY];

ReadMailProc: PROC[ra: REF ANY];

ChangeDBProc: PROC[ra: REF ANY];

InternalNewMail: PROC;

DoScavenge: PROC[startPos: INT];

DoExpunge: PROC[doUpdates, tailRewrite: BOOL];

ChangeWalnutMenu: PROC[newMenu: Menus.Menu];

TakeDownWalnutViewers: PROC;

ClearMsgSetDisplayers: PROC;

SetWalnutIcons: PROC[file: ROPE];

EnumWalnutViewers: PROC[keepSeparate: BOOL]
   RETURNS [msgSetList, msgList, queryList: LIST OF ViewerClasses.Viewer];

LoadBcdForWalnut: PROC[who: ROPE] RETURNS[ok: BOOL];

EstablishFileNames: PROC[sName: ROPE, lName: ROPE← NIL]
 RETURNS[segName, logName: ROPE, logIsAlp, alpNeeded: BOOL];

ChangeDatabase: PROC[ra: REF ANY];

END.