Add a section without source info to the debug output.

Truncate .model lines in this section, as .model lines with
several hundred parameters may mask the relevant information.
This commit is contained in:
Holger Vogt 2025-02-09 19:54:08 +01:00
parent 61206e3aa7
commit d7cb5c92ba
2 changed files with 28 additions and 1 deletions

View File

@ -973,6 +973,26 @@ inp_spsource(FILE *fp, bool comfile, char *filename, bool intfile)
FILE *fdo = fopen("debug-out2.txt", "w");
if (fdo) {
struct card *tc = NULL;
fprintf(fdo,
"\n\n**************** uncommented deck without source file info "
"**************\n\n");
/* always print first line */
fprintf(fdo, "%6d %s\n", deck->linenum,
deck->line);
/* here without out-commented lines */
for (tc = deck->nextcard; tc; tc = tc->nextcard) {
if (*(tc->line) == '*')
continue;
/* Only truncated .model lines */
if (ciprefix(".model", tc->line)) {
fprintf(fdo, "%6d %.100s ...\n",
tc->linenum, tc->line);
}
else {
fprintf(fdo, "%6d %s\n",
tc->linenum, tc->line);
}
}
fprintf(fdo, "**************** uncommented deck **************\n\n");
/* always print first line */
fprintf(fdo, "%6s %6d %6d %s\n", deck->linesource, deck->linenum_orig, deck->linenum, deck->line);

View File

@ -1231,8 +1231,15 @@ struct card *inp_readall(FILE *fp, const char *dir_name, const char* file_name,
for (t = cc->nextcard; t; t = t->nextcard) {
if (*(t->line) == '*')
continue;
fprintf(fd, "%6d %s\n",
/* Only truncated .model lines */
if (ciprefix(".model", t->line)) {
fprintf(fd, "%6d %.100s ...\n",
t->linenum, t->line);
}
else {
fprintf(fd, "%6d %s\n",
t->linenum, t->line);
}
}
fprintf(fd,
"\n\n**************** uncommented deck "