inpcom.c, cleanup
This commit is contained in:
rlar
parent
9181e7a008
commit
46a8f9bf0f
|
|
@ -157,9 +157,11 @@ static struct library *
|
|||
find_lib(char *name)
|
||||
{
|
||||
int i;
|
||||
|
||||
for (i = 0; i < num_libraries; i++)
|
||||
if (cieq(libraries[i].name, name))
|
||||
return & libraries[i];
|
||||
|
||||
return NULL;
|
||||
}
|
||||
|
||||
|
|
@ -168,9 +170,13 @@ static struct line *
|
|||
find_section_definition(struct line *c, char *name)
|
||||
{
|
||||
for (; c; c = c->li_next) {
|
||||
|
||||
char *line = c->li_line;
|
||||
|
||||
if (ciprefix(".lib", line)) {
|
||||
|
||||
char *s, *t, *y;
|
||||
|
||||
s = skip_non_ws(line);
|
||||
while (isspace(*s) || isquote(*s))
|
||||
s++;
|
||||
|
|
@ -403,6 +409,7 @@ find_assignment(char *str)
|
|||
...
|
||||
debug printout to debug-out.txt
|
||||
*-------------------------------------------------------------------------*/
|
||||
|
||||
struct line *
|
||||
inp_readall(FILE *fp, int call_depth, char *dir_name, bool comfile, bool intfile)
|
||||
/* fp: in, pointer to file to be read,
|
||||
|
|
@ -852,6 +859,7 @@ inp_readall(FILE *fp, int call_depth, char *dir_name, bool comfile, bool intfile
|
|||
if the file isn't in . and it isn't an abs path name.
|
||||
For MS Windows: First try the path of the source file.
|
||||
*-------------------------------------------------------------------------*/
|
||||
|
||||
FILE *
|
||||
inp_pathopen(char *name, char *mode)
|
||||
{
|
||||
|
|
@ -861,6 +869,7 @@ inp_pathopen(char *name, char *mode)
|
|||
|
||||
#if defined(HAS_WINGUI)
|
||||
char buf2[BSIZE_SP];
|
||||
|
||||
/* search in the path where the source (input) file has been found,
|
||||
but only if "name" is just a file name */
|
||||
if (!strchr(name, DIR_TERM) && !strchr(name, DIR_TERM_LINUX) && cp_getvar("sourcefile", CP_STRING, buf2)) {
|
||||
|
|
@ -882,6 +891,7 @@ inp_pathopen(char *name, char *mode)
|
|||
if ((fp = fopen(buf2, mode)) != NULL)
|
||||
return (fp);
|
||||
}
|
||||
|
||||
/* If this is an abs pathname, or there is no sourcepath var, just
|
||||
* do an fopen.
|
||||
*/
|
||||
|
|
@ -890,15 +900,16 @@ inp_pathopen(char *name, char *mode)
|
|||
return (fopen(name, mode));
|
||||
#else
|
||||
|
||||
|
||||
/* If this is an abs pathname, or there is no sourcepath var, just
|
||||
* do an fopen.
|
||||
*/
|
||||
if (strchr(name, DIR_TERM) || !cp_getvar("sourcepath", CP_LIST, &v))
|
||||
return (fopen(name, mode));
|
||||
|
||||
#endif
|
||||
|
||||
for (; v; v = v->va_next) {
|
||||
|
||||
switch (v->va_type) {
|
||||
case CP_STRING:
|
||||
cp_wstrip(v->va_string);
|
||||
|
|
@ -910,17 +921,20 @@ inp_pathopen(char *name, char *mode)
|
|||
case CP_REAL: /* This is foolish */
|
||||
(void) sprintf(buf, "%g%s%s", v->va_real, DIR_PATHSEP, name);
|
||||
break;
|
||||
default: {
|
||||
default:
|
||||
fprintf(stderr, "ERROR: enumeration value `CP_BOOL' or `CP_LIST' not handled in inp_pathopen\nAborting...\n");
|
||||
controlled_exit(EXIT_FAILURE);
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
if ((fp = fopen(buf, mode)) != NULL)
|
||||
return (fp);
|
||||
}
|
||||
|
||||
return (NULL);
|
||||
}
|
||||
|
||||
|
||||
/*-------------------------------------------------------------------------*
|
||||
* This routine reads a line (of arbitrary length), up to a '\n' or 'EOF' *
|
||||
* and returns a pointer to the resulting null terminated string. *
|
||||
|
|
@ -928,6 +942,7 @@ inp_pathopen(char *name, char *mode)
|
|||
* From: jason@ucbopal.BERKELEY.EDU (Jason Venner) *
|
||||
* Newsgroups: net.sources *
|
||||
*-------------------------------------------------------------------------*/
|
||||
|
||||
#define STRGROW 256
|
||||
|
||||
static char *
|
||||
|
|
@ -942,38 +957,48 @@ readline(FILE *fd)
|
|||
memlen = STRGROW;
|
||||
strptr = TMALLOC(char, memlen);
|
||||
memlen -= 1; /* Save constant -1's in while loop */
|
||||
|
||||
while ((c = getc(fd)) != EOF) {
|
||||
|
||||
if (strlen == 0 && (c == '\t' || c == ' ')) /* Leading spaces away */
|
||||
continue;
|
||||
|
||||
strptr[strlen++] = (char) c;
|
||||
|
||||
if (strlen >= memlen) {
|
||||
memlen += STRGROW;
|
||||
if ((strptr = TREALLOC(char, strptr, memlen + 1)) == NULL)
|
||||
return (NULL);
|
||||
}
|
||||
|
||||
if (c == '\n')
|
||||
break;
|
||||
}
|
||||
|
||||
if (!strlen) {
|
||||
tfree(strptr);
|
||||
return (NULL);
|
||||
}
|
||||
|
||||
// strptr[strlen] = '\0';
|
||||
/* Trim the string */
|
||||
strptr = TREALLOC(char, strptr, strlen + 1);
|
||||
strptr[strlen] = '\0';
|
||||
|
||||
return (strptr);
|
||||
}
|
||||
|
||||
|
||||
/* replace "gnd" by " 0 "
|
||||
Delimiters of gnd may be ' ' or ',' or '(' or ')' */
|
||||
|
||||
static void
|
||||
inp_fix_gnd_name(struct line *c)
|
||||
{
|
||||
|
||||
for (; c; c = c->li_next) {
|
||||
|
||||
char *gnd = c->li_line;
|
||||
|
||||
// if there is a comment or no gnd, go to next line
|
||||
if ((*gnd == '*') || !strstr(gnd, "gnd"))
|
||||
continue;
|
||||
|
|
@ -986,6 +1011,7 @@ inp_fix_gnd_name(struct line *c)
|
|||
}
|
||||
gnd += 3;
|
||||
}
|
||||
|
||||
// now remove the extra white spaces around 0
|
||||
c->li_line = inp_remove_ws(c->li_line);
|
||||
}
|
||||
|
|
@ -998,6 +1024,7 @@ inp_chk_for_multi_in_vcvs(struct line *c, int *line_number)
|
|||
int skip_control = 0;
|
||||
|
||||
for (; c; c = c->li_next) {
|
||||
|
||||
char *line = c->li_line;
|
||||
|
||||
/* there is no e source inside .control ... .endc */
|
||||
|
|
@ -1118,19 +1145,24 @@ inp_add_control_section(struct line *deck, int *line_number)
|
|||
char *op_line = NULL, rawfile[1000], *line;
|
||||
|
||||
for (c = deck; c; c = c->li_next) {
|
||||
|
||||
if (*c->li_line == '*')
|
||||
continue;
|
||||
|
||||
if (ciprefix(".op ", c->li_line)) {
|
||||
*c->li_line = '*';
|
||||
op_line = c->li_line + 1;
|
||||
}
|
||||
|
||||
if (ciprefix(".end", c->li_line))
|
||||
found_end = TRUE;
|
||||
|
||||
if (found_control && ciprefix("run", c->li_line))
|
||||
found_run = TRUE;
|
||||
|
||||
if (ciprefix(".control", c->li_line))
|
||||
found_control = TRUE;
|
||||
|
||||
if (ciprefix(".endc", c->li_line)) {
|
||||
found_control = FALSE;
|
||||
|
||||
|
|
@ -1139,6 +1171,7 @@ inp_add_control_section(struct line *deck, int *line_number)
|
|||
prev_card = prev_card->li_next;
|
||||
found_run = TRUE;
|
||||
}
|
||||
|
||||
if (cp_getvar("rawfile", CP_STRING, rawfile)) {
|
||||
line = TMALLOC(char, strlen("write") + strlen(rawfile) + 2);
|
||||
sprintf(line, "write %s", rawfile);
|
||||
|
|
@ -1146,6 +1179,7 @@ inp_add_control_section(struct line *deck, int *line_number)
|
|||
prev_card = prev_card->li_next;
|
||||
}
|
||||
}
|
||||
|
||||
prev_card = c;
|
||||
}
|
||||
|
||||
|
|
@ -1171,10 +1205,12 @@ inp_add_control_section(struct line *deck, int *line_number)
|
|||
|
||||
|
||||
// look for shell-style end-of-line continuation '\\'
|
||||
|
||||
static bool
|
||||
chk_for_line_continuation(char *line)
|
||||
{
|
||||
if (*line != '*' && *line != '$') {
|
||||
|
||||
char *ptr = skip_back_ws_(strchr(line, '\0'), line);
|
||||
|
||||
if ((ptr - 2 >= line) && (ptr[-1] == '\\') && (ptr[-2] == '\\')) {
|
||||
|
|
@ -1241,6 +1277,7 @@ inp_fix_macro_param_func_paren_io(struct line *card)
|
|||
card->li_line = inp_remove_ws(card->li_line); /* remove the extra white spaces just introduced */
|
||||
}
|
||||
}
|
||||
|
||||
if (ciprefix(".param", card->li_line)) {
|
||||
bool is_func = FALSE;
|
||||
str_ptr = skip_non_ws(card->li_line); // skip over .param
|
||||
|
|
@ -1284,6 +1321,7 @@ get_instance_subckt(char *line)
|
|||
end_ptr = skip_back_ws_(end_ptr, line);
|
||||
|
||||
inst_name_ptr = skip_back_non_ws_(end_ptr, line);
|
||||
|
||||
return copy_substring(inst_name_ptr, end_ptr);
|
||||
}
|
||||
|
||||
|
|
@ -1297,6 +1335,7 @@ get_subckt_model_name(char *line)
|
|||
name = skip_ws(name);
|
||||
|
||||
end_ptr = skip_non_ws(name);
|
||||
|
||||
return copy_substring(name, end_ptr);
|
||||
}
|
||||
|
||||
|
|
@ -1314,6 +1353,7 @@ get_model_name(char *line, int num_terminals)
|
|||
beg_ptr = skip_non_ws(beg_ptr);
|
||||
beg_ptr = skip_ws(beg_ptr);
|
||||
}
|
||||
|
||||
if (*line == 'r') /* special dealing for r models */
|
||||
if ((*beg_ptr == '+') || (*beg_ptr == '-') || isdigit(*beg_ptr)) { /* looking for a value before model */
|
||||
beg_ptr = skip_non_ws(beg_ptr); /* skip the value */
|
||||
|
|
@ -1321,6 +1361,7 @@ get_model_name(char *line, int num_terminals)
|
|||
}
|
||||
|
||||
end_ptr = skip_non_ws(beg_ptr);
|
||||
|
||||
return copy_substring(beg_ptr, end_ptr);
|
||||
}
|
||||
|
||||
|
|
@ -1329,12 +1370,16 @@ static char*
|
|||
get_model_type(char *line)
|
||||
{
|
||||
char *beg_ptr;
|
||||
|
||||
if (!ciprefix(".model", line))
|
||||
return NULL;
|
||||
|
||||
beg_ptr = skip_non_ws(line); /* eat .model */
|
||||
beg_ptr = skip_ws(beg_ptr);
|
||||
|
||||
beg_ptr = skip_non_ws(beg_ptr); /* eat model name */
|
||||
beg_ptr = skip_ws(beg_ptr);
|
||||
|
||||
return gettok(&beg_ptr);
|
||||
}
|
||||
|
||||
|
|
@ -1346,6 +1391,7 @@ get_adevice_model_name(char *line)
|
|||
|
||||
ptr_end = skip_back_ws_(strchr(line, '\0'), line);
|
||||
ptr_beg = skip_back_non_ws_(ptr_end, line);
|
||||
|
||||
return copy_substring(ptr_beg, ptr_end);
|
||||
}
|
||||
|
||||
|
|
@ -1362,6 +1408,7 @@ get_subckts_for_subckt(struct line *start_card, char *subckt_name,
|
|||
int i, num_terminals = 0, tmp_cnt = 0;
|
||||
|
||||
for (card = start_card; card; card = card->li_next) {
|
||||
|
||||
char *line = card->li_line;
|
||||
|
||||
if (*line == '*')
|
||||
|
|
@ -1378,6 +1425,7 @@ get_subckts_for_subckt(struct line *start_card, char *subckt_name,
|
|||
|
||||
tfree(curr_subckt_name);
|
||||
}
|
||||
|
||||
if (found_subckt) {
|
||||
if (*line == 'x') {
|
||||
inst_subckt_name = get_instance_subckt(line);
|
||||
|
|
@ -1435,6 +1483,7 @@ get_subckts_for_subckt(struct line *start_card, char *subckt_name,
|
|||
}
|
||||
}
|
||||
}
|
||||
|
||||
// now make recursive call on instances just found above
|
||||
for (i = 0; i < tmp_cnt; i++)
|
||||
get_subckts_for_subckt(start_card, new_names[i], used_subckt_names, num_used_subckt_names,
|
||||
|
|
@ -1445,6 +1494,7 @@ get_subckts_for_subckt(struct line *start_card, char *subckt_name,
|
|||
/*
|
||||
check if current token matches model bin name -- <token>.[0-9]+
|
||||
*/
|
||||
|
||||
static bool
|
||||
model_bin_match(char *token, char *model_name)
|
||||
{
|
||||
|
|
@ -1473,6 +1523,7 @@ model_bin_match(char *token, char *model_name)
|
|||
(don't want to waste time processing everything)
|
||||
also comment out .param lines with no parameters defined
|
||||
*/
|
||||
|
||||
static void
|
||||
comment_out_unused_subckt_models(struct line *start_card, int no_of_lines)
|
||||
{
|
||||
|
|
@ -1486,6 +1537,7 @@ comment_out_unused_subckt_models(struct line *start_card, int no_of_lines)
|
|||
with 1000, but increase, if number of lines in deck is larger */
|
||||
if (no_of_lines < 1000)
|
||||
no_of_lines = 1000;
|
||||
|
||||
used_subckt_names = TMALLOC(char*, no_of_lines);
|
||||
used_model_names = TMALLOC(char*, no_of_lines);
|
||||
|
||||
|
|
@ -1499,6 +1551,7 @@ comment_out_unused_subckt_models(struct line *start_card, int no_of_lines)
|
|||
}
|
||||
|
||||
for (card = start_card; card; card = card->li_next) {
|
||||
|
||||
char *line = card->li_line;
|
||||
|
||||
if (*line == '*')
|
||||
|
|
@ -1582,6 +1635,7 @@ comment_out_unused_subckt_models(struct line *start_card, int no_of_lines)
|
|||
} /* if (has_models) */
|
||||
} /* if (!processing_subckt) */
|
||||
} /* for loop through all cards */
|
||||
|
||||
for (i = 0; i < tmp_cnt; i++)
|
||||
get_subckts_for_subckt
|
||||
(start_card, used_subckt_names[i],
|
||||
|
|
@ -1590,6 +1644,7 @@ comment_out_unused_subckt_models(struct line *start_card, int no_of_lines)
|
|||
|
||||
/* comment out any unused subckts, currently only at top level */
|
||||
for (card = start_card; card; card = card->li_next) {
|
||||
|
||||
char *line = card->li_line;
|
||||
|
||||
if (*line == '*')
|
||||
|
|
@ -1607,6 +1662,7 @@ comment_out_unused_subckt_models(struct line *start_card, int no_of_lines)
|
|||
}
|
||||
tfree(subckt_name);
|
||||
}
|
||||
|
||||
if (ciprefix(".ends", line) || ciprefix(".eom", line)) {
|
||||
nested_subckt--;
|
||||
if (remove_subckt)
|
||||
|
|
@ -1614,6 +1670,7 @@ comment_out_unused_subckt_models(struct line *start_card, int no_of_lines)
|
|||
if (nested_subckt == 0)
|
||||
remove_subckt = FALSE;
|
||||
}
|
||||
|
||||
if (remove_subckt)
|
||||
*line = '*';
|
||||
else if (has_models &&
|
||||
|
|
@ -1642,6 +1699,7 @@ comment_out_unused_subckt_models(struct line *start_card, int no_of_lines)
|
|||
tfree(model_name);
|
||||
}
|
||||
}
|
||||
|
||||
for (i = 0; i < num_used_subckt_names; i++)
|
||||
tfree(used_subckt_names[i]);
|
||||
for (i = 0; i < num_used_model_names; i++)
|
||||
|
|
@ -1653,6 +1711,7 @@ comment_out_unused_subckt_models(struct line *start_card, int no_of_lines)
|
|||
|
||||
/* replace ternary operator ? : by fcn ternary_fcn() in .param, .func, and .meas lines,
|
||||
if all is FALSE, for all lines if all is TRUE */
|
||||
|
||||
static char*
|
||||
inp_fix_ternary_operator_str(char *line, bool all)
|
||||
{
|
||||
|
|
@ -1827,21 +1886,25 @@ inp_fix_ternary_operator(struct line *card)
|
|||
bool found_control = FALSE;
|
||||
|
||||
for (; card; card = card->li_next) {
|
||||
|
||||
char *line = card->li_line;
|
||||
|
||||
if (*line == '*')
|
||||
continue;
|
||||
|
||||
/* exclude replacement of ternary function between .control and .endc */
|
||||
if (ciprefix(".control", line))
|
||||
found_control = TRUE;
|
||||
if (ciprefix(".endc", line))
|
||||
found_control = FALSE;
|
||||
|
||||
if (found_control)
|
||||
continue;
|
||||
|
||||
/* ternary operator for B source done elsewhere */
|
||||
if (*line == 'B' || *line == 'b')
|
||||
continue;
|
||||
|
||||
/* .param, .func, and .meas lines handled here (2nd argument FALSE) */
|
||||
if (strchr(line, '?') && strchr(line, ':'))
|
||||
card->li_line = inp_fix_ternary_operator_str(line, FALSE);
|
||||
|
|
@ -1853,6 +1916,7 @@ inp_fix_ternary_operator(struct line *card)
|
|||
removes " " quotes, returns lower case letters,
|
||||
replaces non-printable characterss with '_' *
|
||||
*-------------------------------------------------------------------------*/
|
||||
|
||||
void
|
||||
inp_casefix(char *string)
|
||||
{
|
||||
|
|
@ -1910,6 +1974,7 @@ inp_stripcomments_deck(struct line *c)
|
|||
the whole line is converted to a normal comment line (i.e. one that
|
||||
begins with a '*').
|
||||
BUG: comment characters in side of string literals are not ignored. */
|
||||
|
||||
static void
|
||||
inp_stripcomments_line(char *s)
|
||||
{
|
||||
|
|
@ -2156,6 +2221,7 @@ inp_fix_subckt(struct names *subckt_w_params, char *s)
|
|||
|
||||
s = buffer;
|
||||
}
|
||||
|
||||
return s;
|
||||
}
|
||||
|
||||
|
|
@ -2220,12 +2286,14 @@ inp_remove_ws(char *s)
|
|||
modify .subckt lines by calling inp_fix_subckt()
|
||||
No changes to lines in .control section !
|
||||
*/
|
||||
|
||||
static void
|
||||
inp_fix_for_numparam(struct names *subckt_w_params, struct line *c)
|
||||
{
|
||||
bool found_control = FALSE;
|
||||
|
||||
for (; c; c = c->li_next) {
|
||||
|
||||
if (ciprefix(".lib", c->li_line) || ciprefix("*lib", c->li_line) || ciprefix("*inc", c->li_line))
|
||||
continue;
|
||||
|
||||
|
|
@ -2234,6 +2302,7 @@ inp_fix_for_numparam(struct names *subckt_w_params, struct line *c)
|
|||
found_control = TRUE;
|
||||
if (ciprefix(".endc", c->li_line))
|
||||
found_control = FALSE;
|
||||
|
||||
if (found_control)
|
||||
continue;
|
||||
|
||||
|
|
@ -2257,7 +2326,9 @@ static void
|
|||
inp_remove_excess_ws(struct line *c)
|
||||
{
|
||||
bool found_control = FALSE;
|
||||
|
||||
for (; c; c = c->li_next) {
|
||||
|
||||
if (*c->li_line == '*')
|
||||
continue;
|
||||
|
||||
|
|
@ -2266,6 +2337,7 @@ inp_remove_excess_ws(struct line *c)
|
|||
found_control = TRUE;
|
||||
if (ciprefix(".endc", c->li_line))
|
||||
found_control = FALSE;
|
||||
|
||||
if (found_control && ciprefix("echo", c->li_line))
|
||||
continue;
|
||||
|
||||
|
|
@ -2497,6 +2569,7 @@ inp_fix_inst_line(char *inst_line,
|
|||
/* If multiplier parameter 'm' is found on a X line, flag is set
|
||||
to TRUE.
|
||||
Function is called from inp_fix_inst_calls_for_numparam() */
|
||||
|
||||
static bool
|
||||
found_mult_param(int num_params, char *param_names[])
|
||||
{
|
||||
|
|
@ -2517,6 +2590,7 @@ found_mult_param(int num_params, char *param_names[])
|
|||
for all devices that are not supporting the 'm' parameter).
|
||||
|
||||
Function is called from inp_fix_inst_calls_for_numparam() */
|
||||
|
||||
static int
|
||||
inp_fix_subckt_multiplier(struct names *subckt_w_params, struct line *subckt_card,
|
||||
int num_subckt_params, char *subckt_param_names[], char *subckt_param_values[])
|
||||
|
|
@ -2594,6 +2668,7 @@ inp_fix_inst_calls_for_numparam(struct names *subckt_w_params, struct line *deck
|
|||
if (found_mult_param(num_inst_params, inst_param_names)) {
|
||||
flag = FALSE;
|
||||
// iterate through the deck to find the subckt (last one defined wins)
|
||||
|
||||
for (d = deck; d; d = d->li_next) {
|
||||
char *subckt_line = d->li_line;
|
||||
if (ciprefix(".subckt", subckt_line)) {
|
||||
|
|
@ -2630,9 +2705,9 @@ inp_fix_inst_calls_for_numparam(struct names *subckt_w_params, struct line *deck
|
|||
for (c = deck; c; c = c->li_next) {
|
||||
char *inst_line = c->li_line;
|
||||
|
||||
if (*inst_line == '*') {
|
||||
if (*inst_line == '*')
|
||||
continue;
|
||||
}
|
||||
|
||||
if (ciprefix("x", inst_line)) {
|
||||
subckt_name = inp_get_subckt_name(inst_line);
|
||||
|
||||
|
|
@ -2851,12 +2926,14 @@ inp_do_macro_param_replace(struct function *fcn, char *params[])
|
|||
return strdup(fcn->macro);
|
||||
|
||||
for (i = 0; i < fcn->num_parameters; i++) {
|
||||
|
||||
if (curr_str == NULL) {
|
||||
search_ptr = curr_ptr = fcn->macro;
|
||||
} else {
|
||||
search_ptr = curr_ptr = curr_str;
|
||||
curr_str = NULL;
|
||||
}
|
||||
|
||||
while ((param_ptr = strstr(search_ptr, fcn->params[i])) != NULL) {
|
||||
|
||||
/* make sure actually have the parameter name */
|
||||
|
|
@ -2892,6 +2969,7 @@ inp_do_macro_param_replace(struct function *fcn, char *params[])
|
|||
*param_ptr = keep;
|
||||
search_ptr = curr_ptr = param_ptr + strlen(fcn->params[i]);
|
||||
}
|
||||
|
||||
if (param_ptr == NULL) {
|
||||
if (curr_str == NULL) {
|
||||
curr_str = curr_ptr;
|
||||
|
|
@ -2903,6 +2981,7 @@ inp_do_macro_param_replace(struct function *fcn, char *params[])
|
|||
}
|
||||
}
|
||||
}
|
||||
|
||||
return curr_str;
|
||||
}
|
||||
|
||||
|
|
@ -3095,6 +3174,7 @@ inp_expand_macros_in_deck(struct function_env *env, struct line *c)
|
|||
}
|
||||
|
||||
env = delete_function_env(env);
|
||||
|
||||
return c;
|
||||
}
|
||||
|
||||
|
|
@ -3112,6 +3192,7 @@ inp_expand_macros_in_deck(struct function_env *env, struct line *c)
|
|||
* Usage of numparam requires {} around the parameters in the .cmodel line.
|
||||
* May be obsolete?
|
||||
*/
|
||||
|
||||
static void
|
||||
inp_fix_param_values(struct line *c)
|
||||
{
|
||||
|
|
@ -3131,6 +3212,7 @@ inp_fix_param_values(struct line *c)
|
|||
control_section = TRUE;
|
||||
continue;
|
||||
}
|
||||
|
||||
if (ciprefix(".endc", line)) {
|
||||
control_section = FALSE;
|
||||
continue;
|
||||
|
|
@ -3377,7 +3459,6 @@ get_param_str(char *line)
|
|||
|
||||
|
||||
static int
|
||||
//inp_get_param_level(int param_num, char *depends_on[12000][100], char *param_names[12000], char *param_strs[12000], int total_params, int *level)
|
||||
inp_get_param_level(int param_num, char ***depends_on, char **param_names, char **param_strs, int total_params, int *level)
|
||||
{
|
||||
int index1 = 0, comp_level = 0, temp_level = 0;
|
||||
|
|
@ -3403,7 +3484,9 @@ inp_get_param_level(int param_num, char ***depends_on, char **param_names, char
|
|||
comp_level = temp_level;
|
||||
index1++;
|
||||
}
|
||||
|
||||
level[param_num] = comp_level;
|
||||
|
||||
return comp_level;
|
||||
}
|
||||
|
||||
|
|
@ -3520,6 +3603,7 @@ get_number_terminals(char *c)
|
|||
|
||||
|
||||
/* sort parameters based on parameter dependencies */
|
||||
|
||||
static void
|
||||
inp_sort_params(struct line *start_card, struct line *end_card, struct line *card_bf_start, struct line *s_c, struct line *e_c)
|
||||
{
|
||||
|
|
@ -3548,6 +3632,7 @@ 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)
|
||||
if (strchr(ptr->li_line, '='))
|
||||
num_params++;
|
||||
|
|
@ -3642,27 +3727,29 @@ inp_sort_params(struct line *start_card, struct line *end_card, struct line *car
|
|||
}
|
||||
|
||||
/* look for unquoted parameters and quote them */
|
||||
|
||||
in_control = FALSE;
|
||||
for (ptr = s_c; ptr && ptr != e_c; ptr = ptr->li_next) {
|
||||
|
||||
char *curr_line = ptr->li_line;
|
||||
|
||||
if (ciprefix(".control", curr_line)) {
|
||||
in_control = TRUE;
|
||||
continue;
|
||||
}
|
||||
|
||||
if (ciprefix(".endc", curr_line)) {
|
||||
in_control = FALSE;
|
||||
continue;
|
||||
}
|
||||
if (in_control || curr_line[0] == '.' || curr_line[0] == '*') {
|
||||
|
||||
if (in_control || curr_line[0] == '.' || curr_line[0] == '*')
|
||||
continue;
|
||||
}
|
||||
|
||||
num_terminals = get_number_terminals(curr_line);
|
||||
|
||||
if (num_terminals <= 0) {
|
||||
if (num_terminals <= 0)
|
||||
continue;
|
||||
}
|
||||
|
||||
for (i = 0; i < num_params; i++) {
|
||||
str_ptr = curr_line;
|
||||
|
|
@ -3914,6 +4001,7 @@ inp_reorder_params(struct names *subckt_w_params, struct line *deck, struct line
|
|||
//
|
||||
// split line up into multiple lines and place those new lines immediately
|
||||
// afetr the current multi-param line in the deck
|
||||
|
||||
static int
|
||||
inp_split_multi_param_lines(struct line *card, int line_num)
|
||||
{
|
||||
|
|
@ -4051,6 +4139,7 @@ inp_split_multi_param_lines(struct line *card, int line_num)
|
|||
Bxxx n1 n2 V = v(n-aux) * 1e-16
|
||||
|
||||
*/
|
||||
|
||||
static void
|
||||
inp_compat(struct line *card)
|
||||
{
|
||||
|
|
@ -5081,8 +5170,10 @@ inp_compat(struct line *card)
|
|||
}
|
||||
}
|
||||
|
||||
|
||||
/* replace a token (length 4 char) in string by spaces, if it is found
|
||||
at the correct position and the total number of tokens is o.k. */
|
||||
|
||||
static void
|
||||
replace_token(char *string, char *token, int wherereplace, int total)
|
||||
{
|
||||
|
|
@ -5548,18 +5639,24 @@ inp_add_series_resistor(struct line *deck)
|
|||
tfree(rval);
|
||||
}
|
||||
|
||||
|
||||
/* If XSPICE option is not selected, run this function to alert and exit
|
||||
if the 'poly' option is found in e, g, f, or h controlled sources. */
|
||||
|
||||
#ifndef XSPICE
|
||||
|
||||
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;
|
||||
|
||||
if (*curr_line == '*')
|
||||
continue;
|
||||
|
||||
/* exclude any command inside .control ... .endc */
|
||||
if (ciprefix(".control", curr_line)) {
|
||||
skip_control ++;
|
||||
|
|
@ -5570,6 +5667,7 @@ inp_poly_err(struct line *card)
|
|||
} else if (skip_control > 0) {
|
||||
continue;
|
||||
}
|
||||
|
||||
/* get the fourth token in a controlled source line and exit,
|
||||
if it is 'poly' */
|
||||
if ((ciprefix("e", curr_line)) || (ciprefix("g", curr_line)) ||
|
||||
|
|
@ -5589,6 +5687,7 @@ inp_poly_err(struct line *card)
|
|||
}
|
||||
}
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
|
||||
|
|
@ -5597,21 +5696,27 @@ tprint(struct line *t)
|
|||
{
|
||||
/*debug: print into file*/
|
||||
FILE *fd = fopen("tprint-out.txt", "w");
|
||||
|
||||
for (; t; t = t->li_next)
|
||||
fprintf(fd, "%d %d %s\n", t->li_linenum_orig, t->li_linenum, t->li_line);
|
||||
|
||||
fclose(fd);
|
||||
}
|
||||
|
||||
|
||||
/* prepare .if and .elseif for numparam
|
||||
.if(expression) --> .if{expression} */
|
||||
|
||||
static void
|
||||
inp_dot_if(struct line *card)
|
||||
{
|
||||
for (; card; card = card->li_next) {
|
||||
|
||||
char *curr_line = card->li_line;
|
||||
|
||||
if (*curr_line == '*')
|
||||
continue;
|
||||
|
||||
if (ciprefix(".if", curr_line) || ciprefix(".elseif", curr_line)) {
|
||||
char *firstbr = strchr(curr_line, '(');
|
||||
char *lastbr = strrchr(curr_line, ')');
|
||||
|
|
|
|||
Loading…
Reference in New Issue