From 23ecb3a8968055dd412c09cb85f08a224141d37b Mon Sep 17 00:00:00 2001
From: r29173 <r29173>
Date: Tue, 24 Apr 2007 12:26:36 +0000
Subject: [PATCH] add case 'blockvariable'

---
 .../adms/admst/ngspiceMODULEguesstopology.c.xml  |  7 +++++--
 .../devices/adms/admst/ngspiceVersion.xml        | 16 +++++++++++++++-
 2 files changed, 20 insertions(+), 3 deletions(-)

diff --git a/src/spicelib/devices/adms/admst/ngspiceMODULEguesstopology.c.xml b/src/spicelib/devices/adms/admst/ngspiceMODULEguesstopology.c.xml
index f1d257b1c..ebcbce4dd 100644
--- a/src/spicelib/devices/adms/admst/ngspiceMODULEguesstopology.c.xml
+++ b/src/spicelib/devices/adms/admst/ngspiceMODULEguesstopology.c.xml
@@ -3,7 +3,10 @@
 <!--
   $Id$
   $Log$
-  Revision 1.7  2006-03-06 12:51:29  r29173
+  Revision 1.8  2007-04-24 12:26:36  r29173
+  add case 'blockvariable'
+
+  Revision 1.7  2006/03/06 12:51:29  r29173
   added support to 'analog functions'
 
   Revision 1.6  2006/03/05 09:38:41  pnenzi
@@ -284,7 +287,7 @@
     <admst:when test="adms[datatypename='number']"/>
     <admst:when test="adms[datatypename='string']"/>
     <admst:when test="adms[datatypename='nilled']"/>
-
+    <admst:when test="adms[datatypename='blockvariable']"/>
     <admst:otherwise>
       <admst:value-of select="adms/datatypename"/>
       <admst:fatal format="%s: adms element not implemented\n"/>
diff --git a/src/spicelib/devices/adms/admst/ngspiceVersion.xml b/src/spicelib/devices/adms/admst/ngspiceVersion.xml
index 9c522ac0c..3029860d6 100644
--- a/src/spicelib/devices/adms/admst/ngspiceVersion.xml
+++ b/src/spicelib/devices/adms/admst/ngspiceVersion.xml
@@ -5,7 +5,10 @@
 -->
 <!--
   $Log$
-  Revision 1.13  2007-04-24 08:59:09  r29173
+  Revision 1.14  2007-04-24 12:28:15  r29173
+  add case 'blockvariable'
+
+  Revision 1.13  2007/04/24 08:59:09  r29173
   added missing new lines (due to changes in adms225)
   renamed pspva to psp102
 
@@ -1098,6 +1101,7 @@
     <admst:when test="adms[datatypename='case']">
       <admst:error format="case statement: please implement me! (local declaration)\n"/>
     </admst:when>
+    <admst:when test="adms[datatypename='blockvariable']"/>
     <admst:otherwise>
       <admst:value-of select="admst(.)"/>
       <admst:value-of select="adms/datatypename"/>
@@ -1106,6 +1110,16 @@
   </admst:choose>
 </admst:template>
 
+<!-- analog//blockvariable -->
+<admst:template match="blockvariable">
+  <admst:for-each select="variable">
+    <admst:if test="[type='integer']">int %(name);\n</admst:if>
+    <admst:if test="[type='real']">double %(name);\n</admst:if>
+    <admst:if test="[type='string']">char* %(name);\n</admst:if>
+    <admst:text test="[insource='yes']" select="probe" format="double %(../name)_%(nature/access)%(branch/pnode/name)_%(branch/nnode/name);\n"/>
+  </admst:for-each>
+</admst:template>
+
 <!-- analog//block -->
 <admst:template match="block">
   <admst:assert test="[name!='/']" format="expecting subblock\n"/>