

DIRECTORY
Commander USING [CommandProc, CommandProcHandle, CommandProcObject],
CommanderRegistry USING [EnumerateProc, EnumPatternProc, LookupProc, LookupProp],
EnvironmentVariables USING [Get],
List USING [AList, Assoc, PutAssoc],
ProcessProps USING [GetPropList],
Prop USING [PropList, Put],
Rope USING [ROPE, Concat, Equal, FromRefText, IsEmpty, Match],
SymTab USING [Create, Delete, EachPairAction, Fetch, Pairs, Ref, Store];

CommanderImpl: CEDAR MONITOR
IMPORTS EnvironmentVariables, List, ProcessProps, Prop, Rope, SymTab
EXPORTS Commander, CommanderRegistry = BEGIN
ROPE: TYPE = Rope.ROPE;
PropList: TYPE = Prop.PropList;
LookupProc: TYPE ~ CommanderRegistry.LookupProc;
LookupProp: TYPE ~ CommanderRegistry.LookupProp;
EnumerateProc: TYPE ~ CommanderRegistry.EnumerateProc;
EnumPatternProc: TYPE ~ CommanderRegistry.EnumPatternProc;
HooksRep: TYPE ~ RECORD [
lookupProcs: PropList,
enumerateProcs: PropList,
enumPatternProcs: PropList,
lookupPropProcs: PropList
];
commandRegistry: SymTab.Ref м SymTab.Create[mod: 101, case: FALSE];
hooks: REF HooksRep м NEW[HooksRep м [
lookupProcs: Prop.Put[NIL, $StdLookup, NEW[LookupProc м LookupInRegistry]],
enumerateProcs: Prop.Put[NIL, $StdEnumerate, NEW[EnumerateProc м EnumerateInRegistry]],
enumPatternProcs: Prop.Put[NIL, $StdEnumPattern, NEW[EnumPatternProc м EnumPatternInRegistry]],
lookupPropProcs: NIL
]];
Register: PUBLIC ENTRY PROC [key: ROPE, proc: Commander.CommandProc, doc: ROPE, clientData: REF ANY м NIL, interpreted: BOOL м TRUE] = {
IF proc = NIL
THEN { [] м SymTab.Delete[x: commandRegistry, key: key] }
ELSE {
[] м SymTab.Store[
x: commandRegistry, key: key,
val: NEW[Commander.CommandProcObject
м [proc: proc, doc: doc, clientData: clientData, interpreted: interpreted]]];
};
};

ChangeRegistry: PUBLIC PROC [change: PROC[oldLk, oldEn, oldEnP, oldLkPrp: PropList] RETURNS [newLk, newEn, newEnP, newLkPrp: PropList]] ~ {
old: REF HooksRep м hooks;
new: REF HooksRep м NEW[HooksRep];
Update: ENTRY PROC RETURNS [BOOL] = {
IF old = hooks
THEN { hooks м new; RETURN [TRUE] }
ELSE { old м hooks; RETURN [FALSE] }
};
DO [new.lookupProcs, new.enumerateProcs, new.enumPatternProcs, new.lookupPropProcs] м
change[old.lookupProcs, old.enumerateProcs, old.enumPatternProcs, old.lookupPropProcs];
IF Update[] THEN EXIT;
ENDLOOP;
};

Lookup: PUBLIC ENTRY LookupProc = {
ENABLE UNWIND => NULL;
procData: Commander.CommandProcHandle м NIL;
FOR lPs: PropList м hooks.lookupProcs, lPs.rest WHILE lPs#NIL DO
WITH lPs.first.val SELECT FROM
val: REF LookupProc => {
proc: LookupProc м valн;
pData: Commander.CommandProcHandle м proc[key];
IF pData#NIL THEN IF procData=NIL THEN procDataмpData ELSE RETURN[NIL];
};
ENDCASE;
ENDLOOP;
RETURN[procData];
};

LookupInRegistry: LookupProc = {
WITH SymTab.Fetch[x: commandRegistry, key: key].val SELECT FROM
procData: Commander.CommandProcHandle => RETURN [procData];
ENDCASE => NULL;
RETURN [NIL];
};

Enumerate: PUBLIC ENTRY EnumerateProc = {
ENABLE UNWIND => NULL;
FOR ePs: PropList м hooks.enumerateProcs, ePs.rest WHILE ePs#NIL DO
WITH ePs.first.val SELECT FROM
val: REF EnumerateProc => {
proc: EnumerateProc м valн;
[] м proc[matchProc];
};
ENDCASE;
ENDLOOP;
};

EnumerateInRegistry: EnumerateProc = {
outerKey: ROPE;
outerProcData: Commander.CommandProcHandle;
EachPairProc: SymTab.EachPairAction = {
outerProcData м NARROW[val, Commander.CommandProcHandle];
outerKey м key;
RETURN[matchProc[key: outerKey, procData: outerProcData]];
};
IF NOT SymTab.Pairs[x: commandRegistry, action: EachPairProc] THEN {
outerKey м NIL;
outerProcData м NIL;
};
RETURN[key: outerKey, procData: outerProcData];
};

EnumeratePattern: PUBLIC ENTRY EnumPatternProc = {
ENABLE UNWIND => NULL;
FOR ePs: PropList м hooks.enumPatternProcs, ePs.rest WHILE ePs#NIL DO
WITH ePs.first.val SELECT FROM
val: REF EnumPatternProc => {
proc: EnumPatternProc м valн;
[] м proc[pattern, matchProc];
};
ENDCASE;
ENDLOOP;
};

EnumPatternInRegistry: EnumPatternProc = {
outerKey: ROPE;
outerProcData: Commander.CommandProcHandle;
EachPairProc: SymTab.EachPairAction = {
IF NOT Rope.Match[pattern: pattern, object: key, case: FALSE] THEN RETURN[FALSE];
outerProcData м NARROW[val, Commander.CommandProcHandle];
outerKey м key;
RETURN[matchProc[key: outerKey, procData: outerProcData]];
};
IF NOT SymTab.Pairs[x: commandRegistry, action: EachPairProc] THEN {
outerKey м NIL;
outerProcData м NIL;
};
RETURN[key: outerKey, procData: outerProcData];
};

GetProp: PUBLIC CommanderRegistry.LookupProp ~ {
FOR lpPs: Prop.PropList м hooks.lookupPropProcs, lpPs.rest WHILE lpPs#NIL DO
WITH lpPs.first.val SELECT FROM
refP: REF LookupProp => {
proc: LookupProp м refPн;
value м proc[cmd, key];
IF value#NIL THEN RETURN; -- Accept first answer for properties, for now.
};
ENDCASE;
ENDLOOP;
};

wDirKey: ATOM ~ $WorkingDirectory;
GetWDir: PROC RETURNS [ROPE] = {
wDir: ROPE м NIL;
propList: List.AList ~ ProcessProps.GetPropList[];
WITH List.Assoc[key: wDirKey, aList: propList] SELECT FROM
rope: ROPE => wDir м rope;
ENDCASE;
IF Rope.IsEmpty[wDir] THEN wDir м GetDefaultWDir[];
RETURN[wDir];
};


GetDefaultWDir: PROC RETURNS [wdir: Rope.ROPE] ~ {
RETURN[Rope.Concat[EnvironmentVariables.Get["PWD"], "/"]];
};

PrependWorkingDir: PUBLIC PROC [key: ROPE] RETURNS [ROPE] = {
RETURN [key];
};
GetProperty: PUBLIC ENTRY PROCEDURE [key: REF ANY, aList: List.AList] RETURNS [val: REF ANY] = {
ENABLE UNWIND => NULL;
ropeKey: ROPE;
val м List.Assoc[key: key, aList: aList];
IF val # NIL THEN RETURN;
WITH key SELECT FROM
r: ROPE => ropeKey м r;
t: REF TEXT => ropeKey м Rope.FromRefText[t];
ENDCASE;
IF ropeKey # NIL THEN {
FOR l: List.AList м aList, l.rest WHILE l # NIL DO
WITH l.first.key SELECT FROM
r: ROPE => IF Rope.Equal[s1: ropeKey, s2: r, case: TRUE] THEN RETURN[l.first.val];
t: REF TEXT => IF Rope.Equal[s1: ropeKey, s2: Rope.FromRefText[t], case: TRUE] THEN RETURN[l.first.val];
ENDCASE;
ENDLOOP;
};
RETURN[NIL];
};
PutProperty: PUBLIC ENTRY PROCEDURE [key: REF ANY, val: REF ANY, aList: List.AList] RETURNS [List.AList] = {
ENABLE UNWIND => NULL;
IF ISTYPE[key, ROPE] THEN {
ropeKey: ROPE м NARROW[key];
FOR l: List.AList м aList, l.rest WHILE l # NIL DO
IF ISTYPE[l.first.key, ROPE] THEN {
IF Rope.Equal[s1: ropeKey, s2: NARROW[l.first.key, ROPE], case: TRUE] THEN {
l.first.val м val;
RETURN[aList];
};
};
ENDLOOP;
};
RETURN[List.PutAssoc[key: key, val: val, aList: aList]];
};

END.
March 28, 1983 12:26 pm, L. Stewart, created
September 9, 1983 11:04 am, L. Stewart, Cedar 5
November 3, 1983 2:10 pm, L. Stewart, add CommandExtras
January 14, 1984 3:40 pm, L. Stewart, Register uses working directory

   (  CommanderImpl.mesa
Copyright ╙ 1985, 1986, 1987, 1989, 1991, 1993 by Xerox Corporation.  All rights reserved.
Larry Stewart, January 14, 1984 3:40 pm
Russ Atkinson (RRA) March 6, 1985 12:50:20 pm PST
Doug Wyatt, September 18, 1987 2:42:17 pm PDT
Carl Hauser, December 12, 1988 10:40:02 am PST
JKF November 21, 1988 5:36:08 pm PST
Foote, November 21, 1988 6:00:05 pm PST
Michael Plass, February 21, 1991 2:03 am PST
Swinehar, December 10, 1990 11:32 am PST
Willie-s, August 9, 1991 2:15 pm PDT
Christian Jacobi, February 17, 1993 4:00 pm PST
Types
Data
Procedures
Return results are never used; next interface party, take them out.  Also, no currentcallers return stop:TRUE, so needn't worry about that.
Also, procData argument to the matchData is never looked at, so no need to supply non-NIL value at present.
Consider leaving this one alone, restricted only to commandRegistry -- because of Alias commands.
I don't want to list all Aka commands as aliases -- too many.
Return results are never used; next interface party, take them out.  Also, no currentcallers return stop:TRUE, so needn't worry about that.
Also, procData argument to the matchData is never looked at, so no need to supply non-NIL value at present.
Should deimplement this one.

Useful procedures for property lists

This procedure is much like List.Assoc, except it works more sensibly for ROPEs

handle it differently if key is a ROPE

This procedure is much like List.PutAssoc, except it works more sensibly(?) for ROPEs

 handle it differently if key is a ROPE and already present on the list
 Э╩	у  ХNewlineDelimiter
Ц(cedarcode) styleШ codeЪЬЩKЪЬ
╧eЬOЩZKЪЬ'Щ'KЩ1KЩ-KЩ.KЩ$KЩ'KЩ,KЩ(KЩ$KЩ/ЧKШ Ъ╧k	Ш	KЪЬ
ЮЬ5ШDKЪЬЮЬ:ШQKЪЬЮЬЬШ!KЪЬЮЬШ$KЪЬЮЬШ!KЪЬЮЬШKЪЬЮЬЮЬ.Ш>KЪЬЮЬ;ЬШHKШ ЧЪ╧nЬЮЬЮШKЪЮЬ=ШDKЪЮЬЮШ,ЧheadЩKЪЮЬЮЬЮЬШKЪЬ
ЮЬШKЪЬЮЬ Ш0KЪЬЮЬ Ш0KЪЬЮЬ#Ш6KЪЬЮЬ%Ш:ЪЬ
ЮЬЮЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЬШЧЧЩKЪЬ<ЮЬШCЪЬЮЬЮЬШ&KЪЬЮЬЮЬ!ШKKЪЬЮЬЮЬ'ШWKЪЬЮЬЮЬ+Ш_KЪЬЮШKЪЬШЧЧЩ
ЪЯЬЮЬЮЬЮЬЮЬ$ЮЬЮЬЮЬЮЬЮЬЮЬШИЪЮЬЮШKЪЮЬ5Ш9ЪЮЬШЪЬШKЪЬШЪЬЮЬШ$KЪЬMШMЧЧKЪЬШЧЧKШЧKШ Ъ
ЯЬЮЬЮЬ	ЮЬ+ЮЬ0ШЛKЪЬЮЬШKЪЬЮЬЮЬШ"Ъ
ЯЬЮЬЮЬЮЬЮЬШ%ЪЮЬШKЪЮЬЮЬЮЬШ#KЪЮЬЮЬЮЬШ$ЧKЪЬШЧЪЮЬSШUKЪЬWШWKЪЮЬ
ЮЬЮЬШKЪЮЬШЧKШKШ ЧЪЯЬЮЬЮЬШ#KЪЮЬЮЬЮЬШKЪЬ(ЮЬШ,ЪЮЬ-ЮЬЮЬЮШ@ЪЮЬЮЬЮШЪЬЮЬШKШKЪЬ/Ш/KЪЮЬЮЬЮЬЮЬ
ЮЬЮЬЮЬЮЬЮЬШGKШЧKЪЮЬШЧKЪЮЬШЧKЪЮЬШKШKШ ЧЪЯЬШ ЪЮЬ0ЮЬЮШ?KЪЬ)ЮЬШ;KЪЮЬЮЬШЧKЪЮЬЮЬШKШKШ ЧЪЯ	ЬЮЬЮЬШ)KЩМKЩkKЩaKЩ=KЪЮЬЮЬЮЬШЪЮЬ0ЮЬЮЬЮШCЪЮЬЮЬЮШЪЬЮЬШKЪЬШKЪЬШKШЧKЪЮЬШЧKЪЮЬШЧKШKШ ЧЪЯЬШ&KЪЬ
ЮЬШKЪЬ+Ш+ЪЯЬШ'KЪЬЮЬ#Ш9KЪЬШKЪЮЬ4Ш:KШЧЪЮЬЮЬ8ЮЬШDKЪЬЮЬШKЪЬЮЬШKШЧKЪЮЬ)Ш/KШЧKШ ЪЯЬЮЬЮЬШ2KЩМKЩkKЪЮЬЮЬЮЬШЪЮЬ2ЮЬЮЬЮШEЪЮЬЮЬЮШЪЬЮЬШKШKЪЬШKШЧKЪЮЬШЧKЪЮЬШЧKШKШ ЧЪЯЬШ*KЪЬ
ЮЬШKЪЬ+Ш+ЪЯЬШ'KЪЮЬЮЬ1ЮЬЮЬЮЬЮЬШQKЪЬЮЬ#Ш9KЪЬШKЪЮЬ4Ш:KШЧЪЮЬЮЬ8ЮЬШDKЪЬЮЬШKЪЬЮЬШKШЧKЪЮЬ)Ш/KШKШ ЧЪЯЬЮЬ!Ш0ЪЮЬ8ЮЬЮЬЮШLЪЮЬЮЬЮШЪЬЮЬШKЪЬШKЪЬШKЪ	ЮЬЮЬЮЬЮЬ╧c/ШIKШЧKЪЮЬШЧKЪЮЬШЧKЪЬШKШ ЧKЪЬ	ЮЬШ"ЪЯЬЮЬЮЬЮЬШ KЪЬЮЬЮЬШKЪЬ2Ш2ЪЮЬ+ЮЬЮШ:KЪЬЮЬШKЪЮЬШЧKЪЮЬЮЬШ3KЪЮЬШKШKШ KШ ЧЪЯЬЮЬЮЬЮЬШ2KЪЮЬ4Ш:KШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШ=KЩKЪЮЬШKШЧKЩ KЩ$KЩ KЩOKЩ ЪЯЬЮЬЮЬЮ	ЬЮЬЮЬЮЬЮЬЮЬШ`KЪЮЬЮЬЮЬШKЪЬ	ЮЬШKЪЬ)Ш)KЪЮЬЮЬЮЬЮЬШKЩ&ЪЮЬЮЬЮШKЪЬЮЬШKЪЬЮЬЮЬ"Ш-KЪЮЬШЧЪЮЬЮЬЮЬШЪЮЬЮЬЮЬЮШ2ЪЮЬЮЬЮШKЪЬЮЬЮЬ&ЮЬЮЬЮЬШRKЪЬЮЬЮЬЮЬ8ЮЬЮЬЮЬШhKЪЮЬШЧKЪЮЬШЧKШЧKЪЮЬЮЬШKШЧKЩ KЩUKЩ ЪЯЬЮЬЮЬЮ	ЬЮЬЮЬЮЬЮЬЮЬШlKЩGKЪЮЬЮЬЮЬШЪЮЬЮЬЮЬЮЬШKЪЬ	ЮЬЮЬШЪЮЬЮЬЮЬЮШ2ЪЮЬЮЬЮЬЮЬШ#Ъ
ЮЬЮЬЮЬ	ЮЬЮЬШLKЪЬШKЪЮЬШKШЧKШЧKЪЮЬШЧKШЧKЪЮЬ2Ш8KШKШ ЧЧKЪЮЬШKЪЬЮЬШ,KЪЬЮЬШ/KЪЬЮЬШ7KЪЬЮЬ*ШEKШ Ч ЕЧ    к  )╡  