From 09c8614cb2436480010ec5cd826525a81466a8f7 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Thu, 3 Aug 2017 18:58:51 +0200
Subject: [PATCH] port connected

---
 .../adms/admst/ngspiceMODULEdefs.h.xml        | 10 ++++++-
 .../admst/ngspiceMODULEguesstopology.c.xml    |  6 ++---
 .../adms/admst/ngspiceMODULEsetup.c.xml       | 26 +++++++++++--------
 3 files changed, 27 insertions(+), 15 deletions(-)

diff --git a/src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml b/src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml
index cfe2351f1..2cafc1b4c 100644
--- a/src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml
+++ b/src/spicelib/devices/adms/admst/ngspiceMODULEdefs.h.xml
@@ -200,7 +200,15 @@ typedef struct s$(module)instance {
   <admst:text format="\n"/>
 </admst:for-each>
 <admst:for-each select="node[grounded='no']">
-  <admst:text format="  unsigned %(name)Node_connected :1;\n"/>
+  <admst:choose>
+    <admst:when test="[location='internal']">
+      <admst:text format="  unsigned %(name)Node_mine :1;\n"/>
+    </admst:when>
+    <admst:otherwise>
+      <admst:text format="  unsigned %(name)Node_mine :1;\n"/>
+      <admst:text format="  unsigned %(name)Node_connected :1;\n"/>
+    </admst:otherwise>
+  </admst:choose>
 </admst:for-each>
   /* instance parameters */
 <admst:for-each select="variable[parametertype='instance' and input='yes']">
diff --git a/src/spicelib/devices/adms/admst/ngspiceMODULEguesstopology.c.xml b/src/spicelib/devices/adms/admst/ngspiceMODULEguesstopology.c.xml
index 765bb84c4..ecfcc0641 100644
--- a/src/spicelib/devices/adms/admst/ngspiceMODULEguesstopology.c.xml
+++ b/src/spicelib/devices/adms/admst/ngspiceMODULEguesstopology.c.xml
@@ -183,12 +183,12 @@
         <admst:choose>
           <admst:when test="lhs/branch[grounded='no']">
             <admst:text test="lhs/branch/nnode[location='internal']"
-              format="here->%(lhs/branch/nnode/name)Node = here->%(lhs/branch/pnode/name)Node; /* nnode collapsed */ \n"/>
+              format="here->%(lhs/branch/nnode/name)Node = here->%(lhs/branch/pnode/name)Node; /* nnode collapsed */\n  here->%(lhs/branch/nnode/name)Node_mine = 0;\n"/>
             <admst:text test="lhs/branch/pnode[location='internal']"
-              format="here->%(lhs/branch/pnode/name)Node = here->%(lhs/branch/nnode/name)Node; /* pnode collapsed */ \n"/>
+              format="here->%(lhs/branch/pnode/name)Node = here->%(lhs/branch/nnode/name)Node; /* pnode collapsed */\n  here->%(lhs/branch/pnode/name)Node_mine = 0;\n"/>
           </admst:when>
           <admst:otherwise>
-            <admst:text format="here->%(lhs/branch/pnode/name)Node = 0; /* pnode collapsed to GND */ \n"/>
+            <admst:text format="here->%(lhs/branch/pnode/name)Node = 0; /* pnode collapsed to GND */ \n  here->%(lhs/branch/pnode/name)Node_mine = 0;\n"/>
           </admst:otherwise>
         </admst:choose>
       </admst:if>
diff --git a/src/spicelib/devices/adms/admst/ngspiceMODULEsetup.c.xml b/src/spicelib/devices/adms/admst/ngspiceMODULEsetup.c.xml
index 5f3f4558b..7edba1a53 100644
--- a/src/spicelib/devices/adms/admst/ngspiceMODULEsetup.c.xml
+++ b/src/spicelib/devices/adms/admst/ngspiceMODULEsetup.c.xml
@@ -114,6 +114,7 @@ int $(module)setup (SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *
 </admst:for-each>
 <admst:value-of select="name"/>
         here->%sNode = -1;
+        here->%(name)Node_mine = 0;
 </admst:for-each>
       }
 </admst:if>
@@ -144,13 +145,12 @@ int $(module)setup (SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *
   <admst:value-of select="value"/>
   <admst:variable name="info" select="%s"/>
 </admst:for-each>
-<admst:value-of select="name"/>
-<admst:value-of select="name"/>
-        if(here->%sNode == -1)
+        if(here->%(name)Node == -1)
         {
           error=CKTmkVolt(ckt,&amp;tmp,here-&gt;$(module)name,&quot;X%(name)X&quot;);
           if(error) return(error);
-          here->%sNode = tmp->number;
+          here->%(name)Node = tmp->number;
+          here->%(name)Node_mine = 1;
         }
 </admst:for-each>
       }
@@ -185,16 +185,20 @@ $(module)unsetup(GENmodel *inModel, CKTcircuit *ckt)
     for ( here = $(module)instances(model) ;here != NULL ; here = $(module)nextInstance(here) )
     {
 <admst:for-each select="node[location='external']">
-        if (!here->%(name)Node_connected && here->%(name)Node >= 0) {
-            CKTdltNNum(ckt, here->%(name)Node);
-            here->%(name)Node = -1;
+        if (here->%(name)Node_mine) {
+            if (here->%(name)Node > 0)
+                CKTdltNNum(ckt, here->%(name)Node);
+            here->%(name)Node_mine = 0;
         }
+        if (!here->%(name)Node_connected)
+            here->%(name)Node = -1;
 </admst:for-each>
 <admst:for-each select="reverse(node[location='internal'])">
-        if (here->%(name)Node > 0) {
-            CKTdltNNum(ckt, here->%(name)Node);
-            here->%(name)Node = -1;
-        }
+        if (here->%(name)Node_mine)
+            if (here->%(name)Node > 0)
+                CKTdltNNum(ckt, here->%(name)Node);
+        here->%(name)Node = -1;
+        here->%(name)Node_mine = 0;
 </admst:for-each>
     }
   }