[Cyan]<CedarChest6.0>Walnut>WalnutExtras.mesa!1

WalnutExtras.Mesa

Last Edited by: Willie-Sue, June 25, 1984 3:25:03 pm PDT

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];

InternalChangeMenu: 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, lName: ROPE]

RETURNS[segName, logName: ROPE, logIsAlp: BOOL];

ChangeDatabase: PROC[ra: REF ANY];

OpenTS: PROC[msg: ROPE← NIL, doRegister: BOOL← TRUE];

CloseTS: PROC[];

CheckForAutoCommit: PROC[];

END.