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

Modified Files: 

Makefile writ_ifs.c

Make the generated files compatable with current state of tclspice
This commit is contained in:
stefanjones 2003-06-26 11:53:38 +00:00
parent d0ac7cff0f
commit 71bd746339
2 changed files with 21 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/xspice/cmpp/Makefile
View File

@ -30,7 +30,7 @@ cmpp: $(cmpp_OBJS)
ifs_lex.c : ifs_lex.l
$(LEX) -i -P$(*:lex=)yy $< > $@
install:
clean:
rm -f $(cmpp_OBJS) $(cmpp_GEN) cmpp

27
src/xspice/cmpp/writ_ifs.c
View File

@ -862,12 +862,21 @@ static void write_SPICEdev(
FILE *fp, /* File to write to */
Ifs_Table_t *ifs_table) /* Table of Interface Specification data */
{
/* Extern the code model function name */
fprintf(fp, "\n");
fprintf(fp, "extern void %s(Mif_Private_t *);\n",
ifs_table->name.c_fcn_name);
/* SPICE now needs these static integers */
fprintf(fp, "\n");
fprintf(fp, "static int val_terms = 0;\n");
fprintf(fp, "static int val_numNames = 0;\n");
fprintf(fp, "static int val_numInstanceParms = %d;\n",ifs_table->num_inst_var);
fprintf(fp, "static int val_numModelParms = %d;\n",ifs_table->num_param);
fprintf(fp, "static int val_sizeofMIFinstance = sizeof(MIFinstance);\n");
fprintf(fp, "static int val_sizeofMIFmodel = sizeof(MIFmodel);\n");
/* Write out the structure beginning */
/* Use the c function external identifier appended with _info as the */
@ -880,17 +889,17 @@ static void write_SPICEdev(
fprintf(fp, " { \"%s\",\n", ifs_table->name.model_name);
fprintf(fp, " \"%s\",\n", ifs_table->name.description);
fprintf(fp, " 0,\n");
fprintf(fp, " 0,\n");
fprintf(fp, " &val_terms,\n");
fprintf(fp, " &val_numNames,\n");
fprintf(fp, " NULL,\n");
fprintf(fp, " %d,\n", ifs_table->num_inst_var);
fprintf(fp, " &val_numInstanceParms,\n");
if(ifs_table->num_inst_var > 0)
fprintf(fp, " MIFpTable,\n");
else
fprintf(fp, " NULL,\n");
fprintf(fp, " %d,\n", ifs_table->num_param);
fprintf(fp, " &val_numModelParms,\n");
if(ifs_table->num_param > 0)
fprintf(fp, " MIFmPTable,\n");
else
@ -924,6 +933,7 @@ static void write_SPICEdev(
fprintf(fp, "MIFmParam, \n"); /* DEVmodParam */
fprintf(fp, "MIFload, \n"); /* DEVload */
fprintf(fp, "MIFsetup, \n"); /* DEVsetup */
fprintf(fp, "NULL, \n"); /* DEVunsetup */
fprintf(fp, "NULL, \n"); /* DEVpzSetup */
fprintf(fp, "NULL, \n"); /* DEVtemperature */
fprintf(fp, "MIFtrunc, \n"); /* DEVtrunc */
@ -944,11 +954,14 @@ static void write_SPICEdev(
fprintf(fp, "NULL, \n"); /* DEVsenAcLoad */
fprintf(fp, "NULL, \n"); /* DEVsenPrint */
fprintf(fp, "NULL, \n"); /* DEVsenTrunc */
fprintf(fp, "NULL, \n"); /* DEVdisto */
fprintf(fp, "NULL, \n"); /* DEVnoise */
/* Write the sizeof stuff used in dynamic allocation of inst/model structs */
fprintf(fp, "sizeof(MIFinstance),\n");
fprintf(fp, "sizeof(MIFmodel),\n");
fprintf(fp, "&val_sizeofMIFinstance,\n");
fprintf(fp, "&val_sizeofMIFmodel,\n");
fprintf(fp, "\n");
fprintf(fp, "};\n");
fprintf(fp, "\n");