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

replace the E source TABLE function by a B source pwl 

(used by ST OpAmps and comparators)
This commit is contained in:
Holger Vogt 2018-05-18 15:31:47 +02:00
parent 10c69b8d05
commit d9dbde0593
1 changed files with 44 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/frontend/inpcom.c
View File

@ -6337,6 +6337,47 @@ inp_meas_current(struct card *deck)
} }
} }
/* replace the E source TABLE function by a B source pwl
(used by ST OpAmps and comparators).
E_RO_3 VB_3 VB_4 VALUE={ TABLE( V(VCCP,VCCN), 2 , 35 , 3.3 , 15 , 5 , 10 )*I(VreadIo)}
will become
BE_RO_3_1 TABLE_NEW_1 0 v = pwl( V(VCCP,VCCN), 2 , 35 , 3.3 , 15 , 5 , 10 )
E_RO_3 VB_3 VB_4 VALUE={ V(TABLE_NEW_1)*I(VreadIo)}
*/
static void
replace_table(struct card *startcard)
{
struct card *card;
static int numb = 0;
for (card = startcard; card; card = card->nextcard) {
char *cut_line = card->line;
if (*cut_line == 'e') {
char *valp = strstr(cut_line, "value={");
if (valp) {
char *ftablebeg = strstr(cut_line, "table(");
while (ftablebeg) {
/* get the beginning of the line */
char *begline = copy_substring(cut_line, ftablebeg);
/* get the table function */
char *tabfun = gettok_char(&ftablebeg, ')', TRUE, TRUE);
/* the new e line */
char *neweline = tprintf("%s v(table_new_%d)%s", begline, numb, ftablebeg);
char *newbline = tprintf("btable_new_%d table_new_%d 0 v=pwl%s", numb, numb, tabfun+5);
numb++;
tfree(tabfun);
tfree(begline);
tfree(card->line);
card->line = cut_line = neweline;
insert_new_line(card, newbline, 0, 0);
/* read next TABLE function in cut_line */
ftablebeg = strstr(cut_line, "table(");
}
continue;
}
}
}
}
/* in out /* in out
von cntl_on von cntl_on
voff cntl_off voff cntl_off
@ -6388,6 +6429,9 @@ pspice_compat(struct card *oldcard)
struct card *card, *newcard, *nextcard; struct card *card, *newcard, *nextcard;
int skip_control = 0; int skip_control = 0;
/* replace TABLE function in E source */
replace_table(oldcard);
/* add predefined params TEMP, VT, GMIN to beginning of deck */ /* add predefined params TEMP, VT, GMIN to beginning of deck */
char *new_str = copy(".param temp = 'temper - 273.15'"); char *new_str = copy(".param temp = 'temper - 273.15'");
newcard = insert_new_line(NULL, new_str, 1, 0); newcard = insert_new_line(NULL, new_str, 1, 0);