Browse Source

inpcom.c: cleanup

pre-master-46
h_vogt 13 years ago
committed by rlar
parent
commit
1edb51ccb7
  1. 22
      src/frontend/inpcom.c

22
src/frontend/inpcom.c

@ -6063,10 +6063,17 @@ tprint(struct line *t)
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);
fprintf(fd, "\n*********************************************************************************\n\n");
fprintf(fd, "\n*********************************************************************************\n");
fprintf(fd, "*********************************************************************************\n");
fprintf(fd, "*********************************************************************************\n\n");
for (tmp = t; tmp; tmp = tmp->li_next)
fprintf(fd, "%6d %6d %s\n", tmp->li_linenum_orig, tmp->li_linenum, tmp->li_line);
fprintf(fd, "\n*********************************************************************************\n");
fprintf(fd, "*********************************************************************************\n");
fprintf(fd, "*********************************************************************************\n\n");
for (tmp = t; tmp; tmp = tmp->li_next)
if (*(tmp->li_line) != '*')
fprintf(fd, "%s\n",tmp->li_line);
fclose(fd);
}
@ -6267,8 +6274,7 @@ inp_fix_temper_in_param(struct line *deck)
continue;
if (sub_count[subckt_depth] != new_func->subckt_count)
continue;
// if (*curr_line != 'b')
// continue;
beg_str = curr_str = curr_line;
while ((beg_tstr = strstr(curr_str, new_func->funcname)) != NULL) {
/* start of token */
@ -6351,14 +6357,6 @@ inp_new_func(char *funcname, char *funcbody, struct line *card, struct func_temp
new_func_end = new_func_tmp;
}
/*
if (*new_func == NULL)
*new_func = new_func_tmp;
else {
new_func_tmp->next = *new_func;
*new_func = new_func_tmp;
}
*/
/* replace line in deck */
new_str = TMALLOC(char, strlen(funcname) + strlen(funcbody) + 10);
sprintf(new_str, ".func %s() %s", funcname, funcbody);

Loading…
Cancel
Save