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

681 lines
14 KiB
C
Raw Blame History

/**********
Copyright 1990 Regents of the University of California. All rights reserved.
Author: 1986 Wayne A. Christopher, U. C. Berkeley CAD Group
**********/
/*
* Routines to query and alter devices.
*/
#include "ngspice.h"
#include "gendefs.h"
#include "cktdefs.h"
#include "cpdefs.h"
#include "ftedefs.h"
#include "dgen.h"
#include "device.h"
static wordlist *devexpand(char *name);
static void all_show(wordlist *wl, int mode);
/*
* show: list device operating point info
* show
* show devs : params
* show devs : params ; devs : params
* show dev dev dev : param param param , dev dev : param param
* show t : param param param, t : param param
*
*/
static int count;
extern void dgen_nth_next (dgen **dg, int n);
extern int dgen_for_n (dgen *dg, int n, int (*fn) (/* ??? */), char *data, int subindex);
extern void wl_forall (wordlist *wl, int (*fn) (/* ??? */), char *data);
void
com_showmod(wordlist *wl)
{
all_show(wl, 1);
}
void
com_show(wordlist *wl)
{
all_show(wl, 0);
}
static void
all_show(wordlist *wl, int mode)
{
wordlist *params, *nextgroup, *thisgroup;
wordlist *prev, *next, *w;
int screen_width;
dgen *dg, *listdg;
int instances;
int i, j, n;
int param_flag, dev_flag;
if (!ft_curckt) {
fprintf(cp_err, "Error: no circuit loaded\n");
return;
}
if (wl && wl->wl_word && eq(wl->wl_word, "-v")) {
old_show(wl->wl_next);
return;
}
if (!cp_getvar("width", VT_NUM, (char *) &screen_width))
screen_width = DEF_WIDTH;
count = screen_width / 11 - 1;
n = 0;
do {
prev = NULL;
params = NULL;
nextgroup = NULL;
thisgroup = wl;
param_flag = 0;
dev_flag = 0;
/* find the parameter list and the nextgroup */
for (w = wl; w && !nextgroup; w = next) {
next = w->wl_next;
if (eq(w->wl_word, "++") || eq(w->wl_word, "all")) {
if (params) {
param_flag = DGEN_ALLPARAMS;
if (prev)
prev->wl_next = w->wl_next;
else
params = next;
} else {
dev_flag = DGEN_ALLDEVS;
if (prev)
prev->wl_next = w->wl_next;
else
thisgroup = next;
}
/*
tfree(w->wl_word);
tfree(w);
*/
w = NULL;
} else if (eq(w->wl_word, "+")) {
if (params) {
param_flag = DGEN_DEFPARAMS;
if (prev)
prev->wl_next = w->wl_next;
else
params = next;
} else {
dev_flag = DGEN_DEFDEVS;
if (prev)
prev->wl_next = w->wl_next;
else
thisgroup = next;
}
tfree(w->wl_word);
tfree(w);
w = NULL;
} else if (eq(w->wl_word, ":")) {
tfree(w->wl_word);
tfree(w);
w = NULL;
if (!params) {
params = next;
if (prev)
prev->wl_next = NULL;
else
thisgroup = NULL;
} else {
if (prev)
prev->wl_next = next;
else
params = next;
}
} else if (eq(w->wl_word, ";") || eq(w->wl_word, ",")) {
nextgroup = next;
tfree(w->wl_word);
tfree(w);
w = NULL;
if (prev)
prev->wl_next = NULL;
break;
}
prev = w;
}
instances = 0;
for (dg = dgen_init(ft_curckt->ci_ckt, thisgroup, 1, dev_flag, mode);
dg; dgen_nth_next(&dg, count))
{
instances = 1;
if (dg->flags & DGEN_INSTANCE) {
instances = 2;
printf(" %s: %s\n",
ft_sim->devices[dg->dev_type_no]->name,
ft_sim->devices[dg->dev_type_no]->description);
n += 1;
i = 0;
do {
printf(" device ");
j = dgen_for_n(dg, count, printstr, "n", i);
i += 1;
printf("\n");
} while (j);
if (ft_sim->devices[dg->dev_type_no]->numModelParms) {
i = 0;
do {
printf(" model ");
j = dgen_for_n(dg, count, printstr, "m", i);
i += 1;
printf("\n");
} while (j);
}
listdg = dg;
if (param_flag)
param_forall(dg, param_flag);
else if (!params)
param_forall(dg, DGEN_DEFPARAMS);
if (params)
wl_forall(params, listparam, dg);
printf("\n");
} else if (ft_sim->devices[dg->dev_type_no]->numModelParms) {
printf(" %s models (%s)\n",
ft_sim->devices[dg->dev_type_no]->name,
ft_sim->devices[dg->dev_type_no]->description);
n += 1;
i = 0;
do {
printf(" model ");
j = dgen_for_n(dg, count, printstr, "m", i);
i += 1;
printf("\n");
} while (j);
printf("\n");
if (param_flag)
param_forall(dg, param_flag);
else if (!params)
param_forall(dg, DGEN_DEFPARAMS);
if (params)
wl_forall(params, listparam, dg);
printf("\n");
}
}
wl = nextgroup;
} while (wl);
if (!n) {
if (instances == 0)
printf("No matching instances or models\n");
else if (instances == 1)
printf("No matching models\n");
else
printf("No matching elements\n");
}
}
int
printstr(dgen *dg, char *name)
{
if (*name == 'n') {
if (dg->instance)
printf(" %9.9s", dg->instance->GENname);
else
printf(" <???????>");
} else if (*name == 'm') {
if (dg->model)
printf(" %9.9s", dg->model->GENmodName);
else
printf(" <???????>");
} else
printf(" <error> ");
return 0;
}
void
param_forall(dgen *dg, int flags)
{
int i, j, k, found;
int xcount;
IFparm *plist;
found = 0;
if (dg->flags & DGEN_INSTANCE) {
xcount = *ft_sim->devices[dg->dev_type_no]->numInstanceParms;
plist = ft_sim->devices[dg->dev_type_no]->instanceParms;
} else {
xcount = *ft_sim->devices[dg->dev_type_no]->numModelParms;
plist = ft_sim->devices[dg->dev_type_no]->modelParms;
}
for (i = 0; i < xcount; i++) {
if (plist[i].dataType & IF_ASK) {
if ((((CKTcircuit *) (dg->ckt))->CKTrhsOld
|| (plist[i].dataType & IF_SET))
&& (!(plist[i].dataType & (IF_REDUNDANT | IF_UNINTERESTING))
|| (flags == DGEN_ALLPARAMS
&& !(plist[i].dataType & IF_REDUNDANT))))
{
j = 0;
do {
if (!j)
printf("%10.10s", plist[i].keyword);
else
printf(" ");
k = dgen_for_n(dg, count, printvals,
(char *) (plist + i), j);
printf("\n");
j += 1;
} while (k);
}
}
}
}
void
listparam(wordlist *p, dgen *dg)
{
int i, j, k, found;
int xcount;
IFparm *plist;
found = 0;
if (dg->flags & DGEN_INSTANCE) {
xcount = *ft_sim->devices[dg->dev_type_no]->numInstanceParms;
plist = ft_sim->devices[dg->dev_type_no]->instanceParms;
} else {
xcount = *ft_sim->devices[dg->dev_type_no]->numModelParms;
plist = ft_sim->devices[dg->dev_type_no]->modelParms;
}
for (i = 0; i < xcount; i++) {
if (eqc(p->wl_word, plist[i].keyword) && (plist[i].dataType & IF_ASK))
{
found = 1;
break;
}
}
if (found) {
if ((((CKTcircuit *) (dg->ckt))->CKTrhsOld
|| (plist[i].dataType & IF_SET)))
{
j = 0;
do {
if (!j)
printf("%10.10s", p->wl_word);
else
printf(" ");
k = dgen_for_n(dg, count, printvals, plist + i, j);
printf("\n");
j += 1;
} while (k > 0);
} else {
j = 0;
do {
if (!j)
printf("%10.10s", p->wl_word);
else
printf(" ");
k = dgen_for_n(dg, count, bogus1, 0, j);
printf("\n");
j += 1;
} while (k > 0);
}
} else {
j = 0;
do {
if (!j)
printf("%10.10s", p->wl_word);
else
printf(" ");
k = dgen_for_n(dg, count, bogus2, 0, j);
printf("\n");
j += 1;
} while (k > 0);
}
}
int bogus1(dgen *dg)
{
printf(" ---------");
return 0;
}
int bogus2(dgen *dg)
{
printf(" ?????????");
return 0;
}
int
printvals(dgen *dg, IFparm *p, int i)
{
IFvalue val;
int n;
if (dg->flags & DGEN_INSTANCE)
(*ft_sim->askInstanceQuest)(ft_curckt->ci_ckt, dg->instance,
p->id, &val, &val);
else
(*ft_sim->askModelQuest)(ft_curckt->ci_ckt, dg->model,
p->id, &val, &val);
if (p->dataType & IF_VECTOR)
n = val.v.numValue;
else
n = 1;
if (((p->dataType & IF_VARTYPES) & ~IF_VECTOR) == IF_COMPLEX)
n *= 2;
if (i >= n) {
if (i == 0)
printf(" -");
else
printf(" ");
return 0;
}
if (p->dataType & IF_VECTOR) {
switch ((p->dataType & IF_VARTYPES) & ~IF_VECTOR) {
case IF_FLAG:
printf(" % 9d", val.v.vec.iVec[i]);
break;
case IF_INTEGER:
printf(" % 9d", val.v.vec.iVec[i]);
break;
case IF_REAL:
printf(" % 9.3g", val.v.vec.rVec[i]);
break;
case IF_COMPLEX:
if (!(i % 2))
printf(" % 9.3g", val.v.vec.cVec[i / 2].real);
else
printf(" % 9.3g", val.v.vec.cVec[i / 2].imag);
break;
case IF_STRING:
printf(" %9.9s", val.v.vec.sVec[i]);
break;
case IF_INSTANCE:
printf(" %9.9s", val.v.vec.uVec[i]);
break;
default:
printf(" ******** ");
}
} else {
switch ((p->dataType & IF_VARTYPES) & ~IF_VECTOR) {
case IF_FLAG:
printf(" % 9d", val.iValue);
break;
case IF_INTEGER:
printf(" % 9d", val.iValue);
break;
case IF_REAL:
printf(" % 9.3g", val.rValue);
break;
case IF_COMPLEX:
if (i % 2)
printf(" % 9.3g", val.cValue.real);
else
printf(" % 9.3g", val.cValue.imag);
break;
case IF_STRING:
printf(" %9.9s", val.sValue);
break;
case IF_INSTANCE:
printf(" %9.9s ", val.uValue);
break;
default:
printf(" ******** ");
}
}
return n - 1;
}
/* (old "show" command)
* Display various device parameters. The syntax of this command is
* show devicelist : parmlist
* where devicelist can be "all", the name of a device, a string like r*,
* which means all devices with names that begin with 'r', repeated one
* or more times. The parms are names of parameters that are (hopefully)
* valid for all the named devices, or "all".
*/
void
old_show(wordlist *wl)
{
wordlist *devs, *parms, *tw, *ww;
struct variable *v;
char *nn;
devs = wl;
while (wl && !eq(wl->wl_word, ":"))
wl = wl->wl_next;
if (!wl)
parms = NULL;
else {
if (wl->wl_prev)
wl->wl_prev->wl_next = NULL;
parms = wl->wl_next;
if (parms)
parms->wl_prev = NULL;
}
/* Now expand the devicelist... */
for (tw = NULL; devs; devs = devs->wl_next) {
inp_casefix(devs->wl_word);
tw = wl_append(tw, devexpand(devs->wl_word));
}
devs = tw;
for (tw = parms; tw; tw = tw->wl_next)
if (eq(tw->wl_word, "all"))
break;
if (tw)
parms = NULL;
/* This is a crock... */
if (!devs)
devs = cp_cctowl(ft_curckt->ci_devices);
out_init();
while (devs) {
out_printf("%s:\n", devs->wl_word);
if (parms) {
for (tw = parms; tw; tw = tw->wl_next) {
nn = copy(devs->wl_word);
v = (*if_getparam)(ft_curckt->ci_ckt,
&nn, tw->wl_word, 0, 0);
if (!v)
v = (*if_getparam)(ft_curckt->ci_ckt,
&nn, tw->wl_word, 0, 1);
if (v) {
out_printf("\t%s =", tw->wl_word);
for (ww = cp_varwl(v); ww; ww =
ww->wl_next)
out_printf(" %s", ww->wl_word);
out_send("\n");
}
}
} else {
nn = copy(devs->wl_word);
v = (*if_getparam)(ft_curckt->ci_ckt, &nn, "all", 0, 0);
if (!v)
v = (*if_getparam)(ft_curckt->ci_ckt, &nn, "all", 0, 1);
while (v) {
out_printf("\t%s =", v->va_name);
for (ww = cp_varwl(v); ww; ww = ww->wl_next)
out_printf(" %s", ww->wl_word);
out_send("\n");
v = v->va_next;
}
}
devs = devs->wl_next;
}
return;
}
/* Alter a device parameter. The new syntax here is
* alter @device[parameter] = expr
* alter device = expr
* alter device parameter = expr
* expr must be real (complex isn't handled right now, integer is fine though,
* but no strings ... for booleans, use 0/1).
*/
void
com_alter(wordlist *wl)
{
if (!wl) {
fprintf(cp_err, "usage: alter dev param = expression\n");
fprintf(cp_err, " or alter @dev[param] = expression\n");
fprintf(cp_err, " or alter dev = expression\n");
return;
}
com_alter_common(wl, 0);
}
void
com_altermod(wordlist *wl)
{
com_alter_common(wl, 1);
}
void
com_alter_common(wordlist *wl, int do_model)
{
wordlist *eqword, *words;
char *dev, *p;
char *param;
struct dvec *dv;
struct pnode *names;
if (!ft_curckt) {
fprintf(cp_err, "Error: no circuit loaded\n");
return;
}
words = wl;
while (words) {
p = words->wl_word;
eqword = words;
words = words->wl_next;
if (eq(p, "=")) {
break;
}
}
if (!words) {
fprintf(cp_err, "Error: no assignment found.\n");
return;
}
/* device parameter = expr
device = expr
@dev[param] = expr
*/
dev = NULL;
param = NULL;
words = wl;
while (words != eqword) {
p = words->wl_word;
if (param) {
fprintf(cp_err, "Error: excess parameter name \"%s\" ignored.\n",
p);
} else if (dev) {
param = words->wl_word;
} else if (*p == '@' || *p == '#') {
dev = p + 1;
p =strchr(p, '[');
if (p) {
*p++ = 0;
param = p;
p =strchr(p, ']');
if (p)
*p = 0;
}
} else {
dev = p;
}
words = words->wl_next;
}
if (!dev) {
fprintf(cp_err, "Error: no model or device name provided.\n" );
return;
}
words = eqword->wl_next;
names = ft_getpnames(words, FALSE);
if (!names) {
fprintf(cp_err, "Error: cannot parse new parameter value.\n");
return;
}
dv = ft_evaluate(names);
free_pnode(names);
if (!dv)
return;
if (dv->v_length < 1) {
fprintf(cp_err, "Error: cannot evaluate new parameter value.\n");
return;
}
if_setparam(ft_curckt->ci_ckt, &dev, param, dv, do_model);
/* Vector data (dv) should get garbage-collected. */
return;
}
/* Given a device name, possibly with wildcards, return the matches. */
static wordlist *
devexpand(char *name)
{
wordlist *wl, *devices, *tw;
if (index(name, '*') ||strchr(name, '[') ||strchr(name, '?')) {
devices = cp_cctowl(ft_curckt->ci_devices);
for (wl = NULL; devices; devices = devices->wl_next)
if (cp_globmatch(name, devices->wl_word)) {
tw = alloc(struct wordlist);
if (wl) {
wl->wl_prev = tw;
tw->wl_next = wl;
wl = tw;
} else
wl = tw;
wl->wl_word = devices->wl_word;
}
} else if (eq(name, "all")) {
wl = cp_cctowl(ft_curckt->ci_devices);
} else {
wl = alloc(struct wordlist);
wl->wl_word = name;
}
wl_sort(wl);
return (wl);
}
Reference in New Issue View Git Blame Copy Permalink