add case 'blockvariable'

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"/>

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"/>