You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
88 lines
2.7 KiB
88 lines
2.7 KiB
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 1985 Thomas L. Quarles
|
|
Modified: 2000 AlansFixes
|
|
**********/
|
|
|
|
/* INPdoOpts(ckt,option card)
|
|
* parse the options off of the given option card and add them to
|
|
* the given circuit
|
|
*/
|
|
|
|
#include "ngspice/ngspice.h"
|
|
#include <stdio.h>
|
|
#include "ngspice/inpdefs.h"
|
|
#include "ngspice/ifsim.h"
|
|
#include "ngspice/cpdefs.h"
|
|
#include "ngspice/fteext.h"
|
|
|
|
|
|
void
|
|
INPdoOpts(
|
|
CKTcircuit *ckt,
|
|
JOB *anal,
|
|
card *optCard,
|
|
INPtables *tab)
|
|
{
|
|
char *line;
|
|
char *token;
|
|
char *errmsg;
|
|
IFvalue *val;
|
|
int error;
|
|
int i;
|
|
int which;
|
|
IFanalysis *prm = NULL;
|
|
|
|
which = -1;
|
|
i=0;
|
|
for(i=0;i<ft_sim->numAnalyses;i++) {
|
|
prm = ft_sim->analyses[i];
|
|
if(strcmp(prm->name,"options")==0) {
|
|
which = i;
|
|
break;
|
|
}
|
|
i++;
|
|
}
|
|
if(which == -1) {
|
|
optCard->error = INPerrCat(optCard->error,INPmkTemp(
|
|
"error: analysis options table not found\n"));
|
|
return;
|
|
}
|
|
line = optCard->line;
|
|
INPgetTok(&line,&token,1); /* throw away '.option' */
|
|
while (*line) {
|
|
INPgetTok(&line,&token,1);
|
|
for(i=0;i<prm->numParms;i++) {
|
|
if(strcmp(token,prm->analysisParms[i].keyword) == 0) {
|
|
if(!(prm->analysisParms[i].dataType & IF_UNIMP_MASK)) {
|
|
errmsg = TMALLOC(char, 45 + strlen(token));
|
|
(void) sprintf(errmsg,
|
|
" Warning: %s not yet implemented - ignored \n",token);
|
|
optCard->error = INPerrCat(optCard->error,errmsg);
|
|
val = INPgetValue(ckt,&line,
|
|
prm->analysisParms[i].dataType, tab);
|
|
break;
|
|
}
|
|
if(prm->analysisParms[i].dataType & IF_SET) {
|
|
val = INPgetValue(ckt,&line,
|
|
prm->analysisParms[i].dataType&IF_VARTYPES, tab);
|
|
error = ft_sim->setAnalysisParm (ckt, anal,
|
|
prm->analysisParms[i].id, val, NULL);
|
|
if(error) {
|
|
errmsg = TMALLOC(char, 35 + strlen(token));
|
|
(void) sprintf(errmsg,
|
|
"Warning: can't set option %s\n", token);
|
|
optCard->error = INPerrCat(optCard->error, errmsg);
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
if(i == prm->numParms) {
|
|
errmsg = TMALLOC(char, 100);
|
|
(void) strcpy(errmsg," Error: unknown option - ignored\n");
|
|
optCard->error = INPerrCat(optCard->error,errmsg);
|
|
fprintf(stderr, "%s\n", optCard->error);
|
|
}
|
|
}
|
|
}
|