Browse Source

inpcom.c, cleanup deck loops #4/4

pre-master-46
rlar 13 years ago
parent
commit
153b4ac1c3
  1. 49
      src/frontend/inpcom.c

49
src/frontend/inpcom.c

@ -933,9 +933,9 @@ inp_fix_gnd_name(struct line *c)
for (; c; c = c->li_next) {
gnd = c->li_line;
// if there is a comment or no gnd, go to next line
if ((*gnd == '*') || (strstr(gnd, "gnd") == NULL)) {
if ((*gnd == '*') || (strstr(gnd, "gnd") == NULL))
continue;
}
// replace "?gnd?" by "? 0 ?", ? being a ' ' ',' '(' ')'.
while ((gnd = strstr(gnd, "gnd")) != NULL) {
if ((isspace(gnd[-1]) || gnd[-1] == '(' || gnd[-1] == ',') &&
@ -1887,9 +1887,8 @@ inp_casefix(char *string)
static void
inp_stripcomments_deck(struct line *c)
{
for (; c; c = c->li_next) {
for (; c; c = c->li_next)
inp_stripcomments_line(c->li_line);
}
}
@ -2240,18 +2239,16 @@ inp_fix_for_numparam(struct line *c)
char *str_ptr;
for (; c; c = c->li_next) {
if (ciprefix(".lib", c->li_line) || ciprefix("*lib", c->li_line) || ciprefix("*inc", c->li_line)) {
if (ciprefix(".lib", c->li_line) || ciprefix("*lib", c->li_line) || ciprefix("*inc", c->li_line))
continue;
}
/* exclude lines between .control and .endc from getting quotes changed */
if (ciprefix(".control", c->li_line))
found_control = TRUE;
if (ciprefix(".endc", c->li_line))
found_control = FALSE;
if (found_control) {
if (found_control)
continue;
}
inp_change_quotes(c->li_line);
@ -2265,7 +2262,6 @@ inp_fix_for_numparam(struct line *c)
if (ciprefix(".subckt", c->li_line))
c->li_line = inp_fix_subckt(c->li_line);
}
}
@ -2275,18 +2271,17 @@ inp_remove_excess_ws(struct line *c)
{
bool found_control = FALSE;
for (; c; c = c->li_next) {
if (*c->li_line == '*') {
if (*c->li_line == '*')
continue;
}
/* exclude echo lines between .control and .endc from removing white spaces */
if (ciprefix(".control", c->li_line))
found_control = TRUE;
if (ciprefix(".endc", c->li_line))
found_control = FALSE;
if ((found_control) && (ciprefix("echo", c->li_line))) {
if ((found_control) && (ciprefix("echo", c->li_line)))
continue;
}
c->li_line = inp_remove_ws(c->li_line); /* freed in fcn */
}
}
@ -2303,7 +2298,6 @@ inp_remove_excess_ws(struct line *c)
static void
expand_section_references(struct line *c, int call_depth, char *dir_name)
{
for (; c; c = c->li_next) {
char *line = c->li_line;
@ -3161,9 +3155,8 @@ inp_fix_param_values(struct line *deck)
for (; c; c = c->li_next) {
line = c->li_line;
if (*line == '*' || (ciprefix(".param", line) && strchr(line, '{'))) {
if (*line == '*' || (ciprefix(".param", line) && strchr(line, '{')))
continue;
}
if (ciprefix(".control", line)) {
control_section = TRUE;
@ -3175,19 +3168,16 @@ inp_fix_param_values(struct line *deck)
}
/* no handling of params in "option" lines */
if (control_section || ciprefix(".option", line)) {
if (control_section || ciprefix(".option", line))
continue;
}
/* no handling of params in "set" lines */
if (ciprefix("set", line)) {
if (ciprefix("set", line))
continue;
}
/* no handling of params in B source lines */
if (*line == 'b') {
if (*line == 'b')
continue;
}
/* for xspice .cmodel: replace .cmodel with .model and skip entire line) */
if (ciprefix(".cmodel", line)) {
@ -3203,13 +3193,14 @@ inp_fix_param_values(struct line *deck)
/* exclude CIDER models */
if (ciprefix(".model", line) && (strstr(line, "numos") || strstr(line, "numd") ||
strstr(line, "nbjt") || strstr(line, "nbjt2") ||
strstr(line, "numd2"))) {
strstr(line, "numd2")))
{
continue;
}
/* exclude CIDER devices with ic.file parameter */
if (strstr(line, "ic.file")) {
if (strstr(line, "ic.file"))
continue;
}
while ((equal_ptr = strchr(line, '=')) != NULL) {
@ -3607,10 +3598,9 @@ inp_sort_params(struct line *start_card, struct line *end_card, struct line *car
return;
/* determine the number of lines with .param */
for (ptr = start_card; ptr; ptr = ptr->li_next) {
for (ptr = start_card; ptr; ptr = ptr->li_next)
if (strchr(ptr->li_line, '='))
num_params++;
}
arr_size = num_params;
num_params = 0; /* This is just to keep the code in row 2907ff. */
@ -3632,7 +3622,7 @@ inp_sort_params(struct line *start_card, struct line *end_card, struct line *car
ptr_array_ordered = TMALLOC(struct line *, arr_size);
ptr = start_card;
for (ptr = start_card; ptr; ptr = ptr->li_next) {
for (ptr = start_card; ptr; ptr = ptr->li_next)
// ignore .param lines without '='
if (strchr(ptr->li_line, '=')) {
depends_on[num_params][0] = NULL;
@ -3642,7 +3632,7 @@ inp_sort_params(struct line *start_card, struct line *end_card, struct line *car
ptr_array[num_params++] = ptr;
}
}
// look for duplicately defined parameters and mark earlier one to skip
// param list is ordered as defined in netlist
for (i = 0; i < num_params; i++)
@ -5683,7 +5673,6 @@ inp_add_series_resistor(struct line *deck)
static void
inp_poly_err(struct line *card)
{
size_t skip_control = 0;
for (; card; card = card->li_next) {
char *curr_line = card->li_line;

Loading…
Cancel
Save