DIRECTORY
BasicTime,
CD,
CDApplications,
CDBasics,
CDSimpleOps,
CDCommandOps,
CDOps,
CDOrient,
CDSequencer,
TerminalIO;

CDSelectCommands: CEDAR PROGRAM
IMPORTS BasicTime, CDApplications, CDBasics, CDCommandOps, CDSimpleOps, CDOps, CDSequencer, TerminalIO = 
BEGIN

SelectExclusive: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Select pointed"];
CDSimpleOps.DeselectAll[comm.design];
CDSimpleOps.Select[comm.design, comm.pos];
TerminalIO.WriteLn[];
END;

ReSelectExclusive: PROC [design: CD.Design, pos: CD.DesignPosition, verbose: BOOL_TRUE] RETURNS [done: BOOL_TRUE] =
BEGIN
Deselect: PROC[a: CD.ApplicationPtr] = 
INLINE BEGIN
IF a.selected THEN {
a.selected _ FALSE;
CDCommandOps.RedrawApplication[design, a]
}
END;
DeselectList: PROC[list: CD.ApplicationList] = 
BEGIN
FOR w: CD.ApplicationList _ list, w.rest WHILE w#NIL DO
Deselect[w.first]
ENDLOOP
END;
ap: CD.ApplicationPtr _ NIL; --any application where pos points to
FOR w: CD.ApplicationList _ CDOps.AppList[design], w.rest WHILE w#NIL DO
IF CDApplications.PointToI[pos, w.first] THEN {
IF w.first.selected THEN {
DeselectList[w.rest]; 
CDOps.ReOrderApplication[design, w.first];
IF verbose THEN CDCommandOps.WriteInfo[w.first];
RETURN
}
ELSE IF ap=NIL THEN ap _ w.first
}
ELSE Deselect[w.first]
ENDLOOP;
IF ap#NIL THEN {
ap.selected _ TRUE; 
CDOps.ReOrderApplication[design, ap];
CDCommandOps.RedrawApplication[design, ap, FALSE];
IF verbose THEN CDCommandOps.WriteInfo[ap]
}
ELSE {
done _ FALSE;
IF verbose THEN TerminalIO.WriteRope["  (no object)"];
}
END;

RectDist: PROC[pos: CD.DesignPosition, r: CD.Rect] RETURNS [CD.DesignNumber] =
BEGIN
RETURN [MAX[
(IF pos.x<r.x1 THEN (r.x1-pos.x) ELSE IF pos.x>r.x2 THEN (pos.x-r.x2) ELSE 0),
(IF pos.y<r.y1 THEN (r.y1-pos.y) ELSE IF pos.y>r.y2 THEN (pos.y-r.y2) ELSE 0)
]]
END;

CloseReSelectExclusive: PROC [design: CD.Design, pos: CD.DesignPosition, verbose: BOOL_TRUE, dist: CD.DesignNumber_100] =
BEGIN
IF ~ReSelectExclusive[design, pos, verbose] THEN {
ap: CD.ApplicationPtr _ NIL;
FOR w: CD.ApplicationList _ CDOps.AppList[design], w.rest WHILE w#NIL DO
d: CD.DesignNumber = RectDist[pos, CDApplications.ARectI[w.first]];
IF d<dist THEN {ap _ w.first; dist _ d}
ENDLOOP;
IF ap#NIL THEN {
ap.selected _ TRUE;
CDCommandOps.RedrawApplication[design, ap, FALSE];
IF verbose THEN {
TerminalIO.WriteRope[" found close object"];
CDCommandOps.WriteInfo[ap]
}
}
}
END;

ReSelectExclusiveComm: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Select"];
[] _ ReSelectExclusive[comm.design, comm.pos];
TerminalIO.WriteLn[];
END;

--crazy heuristics to determine which kind of selection is wanted
lastPos: CD.DesignPosition; 
lastA: REF _ NIL;
lastTime: BasicTime.GMT _ BasicTime.earliestGMT;

SameAsLast: PROC[comm: CDSequencer.Command] RETURNS [yes: BOOL] =
BEGIN
ReallyClose: PROC [p1, p2: CD.Position] RETURNS [BOOL] = INLINE {
RETURN [ABS[p1.x-p2.x]<=CD.lambda AND ABS[p1.y-p2.y]<=CD.lambda]
};
now: BasicTime.GMT _ BasicTime.Now[];
yes _ ReallyClose[lastPos, comm.pos] AND lastA=comm.a AND BasicTime.Period[lastTime, now]<=2;
lastPos _ comm.pos;
lastA _ comm.a;
lastTime _ now;
END;

CloseReSelectComm: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["select "];
IF SameAsLast[comm] THEN CDSimpleOps.DeselectAll[comm.design]; 
[] _ CloseReSelectExclusive[comm.design, comm.pos, TRUE, 50];
TerminalIO.WriteLn[];
END;

MultiOnlySelectComm: PROC [comm: CDSequencer.Command] =
BEGIN
NotRect: PROC [p1, p2: CD.Position] RETURNS [BOOL] = INLINE
BEGIN
RETURN [ABS[p1.x-p2.x]<=CD.lambda OR ABS[p1.y-p2.y]<=CD.lambda]
END;
IF NotRect[comm.pos, comm.sPos] THEN CloseReSelectComm[comm] 
ELSE AreaOnlySelect[comm];
END;

DoubleAddSelectComm: PROC [comm: CDSequencer.Command] =
BEGIN
IF SameAsLast[comm] THEN {
TerminalIO.WriteRope["Change selection  "]; 
[] _ DeSelectLast[comm.design, comm.pos, TRUE];
}
ELSE TerminalIO.WriteRope["Add selection  "];
CDSimpleOps.Select[comm.design, comm.pos];
TerminalIO.WriteLn[];
END;

DeselectPointed: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Remove selection "]; 
CDSimpleOps.DeSelect[comm.design, comm.pos];
TerminalIO.WriteLn[];
END;

DeSelectLast: PROC [design: CD.Design, pos: CD.DesignPosition, usePos: BOOL_TRUE] RETURNS [done: BOOL_FALSE] =
BEGIN 
sel: CD.ApplicationPtr _ NIL;
FOR w: CD.ApplicationList _ CDOps.AppList[design], w.rest WHILE w#NIL DO
IF w.first.selected THEN { 
IF ~usePos OR CDApplications.PointToI[pos, w.first] THEN sel _ w.first;
};
ENDLOOP;
IF sel#NIL THEN {
sel.selected _ FALSE;
done _ TRUE;
CDCommandOps.RedrawApplication[design, sel]
}
END;

DeselectLastSelected: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Remove selection "]; 
[] _ DeSelectLast[comm.design, comm.pos, TRUE];
TerminalIO.WriteLn[];
END;

AddSelection: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Add selection  "]; 
CDSimpleOps.Select[comm.design, comm.pos];
TerminalIO.WriteLn[];
END;

DeselectAll: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Deselect all\n"]; 
CDSimpleOps.DeselectAll[comm.design]
END;

DeleteSelected: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Delete selected\n"]; 
CDSimpleOps.DeleteSelected[comm.design]
END;

SelectAll: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Select all\n"]; 
CDSimpleOps.SelectAll[comm.design]
END;

AreaAddSelect: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Inclusive select area\n"]; 
CDSimpleOps.AreaSelect[comm.design, CDBasics.ToRect[comm.pos, comm.sPos]]
END;

MultiAddSelect: PROC [comm: CDSequencer.Command] =
BEGIN
NotRect: PROC [p1, p2: CD.Position] RETURNS [BOOL] = INLINE
BEGIN
RETURN [ABS[p1.x-p2.x]<=CD.lambda OR ABS[p1.y-p2.y]<=CD.lambda]
END;
IF NotRect[comm.pos, comm.sPos] THEN DoubleAddSelectComm[comm]
ELSE {
TerminalIO.WriteRope["select inclusive area\n"]; 
CDSimpleOps.AreaSelect[comm.design, CDBasics.ToRect[comm.pos, comm.sPos]]
}
END;

AreaAddSelectTouching: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["select inclusive touching\n"]; 
CDSimpleOps.AreaSelect[comm.design, CDBasics.ToRect[comm.pos, comm.sPos], TRUE]
END;

AreaOnlySelect: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Select area\n"]; 
CDSimpleOps.DeselectAll[comm.design];
CDSimpleOps.AreaSelect[comm.design, CDBasics.ToRect[comm.pos, comm.sPos]]
END;

ADeSelect: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Deselect "]; 
IF comm.pos=comm.sPos THEN CDSimpleOps.DeSelect[comm.design, comm.pos]
ELSE CDSimpleOps.AreaDeSelect[comm.design, CDBasics.ToRect[comm.pos, comm.sPos]];
TerminalIO.WriteLn[];
END;

AreaDeSelect: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Deselect area\n"]; 
CDSimpleOps.AreaDeSelect[comm.design, CDBasics.ToRect[comm.pos, comm.sPos]]
END;

AreaDeSelectTouching: PROC [comm: CDSequencer.Command] =
BEGIN
TerminalIO.WriteRope["Deselect touching\n"]; 
CDSimpleOps.AreaDeSelect[comm.design, CDBasics.ToRect[comm.pos, comm.sPos], TRUE]
END;

CDSequencer.ImplementCommand[$OnlySelectP, SelectExclusive,, doQueue];
CDSequencer.ImplementCommand[$ReSelectOnlyP, ReSelectExclusiveComm,, doQueue];
CDSequencer.ImplementCommand[$CloseReSelectOnlyP, CloseReSelectComm,, doQueue];
CDSequencer.ImplementCommand[$AddSelectP, AddSelection,, doQueue];

CDSequencer.ImplementCommand[$DeSelectLP, DeselectLastSelected,, doQueue];
CDSequencer.ImplementCommand[$DeSelectFP, DeselectPointed,, doQueue];
CDSequencer.ImplementCommand[$DeSelectS, DeselectAll,, doQueue];
CDSequencer.ImplementCommand[$SelectAll, SelectAll,, doQueue];
CDSequencer.ImplementCommand[$AreaOnlySelect, AreaOnlySelect,, doQueue];
CDSequencer.ImplementCommand[$MultiOnlySelect, MultiOnlySelectComm,, doQueue];

CDSequencer.ImplementCommand[$AreaAddSelect, AreaAddSelect,, doQueue];
CDSequencer.ImplementCommand[$AreaAddSelectTouching, AreaAddSelectTouching,, doQueue];
CDSequencer.ImplementCommand[$MultiAddSelect, MultiAddSelect,, doQueue];
CDSequencer.ImplementCommand[$DoubleAddSelect, DoubleAddSelectComm,, doQueue];

CDSequencer.ImplementCommand[$AreaDeSelect, AreaDeSelect,, doQueue];
CDSequencer.ImplementCommand[$AreaDeSelectTouching, AreaDeSelectTouching,, doQueue];
CDSequencer.ImplementCommand[$ADeSelect, ADeSelect,, doQueue];
END.
ÒCDSelectCommands.mesa   (part of ChipNDale)
Copyright c 1983, 1985 by Xerox Corporation.  All rights reserved.
Christian Jacobi   June 29, 1983 4:44 pm 
last edited Christian Jacobi   January 18, 1985 7:30:49 pm PST
--hit
--if a selected ap is pointed we already did return
--Distance between a point and a rectangle
--select pointed application exclusive;
--(but dont select an other application if the pointed one is already the right one)
--select pointed application exclusive;
--(but dont select an other application if the pointed one is already the right one)
--if there is none, select closest
--cycle through if exactly sme position
--Auto select area or pointed or changed
--Auto deselect area or pointed
�Ê
Q˜š
œ+™+Jšœ
Ïm
œ7™BJš
œ)™)Jš
œ>™>J˜—š
Ïk	˜	Jšœ	ž
˜
Jšžœ
˜J˜J˜	Jš
œ˜J˜
J˜J˜	J˜J˜J˜—šÏnœžœ
ž˜Jšžœb˜i—Jš
ž˜J˜šŸœžœ˜3Jš
ž˜J˜'Jš
œ%˜%Jš
œ*˜*J˜Jšžœ
˜J˜—šŸœžœ
žœžœžœ
žœžœž	œ˜sJš
ž˜šŸœžœžœ˜'Jšžœ
ž˜šžœžœ˜Jšœ
žœ
˜Jš
œ)˜)J˜
—Jšžœ
˜—šŸœžœžœ˜/Jš
ž˜š	žœžœ žœžœ
ž˜7Jš
œ˜Jš
ž˜—Jšžœ
˜—JšœžœžœÏc%˜Bš	žœžœ1žœžœ
ž˜Hšžœ'žœ˜/Jš
œ™šžœžœ˜Jš
œ˜Jš
œ*˜*Jšžœ	žœ!˜0Jš
ž˜Jš
œ
˜
—Jšžœ
žœžœ
žœ
˜ Jš
œ
˜
—Jšžœ˜Jšžœ
˜—Jš
œ3™3šžœžœ
žœ˜Jšœžœ˜Jš
œ%˜%Jšœ+žœ˜2Jšžœ	žœ˜*J˜
—šžœ˜Jšœžœ
˜
Jšžœ	žœ'˜6J˜
—Jšžœ
˜J˜—šŸœžœžœžœžœžœ˜NJ™*Jš
ž˜šžœžœ
˜Jš
œ
žœžœžœ
žœžœžœ˜NJš
œ
žœžœžœ
žœžœžœ˜MJ˜—Jšžœ
˜—J˜šŸœžœ
žœžœžœ
žœžœ˜yJš
ž˜šžœ*žœ˜2Jšœžœžœ
˜š	žœžœ1žœžœ
ž˜HJšœžœ>˜CJšžœžœ˜'Jšžœ
˜—šžœžœ
žœ˜Jšœžœ
˜Jšœ+žœ˜2šžœ	žœ˜Jš
œ,˜,Jš
œ˜J˜
—J˜
—J˜
—Jšžœ
˜J˜—šŸœžœ˜9Jš
œ'™'J™TJš
ž˜J˜Jš
œ.˜.J˜Jšžœ
˜J˜—š
 A˜AJšœ	žœ˜Jšœžœžœ
˜Jšœžœ˜0—J˜šŸ
œžœžœžœ˜AJš
ž˜šŸœžœ
žœžœžœžœ˜AJšžœžœ
žœžœ
žœ
žœ˜@Jš
œ˜—Jšœžœ˜%Jšœ%žœžœ$˜]Jš
œ˜Jš
œ˜Jš
œ˜Jšžœ
˜—J˜šŸœžœ˜5Jš
œ'™'J™TJ™"J™'Jš
ž˜J˜ Jšžœžœ'˜?Jšœ3žœ˜=J˜Jšžœ
˜—J˜šÐbnœžœ˜7Jš
ž˜šŸœžœ
žœžœžœž˜;Jš
ž˜Jšžœžœ
žœžœ
žœ
žœ˜?Jšžœ
˜—Jšžœžœ˜=Jšžœ˜Jšžœ
˜J˜—š¡œžœ˜7Jš
ž˜šžœžœ˜J˜,Jšœ)žœ˜/J˜
—Jšžœ)˜-Jš
œ*˜*J˜Jšžœ
˜J˜—šŸœžœ˜3Jš
ž˜J˜+Jš
œ,˜,Jš
œ˜Jšžœ
˜J˜—šŸœžœ
žœžœžœ
žœžœžœ
žœ˜nJšžœ
˜Jšœžœžœ
˜š	žœžœ1žœžœ
ž˜Hšžœžœ˜Jšžœ	žœ'žœ˜GJ˜—Jšžœ
˜—šžœžœ
žœ˜Jšœžœ
˜Jšœžœ
˜Jš
œ+˜+J˜
—Jšžœ
˜J˜—šŸœžœ˜8Jš
ž˜J˜+Jšœ)žœ˜/Jš
œ˜Jšžœ
˜J˜—šŸœžœ˜0Jš
ž˜J˜)Jš
œ*˜*J˜Jšžœ
˜J˜—šŸœžœ˜/Jš
ž˜J˜(Jš
œ$˜$Jšžœ
˜J˜—šŸœžœ˜2Jš
ž˜J˜+Jš
œ'˜'Jšžœ
˜J˜—šŸ	œžœ˜-Jš
ž˜J˜&Jš
œ"˜"Jšžœ
˜—J˜šŸ
œžœ˜1Jš
ž˜J˜1Jš
œI˜IJšžœ
˜—J˜šŸœžœ˜2Jš
œ(™(Jš
ž˜šŸœžœ
žœžœžœž˜;Jš
ž˜Jšžœžœ
žœžœ
žœ
žœ˜?Jšžœ
˜—Jšžœžœ˜>šžœ˜J˜1Jš
œI˜IJ˜
—Jšžœ
˜—J˜šŸœžœ˜9Jš
ž˜J˜5JšœJžœ
˜OJšžœ
˜—J˜šŸœžœ˜2Jš
ž˜J˜'Jš
œ%˜%Jš
œI˜IJšžœ
˜—J˜šŸ	œžœ˜-Jš
œ™Jš
ž˜J˜#Jšžœžœ,˜FJšžœM˜QJš
œ˜Jšžœ
˜—J˜šŸœžœ˜0Jš
ž˜J˜)Jš
œK˜KJšžœ
˜—J˜šŸœžœ˜8Jš
ž˜J˜-JšœLžœ
˜QJšžœ
˜—J˜Jš
œF˜FJš
œN˜NJš
œO˜OJš
œB˜BJ˜Jš
œJ˜JJš
œE˜EJš
œ@˜@Jš
œ>˜>Jš
œH˜HJš
œN˜NJ˜Jš
œF˜FJš
œV˜VJš
œH˜HJš
œN˜NJ˜Jš
œD˜DJš
œT˜TJš
œ>˜>Jšžœ
˜—…— 8-[