Move reference designator from A to N

replace inp2n by a copy of inp2a
OSDI is now called in case N: in inppas2

src/spicelib/parser/inp2n.c

@@ -1,127 +1,100 @@
 /**********
-Permit to use it as your wish.
+Copyright 1990 Regents of the University of California.  All rights reserved.
-Author:	2007 Gong Ding, gdiso@ustc.edu 
+Author: 1988 Thomas L. Quarles
-University of Science and Technology of China 
+Modified: 2001 Paolo Nenzi (Cider Integration)
 **********/
 
 #include "ngspice/ngspice.h"
 
-#ifdef NDEV
+#include "ngspice/devdefs.h"
-
+#include "ngspice/fteext.h"
-#include <stdio.h>
 #include "ngspice/ifsim.h"
 #include "ngspice/inpdefs.h"
-#include "../devices/ndev/ndevdefs.h"
 #include "ngspice/inpmacs.h"
-#include "ngspice/fteext.h"
+
 #include "inpxx.h"
+#include <stdio.h>
 
-void INP2N(CKTcircuit *ckt, INPtables * tab, struct card *current)
+void INP2N(CKTcircuit *ckt, INPtables *tab, struct card *current) {
-{
+  /* Mname <node> <node> <node> <node> <model> [L=<val>]
-/* parse a numerical device  card */
+   *       [W=<val>] [AD=<val>] [AS=<val>] [PD=<val>]
-/* Nname <node> <node> [<node> ...] [<mname>] */
+   *       [PS=<val>] [NRD=<val>] [NRS=<val>] [OFF]
-/* The NUMD should have a private .model card */
+   *       [IC=<val>,<val>,<val>]
+   */
 
-    int mytype;			/* the type we determine NDEV are */
+  int type;   /* the type the model says it is */
-    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 *name;			/* the NDEV's name */
+  // limit to at most 20 nodes
-    char *model;		/* the name of the NDEV's model */
+  const int max_i = 20;
-    
+  CKTnode *node[20];
-    int  term;                  /* the number of node */
-    char *nnamex;               /* serve as a temporary name */ 
-    char *nname[7];		/* the array of CKT node's name */
-    char *bname[7];		/* the array of NDEV electrode's name */
-    CKTnode *node[7];		/* the array of CKT node's node pointer */
-    
   int error;         /* error code temporary */
-    int i;            
+  int numnodes;      /* flag indicating 4 or 5 (or 6 or 7) nodes */
-    INPmodel *thismodel;	/* pointer to model structure describing our model */
-    GENmodel *mdfast = NULL;	/* pointer to the actual model */
   GENinstance *fast; /* pointer to the actual instance */
-    NDEVinstance *pinst;
   int waslead;    /* flag to indicate that funny unlabeled number was found */
   double leadval; /* actual value of unlabeled number */
+  INPmodel *thismodel; /* pointer to model description for user's model */
+  GENmodel *mdfast;    /* pointer to the actual model */
+  int i;
 
-    mytype = INPtypelook("NDEV");
-    if (mytype < 0) {
-	LITERR("Device type NDEV not supported by this binary\n");
-	return;
-    }
   line = current->line;
-    INPgetTok(&line, &name, 1);
+
+  INPgetNetTok(&line, &name, 1);
   INPinsert(&name, tab);
 
-    /* get the node number here */
+  for (i = 0;; i++) {
-    saveline=line;
+    char *token;
-    term = 0;
+    INPgetNetTok(&line, &token, 1);
-    do {
+
-      INPgetNetTok(&line, &nnamex, 1);
+    if (i >= 2) {
-      term++;
+      txfree(INPgetMod(ckt, token, &thismodel, tab));
-    }while(*nnamex);
+
-    line=saveline;
+      /* /1* check if using model binning -- pass in line since need 'l' and 'w' *1/ */
-    term=(term-2)/2;
+      /* if (!thismodel) */
-    if (term > 7) {
+      /*   txfree(INPgetModBin(ckt, token, &thismodel, tab, line)); */
-	LITERR("Numerical device has too many nodes, the limitation is 7\n");
+
+      if (thismodel) {
+        INPinsert(&token, tab);
+        break;
+      }
+    }
+    if (i >= max_i) {
+      LITERR("could not find a valid modelname");
       return;
     }
-    for(i=0;i<term;i++) {   
+    INPtermInsert(ckt, &token, tab, &node[i]);
-      INPgetNetTok(&line, &nname[i], 1);
-      INPgetNetTok(&line, &bname[i], 1);
-      INPtermInsert(ckt, &nname[i], tab, &node[i]);
   }
 
-    saveline = line;		/* save then old pointer */
-
-    INPgetNetTok(&line, &model, 1);
-          
-    if (*model) {
-	/* token isn't null */
-	if (INPlookMod(model)) {
-	    /* If this is a valid model connect it */
-	    INPinsert(&model, tab);
-	    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;
-	    }
+  mdfast = thismodel->INPmodfast;
-	} else {
+  IFdevice *dev = ft_sim->devices[type];
-	    LITERR("Numerical device should always have a model card\n");
+
-	    return;
+  if (!dev->registry_entry) {
-	}
+    LITERR("incorrect model type! Expected OSDI device");
-	IFC(newInstance, (ckt, mdfast, &fast, name));
-    } else {
-	LITERR("Numerical device should always have a model card\n");
     return;
   }
 
-    for(i=0;i<term;i++) {   
+  if (i == 0) {
+    LITERR("not enough nodes");
+    return;
+  }
+
+  if (i > *dev->terms) {
+    LITERR("too many nodes connected to instance");
+    return;
+  }
+
+  numnodes = i;
+
+  IFC(newInstance, (ckt, mdfast, &fast, name));
+
+  for (i = 0; i < *dev->terms; i++)
+    if (i < numnodes)
       IFC(bindNode, (ckt, fast, i + 1, node[i]));
-    }	
+    else
-    /* save acture terminal number to instance */
+      GENnode(fast)[i] = -1;
-    pinst = (NDEVinstance *)fast;
-    pinst->term = term;
-    for(i=0;i<term;i++) {   
-       pinst->bname[i]=bname[i];
-       pinst->node[i]=node[i];
-    }  
 
   PARSECALL((&line, ckt, type, fast, &leadval, &waslead, tab));
-    if (waslead) {
+  if (waslead)
-	LITERR("The numerical device was lead berfor.\n");
+    LITERR(" error:  no unlabeled parameter permitted on osdi devices\n");
-	return;
 }
-    
-    
-    return;
-}
-#else
-
-int Dummy1;
-
-#endif

src/spicelib/parser/inppas2.c

@@ -99,12 +99,7 @@ void INPpas2(CKTcircuit *ckt, struct card *data, INPtables * tab, TSKtask *task)
 	    /* blank line (tab leading) */
 	    break;
 
-#ifdef OSDI
+#ifdef XSPICE
-	case 'A':   /* Aname <cm connections> <mname> */
-	    // OSDI handles xspice 
-	    INP2A(ckt, tab, current);
-	    break;
-#elif XSPICE
 	    /* gtri - add - wbk - 10/23/90 - add case for 'A' devices */
 
 	case 'A':   /* Aname <cm connections> <mname> */
@@ -174,7 +169,7 @@ void INPpas2(CKTcircuit *ckt, struct card *data, INPtables * tab, TSKtask *task)
 	       [IC=<val>,<val>,<val>] */
 	    INP2M(ckt, tab, current);
 	    break;
-#ifdef  NDEV   
+#ifdef  OSDI
 	case 'N':
 	    /* Nname [<node>...]  [<mname>] */
 	    INP2N(ckt, tab, current);