luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

xschem select: extend command to allow selecting rectangles, lines, polygons, arcs. returns 1 if something selected, 0 otherwise

This commit is contained in:
stefan schippers 2023-09-15 17:53:38 +02:00
parent 7d2f737c3b
commit ac07510513
2 changed files with 95 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
doc/xschem_man/developer_info.html
View File

@ -498,6 +498,10 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
@ -933,9 +937,9 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
if no 'attr' is given return full attribute string, if no 'attr' is given return full attribute string,
else return value for attribute 'attr'. else return value for attribute 'attr'.
Example: xschem pinlist x3 name Example: xschem pinlist x3 name
--> {PLUS} {OUT} {MINUS} --> { {0} {PLUS} } { {1} {OUT} } { {2} {{MINUS} }
Example: xschem pinlist x3 dir Example: xschem pinlist x3 dir
--> {in} {out} {in} --> { {0} {in} } { {1} {out} } { {2} {in} }
Example: xschem pinlist x3 Example: xschem pinlist x3
--> { {0} {name=PLUS dir=in } } { {1} {name=OUT dir=out } } --> { {0} {name=PLUS dir=in } } { {1} {name=OUT dir=out } }
{ {2} {name=MINUS dir=in } }</pre> { {2} {name=MINUS dir=in } }</pre>
@ -1080,11 +1084,15 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
1 : Match case 1 : Match case
0 : Do not match case 0 : Do not match case
If not given assume 1 (Match case)</pre> If not given assume 1 (Match case)</pre>
<li><kbd> select instance|wire|text id [clear]</kbd></li><pre> <li><kbd> select instance|wire|text id [clear] [fast]</kbd></li><pre>
Select indicated instance or wire or text. select rect|line|poly|arc layer id [clear] [fast]
Select indicated instance or wire or text, or
Select indicated (layer, number) rectangle, line, polygon, arc.
For 'instance' 'id' can be the instance name or number For 'instance' 'id' can be the instance name or number
for 'wire' or 'text' 'id' is the position in the respective arrays for all other objects 'id' is the position in the respective arrays
if 'clear' is specified does an unselect operation </pre> if 'clear' is specified does an unselect operation
if 'fast' is specified avoid sending information to infowindow and status bar
returns 1 if something selected, 0 otherwise </pre>
<li><kbd> select_all</kbd></li><pre> <li><kbd> select_all</kbd></li><pre>
Selects all objects in schematic </pre> Selects all objects in schematic </pre>
<li><kbd> select_dangling_nets </kbd></li><pre> <li><kbd> select_dangling_nets </kbd></li><pre>
@ -1287,7 +1295,6 @@ C {verilog_timescale.sym} 1050 -100 0 0 {name=s1 timestep="1ns" precision="1ns"
</ul> </ul>

93
src/scheduler.c
View File

@ -3265,35 +3265,104 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
} }
} }
/* select instance|wire|text id [clear] /* select instance|wire|text id [clear] [fast]
* Select indicated instance or wire or text. * select rect|line|poly|arc layer id [clear] [fast]
* Select indicated instance or wire or text, or
* Select indicated (layer, number) rectangle, line, polygon, arc.
* For 'instance' 'id' can be the instance name or number * For 'instance' 'id' can be the instance name or number
* for 'wire' or 'text' 'id' is the position in the respective arrays * for all other objects 'id' is the position in the respective arrays
* if 'clear' is specified does an unselect operation */ * if 'clear' is specified does an unselect operation
* if 'fast' is specified avoid sending information to infowindow and status bar
* returns 1 if something selected, 0 otherwise */
else if(!strcmp(argv[1], "select")) else if(!strcmp(argv[1], "select"))
{ {
short unsigned int sel = SELECTED; short unsigned int sel = SELECTED;
int fast = 0;
if(argc < 3) { if(argc < 3) {
Tcl_SetResult(interp, "xschem select: missing arguments.", TCL_STATIC); Tcl_SetResult(interp, "xschem select: missing arguments.", TCL_STATIC);
return TCL_ERROR; return TCL_ERROR;
} else if(argc < 5 && (!strcmp(argv[2], "rect") || !strcmp(argv[2], "line") ||
!strcmp(argv[2], "poly") || !strcmp(argv[2], "arc"))) {
Tcl_SetResult(interp, "xschem select: missing arguments.", TCL_STATIC);
return TCL_ERROR;
} else if(argc < 4) {
Tcl_SetResult(interp, "xschem select: missing arguments.", TCL_STATIC);
return TCL_ERROR;
}
if(argc > 4) {
int i;
for(i = 4; i < argc; i++) {
if(!strcmp(argv[i], "clear")) sel = 0;
if(!strcmp(argv[i], "fast")) fast = 1;
}
} }
if(argc > 4 && !strcmp(argv[4], "clear")) sel = 0;
if(!strcmp(argv[2], "instance") && argc > 3) { if(!strcmp(argv[2], "instance") && argc > 3) {
int i; int n;
/* find by instance name or number*/ /* find by instance name or number*/
i = get_instance(argv[3]); n = get_instance(argv[3]);
if(i >= 0) { if(n >= 0) {
select_element(i, sel, 0, 0); select_element(n, sel, fast, 0);
xctx->ui_state |= SELECTION;
} }
Tcl_SetResult(interp, (i >= 0) ? "1" : "0" , TCL_STATIC); Tcl_SetResult(interp, (n >= 0) ? "1" : "0" , TCL_STATIC);
} }
else if(!strcmp(argv[2], "wire") && argc > 3) { else if(!strcmp(argv[2], "wire") && argc > 3) {
int n=atoi(argv[3]); int n=atoi(argv[3]);
if(n<xctx->wires && n >= 0) select_wire(atoi(argv[3]), sel, 0); int valid = n < xctx->wires && n >= 0;
if(valid) {
select_wire(n, sel, fast);
xctx->ui_state |= SELECTION;
}
Tcl_SetResult(interp, valid ? "1" : "0" , TCL_STATIC);
}
else if(!strcmp(argv[2], "line") && argc > 4) {
int c=atoi(argv[3]);
int n=atoi(argv[4]);
int valid = n < xctx->lines[c] && n >= 0 && c < cadlayers && c >= 0;
if(valid) {
select_line(c, n, sel, fast);
xctx->ui_state |= SELECTION;
}
Tcl_SetResult(interp, valid ? "1" : "0" , TCL_STATIC);
}
else if(!strcmp(argv[2], "rect") && argc > 4) {
int c=atoi(argv[3]);
int n=atoi(argv[4]);
int valid = n < xctx->rects[c] && n >= 0 && c < cadlayers && c >= 0;
if(valid) {
select_box(c, n, sel, fast, 0);
xctx->ui_state |= SELECTION;
}
Tcl_SetResult(interp, valid ? "1" : "0" , TCL_STATIC);
}
else if(!strcmp(argv[2], "arc") && argc > 4) {
int c=atoi(argv[3]);
int n=atoi(argv[4]);
int valid = n < xctx->arcs[c] && n >= 0 && c < cadlayers && c >= 0;
if(valid) {
select_arc(c, n, sel, fast);
xctx->ui_state |= SELECTION;
}
Tcl_SetResult(interp, valid ? "1" : "0" , TCL_STATIC);
}
else if(!strcmp(argv[2], "poly") && argc > 4) {
int c=atoi(argv[3]);
int n=atoi(argv[4]);
int valid = n < xctx->polygons[c] && n >= 0 && c < cadlayers && c >= 0;
if(valid) {
select_polygon(c, n, sel, fast);
xctx->ui_state |= SELECTION;
}
Tcl_SetResult(interp, valid ? "1" : "0" , TCL_STATIC);
} }
else if(!strcmp(argv[2], "text") && argc > 3) { else if(!strcmp(argv[2], "text") && argc > 3) {
int n=atoi(argv[3]); int n=atoi(argv[3]);
if(n<xctx->texts && n >= 0) select_text(atoi(argv[3]), sel, 0); int valid = n < xctx->texts && n >= 0;
if(valid) {
select_text(n, sel, fast);
xctx->ui_state |= SELECTION;
}
Tcl_SetResult(interp, valid ? "1" : "0" , TCL_STATIC);
} }
drawtemparc(xctx->gc[SELLAYER], END, 0.0, 0.0, 0.0, 0.0, 0.0); drawtemparc(xctx->gc[SELLAYER], END, 0.0, 0.0, 0.0, 0.0, 0.0);
drawtemprect(xctx->gc[SELLAYER], END, 0.0, 0.0, 0.0, 0.0); drawtemprect(xctx->gc[SELLAYER], END, 0.0, 0.0, 0.0, 0.0);