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

.model replacement in ako (a kind of) model descriptions 

in first level .subckt and top level only
This commit is contained in:
Holger Vogt 2018-05-18 15:37:26 +02:00
parent d9dbde0593
commit 53bac06d11
1 changed files with 111 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

111
src/frontend/inpcom.c
View File

@ -6378,6 +6378,109 @@ replace_table(struct card *startcard)
}
}
/* find the model requested by ako:model and do the replacement */
static struct card*
find_model(struct card *startcard, struct card *changecard, char *searchname, char *newmname, char *newmtype, char *endstr)
{
struct card *nomod, *returncard = changecard;
char *origmname, *origmtype;
char *beginline = startcard->line;
if (ciprefix(".subckt", beginline))
startcard = startcard->nextcard;
int nesting2 = 0;
for (nomod = startcard; nomod; nomod = nomod->nextcard) {
char *origmodline = nomod->line;
if (ciprefix(".subckt", origmodline))
nesting2++;
if (ciprefix(".ends", origmodline))
nesting2--;
/* skip any subcircuit */
if (nesting2 > 0)
continue;
if (nesting2 == -1) {
returncard = changecard;
break;
}
if (ciprefix(".model", origmodline)) {
origmodline = nexttok(origmodline);
origmname = gettok(&origmodline);
origmtype = gettok_noparens(&origmodline);
if (cieq(origmname, searchname)) {
if (!eq(origmtype, newmtype)) {
fprintf(stderr, "Error: Original (%s) and new (%s) type for AKO model disagree\n", origmtype, newmtype);
controlled_exit(1);
}
/* we have got it */
char *newmodcard = tprintf(".model %s %s %s%s", newmname, newmtype, origmodline, endstr);
char *tmpstr = strstr(newmodcard, ")(");
if (tmpstr) {
tmpstr[0] = ' ';
tmpstr[1] = ' ';
}
tfree(changecard->line);
changecard->line = newmodcard;
tfree(origmname);
tfree(origmtype);
returncard = NULL;
break;
}
tfree(origmname);
tfree(origmtype);
}
else
returncard = changecard;
}
return returncard;
}
/* do the .model replacement required by ako (a kind of)
* PSPICE does not support ested .subckt definitions, so
* a simple structure is needed: search for ako:modelname,
* then for modelname in the subcircuit or in the top level.
* .model qorig npn (BF=48 IS=2e-7)
* .model qbip1 ako:qorig NPN (BF=60 IKF=45m)
* after the replacement we have
* .model qbip1 NPN (BF=48 IS=2e-7 BF=60 IKF=45m)
* and we benefit from the fact that if parameters have
* doubled, the last entry of a parameter (e.g. BF=60)
* overwrites the previous one (BF=48).
*/
static struct card*
ako_model(struct card *startcard)
{
char *newmname, *newmtype;
struct card *card, *returncard = NULL, *subcktcard = NULL;
for (card = startcard; card; card = card->nextcard) {
char *akostr, *searchname;
char *cut_line = card->line;
if (ciprefix(".subckt", cut_line))
subcktcard = card;
else if (ciprefix(".ends", cut_line))
subcktcard = NULL;
if (ciprefix(".model", cut_line) &&
((akostr = strstr(cut_line, "ako:")) != NULL) && isspace_c(akostr[-1])) {
akostr += 4;
searchname = gettok(&akostr);
cut_line = nexttok(cut_line);
newmname = gettok(&cut_line);
newmtype = gettok_noparens(&akostr);
/* find the model and do the replacement */
if (subcktcard)
returncard = find_model(subcktcard, card, searchname, newmname, newmtype, akostr);
if(returncard || !subcktcard)
returncard = find_model(startcard, card, searchname, newmname, newmtype, akostr);
tfree(searchname);
tfree(newmname);
tfree(newmtype);
/* replacement not possible, bail out */
if (returncard)
break;
}
}
return returncard;
}
/* in out
von cntl_on
voff cntl_off
@ -6429,6 +6532,14 @@ pspice_compat(struct card *oldcard)
struct card *card, *newcard, *nextcard;
int skip_control = 0;
/* .model replacement in ako (a kind of) model descriptions
* in first .subckt and top level only */
struct card *errcard;
if ((errcard = ako_model(oldcard)) != NULL) {
fprintf(stderr, "Error: no model found for %s\n", errcard->line);
controlled_exit(1);
}
/* replace TABLE function in E source */
replace_table(oldcard);