DIRECTORY CommandTool USING [ArgumentVector], LarkControl USING [LarkData], Rope USING [ROPE]; LarkWork: CEDAR DEFINITIONS = BEGIN LarkWorkProc: TYPE = PROC [lark: LarkControl.LarkData, argv: CommandTool.ArgumentVector, capital: BOOL _ FALSE] RETURNS [result: Rope.ROPE _ NIL]; RegisterLarkWorkProc: PROC [proc: LarkWorkProc, key: Rope.ROPE, caseMatters: BOOL _ FALSE, doc: Rope.ROPE _ NIL, usage: Rope.ROPE _ NIL]; MaybeCreateWorkArea: PROC [lark: LarkControl.LarkData] RETURNS [result: Rope.ROPE]; MaybeShutDownWorkArea: PROC [lark: LarkControl.LarkData] RETURNS [result: Rope.ROPE]; END. April 27, 1983 1:51 pm, LCS, created December 21, 1983 4:00 pm, LCS, Cedar 5 zLarkWork.mesa L. Stewart, December 21, 1983 4:00 pm This type of procedure can be registered to aid in debugging a Lark. capital will be set according to the first letter of the key. A procedure can be unregistered by passing proc = NIL. These procedures create and destroy work areas for Larks. The Maybes are because only one work area for a given Lark is allowed. Ê7˜Jšœ ™ Jšœ%™%J˜šÏk ˜ Jšœ œ˜#Jšœ œ ˜Jšœœœ˜—J˜Jšœ œ œ˜Jš˜J™Jšœƒ™ƒJšÏn œœœIœœœœœ˜’J˜Jšœ1œ™6Jšžœœ œœœ œœœœ˜‰J˜J™Jšžœœœœ˜SJ˜Jšžœœœœ˜UJ™Jšœ˜Jšœœ ˜$Jšœœ ˜'J˜—…—¤U