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

CDSelectCommands: CEDAR PROGRAM
IMPORTS BasicTime, CDInstances, 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.Position, verbose: BOOL_TRUE] RETURNS [done: BOOL_TRUE] =
BEGIN
Deselect: PROC[a: CD.Instance] = 
INLINE BEGIN
IF a.selected THEN {
a.selected _ FALSE;
CDCommandOps.RedrawInstance[design, a]
}
END;
DeselectList: PROC[list: CD.InstanceList] = 
BEGIN
FOR w: CD.InstanceList _ list, w.rest WHILE w#NIL DO
Deselect[w.first]
ENDLOOP
END;
ap: CD.Instance _ NIL; --any application where pos points to
FOR w: CD.InstanceList _ CDOps.InstList[design], w.rest WHILE w#NIL DO
IF CDInstances.PointToI[pos, w.first] THEN {
IF w.first.selected THEN {
DeselectList[w.rest]; 
CDOps.ReOrderInstance[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.ReOrderInstance[design, ap];
CDCommandOps.RedrawInstance[design, ap, FALSE];
IF verbose THEN CDCommandOps.WriteInfo[ap]
}
ELSE {
done _ FALSE;
IF verbose THEN TerminalIO.WriteRope["  (no object)"];
}
END;

RectDist: PROC[pos: CD.Position, r: CD.Rect] RETURNS [CD.Number] =
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.Position, verbose: BOOL_TRUE, dist: CD.Number_100] =
BEGIN
IF ~ReSelectExclusive[design, pos, verbose] THEN {
ap: CD.Instance _ NIL;
FOR w: CD.InstanceList _ CDOps.InstList[design], w.rest WHILE w#NIL DO
d: CD.Number = RectDist[pos, CDInstances.InstRectI[w.first]];
IF d<dist THEN {ap _ w.first; dist _ d}
ENDLOOP;
IF ap#NIL THEN {
ap.selected _ TRUE;
CDCommandOps.RedrawInstance[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.Position; 
lastA: REF _ NIL;
lastTime: BasicTime.GMT _ BasicTime.earliestGMT;

SameAsLast: PROC[comm: CDSequencer.Command] RETURNS [yes: BOOL] =
BEGIN
lambda: CD.Number = comm.design.technology.lambda;
ReallyClose: PROC [p1, p2: CD.Position] RETURNS [BOOL] = INLINE {
RETURN [ABS[p1.x-p2.x]<=lambda AND ABS[p1.y-p2.y]<=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]<=lambda OR ABS[p1.y-p2.y]<=lambda]
END;
lambda: CD.Number = comm.design.technology.lambda;
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.Position, usePos: BOOL_TRUE] RETURNS [done: BOOL_FALSE] =
BEGIN 
sel: CD.Instance _ NIL;
FOR w: CD.InstanceList _ CDOps.InstList[design], w.rest WHILE w#NIL DO
IF w.first.selected THEN { 
IF ~usePos OR CDInstances.PointToI[pos, w.first] THEN sel _ w.first;
};
ENDLOOP;
IF sel#NIL THEN {
sel.selected _ FALSE;
done _ TRUE;
CDCommandOps.RedrawInstance[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]<=lambda OR ABS[p1.y-p2.y]<=lambda]
END;
lambda: CD.Number = comm.design.technology.lambda;
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,  September 19, 1985 7:55:47 pm PDT
--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
Κ
U˜
codeš
œ+™+Kšœ
Οm
œ7™BKš
œ)™)Kš
œ@™@K˜—š
Οk	˜	Kšœ	ž
˜
Kšžœ
˜K˜K˜	Kš
œ˜K˜
K˜K˜	K˜K˜—K˜šΠlnœžœ
ž˜Kšžœ_˜f—Kš
ž˜K˜šΟnœžœ˜3Kš
ž˜K˜'Kš
œ%˜%Kš
œ*˜*K˜Kšžœ
˜K˜—š œžœ
žœžœžœ
žœžœž	œ˜mKš
ž˜š œžœžœ
˜!Kšžœ
ž˜šžœžœ˜Kšœ
žœ
˜Kš
œ&˜&K˜
—Kšžœ
˜—š œžœžœ˜,Kš
ž˜š	žœžœžœžœ
ž˜4Kš
œ˜Kš
ž˜—Kšžœ
˜—KšœžœžœΟc%˜<š	žœžœ/žœžœ
ž˜Fšžœ$žœ˜,Kš
œ™šžœžœ˜Kš
œ˜Kš
œ'˜'Kšžœ	žœ!˜0Kš
ž˜Kš
œ
˜
—Kšžœ
žœžœ
žœ
˜ Kš
œ
˜
—Kšžœ˜Kšžœ
˜—Kš
œ3™3šžœžœ
žœ˜Kšœžœ˜Kš
œ"˜"Kšœ(žœ˜/Kšžœ	žœ˜*K˜
—šžœ˜Kšœžœ
˜
Kšžœ	žœ'˜6K˜
—Kšžœ
˜K˜—š œžœžœžœžœžœ
˜BK™*Kš
ž˜šžœžœ
˜Kš
œ
žœžœžœ
žœžœžœ˜NKš
œ
žœžœžœ
žœžœžœ˜MK˜—Kšžœ
˜—K˜š œžœ
žœžœžœ
žœžœ˜mKš
ž˜šžœ*žœ˜2Kšœžœžœ
˜š	žœžœ/žœžœ
ž˜FKšœžœ8˜=Kšžœžœ˜'Kšžœ
˜—šžœžœ
žœ˜Kšœžœ
˜Kšœ(žœ˜/šžœ	žœ˜Kš
œ,˜,Kš
œ˜K˜
—K˜
—K˜
—Kšžœ
˜K˜—š œžœ˜9Kš
œ'™'K™TKš
ž˜K˜Kš
œ.˜.K˜Kšžœ
˜K˜—š
‘A˜AKšœ	žœ˜Kšœžœžœ
˜Kšœžœ˜0—K˜š 
œžœžœžœ˜AKš
ž˜Kš
œ2˜2š œžœ
žœžœžœžœ˜AKšžœžœžœ
žœ˜:Kš
œ˜—Kšœžœ˜%Kšœ%žœžœ$˜]Kš
œ˜Kš
œ˜Kš
œ˜Kšžœ
˜—K˜š œžœ˜5Kš
œ'™'K™TK™"K™'Kš
ž˜K˜ Kšžœžœ'˜?Kšœ3žœ˜=K˜Kšžœ
˜—K˜šΠbnœžœ˜7Kš
ž˜š œžœ
žœžœžœž˜;Kš
ž˜Kšžœžœžœ
žœ˜9Kšžœ
˜—Kš
œ2˜2Kšžœžœ˜=Kšžœ˜Kšžœ
˜K˜—š’œžœ˜7Kš
ž˜šžœžœ˜K˜,Kšœ)žœ˜/K˜
—Kšžœ)˜-Kš
œ*˜*K˜Kšžœ
˜K˜—š œžœ˜3Kš
ž˜K˜+Kš
œ,˜,Kš
œ˜Kšžœ
˜K˜—š œžœ
žœžœžœ
žœžœžœ
žœ˜hKšžœ
˜Kšœžœžœ
˜š	žœžœ/žœžœ
ž˜Fšžœžœ˜Kšžœ	žœ$žœ˜DK˜—Kšžœ
˜—šžœžœ
žœ˜Kšœžœ
˜Kšœžœ
˜Kš
œ(˜(K˜
—Kšžœ
˜K˜—š œžœ˜8Kš
ž˜K˜+Kšœ)žœ˜/Kš
œ˜Kšžœ
˜K˜—š œžœ˜0Kš
ž˜K˜)Kš
œ*˜*K˜Kšžœ
˜K˜—š œžœ˜/Kš
ž˜K˜(Kš
œ$˜$Kšžœ
˜K˜—š œžœ˜2Kš
ž˜K˜+Kš
œ'˜'Kšžœ
˜K˜—š 	œžœ˜-Kš
ž˜K˜&Kš
œ"˜"Kšžœ
˜—K˜š 
œžœ˜1Kš
ž˜K˜1Kš
œI˜IKšžœ
˜—K˜š œžœ˜2Kš
œ(™(Kš
ž˜š œžœ
žœžœžœž˜;Kš
ž˜Kšžœžœžœ
žœ˜9Kšžœ
˜—Kš
œ2˜2Kšžœžœ˜>šžœ˜K˜1Kš
œI˜IK˜
—Kšžœ
˜—K˜š œžœ˜9Kš
ž˜K˜5KšœJžœ
˜OKšžœ
˜—K˜š œžœ˜2Kš
ž˜K˜'Kš
œ%˜%Kš
œI˜IKšžœ
˜—K˜š 	œžœ˜-Kš
œ™Kš
ž˜K˜#Kšžœžœ,˜FKšžœM˜QKš
œ˜Kšžœ
˜—K˜š œžœ˜0Kš
ž˜K˜)Kš
œK˜KKšžœ
˜—K˜š œžœ˜8Kš
ž˜K˜-KšœLžœ
˜QKšžœ
˜—K˜Kš
œF˜FKš
œN˜NKš
œO˜OKš
œB˜BK˜Kš
œJ˜JKš
œE˜EKš
œ@˜@Kš
œ>˜>Kš
œH˜HKš
œN˜NK˜Kš
œF˜FKš
œV˜VKš
œH˜HKš
œN˜NK˜Kš
œD˜DKš
œT˜TKš
œ>˜>Kšžœ
˜—…— L-u