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

inpcom.c, improved tprint for debugging

This commit is contained in:
h_vogt 2016-04-23 16:53:52 +02:00 committed by rlar
parent 158cc5dd93
commit f4e93da7b4
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/frontend/inpcom.c
View File

@ -148,7 +148,7 @@ static char *inp_spawn_brace(char *s);
static char *inp_pathresolve(const char *name);
static char *inp_pathresolve_at(char *name, char *dir);
static char *search_plain_identifier(char *str, const char *identifier);
void tprint(struct line *deck);
void tprint(struct line *deck, int numb);
struct inp_read_t
{ struct line *cc;
@ -530,7 +530,9 @@ inp_readall(FILE *fp, char *dir_name, bool comfile, bool intfile)
inp_fix_param_values(working);
inp_reorder_params(subckt_w_params, cc);
// tprint(working, 1);
inp_fix_inst_calls_for_numparam(subckt_w_params, working);
// tprint(working, 2);
delete_names(subckt_w_params);
subckt_w_params = NULL;
@ -5861,12 +5863,13 @@ inp_poly_err(struct line *card)
* somewhere in function inp_readall() of this file to have
* a printout of the actual deck written to file "tprint-out.txt" */
void
tprint(struct line *t)
tprint(struct line *t, int numb)
{
struct line *tmp;
char *filename = tprintf("tprint-out%d.txt", numb);
/*debug: print into file*/
FILE *fd = fopen("tprint-out.txt", "w");
FILE *fd = fopen(filename, "w");
for (tmp = t; tmp; tmp = tmp->li_next)
if (*(tmp->li_line) != '*')
fprintf(fd, "%6d %6d %s\n", tmp->li_linenum_orig, tmp->li_linenum, tmp->li_line);
@ -5882,6 +5885,7 @@ tprint(struct line *t)
if (*(tmp->li_line) != '*')
fprintf(fd, "%s\n",tmp->li_line);
fclose(fd);
tfree(filename);
}