- Renamed flag NO_GINAC_NAMESPACE to NO_NAMESPACE_GINAC because of m4.

[ginac.git] / cint / dummies.pl

diff --git a/cint/dummies.pl b/cint/dummies.pl
new file mode 100644 (file)
index 0000000..86f797a
--- /dev/null
+++ b/cint/dummies.pl
@@ -0,0 +1,98 @@
+# Create files containing dummies, wrappers and so on to overcome certain
+# deficiencies in Cint.  In an ideal world it would be unnecessary.
+
+$header='dummies.h';
+$source='dummies.cpp';
+
+# Generate a header file which is additionally included in cint
+# to work around the broken overloading resolution of cint for
+# C library functions and other problems.
+# E.g: if a function declared as ex sin(ex const & x) and called
+# with sin(y) where y is a symbol, cint favours a conversion from
+# symbol to void * to double over symbol to ex and thus calls the
+# C math library function double sin(double x) (sigh!)
+
+# types which need help to be converted to ex
+@types=('symbol','function','constant','idx','lorentzidx','coloridx');
+@moretypes=('numeric','int','double');
+@extype=('ex');
+
+# functions with one parameter
+@functions1p=('sin','cos','tan','asin','acos','atan','exp','log','sqrt',
+              'sinh','cosh','tanh','abs');
+
+# functions with two parameters
+@functions2p=('pow','atan2');
+
+open OUT,">$header";
+
+$opening=<<END_OF_OPENING;
+/*  dummies.h
+ *
+ *  Dummies and wrappers to overcome certain deficiencies of Cint.
+ *  This file was generated automatically by dummies.pl.
+ *  Please do not modify it directly, edit the perl script instead!
+ */
+
+END_OF_OPENING
+
+print OUT $opening;
+
+foreach $f (@functions1p) {
+    print OUT "// fixes for $f(x)\n";
+    foreach $t (@types) {
+        print OUT "inline ex $f($t const & x) { return $f(ex(x)); }\n";
+    }
+    print OUT "\n";
+}  
+
+sub inlines2 {
+    my ($types1ref,$types2ref)=@_;
+    foreach $t1 (@$types1ref) {
+        foreach $t2 (@$types2ref) {
+            print OUT "inline ex $f($t1 const & x,$t2 const & y) {\n";
+            print OUT "    return $f(ex(x),ex(y));\n";
+            print OUT "}\n";
+        }
+    }
+}
+
+foreach $f (@functions2p) {
+    print OUT "// fixes for $f(x,y)\n";
+    inlines2(\@types,\@types);
+    inlines2(\@types,\@moretypes);
+    inlines2(\@moretypes,\@types);
+    inlines2(\@extype,\@moretypes);
+    inlines2(\@moretypes,\@extype);
+    print OUT "\n";
+}  
+
+close OUT;
+
+# Create a file containing stubs that may be necessary because Cint always
+# wants to link against anything that was ever declared:
+
+open OUT,">$source";
+
+$opening=<<END_OF_OPENING;
+/*  dummies.cpp
+ *
+ *  Dummies and stubs to overcome certain deficiencies of Cint.
+ *  This file was generated automatically by dummies.pl.
+ *  Please do not modify it directly, edit the perl script instead!
+ */
+
+#include <ginac/function.h>
+
+#ifndef NO_NAMESPACE_GINAC
+using namespace GiNaC;
+#endif // ndef NO_NAMESPACE_GINAC
+
+END_OF_OPENING
+
+print OUT $opening;
+print OUT "void ginsh_get_ginac_functions(void) { }\n";
+
+close OUT;
+
+# Create dummies