From 3d190e9ff8fdac9f8309c7682f6abefdc249630f Mon Sep 17 00:00:00 2001
From: Felix Salfelder <felix@salfelder.org>
Date: Sat, 17 Jun 2017 08:05:47 +0100
Subject: [PATCH] on implicit rules for analogfunctions

transport probe dependency from analogfunction args to args flagged as
'output'. this seems required for dependency tracking in cases such as

analogfunction square(out in) begin
  output out
  input in
  out=in*in
end

x = V(a)
square(x)
I(b) <+ x

with this patch, "V(a)" is a probe in the contibution "I(b) <+ x".

(something else is still missing..)
---
 admsXml/adms.implicit.xml | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/admsXml/adms.implicit.xml b/admsXml/adms.implicit.xml
index 6ca8b36..0fcbcbb 100644
--- a/admsXml/adms.implicit.xml
+++ b/admsXml/adms.implicit.xml
@@ -7,6 +7,7 @@
   Copyright (C) 2002-2012 Laurent Lemaitre <r29173@users.sourceforge.net>
   Copyright (C) 2015-2016 Guilherme Brondani Torri <guitorri@gmail.com>
                 2012 Ryan Fox <ryan.fox@upverter.com>
+                2017 Felix Salfelder <felix@salfelder.org>
 
   This program is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
@@ -142,6 +143,20 @@
       </admst:choose>
     </admst:when>
     <admst:when test="[datatypename='function']">
+      <admst:if test="[definition/datatypename='analogfunction']">
+        <admst:variable name="function" select="%(.)"/>
+        <admst:for-each select="definition/variable[(output='yes') and name!=$function/name]">
+          <admst:variable name="p" select="%(position(.))"/>
+
+          <admst:fatal test="[$function/arguments[position(.)=$p]/datatypename!='variable']"
+                       format="%($function/name) output arg $p, %(.) must be variable\n"/>
+
+          <admst:for-each select="$function/arguments">
+            <admst:push into="$function/arguments[position(.)=$p]/probe"
+                        select="probe" onduplicate="ignore"/>
+          </admst:for-each>
+        </admst:for-each>
+      </admst:if>
       <admst:choose>
         <admst:when test="[name='ddx' or name='\$ddx' or name='\$derivate']">
           <admst:value-to select="$globalassignment/lhs/derivate" string="yes"/>