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/spicelib/devices/dev.c

543 lines
13 KiB
C
Raw Blame History

/* NG-SPICE -- An electrical circuit simulator
*
* Copyright (c) 1990 University of California
* Copyright (c) 2000 Arno W. Peters
*
* Permission to use, copy, modify, and distribute this software and
* its documentation without fee, and without a written agreement is
* hereby granted, provided that the above copyright notice, this
* paragraph and the following three paragraphs appear in all copies.
*
* This software program and documentation are copyrighted by their
* authors. The software program and documentation are supplied "as
* is", without any accompanying services from the authors. The
* authors do not warrant that the operation of the program will be
* uninterrupted or error-free. The end-user understands that the
* program was developed for research purposes and is advised not to
* rely exclusively on the program for any reason.
*
* IN NO EVENT SHALL THE AUTHORS BE LIABLE TO ANY PARTY FOR DIRECT,
* INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING
* LOST PROFITS, ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS
* DOCUMENTATION, EVEN IF THE AUTHORS HAVE BEEN ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE. THE AUTHORS SPECIFICALLY DISCLAIMS ANY
* WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE
* SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS" BASIS, AND THE AUTHORS
* HAVE NO OBLIGATIONS TO PROVIDE MAINTENANCE, SUPPORT, UPDATES,
* ENHANCEMENTS, OR MODIFICATIONS. */
#include <config.h>
#include <assert.h>
#include <devdefs.h>
#include <ifsim.h>
#include "dev.h"
#include "memory.h" /* to alloc, realloc devices*/
#ifdef XSPICE
/*saj headers for xspice*/
#include <string.h> /* for strcpy, strcat*/
#include <dlfcn.h> /* to load libraries*/
#include "dllitf.h" /* the coreInfo Structure*/
#include "evtudn.h" /*Use defined nodes */
Evt_Udn_Info_t **g_evt_udn_info = NULL;
int g_evt_num_udn_types = 0;
/*The digital node type */
extern Evt_Udn_Info_t idn_digital_info;
int add_udn(int,Evt_Udn_Info_t **);
/*saj*/
#endif
#define DEVICES_USED "asrc bjt bjt2 bsim1 bsim2 bsim3 bsim3v2 bsim3v1 bsim4 bsim3soipd bsim3soifd \
bsim3soidd cap cccs ccvs csw dio hfet hfet2 ind isrc jfet ltra mes mesa mos1 \
mos2 mos3 mos6 mos9 res soi3 sw tra urc vbic vccs vcvs vsrc (ekv)"
/*
* Analyses
*/
#define AN_op
#define AN_dc
#define AN_tf
#define AN_ac
#define AN_tran
#define AN_pz
#define AN_disto
#define AN_noise
#define AN_sense
#define ANALYSES_USED "op dc tf ac tran pz disto noise sense"
#include "asrc/asrcitf.h"
#include "bjt/bjtitf.h"
#include "bjt2/bjt2itf.h"
#include "bsim1/bsim1itf.h"
#include "bsim2/bsim2itf.h"
#include "bsim3/bsim3itf.h"
#include "bsim3v0/bsim3v0itf.h"
#include "bsim3v1/bsim3v1itf.h"
#include "bsim3v1a/bsim3v1aitf.h"
#include "bsim3v1s/bsim3v1sitf.h"
#include "bsim3soi/b3soiitf.h"
#include "bsim4/bsim4itf.h"
#include "bsim3soi_pd/b3soipditf.h"
#include "bsim3soi_fd/b3soifditf.h"
#include "bsim3soi_dd/b3soidditf.h"
#include "cap/capitf.h"
#include "cccs/cccsitf.h"
#include "ccvs/ccvsitf.h"
#include "csw/cswitf.h"
#include "dio/dioitf.h"
#include "hfet1/hfetitf.h"
#include "hfet2/hfet2itf.h"
#include "hisim/hsm1itf.h"
#include "ind/inditf.h"
#include "isrc/isrcitf.h"
#include "jfet/jfetitf.h"
#include "jfet2/jfet2itf.h"
#include "ltra/ltraitf.h"
#include "mes/mesitf.h"
#include "mesa/mesaitf.h"
#include "mos1/mos1itf.h"
#include "mos2/mos2itf.h"
#include "mos3/mos3itf.h"
#include "mos6/mos6itf.h"
#include "mos9/mos9itf.h"
#include "cpl/cplitf.h"
#include "res/resitf.h"
#include "soi3/soi3itf.h"
#include "sw/switf.h"
#include "tra/traitf.h"
#include "txl/txlitf.h"
#include "urc/urcitf.h"
#include "vbic/vbicitf.h"
#include "vccs/vccsitf.h"
#include "vcvs/vcvsitf.h"
#include "vsrc/vsrcitf.h"
#ifdef CIDER
/* Numerical devices (Cider integration) */
#include "nbjt/nbjtitf.h"
#include "nbjt2/nbjt2itf.h"
#include "numd/numditf.h"
#include "numd2/numd2itf.h"
#include "numos/numositf.h"
#endif
/*saj in xspice the DEVices size can be varied so DEVNUM is an int*/
#ifdef CIDER
#ifdef HAVE_EKV
#include "ekv/ekvitf.h"
#ifdef XSPICE
static int DEVNUM = 53;
#else
#define DEVNUM 53
#endif
#else
#ifdef XSPICE
static int DEVNUM = 52;
#else
#define DEVNUM 52
#endif
#endif
#else /* NOT CIDER */
#ifdef HAVE_EKV
#include "ekv/ekvitf.h"
#ifdef XSPICE
static int DEVNUM = 48;
#else
#define DEVNUM 48
#endif
#else
#ifdef XSPICE
static int DEVNUM = 47;
#else
#define DEVNUM 47
#endif
#endif
#endif /* CIDER */
/*Make this dynamic for later attempt to make all devices dynamic*/
SPICEdev **DEVices=NULL;
/*Flag to indicate that device type it is,
*0 = normal spice device
*1 = xspice device
*/
#ifdef XSPICE
int *DEVicesfl=NULL;
int DEVflag(int type){
if(type < DEVNUM && type >= 0)
return DEVicesfl[type];
else
return -1;
}
#endif
void
spice_init_devices(void)
{
#ifdef XSPICE
/*Initilise the structs and add digital node type */
g_evt_udn_info = (Evt_Udn_Info_t **)MALLOC(sizeof(Evt_Udn_Info_t *));
g_evt_num_udn_types = 1;
g_evt_udn_info[0] = &idn_digital_info;
DEVicesfl = (int *)tmalloc(DEVNUM*sizeof(int));
/* tmalloc should automatically zero the array! */
#endif
DEVices = (SPICEdev **)tmalloc(DEVNUM*sizeof(SPICEdev *));
/* URC device MUST precede both resistors and capacitors */
DEVices[ 0] = get_urc_info();
DEVices[ 1] = get_asrc_info();
DEVices[ 2] = get_bjt_info();
DEVices[ 3] = get_bjt2_info();
DEVices[ 4] = get_bsim1_info();
DEVices[ 5] = get_bsim2_info();
DEVices[ 6] = get_bsim3_info();
DEVices[ 7] = get_bsim3v0_info();
DEVices[ 8] = get_bsim3v1_info();
DEVices[ 9] = get_bsim3v1a_info();
DEVices[10] = get_bsim3v1s_info();
DEVices[11] = get_b3soi_info();
DEVices[12] = get_bsim4_info();
DEVices[13] = get_b3soipd_info();
DEVices[14] = get_b3soifd_info();
DEVices[15] = get_b3soidd_info();
DEVices[16] = get_cap_info();
DEVices[17] = get_cccs_info();
DEVices[18] = get_ccvs_info();
DEVices[19] = get_cpl_info();
DEVices[20] = get_csw_info();
DEVices[21] = get_dio_info();
DEVices[22] = get_hfeta_info();
DEVices[23] = get_hfet2_info();
DEVices[24] = get_hsm1_info();
DEVices[25] = get_ind_info();
DEVices[26] = get_mut_info();
DEVices[27] = get_isrc_info();
DEVices[28] = get_jfet_info();
DEVices[29] = get_jfet2_info();
DEVices[30] = get_ltra_info();
DEVices[31] = get_mes_info();
DEVices[32] = get_mesa_info();
DEVices[33] = get_mos1_info();
DEVices[34] = get_mos2_info();
DEVices[35] = get_mos3_info();
DEVices[36] = get_mos6_info();
DEVices[37] = get_mos9_info();
DEVices[38] = get_res_info();
DEVices[39] = get_soi3_info();
DEVices[40] = get_sw_info();
DEVices[41] = get_tra_info();
DEVices[42] = get_txl_info();
DEVices[43] = get_vbic_info();
DEVices[44] = get_vccs_info();
DEVices[45] = get_vcvs_info();
DEVices[46] = get_vsrc_info();
#ifdef CIDER
DEVices[47] = get_nbjt_info();
DEVices[48] = get_nbjt2_info();
DEVices[49] = get_numd_info();
DEVices[50] = get_numd2_info();
DEVices[51] = get_numos_info();
#ifdef HAVE_EKV
DEVices[52] = get_ekv_info();
assert(53 == DEVNUM);
#else /* NOT EKV */
assert(52 == DEVNUM);
#endif /* HAVE_EKV */
#else /* NOT CIDER */
#ifdef HAVE_EKV
DEVices[47] = get_ekv_info();
assert(48 == DEVNUM);
#else
assert(47 == DEVNUM);
#endif
#endif /* CIDER */
return;
}
int
num_devices(void)
{
return DEVNUM;
}
IFdevice **
devices_ptr(void)
{
return (IFdevice **) DEVices;
}
SPICEdev **
devices(void)
{
return DEVices;
}
#ifdef DEVLIB
/*not yet usable*/
#ifdef HAVE_EKV
#define DEVICES_USED {"asrc", "bjt", "bjt2", "vbic", "bsim1", "bsim2", "bsim3", "bsim3v2", "bsim3v1", "bsim4", "bsim3soipd", "bsim3soifd", \
"bsim3soidd", "cap", "cccs", "ccvs", "csw", "dio", "hfet", "hfet2", "ind", "isrc", "jfet", "ltra", "mes", "mesa" ,"mos1", \
"mos2", "mos3", "mos6", "mos9", "res", "soi3", "sw", "tra", "urc", "vccs", "vcvs", "vsrc", "ekv" }
#else
#define DEVICES_USED {"asrc", "bjt", "bjt2", "vbic", "bsim1", "bsim2", "bsim3", "bsim3v2", "bsim3v1", "bsim4", "bsim3soipd", "bsim3soifd", \
"bsim3soidd", "cap", "cccs", "ccvs", "csw", "dio", "hfet", "hfet2", "ind", "isrc", "jfet", "ltra", "mes", "mesa" ,"mos1", \
"mos2", "mos3", "mos6", "mos9", "res", "soi3", "sw", "tra", "urc", "vccs", "vcvs", "vsrc"}
#endif
int load_dev(char *name) {
char *msg;
char libname[50];
void *lib;
SPICEdev *(*fetch)(void)=NULL;
SPICEdev *device;
strcpy(libname, "lib");
strcat(libname,name);
strcat(libname,".so");
lib = dlopen(libname,RTLD_NOW);
if(!lib){
msg = dlerror();
printf("%s\n", msg);
return 1;
}
strcpy(libname, "get_");
strcat(libname,name);
strcat(libname,"_info");
fetch = dlsym(lib,libname);
if(!fetch){
msg = dlerror();
printf("%s\n", msg);
return 1;
}
device = fetch();
add_device(1,&device,0);
return 0;
}
void load_alldevs(void){
char *devs[] = DEVICES_USED;
int num = sizeof(devs)/sizeof(char *);
int i;
for(i=0; i< num;i++)
load_dev(devs[i]);
return;
}
#endif
/*-------------------- XSPICE additions below ----------------------*/
#ifdef XSPICE
#include <mif.h>
#include <cm.h>
#include <cpextern.h>
#include <fteext.h> /*for ft_sim*/
#include <cktdefs.h> /*for DEVmaxnum*/
static void relink() {
/* added by SDB; DEVmaxnum is an external int defined in cktdefs.h */
extern int DEVmaxnum;
/*
* This replacement done by SDB on 6.11.2003
*
* ft_sim->numDevices = num_devices();
* DEVmaxnum = num_devices();
*/
ft_sim->numDevices = DEVNUM;
DEVmaxnum = DEVNUM;
ft_sim->devices = devices_ptr();
return;
}
int add_device(int n, SPICEdev **devs, int flag){
int i;
DEVices = (SPICEdev **)trealloc(DEVices,(DEVNUM+n)*sizeof(SPICEdev *));
DEVicesfl = (int *)trealloc(DEVicesfl,(DEVNUM+n)*sizeof(int));
for(i = 0; i < n;i++){
/*debug*/printf("Added device: %s\n",devs[i]->DEVpublic.name);
DEVices[DEVNUM+i] = devs[i];
/* added by SDB on 6.20.2003 */
DEVices[DEVNUM+i]->DEVinstSize = &MIFiSize;
DEVicesfl[DEVNUM+i] = flag;
}
DEVNUM += n;
relink();
return 0;
}
int add_udn(int n,Evt_Udn_Info_t **udns){
int i;
g_evt_udn_info = (Evt_Udn_Info_t **)trealloc(g_evt_udn_info,(g_evt_num_udn_types+n)*sizeof(Evt_Udn_Info_t *));
for(i = 0; i < n;i++){
/*debug*/printf("Added udn: %s\n",udns[i]->name);
g_evt_udn_info[g_evt_num_udn_types+i] = udns[i];
}
g_evt_num_udn_types += n;
return 0;
}
extern struct coreInfo_t coreInfo;
int load_opus(char *name){
void *lib;
char *msg;
int *num=NULL;
struct coreInfo_t **core;
SPICEdev **devs;
Evt_Udn_Info_t **udns;
void *(*fetch)(void)=NULL;
lib = dlopen(name,RTLD_NOW);
if(!lib){
msg = dlerror();
printf("%s\n", msg);
return 1;
}
fetch = dlsym(lib,"CMdevNum");
if(fetch){
num = (int *)(*fetch)();
printf("Got %u devices.\n",*num);
fetch = NULL;
}else{
msg = dlerror();
printf("%s\n", msg);
return 1;
}
fetch = dlsym(lib,"CMdevs");
if(fetch){
devs = (SPICEdev **)(*fetch)();
fetch = NULL;
}else{
msg = dlerror();
printf("%s\n", msg);
return 1;
}
fetch = dlsym(lib,"CMgetCoreItfPtr");
if(fetch){
core = (struct coreInfo_t **)(*fetch)();
*core = &coreInfo;
fetch = NULL;
}else{
msg = dlerror();
printf("%s\n", msg);
return 1;
}
add_device(*num,devs,1);
fetch = dlsym(lib,"CMudnNum");
if(fetch){
num = (int *)(*fetch)();
printf("Got %u udns.\n",*num);
fetch = NULL;
}else{
msg = dlerror();
printf("%s\n", msg);
return 1;
}
fetch = dlsym(lib,"CMudns");
if(fetch){
udns = (Evt_Udn_Info_t **)(*fetch)();
fetch = NULL;
}else{
msg = dlerror();
printf("%s\n", msg);
return 1;
}
add_udn(*num,udns);
return 0;
}
#endif
/*-------------------- end of XSPICE additions ----------------------*/
#ifdef __MINGW32__
// isnan for SOI devices in MINGW32 hvogt
union ieee754_double
{
double d;
/* This is the IEEE 754 double-precision format. */
struct
{
/* Together these comprise the mantissa. */
unsigned int mantissa1:32;
unsigned int mantissa0:20;
unsigned int exponent:11;
unsigned int negative:1;
} ieee;
struct
{
/* Together these conprise the mantissa. */
unsigned int mantissa1:32;
unsigned int mantissa0:19;
unsigned int quiet_nan:1;
unsigned int exponent:11;
unsigned int negative:1;
} ieee_nan;
};
#ifndef HAVE_ISNAN
int
isnan(double value)
{
union ieee754_double u;
u.d = value;
/* IEEE 754 NaN's have the maximum possible
exponent and a nonzero mantissa. */
return ((u.ieee.exponent & 0x7ff) == 0x7ff &&
(u.ieee.mantissa0 != 0 || u.ieee.mantissa1 != 0));
}
/*
* end isnan.c
*/
#endif /* HAVE_ISNAN */
#endif
Reference in New Issue View Git Blame Copy Permalink