
DIRECTORY
Commander USING [ CommandProcHandle, EnumerateAction, Handle ],
Prop USING [ PropList ],
Rope USING [ ROPE ];

CommanderRegistry: CEDAR DEFINITIONS ~ {
OPEN Prop, Rope;

LookupProc: TYPE ~ PROC [key: ROPE] RETURNS [Commander.CommandProcHandle];

EnumerateProc: TYPE ~ PROC [matchProc: Commander.EnumerateAction]
RETURNS [key: ROPE, procData: Commander.CommandProcHandle];

EnumPatternProc: TYPE ~ PROC [pattern: ROPE, matchProc: Commander.EnumerateAction]
RETURNS [key: ROPE, procData: Commander.CommandProcHandle];

LookupProp: TYPE ~ PROC [cmd: Commander.Handle, key: REF] RETURNS [value: REF];

ChangeProc: TYPE =
PROC [
oldLk: PropList --OF REF LookupProc--,
oldEn: PropList --OF REF EnumerateProc--,
oldEnP: PropList --OF REF EnumPatternProc--,
oldLkPrp: PropList --OF REF LookupProp--]
RETURNS [
newLk: PropList --OF REF LookupProc--,
newEn: PropList --OF REF EnumerateProc--,
newEnP: PropList --OF REF EnumPatternProc--,
newLkPrp: PropList --OF REF LookupProp--];

ChangeRegistry: PROC [change: ChangeProc];

EnumeratePattern: EnumPatternProc;
GetProp: LookupProp;

}.
   :  
CommanderRegistry.mesa
Copyright Ó 1990, 1991 by Xerox Corporation.  All rights reserved.
Swinehart, December 10, 1990 11:49 am PST
Michael Plass, February 21, 1991 2:02 am PST
This interface allows for the registration of command and property lookup mechanisms that are different from the standard ones.

 ÊÛ  –(cedarcode) style•NewlineDelimiter
™ codešœ™Kšœ
Ïeœ7™BK™)K™,K˜ K™K™ —šÏk	˜	Kšœ
žœ0˜?Kšœžœ˜Kšœžœžœ˜—K˜ šÏnœžœžœ˜(šžœ˜K˜ —š	œžœžœžœžœ˜JK˜ —šœžœžœ'˜AKšžœžœ)˜;K˜ —šœžœžœžœ'˜RKšžœžœ)˜;—K˜ Kšœžœžœžœžœ	žœ˜OK˜ šœžœ˜šžœ˜KšœÏcœ˜&Kšœ œ˜)Kšœ œ˜,Kšœ œ˜)—šžœ˜	Kšœ œ˜&Kšœ œ˜)Kšœ œ˜,Kšœ œ˜*—K˜ —KšŸœžœ˜*K˜ KšŸœ˜"KšŸœ˜K˜ K˜—— …—    @  U  