DIRECTORY
Commander, CommanderOps, IO, PopUpSelection, Rope;

PopUpCommandImpl: CEDAR PROGRAM
IMPORTS Commander, CommanderOps, IO, PopUpSelection, Rope
~ BEGIN

ROPE: TYPE ~ Rope.ROPE;
usageMessage: ROPE ~ "\n  Usage:  PopUpCommand [-title] \"cmd1\" \"cmd2\" ...";

PopUp: Commander.CommandProc = {
options: LIST OF ROPE ¬ CommanderOps.ParseToList[cmd: cmd].list;
IF options#NIL THEN {
header: ROPE ¬ NIL;
IF Rope.Fetch[options.first]='- THEN {
header ¬ Rope.Substr[base: options.first, start: 1];
options ¬ options.rest;
IF options=NIL THEN RETURN [msg: usageMessage, result: $Failure];
IF Rope.Length[header]=0 THEN {
header ¬ options.first;
options ¬ options.rest;
IF options=NIL THEN RETURN [msg: usageMessage, result: $Failure];
};
};
BEGIN
selection: INT; 
docs, doctail: LIST OF ROPE ¬ NIL;
FOR list: LIST OF ROPE ¬ options, list.rest WHILE list#NIL DO
doc: ROPE ¬ Doc[list.first];
IF doctail#NIL THEN {
doctail.rest ¬ LIST[doc];
doctail ¬ doctail.rest;
}
ELSE doctail ¬ docs ¬ LIST[doc];
ENDLOOP; 
selection ¬ PopUpSelection.Request[header: header, choice: options, choiceDoc: docs, default: 0]; --default was 1 but 0 prevents silly bug
IF selection>0 THEN {
THROUGH [1..selection) DO
options ¬ options.rest;
ENDLOOP;
IO.PutRope[cmd.out, Rope.Cat["  ", options.first, "\n"]];
[result, msg] ¬ CommanderOps.ExecuteCommand[cmd, Rope.Concat[options.first, "\n"]];
};
END;
}
ELSE RETURN [msg: usageMessage, result: $Failure];
};

FirstNonBlank: PROC [r: ROPE] RETURNS [ROPE] = {
n: INT ~ Rope.SkipTo[s: r, skip: " "];
RETURN [Rope.Substr[base: r, len: n]]
};

LimitHelp: PROC [r: ROPE] RETURNS [ROPE] = {
n: INT ~ Rope.SkipTo[s: r, skip: "\r\l\n"];
Translator: Rope.TranslatorType = {
SELECT TRUE FROM
old>=32C AND old<=177C => RETURN [old];
ENDCASE => RETURN [' ]
};
RETURN [Rope.Translate[base: r, len: n, translator: Translator]]
};

Doc: PROC [for: ROPE] RETURNS [ROPE¬NIL] = {
procData: Commander.CommandProcHandle ¬ Commander.Lookup[FirstNonBlank[for]];
IF procData#NIL THEN RETURN [LimitHelp[procData.doc]];
};

Commander.Register[key: "PopUpCommand", proc: PopUp, doc: Rope.Concat["Pops up menu for selection of next command.", usageMessage], interpreted: FALSE];
END.
    
PopUpCommandImpl.mesa
Copyright س 1986, 1992 by Xerox Corporation.  All rights reserved.
Eric Nickell, May 22, 1986 2:51:21 pm PDT
Last edited by: Christian Jacobi, August 7, 1990 2:25 pm PDT

--(Ch. J) Used to FORK.  But had problem of finding streams and property lists.  I did forget why the fork was useful and therefore removed it.  I think it was only useful to allow button ahead.
--(Ch. J) Used to use viewer.class.notify....
--(Ch. J) Used to use CommandToolLookup which gave more info.  This is simpler...
 ‌تé  •NewlineDelimiter
–(cedarcode) style™ code™Kڑœ	دeœ6™BK™)K™<K™ —ڑدk	ک	Kڑœ2ک2Kک —ڑدnœ‍œ‍کKڑ‍œ2ک9—ڑœ‍کKک —K•StartOfExpansionL -- [cmd: Commander.Handle] RETURNS [result: REF ANY _ NIL, msg: ROPE _ NIL]ڑ‍œ‍œ‍œکKڑœ‍œ=کOKک ڑںœک K–I[cmd: Commander.Handle, starExpand: BOOL _ FALSE, switchChar: CHAR]ڑœ	‍œ‍œ‍œ+ک@–m[label: ROPE _ NIL, choice: LIST OF ROPE, default: NAT _ 0, timeOut: NAT _ 0, mouse: REF ANY _ NIL]ڑ‍œ	‍œ‍œکKڑœ‍œ‍œک– [base: ROPE, index: INT _ 0]ڑ‍œ‍œک&K–9[base: ROPE, start: INT _ 0, len: INT _ 2147483647]ک4KکKڑ‍œ	‍œ‍œ‍œ'کAڑ‍œ‍œکKکKکKڑ‍œ	‍œ‍œ‍œ'کAKڑœک—Kڑœک—Kڑœآ™آڑ‍کK–m[label: ROPE _ NIL, choice: LIST OF ROPE, default: NAT _ 0, timeOut: NAT _ 0, mouse: REF ANY _ NIL]ڑœ‍œکKڑ	œ‍œ‍œ‍œ‍œک"–'[propList: List.AList, inner: PROC]ڑ‍œ‍œ‍œ‍œ‍œ‍œ‍ک=Kڑœ‍œکڑ‍œ	‍œ‍œکKڑœ‍œکKکKک—Kڑ‍œ‍œک Kڑ‍œک	—Kکٹڑ‍œ‍œکڑ‍œ‍کKکKڑ‍œک—Kڑœ-™-Kڑ‍œ7ک9KکSKڑœک—Kڑ‍œک—Kڑœک—Kڑ‍œ‍œ'ک2Kک—Kک ڑ
ںœ‍œ‍œ‍œ‍œک0Kڑœ‍œ ک&Kڑ‍œک%KڑœکKک —ڑ
ں	œ‍œ‍œ‍œ‍œک,Kڑœ‍œ%ک+ڑں
œک#ڑ‍œ‍œ‍کKڑœ	‍œ‍œک'Kڑ‍œ‍œک—Kک—Kڑ‍œ:ک@Kڑœک—Kک ڑںœ‍œ‍œ‍œ‍œ‍œک,KڑœQ™QKکMKڑ‍œ
‍œ‍œ‍œک6Kڑœک—Kک K–x[key: ROPE, proc: Commander.CommandProc, doc: ROPE _ NIL, clientData: REF ANY _ NIL, interpreted: BOOL _ TRUE]ڑœ‘‍œککKڑ‍œک— …—    „  y  