From 39cc7553da1b09ccf104ab5156368d7d9d5324b1 Mon Sep 17 00:00:00 2001
From: r29173 <r29173>
Date: Fri, 3 Mar 2006 08:41:41 +0000
Subject: [PATCH] add missing xml code (computation of $function)

---
 .../adms/admst/ngspiceMODULEguesstopology.c.xml   | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/src/spicelib/devices/adms/admst/ngspiceMODULEguesstopology.c.xml b/src/spicelib/devices/adms/admst/ngspiceMODULEguesstopology.c.xml
index dfdc01546..a3472764a 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.4  2006-03-02 08:53:51  r29173
+  Revision 1.5  2006-03-03 08:41:41  r29173
+  add missing xml code (computation of $function)
+
+  Revision 1.4  2006/03/02 08:53:51  r29173
   started implementing of functions $simparam(), $given(), analysis()
 
   Revision 1.3  2006/02/21 08:05:18  dwarning
@@ -61,6 +64,16 @@
 </admst:template>
 
 <admst:template match="function">
+  <admst:value-of select="name"/>
+  <admst:variable name="function" select="%s"/>
+  <admst:variable name="args" select=""/>
+  <admst:for-each select="arguments">
+    <admst:if test="[not($args='')]">
+      <admst:variable name="args" select="$args,"/>
+    </admst:if>
+    <admst:apply-templates select="." match="subexpression:stringify:noprobe"/>
+    <admst:variable name="args" select="$args%s"/>
+  </admst:for-each>
   <admst:choose>
     <admst:when test="[name='$simparam']">
       <admst:error format="$function($args) -- not done\n"/>