luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add a variable 'debug-out-short' to enable a shortened debug-out.txt, 

useful when large circuits are monitored, which otherwise may result
in GigaBit size of data.
This commit is contained in:
Holger Vogt 2025-11-12 11:21:13 +01:00
parent 5836f9c487
commit 1ef57ffc42
2 changed files with 44 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/frontend/inp.c
View File

@ -993,19 +993,21 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
tc->linenum, tc->line); tc->linenum, tc->line);
} }
} }
fprintf(fdo, "**************** uncommented deck **************\n\n"); if (!cp_getvar("debug-out-short", CP_BOOL, NULL, 0)) {
/* always print first line */ fprintf(fdo, "**************** uncommented deck **************\n\n");
fprintf(fdo, "%6s %6d %6d %s\n", deck->linesource, deck->linenum_orig, deck->linenum, deck->line); /* always print first line */
/* here without out-commented lines */ fprintf(fdo, "%6s %6d %6d %s\n", deck->linesource, deck->linenum_orig, deck->linenum, deck->line);
for (tc = deck->nextcard; tc; tc = tc->nextcard) { /* here without out-commented lines */
if (*(tc->line) == '*') for (tc = deck->nextcard; tc; tc = tc->nextcard) {
continue; if (*(tc->line) == '*')
fprintf(fdo, "%6s %6d %6d %s\n", tc->linesource, tc->linenum_orig, tc->linenum, tc->line); continue;
fprintf(fdo, "%6s %6d %6d %s\n", tc->linesource, tc->linenum_orig, tc->linenum, tc->line);
}
fprintf(fdo, "\n****************** complete deck ***************\n\n");
/* now completely */
for (tc = deck; tc; tc = tc->nextcard)
fprintf(fdo, "%6s %6d %6d %s\n", tc->linesource, tc->linenum_orig, tc->linenum, tc->line);
} }
fprintf(fdo, "\n****************** complete deck ***************\n\n");
/* now completely */
for (tc = deck; tc; tc = tc->nextcard)
fprintf(fdo, "%6s %6d %6d %s\n", tc->linesource, tc->linenum_orig, tc->linenum, tc->line);
fclose(fdo); fclose(fdo);
} }
else else
@ -1209,10 +1211,12 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
continue; continue;
fprintf(fdo, "%6d %6d %s\n", tc->linenum_orig, tc->linenum, tc->line); fprintf(fdo, "%6d %6d %s\n", tc->linenum_orig, tc->linenum, tc->line);
} }
fprintf(fdo, "\n****************** complete deck ***************\n\n"); if (!cp_getvar("debug-out-short", CP_BOOL, NULL, 0)) {
/* now completely */ fprintf(fdo, "\n****************** complete deck ***************\n\n");
for (tc = deck; tc; tc = tc->nextcard) /* now completely */
fprintf(fdo, "%6d %6d %s\n", tc->linenum_orig, tc->linenum, tc->line); for (tc = deck; tc; tc = tc->nextcard)
fprintf(fdo, "%6d %6d %s\n", tc->linenum_orig, tc->linenum, tc->line);
}
fclose(fdo); fclose(fdo);
} }
else else

45
src/frontend/inpcom.c
View File

@ -1257,32 +1257,35 @@ struct card *inp_readall(FILE *fp, const char *dir_name, const char* file_name,
t->linenum, t->line); t->linenum, t->line);
} }
} }
fprintf(fd, if (!cp_getvar("debug-out-short", CP_BOOL, NULL, 0)) {
"\n\n**************** uncommented deck " fprintf(fd,
"**************\n\n"); "\n\n**************** uncommented deck "
/* always print first line */ "**************\n\n");
fprintf(fd, "%6s %6d %6d %s\n", cc->linesource, cc->linenum_orig, cc->linenum, /* always print first line */
cc->line); fprintf(fd, "%6s %6d %6d %s\n", cc->linesource, cc->linenum_orig, cc->linenum,
/* here without out-commented lines */ cc->line);
for (t = cc->nextcard; t; t = t->nextcard) { /* here without out-commented lines */
if (*(t->line) == '*') for (t = cc->nextcard; t; t = t->nextcard) {
continue; if (*(t->line) == '*')
fprintf(fd, "%6s %6d %6d %s\n", continue;
t->linesource, t->linenum_orig, t->linenum, t->line); fprintf(fd, "%6s %6d %6d %s\n",
} t->linesource, t->linenum_orig, t->linenum, t->line);
fprintf(fd, }
fprintf(fd,
"\n\n****************** complete deck " "\n\n****************** complete deck "
"***************\n\n"); "***************\n\n");
/* now completely */ /* now completely */
for (t = cc; t; t = t->nextcard) for (t = cc; t; t = t->nextcard)
fprintf(fd, "%6s %6d %6d %s\n", fprintf(fd, "%6s %6d %6d %s\n",
t->linesource, t->linenum_orig,t->linenum, t->line); t->linesource, t->linenum_orig, t->linenum, t->line);
}
fclose(fd); fclose(fd);
fprintf(stdout, fprintf(stdout,
"max line length %d, max subst. per line %d, number " "max line length %d, max subst. per line %d, number "
"of lines %d\n", "of lines %d\n",
(int) max_line_length, no_braces, dynmaxline); (int)max_line_length, no_braces, dynmaxline);
} }
else else
fprintf(stderr, fprintf(stderr,