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

better xschem raw clear comand (if rawfile and sim_type specified delete only specified simulation data, not all analyses of rawfile)

This commit is contained in:
stefan schippers 2023-11-10 12:24:21 +01:00
parent 87f9a4e09b
commit 565ab605cf
2 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/save.c
View File

@ -931,22 +931,29 @@ int extra_rawfile(int what, const char *file, const char *type)
xctx->extra_idx = 0;
xctx->extra_raw_n = 0;
} else { /* clear provided file if found, switch to first in remaining if any */
int found = -1;
int found = 0;
tclvareval("subst {", file, "}", NULL);
my_strncpy(f, tclresult(), S(f));
if(xctx->extra_raw_n > 0 ) {
for(i = 0; i < xctx->extra_raw_n; i++) {
if(!strcmp(xctx->extra_raw_arr[i]->rawfile, f)) {
if(type && type[0] &&
!strcmp(xctx->extra_raw_arr[i]->rawfile, f) &&
!strcmp(xctx->extra_raw_arr[i]->sim_type, type)
) {
free_rawfile(&xctx->extra_raw_arr[i], 0);
found = i;
found++;
continue;
} else if( !(type && type[0]) && !strcmp(xctx->extra_raw_arr[i]->rawfile, f)) {
free_rawfile(&xctx->extra_raw_arr[i], 0);
found++;
continue;
}
if(found != -1 && i > 0) {
xctx->extra_raw_arr[i - 1] = xctx->extra_raw_arr[i];
if(found) {
xctx->extra_raw_arr[i - found] = xctx->extra_raw_arr[i];
}
}
if(found != -1) {
xctx->extra_raw_n--;
if(found != 0) {
xctx->extra_raw_n -= found;
xctx->extra_idx = 0;
xctx->extra_prev_idx = 0;
if(xctx->extra_raw_n) {

4
src/scheduler.c
View File

@ -3157,7 +3157,9 @@ int xschem(ClientData clientdata, Tcl_Interp *interp, int argc, const char * arg
update_op();
Tcl_SetResult(interp, my_itoa(ret), TCL_VOLATILE);
} else if(argc > 2 && !strcmp(argv[2], "clear")) {
if(argc > 3) {
if(argc > 4) {
ret = extra_rawfile(3, argv[3], argv[4]);
} else if(argc > 3) {
ret = extra_rawfile(3, argv[3], NULL);
} else {
ret = extra_rawfile(3, NULL, NULL);