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, inp_fix_temper_in_param(), abstraction, introduce `inp_functionalise_identifier()'

This commit is contained in:
rlar 2014-12-07 17:36:13 +01:00
parent ff613c3c41
commit 9579b78091
1 changed files with 54 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
src/frontend/inpcom.c
View File

@ -5903,6 +5903,8 @@ inp_dot_if(struct line *card)
* add info to end of new_func and continue scanning.
*/
static char *inp_functionalise_identifier(char *curr_line, char *identifier);
static void
inp_fix_temper_in_param(struct line *deck)
{
@ -6021,13 +6023,7 @@ inp_fix_temper_in_param(struct line *deck)
char *new_str = NULL; /* string we assemble here */
char *curr_line = card->li_line;
char * new_tmp_str, *tmp_str, *firsttok_str;
/* Some new variables... */
char *chp;
char *chp_start;
char *var_name;
char ch;
int state;
char *firsttok_str;
if (*curr_line == '*')
continue;
@ -6067,42 +6063,9 @@ inp_fix_temper_in_param(struct line *deck)
continue;
}
/* This is the new code - it finds each variable name and checks it against new_func->funcname */
for (state = 0, var_name = chp_start = chp = curr_line; ; chp++) {
switch(state)
{
case 0:
/* in state 0 we are looking for the first character of a variable name,
which has to be an alphabetic character. */
if (isalpha(*chp))
{
state = 1;
var_name = chp;
}
break;
case 1:
/* In state 1 we are looking for the last character of a variable name.
The variable name consists of alphanumeric characters and special characters,
which are defined above as VALIDCHARS. */
state = (*chp) && (isalphanum(*chp) || strchr(VALIDCHARS, *chp));
if (!state) {
ch = *chp;
*chp = '\0';
if (strcmp(var_name, new_func->funcname) == 0 && ch != '(') {
new_str = INPstrCat(new_str, copy(chp_start), "");
new_str = INPstrCat(new_str, copy("()"), "");
chp_start=chp;
}
*chp = ch;
}
break;
}
if (!(*chp))
break;
}
new_str = inp_functionalise_identifier(curr_line, new_func->funcname);
if (new_str) {
/* add final part of line */
new_str = INPstrCat(new_str, copy(chp_start), "");
/* restore first part of the line */
new_str = INPstrCat(firsttok_str, new_str, " ");
new_str = inp_remove_ws(new_str);
@ -6111,10 +6074,9 @@ inp_fix_temper_in_param(struct line *deck)
continue;
/* if we have inserted into a .param line, convert to .func */
new_tmp_str = new_str;
if (prefix(".param", new_tmp_str)) {
tmp_str = gettok(&new_tmp_str);
tfree(tmp_str);
if (prefix(".param", new_str)) {
char *new_tmp_str = new_str;
txfree(gettok(&new_tmp_str));
funcname = gettok_char(&new_tmp_str, '=', FALSE, FALSE);
funcbody = copy(new_tmp_str + 1);
inp_new_func(funcname, funcbody, card, &new_func, sub_count, subckt_depth);
@ -6135,6 +6097,52 @@ inp_fix_temper_in_param(struct line *deck)
}
static char *
inp_functionalise_identifier(char *curr_line, char *identifier)
{
/* This is the new code - it finds each variable name and checks it against `identifier' */
int state;
char *var_name, *chp_start, *chp, *new_str = NULL;
for (state = 0, var_name = chp_start = chp = curr_line; ; chp++) {
switch(state)
{
case 0:
/* in state 0 we are looking for the first character of a variable name,
which has to be an alphabetic character. */
if (isalpha(*chp))
{
state = 1;
var_name = chp;
}
break;
case 1:
/* In state 1 we are looking for the last character of a variable name.
The variable name consists of alphanumeric characters and special characters,
which are defined above as VALIDCHARS. */
state = (*chp) && (isalphanum(*chp) || strchr(VALIDCHARS, *chp));
if (!state) {
char ch = *chp;
*chp = '\0';
if (strcmp(var_name, identifier) == 0 && ch != '(') {
new_str = INPstrCat(new_str, copy(chp_start), "");
new_str = INPstrCat(new_str, copy("()"), "");
chp_start=chp;
}
*chp = ch;
}
break;
}
if (!(*chp))
break;
}
if (new_str) {
/* add final part of line */
new_str = INPstrCat(new_str, copy(chp_start), "");
}
return new_str;
}
/* enter function name, nested .subckt depths, and
* number of .subckt at given level into struct new_func
* and add line to deck