MaintainMisc.mesa
Copyright Ó 1986, 1987, 1991, 1992 by Xerox Corporation. All rights reserved.
Wes Irish, April 28, 1987 4:49:07 pm PDT
Philip James, July 29, 1991 2:01 pm PDT
Doug Wyatt, May 15, 1992 12:07 pm PDT
DIRECTORY
MaintainDefs USING [Command, CmdButton, MyData, What],
Rope USING [ROPE];
MaintainMisc:
CEDAR
DEFINITIONS = {
ROPE: TYPE = Rope.ROPE;
Command: TYPE = MaintainDefs.Command;
What: TYPE = MaintainDefs.What;
MyData: TYPE = MaintainDefs.MyData;
CmdButton: TYPE = MaintainDefs.CmdButton;
RopeFromCommand: PROC [cmd: Command] RETURNS [ROPE];
AtomFromWhat: PROC [what: What] RETURNS [ATOM];
RopeFromWhat: PROC [what: What] RETURNS [ROPE];
ExposePropertyCode: PROC [prop: CARD32] RETURNS[ROPE];
CallForItems: PROC [d: MyData, names: ROPE, proc: PROC [ROPE], evenIfNull: BOOL ¬ FALSE];
EnumGroups: PROC [cb: CmdButton] RETURNS [BOOL] ;
EnumIndividuals: PROC [cb: CmdButton] RETURNS [BOOL] ;
EnumDead: PROC [cb: CmdButton] RETURNS [BOOL] ;
Quote: PROC [d: MyData] RETURNS [BOOL];
Verify: PROC [d: MyData] RETURNS [BOOL];
Plural: PROC [word, plural: ROPE, n: CARD] RETURNS[ROPE];
CheckForm: SAFE PROC [clientData: REF, value, label: ROPE] RETURNS[ BOOL ];
}.