LarkWork.mesa
L. Stewart, December 21, 1983 4:00 pm
DIRECTORY
CommandTool USING [ArgumentVector],
LarkControl USING [LarkData],
Rope USING [ROPE];
LarkWork: CEDAR DEFINITIONS =
BEGIN
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.
LarkWorkProc: TYPE = PROC [lark: LarkControl.LarkData, argv: CommandTool.ArgumentVector, capital: BOOL ← FALSE] RETURNS [result: Rope.ROPE ← NIL];
A procedure can be unregistered by passing proc = NIL.
RegisterLarkWorkProc: PROC [proc: LarkWorkProc, key: Rope.ROPE, caseMatters: BOOL ← FALSE, doc: Rope.ROPE ← NIL, usage: Rope.ROPE ← NIL];
These procedures create and destroy work areas for Larks. The Maybes are because only one work area for a given Lark is allowed.
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