96 lines
2.3 KiB
C
96 lines
2.3 KiB
C
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 2010 Paolo Nenzi
|
|
**********/
|
|
|
|
|
|
#include "ngspice/ngspice.h"
|
|
#include "ngspice/const.h"
|
|
#include "ngspice/ftedefs.h"
|
|
#include "ngspice/wordlist.h"
|
|
#include "variable.h"
|
|
#include "ngspice/sperror.h"
|
|
|
|
|
|
struct FTEparm {
|
|
char *keyword;
|
|
int id;
|
|
enum cp_types dataType;
|
|
char *description;
|
|
};
|
|
|
|
|
|
static struct FTEparm FTEOPTtbl[] = {
|
|
{ "decklineno", FTEOPT_NLDECK, CP_NUM, "Number of lines in the deck" },
|
|
{ "netloadtime", FTEOPT_NLT, CP_REAL, "Netlist loading time" },
|
|
{ "netparsetime", FTEOPT_NPT, CP_REAL, "Netlist parsing time" }
|
|
};
|
|
|
|
static const int FTEOPTcount = sizeof(FTEOPTtbl)/sizeof(*FTEOPTtbl);
|
|
|
|
static struct variable *getFTEstat(struct FTEparm *, FTESTATistics *);
|
|
|
|
|
|
struct variable *
|
|
ft_getstat(struct circ *ci, char *name)
|
|
{
|
|
int i;
|
|
|
|
if (name) {
|
|
for (i = 0; i < FTEOPTcount; i++)
|
|
if (eq(name, FTEOPTtbl[i].keyword)) {
|
|
struct variable *vv;
|
|
vv = getFTEstat(FTEOPTtbl + i, ci->FTEstats);
|
|
if (vv) {
|
|
vv->va_type = FTEOPTtbl[i].dataType;
|
|
vv->va_name = copy(FTEOPTtbl[i].description);
|
|
vv->va_next = NULL;
|
|
return (vv);
|
|
} else {
|
|
return (NULL);
|
|
}
|
|
}
|
|
return (NULL);
|
|
} else {
|
|
struct variable *vars = NULL;
|
|
for (i = FTEOPTcount; --i >= 0;) {
|
|
struct variable *v;
|
|
v = getFTEstat(FTEOPTtbl + i, ci->FTEstats);
|
|
v->va_next = vars;
|
|
vars = v;
|
|
|
|
v->va_type = FTEOPTtbl[i].dataType;
|
|
v->va_name = copy(FTEOPTtbl[i].description);
|
|
|
|
}
|
|
return vars;
|
|
}
|
|
}
|
|
|
|
|
|
/* This function fill the value field of the variable */
|
|
|
|
static struct variable *
|
|
getFTEstat(struct FTEparm *p, FTESTATistics *stat)
|
|
{
|
|
|
|
struct variable *v = TMALLOC(struct variable, 1);
|
|
|
|
switch (p->id) {
|
|
case FTEOPT_NLDECK:
|
|
v->va_num = stat->FTESTATdeckNumLines;
|
|
break;
|
|
case FTEOPT_NLT:
|
|
v->va_real = stat->FTESTATnetLoadTime;
|
|
break;
|
|
case FTEOPT_NPT:
|
|
v->va_real = stat->FTESTATnetParseTime;
|
|
break;
|
|
default:
|
|
tfree(v);
|
|
return (NULL);
|
|
}
|
|
|
|
return (v);
|
|
}
|