New inductor model, adapted parser.

src/spicelib/parser/inp2l.c

@@ -4,7 +4,6 @@ Author: 1988 Thomas L. Quarles
 **********/
 
 #include "ngspice.h"
-#include <stdio.h>
 #include "ifsim.h"
 #include "inpdefs.h"
 #include "inpmacs.h"
@@ -13,25 +12,33 @@ Author: 1988 Thomas L. Quarles
 
 void INP2L(void *ckt, INPtables * tab, card * current)
 {
+
 /* parse an inductor card */
-/* Lname <node> <node> <val> [IC=<val>] */
+/* Cname <node> <node> [<val>] [<mname>] [IC=<val>] */
 
-    int type;			/* the type the model says it is */
+    int mytype;			/* the type we determine inductors are */
+    int type = 0;		/* the type the model says it is */
     char *line;			/* the part of the current line left to parse */
+    char *saveline;		/* ... just in case we need to go back... */
     char *name;			/* the resistor's name */
+    char *model;		/* the name of the inductor's model */
     char *nname1;		/* the first node's name */
     char *nname2;		/* the second node's name */
     void *node1;		/* the first node's node pointer */
     void *node2;		/* the second node's node pointer */
+    double val;			/* temp to held inductance */
     int error;			/* error code temporary */
+    int error1;			/* secondary error code temporary */
+    INPmodel *thismodel;	/* pointer to model structure describing our model */
+    void *mdfast = NULL;	/* pointer to the actual model */
     void *fast;			/* pointer to the actual instance */
-    IFvalue ptemp;		/* a value structure to package resistance into */
+    IFvalue ptemp;		/* a value structure to package inductance into */
     int waslead;		/* flag to indicate that funny unlabeled number was found */
     double leadval;		/* actual value of unlabeled number */
-    IFuid uid;			/* uid for default model */
+    IFuid uid;			/* uid for default cap model */
 
-    type = INPtypelook("Inductor");
-    if (type < 0) {
+    mytype = INPtypelook("Inductor");
+    if (mytype < 0) {
 	LITERR("Device type Inductor not supported by this binary\n");
 	return;
     }
@@ -42,12 +49,58 @@ void INP2L(void *ckt, INPtables * tab, card * current)
     INPtermInsert(ckt, &nname1, tab, &node1);
     INPgetNetTok(&line, &nname2, 1);
     INPtermInsert(ckt, &nname2, tab, &node2);
-    if (!tab->defLmod) {
-	/* create default L model */
-	IFnewUid(ckt, &uid, (IFuid) NULL, "L", UID_MODEL, (void **) NULL);
-	IFC(newModel, (ckt, type, &(tab->defLmod), uid));
+    val = INPevaluate(&line, &error1, 1);
+    
+    saveline = line;
+    
+    INPgetTok(&line, &model, 1);
+    
+    if (*model) {
+	/* token isn't null */
+	if (INPlookMod(model)) {
+	    /* If this is a valid model connect it */
+	    INPinsert(&model, tab);
+	    thismodel = (INPmodel *) NULL;
+	    current->error = INPgetMod(ckt, model, &thismodel, tab);
+	    if (thismodel != NULL) {
+		if (mytype != thismodel->INPmodType) {
+		    LITERR("incorrect model type");
+		    return;
+		}
+		mdfast = thismodel->INPmodfast;
+		type = thismodel->INPmodType;
+	    }
+	} else {
+	    tfree(model);
+	    /* It is not a model */
+	    line = saveline;	/* go back */
+	    type = mytype;
+	    if (!tab->defCmod) {	/* create default L model */
+		IFnewUid(ckt, &uid, (IFuid) NULL, "L", UID_MODEL,
+			 (void **) NULL);
+		IFC(newModel, (ckt, type, &(tab->defCmod), uid));
+	    }
+	    mdfast = tab->defCmod;
+	}
+	IFC(newInstance, (ckt, mdfast, &fast, name));
+    } else {
+	tfree(model);
+	/* The token is null and a default model will be created */
+	type = mytype;
+	if (!tab->defCmod) {
+	    /* create default L model */
+	    IFnewUid(ckt, &uid, (IFuid) NULL, "L", UID_MODEL,
+		     (void **) NULL);
+	    IFC(newModel, (ckt, type, &(tab->defCmod), uid));
+	}
+	IFC(newInstance, (ckt, tab->defCmod, &fast, name));
     }
-    IFC(newInstance, (ckt, tab->defLmod, &fast, name));
+    
+    if (error1 == 0) {		/* Looks like a number */
+	ptemp.rValue = val;
+	GCA(INPpName, ("inductance", &ptemp, ckt, type, fast));
+    } 
+    
     IFC(bindNode, (ckt, fast, 1, node1));
     IFC(bindNode, (ckt, fast, 2, node2));
     PARSECALL((&line, ckt, type, fast, &leadval, &waslead, tab));
@@ -55,4 +108,5 @@ void INP2L(void *ckt, INPtables * tab, card * current)
 	ptemp.rValue = leadval;
 	GCA(INPpName, ("inductance", &ptemp, ckt, type, fast));
     }
+    return;
 }