DIRECTORY Buttons, Commander, CommanderOps, Convert, Rope, IO, Menus, SimpleFeedback, TiogaOps, ViewerClasses, ViewerTools;


TopButton: CEDAR PROGRAM
IMPORTS Buttons, Commander, CommanderOps, Convert, IO, Rope, SimpleFeedback, TiogaOps, ViewerTools

~ BEGIN

ROPE: TYPE ~ Rope.ROPE;

ButtonImplRef: TYPE = REF ButtonImplObject;
ButtonImplObject: TYPE = RECORD [
name: ROPE,
def: ROPE,
button: Buttons.Button м NIL
];

DoButtonProc: TYPE = PROC [br: ButtonImplRef];

topButtonList: LIST OF ButtonImplRef м NIL;

TopButton: Commander.CommandProc ~ {
s: IO.STREAM = IO.RIS[cmd.commandLine];
br: ButtonImplRef;
button: Buttons.Button;
name: ROPE = (IO.GetCedarTokenRope[s]).token;
cmdline: ROPE = IO.GetRope[s];
br м NEW[ButtonImplObject м [name: name, def: cmdline]];
button _ Buttons.Create[info: [name: name], proc: TopButtonImpl, clientData: br, paint: FALSE];
Buttons.SetDisplayStyle[button, $BlackOnWhite];
br.button _ button;
topButtonList м CONS[br, topButtonList];
};

SimpleTopButtonImpl: Buttons.ButtonProc ~ {
msg: ROPE = CommanderOps.DoCommandRope[commandLine: NARROW[clientData], parent: NIL].out;
SimpleFeedback.Append[$TopButton,  oneLiner, $Feedback, msg];
};

FindTopbuttons: PROC [pattern: ROPE, doEachButton: DoButtonProc] ~ {
FOR brList: LIST OF ButtonImplRef м topButtonList, brList.rest UNTIL brList=NIL DO
IF Rope.Match[pattern, brList.first.name, TRUE] THEN doEachButton[brList.first];
ENDLOOP;
};

DestroyButtonImpl: Commander.CommandProc ~ {
s: IO.STREAM = IO.RIS[cmd.commandLine];
pattern: ROPE = (IO.GetCedarTokenRope[s]).token;
didDestroy: BOOL м FALSE;
doButton: DoButtonProc = {Buttons.Destroy[br.button]; didDestroy м TRUE;};
FindTopbuttons[pattern, doButton];
IF NOT didDestroy THEN {
msg: ROPE м IO.PutFR1["could not find button matching `%g'.", IO.rope[pattern]];
SimpleFeedback.Append[$TopButton,  oneLiner, $Feedback, msg];
};
};

ReplaceButtonImpl: Commander.CommandProc ~ {
s: IO.STREAM = IO.RIS[cmd.commandLine];
name: ROPE = (IO.GetCedarTokenRope[s]).token;
cmdline: ROPE = IO.GetRope[s];
didReplace: BOOL м FALSE;
doButton: DoButtonProc = {
didReplace м TRUE;
br.def м cmdline;
};
FindTopbuttons[name, doButton];
IF NOT didReplace THEN {
msg: ROPE м IO.PutFR1["could not find button matching `%g'.", IO.rope[name]];
SimpleFeedback.Append[$TopButton,  oneLiner, $Feedback, msg];
};
};

TopButtonImpl: Menus.ClickProc = {
WITH clientData SELECT FROM
br: ButtonImplRef => {
def: ROPE = br.def;
msg: ROPE = CommanderOps.DoCommandRope[commandLine: ButtonCommandToRope[parent, def, mouseButton, shift, control], parent: NIL].out;
SimpleFeedback.Append[$TopButton,  oneLiner, $Feedback, msg];
};
ENDCASE;
};

ButtonCommandToRope: PROC [parent: ViewerClasses.Viewer, cmdIn: ROPE м NIL, 
mouseButton: ViewerClasses.MouseButton м red, shift, control: BOOL м FALSE] RETURNS [def: ROPE] = {
curSel, escaped, spaced: ROPE;
viewer: ViewerClasses.Viewer м NIL;
start: TiogaOps.Location;
viewerName: ROPE м NIL;
fileName: ROPE м NIL;
shortFileName: ROPE м NIL;
baseFileName: ROPE м NIL;
spaceFileName: ROPE м NIL;
shortSpaceFileName: ROPE м NIL;
quotedFileName: ROPE м NIL;
shortQuotedFileName: ROPE м NIL;
index: INT м -1;
controlRope: ROPE м IF control THEN "control" ELSE "noControl";
shiftRope: ROPE м IF shift THEN "shift" ELSE "noShift";
buttonRope: ROPE;
SELECT mouseButton FROM
red => buttonRope м "left";
yellow => buttonRope м "middle";
blue => buttonRope м "right";
ENDCASE => ERROR;

IF cmdIn = NIL THEN RETURN;
def м cmdIn;
[viewer: viewer, start: start] м TiogaOps.GetSelection[primary];
curSel м ViewerTools.GetSelectionContents[];
IF viewer # NIL AND NOT viewer.destroyed AND NOT viewer.newFile THEN {
root: TiogaOps.Ref м TiogaOps.Root[start.node];
offset: INT м TiogaOps.LocOffset[loc1: [root, 0], loc2: start, skipCommentNodes: TRUE];
index м offset;
viewerName м viewer.file;
IF viewerName = NIL THEN viewerName м viewer.name;
fileName м viewer.file;
fileName м Rope.Substr[fileName, 0, Rope.SkipTo[fileName, 0, "!"]];
};

escaped м Convert.RopeFromRope[from: curSel, quote: FALSE];
spaced м RopeSubst[old: "\n", new: " ", base: curSel];
curSel м Rope.Substr[base: curSel, start: 0, len: curSel.Index[s2: "\n"]];
fileName м IF (Rope.SkipTo[s: curSel, pos: 0, skip: " \t"] = curSel.Length[]) AND (curSel.Length[] > 1) THEN curSel ELSE fileName;
shortFileName м GetShortName[fileName];
baseFileName м GetBaseName[shortFileName];
spaceFileName м IF (curSel.Length[] > 1) THEN curSel ELSE fileName;
shortSpaceFileName м GetShortName[spaceFileName];
quotedFileName м Rope.Cat["\"", spaceFileName, "\""];
shortQuotedFileName м Rope.Cat["\"", shortSpaceFileName, "\""];

IF Rope.SkipTo[def, 0, "$"] < Rope.Length[def] THEN {
def м RopeSubst[old: "$CurrentSelection$", new: curSel, base: def, case: TRUE];
def м RopeSubst[old: "$CurrentEscapedSelection$", new: escaped, base: def, case: TRUE];
def м RopeSubst[old: "$CurrentSpacedSelection$", new: spaced, base: def, case: TRUE];
def м RopeSubst[old: "$FileNameSelection$", new: fileName, base: def, case: TRUE];
def м RopeSubst[old: "$ShortFileNameSelection$", new: shortFileName, base: def, case: TRUE];
def м RopeSubst[old: "$BaseFileNameSelection$", new: baseFileName, base: def, case: TRUE];
def м RopeSubst[old: "$SpaceFileNameSelection$", new: spaceFileName, base: def, case: TRUE];
def м RopeSubst[old: "$ShortSpaceFileNameSelection$", new: shortSpaceFileName, base: def, case: TRUE];
def м RopeSubst[old: "$QuotedFileNameSelection$", new: quotedFileName, base: def, case: TRUE];
def м RopeSubst[old: "$ShortQuotedFileNameSelection$", new: shortQuotedFileName, base: def, case: TRUE];
def м RopeSubst[old: "$SelectedViewerName$", new: viewerName, base: def, case: TRUE];
def м RopeSubst[old: "$ViewerPosition$", new: Convert.RopeFromInt[index, 10, FALSE], base: def, case: TRUE];
def м RopeSubst[old: "$MouseButton$", new: buttonRope, base: def, case: TRUE];
def м RopeSubst[old: "$ControlKey$", new: controlRope, base: def, case: TRUE];
def м RopeSubst[old: "$ShiftKey$", new: shiftRope, base: def, case: TRUE];
};

RETURN [def];
};

RopeSubst: PROC [old, new, base: ROPE, case: BOOL м FALSE, allOccurrences: BOOL м TRUE] RETURNS [ROPE] = {
lenOld: INT = old.Length[];
lenNew: INT = new.Length[];
i: INT м 0;
WHILE (i м Rope.Find[s1: base, s2: old, case: case, pos1: i]) # -1 DO
base м Rope.Replace[base: base, start: i, len: lenOld, with: new];
IF ~allOccurrences THEN EXIT;
i м i + lenNew;
ENDLOOP;
RETURN[base];
};

GetShortName: PROC [path: ROPE] RETURNS [ROPE] = {
len: INT м Rope.Length[path];
bang: INT м len;
pos: INT м len;
WHILE pos # 0 DO
np: INT м pos - 1;
c: CHAR м Rope.Fetch[path, np];
SELECT c FROM
'! => bang м np;
'>, '], '/ => RETURN [Rope.Substr[path, pos, bang-pos]];
ENDCASE;
pos м np;
ENDLOOP;
RETURN [Rope.Substr[path, 0, bang]];
};

GetBaseName: PROC [shortName: ROPE] RETURNS [ROPE] = {
dotPos: INT м Rope.Find[shortName, "."];
IF dotPos<0 
THEN RETURN [shortName] 
ELSE RETURN [Rope.Substr[shortName, 0, dotPos]] 
};

Commander.Register["DestroyTopButton", DestroyButtonImpl, "Destroy all top buttons whose name match the argument (*'s permitted, case-sensitive)"];

Commander.Register["ReplaceTopButton", ReplaceButtonImpl, "Replace the command strings of those top buttons whose name match the argument"];

Commander.Register["TopButton", TopButton, "Install a new top-of-screen button.
Prototype: TopButton buttonname command
substitutions are:
    $CurrentSelection$ => replaced by the current selection up to but not including the first carriage return
    $CurrentEscapedSelection$ => replaced by a rope literal (minus the surrounding quotes) for the entire current selection
    $CurrentSpacedSelection$ => replaced by the whole current selection, with spaces substituted for newlines
    $FileNameSelection$ => replaced by the current selection if it appears to be a file name, otherwise replaced by the name of the selected viewer
    $ShortFileNameSelection$ => same as $FileNameSelection$ except that version number and directory are omitted
    $BaseFileNameSelection$ => same as $ShortFileNameSelection$ except that extensions are ommited
    $SpaceFileNameSelection$ => replaced by the current selection if it appears to be a file name (may include white space), otherwise replaced by the name of the selected viewer
    $ShortSpaceFileNameSelection$ => same as $SpaceFileNameSelection$ except that version number and directory are omitted
    $QuotedFileNameSelection$ => replaced by the current selection if it appears to be a file name (may include white space), otherwise replaced by the name of the selected viewer.  The results will have double quotes around it.
    $ShortQuotedFileNameSelection$ => same as $QuotedFileNameSelection$ except that version number and directory are omitted.
    $SelectedViewerName$ => replaced by the name of the selected viewer
    $ViewerPosition$ => replaced by the position of the current selection in a viewer
    $MouseButton$ => left|middle|right
    $ShiftKey$ => shift|noShift
    $ControlKey$ control|noControl
"];

END.
   P  
TopButton.mesa
Copyright ╙ 1986, 1990, 1992 by Xerox Corporation.  All rights reserved.
Bloomenthal, November 21, 1990 0:32 am PST
Brent Welch December 12, 1990 12:56 pm PST
Weiser, August 29, 1993 10:51 pm PDT

[parent: REF ANY, clientData: REF ANY _ NIL, mouseButton: Menus.MouseButton _ red, shift: BOOL _ FALSE, control: BOOL _ FALSE]
[mimics ViewerClasses.ClickProc, but with different return value]
Get prefix of current selection before the first CR
The curSel is the fileName if curSel is longer than one character and contains no whitespace.
The curSel is the spaceFileName if curSel is longer than one character.
Add quotes for the quoted version.
It is likely that we have substitutions to do
if old is not found in base, then value = base.
if allOccurrences THEN substitute for each occurrence of old, otherwise only for first.
 Э╩p  Ц(cedarcode) styleХNewlineDelimiter
Щ Ъ╧n	ЬЩIcodeЪЬ
╧eЬ=ЩHKЩ*KЩ*KЩ$KЩ ЧЪ╧k	Ь2ЯЬ>Ш{KШ ЧKШ ЪЭ	ЬЯШKЪЯЬ,ЯЬЬ%ШbЧKШ KЪЬЯШШ KЪЯЬЯЬЯЬШЧШ KЪ╧bЬЯЬЯЬШ+ЪаЬЯЬЯЬШ!KЪЬЯЬШKЪЬЯЯШ
KЪЬЯШKШKШ ЧЪЬЯЬЯЬШ.KШ ЧЪЬЬЯЬЯЬЯЬШ+KШ ЧЪЭ	ЬШ$KЪ	ЬЯЬЯЬЯЬЯЬШ'KЪЬШKШKЪЬЯЬШ-KЪЬЯЬШKЪЬЯЬ0Ш8KЪЬ	ЬOЯЬЬШ_KШ/KШKЪЬЯЬШ(ЧKШЧШ ЪЭЬШ+IropeЪ	ЬЯЯЯЯЬDЯЬЬШYKШ=KЪЬШKШ ЧЪЭЬЯЬЯЬ!ШDЪЯЬ	ЯЬЯЬ,ЯЬЯЬЯШRKЪЯЬ(ЯЬЯЬШPKЪЯЬШЧKШKШ ЧЪЭЬЬШ,KЪ	ЬЯЬЯЬЯЬЯЬШ'KЪЬЬ
ЯЬШ0KЪЬЯЬЯЬШKЪЬCЯЬШJKШ"ЪЯЬЯЬЯЬШKЪЬЯЬЯЬ0ЯЬЬЬЬЬЬЬШPKШ=ЧKШЧKШKШ ЪЭЭ
ЬШ,KЪ	ЬЯЬЯЬЯЬЯЬШ'KЪЬЬ
ЯЬШ-KЪЬЯЬШKЪЬЯЬЯЬШШKЪЬЯЬШKШЧKШШЪЯЬЯЬЯЬШKЪ	ЬЯЬЯЬ0ЯЬЬЬШMKШ=ЧKШЧKШKШ ЧЪЭЬШ"KЪ╨ck~Щ~ЪЯЬЯЬЯШЪЬШKЪЬЯЬ
ШLЪ	ЬЯЯЯЯЬoЯЬЬШДKШ=KШЧKЪЯЬШЧKШЧKШ ЪЭЬЯЬ'ЯЬЯЬAЯЬЯЬЯЬЯЬШ░ЪбЬб"ЩAKЪЬЯЬШKЪЬЯЬШ#KЪЬШKЪЬЯЬЯЬШKЪЬ
ЯЬЯЬШKЪЬЯЬЯЬШKЪЬЯЬЯЬШKЪЬЯЬЯЬШKЪЬЯЬЯЬШKЪЬЯЬЯЬШKЪЬЯЬЯЬШ KЪЬЯЬШKЪ	ЬЯЬЯЬ	ЯЬЯЬШ?KЪ	ЬЯЬЯЬЯЬ	ЯЬШ7KЪЬЯЬШЪЯЬЯШKШKШ KШKЪЯЬЯЬШЧKШ KЪЯЬ	ЯЬЯЬЯЬШKШKШ@KШ,ЪЯЬ
ЯЬЯЬЯЬЯЬЯЬЯЬШFKШ/KЪЬЯЬFЯЬШWKШKШKЪЯЬЯЬЯЬШ2KШKХStartOfExpansion)[s: ROPE, pos: INT _ 0, skip: ROPE]ШCKШЧKШ KЪЬ4ЯЬШ;KШ6KЩ3KШJKЩ]KЪ	ЬЯЬAЯЬЯЬЯЬ
ШВKШ'KШ*ЪЬGЩGKЪЬЯЬЯЬЯЬ
ШCKШ1ЧЩ"KШ5KШ?ЧKШ ЪЯЬ-ЯЬШ5KЪЬ-Щ-KЪЬIЯЬШOKЪЬQЯЬШWKЪЬOЯЬШUKЪЬLЯЬШRKЪЬVЯЬШ\KЪЬTЯЬШZKЪЬVЯЬШ\KЪЬ`ЯЬШfKЪЬXЯЬШ^KЪЬbЯЬШhKЪЬOЯЬШUKЪЬMЯЬЯЬШlKЪЬHЯЬШNKЪЬHЯЬШNKЪЬDЯЬШJKЪЬШKШ ЧKЪЯЬШЧKШKШ ЧЪЭ	ЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬШjЪЬ/Щ/KЪЬWЩWЧKЪЬЯЬШKЪЬЯЬШKЪЬЯЬШЪЯЬ>ЯШEKШBKЪЯЬЯЬЯЬШKШKЪЯЬШЧKЪЯЬШKШKШ ЧЪ
ЭЬЯЬЯЬЯЬЯЬШ2KЪЬЯЬШKЪЬЯЬШKЪЬЯЬШЪЯЬ	ЯШKЪЬЯЬШKЪЬЯЬШЪЯЬЯШKШKЪЬЯЬ$Ш8KЪЯЬШЧKШ	KЪЯЬШЧKЪЯЬШ$KЪЬШKШ ЧЪ
ЭЬЯЬЯЬЯЬЯЬШ6KЪЬЯЬШ(ЪЯЬ
ШKЪЯЬЯЬШKЪЯЬЯЬ%Ш0ЧKЪЬШKШ ЧШУKШ ЧKШМKШ KЪЬчШчЧKШ KЪЯЬШЧ ЕЧ    #.  .ю  