Support for cint versions older than 5.14.38 is discontinued.

Beginning with 5.14.38 namespaces seem to work reasonably well
so that it is no longer necessary to compile two separate libginacs.
Overloading resolution has been fixed in 5.14.37 so that the
declarations in dummies.* are no longer needed. libginac can now
be compiled without -D NO_NAMESPACE_GINAC and -D CINT_CONVERSION_WORKAROUND.

diff --git a/cint/dummies.cpp b/cint/dummies.cpp
deleted file mode 100644 (file)
index 85b6fbf..0000000
--- a/cint/dummies.cpp
+++ /dev/null
@@ -1,19 +0,0 @@
-/*  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
-namespace GiNaC {
-#endif // ndef NO_NAMESPACE_GINAC
-
-void ginsh_get_ginac_functions(void) { }
-
-#ifndef NO_NAMESPACE_GINAC
-}
-#endif // ndef NO_NAMESPACE_GINAC
-

diff --git a/cint/dummies.h b/cint/dummies.h
deleted file mode 100644 (file)
index 6eb1765..0000000
--- a/cint/dummies.h
+++ /dev/null
@@ -1,840 +0,0 @@
-/*  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!
- */
-
-#if (!defined(G_CINTVERSION)) || (G_CINTVERSION < 501437)
-// this dummy file seems to be no longer needed for cint >= 5.14.37
-
-// fixes for function sin(x)
-inline function sin(symbol const & x) { return sin(ex(x)); }
-inline function sin(function const & x) { return sin(ex(x)); }
-inline function sin(constant const & x) { return sin(ex(x)); }
-inline function sin(idx const & x) { return sin(ex(x)); }
-inline function sin(lorentzidx const & x) { return sin(ex(x)); }
-inline function sin(coloridx const & x) { return sin(ex(x)); }
-
-// fixes for function cos(x)
-inline function cos(symbol const & x) { return cos(ex(x)); }
-inline function cos(function const & x) { return cos(ex(x)); }
-inline function cos(constant const & x) { return cos(ex(x)); }
-inline function cos(idx const & x) { return cos(ex(x)); }
-inline function cos(lorentzidx const & x) { return cos(ex(x)); }
-inline function cos(coloridx const & x) { return cos(ex(x)); }
-
-// fixes for function tan(x)
-inline function tan(symbol const & x) { return tan(ex(x)); }
-inline function tan(function const & x) { return tan(ex(x)); }
-inline function tan(constant const & x) { return tan(ex(x)); }
-inline function tan(idx const & x) { return tan(ex(x)); }
-inline function tan(lorentzidx const & x) { return tan(ex(x)); }
-inline function tan(coloridx const & x) { return tan(ex(x)); }
-
-// fixes for function asin(x)
-inline function asin(symbol const & x) { return asin(ex(x)); }
-inline function asin(function const & x) { return asin(ex(x)); }
-inline function asin(constant const & x) { return asin(ex(x)); }
-inline function asin(idx const & x) { return asin(ex(x)); }
-inline function asin(lorentzidx const & x) { return asin(ex(x)); }
-inline function asin(coloridx const & x) { return asin(ex(x)); }
-
-// fixes for function acos(x)
-inline function acos(symbol const & x) { return acos(ex(x)); }
-inline function acos(function const & x) { return acos(ex(x)); }
-inline function acos(constant const & x) { return acos(ex(x)); }
-inline function acos(idx const & x) { return acos(ex(x)); }
-inline function acos(lorentzidx const & x) { return acos(ex(x)); }
-inline function acos(coloridx const & x) { return acos(ex(x)); }
-
-// fixes for function atan(x)
-inline function atan(symbol const & x) { return atan(ex(x)); }
-inline function atan(function const & x) { return atan(ex(x)); }
-inline function atan(constant const & x) { return atan(ex(x)); }
-inline function atan(idx const & x) { return atan(ex(x)); }
-inline function atan(lorentzidx const & x) { return atan(ex(x)); }
-inline function atan(coloridx const & x) { return atan(ex(x)); }
-
-// fixes for function exp(x)
-inline function exp(symbol const & x) { return exp(ex(x)); }
-inline function exp(function const & x) { return exp(ex(x)); }
-inline function exp(constant const & x) { return exp(ex(x)); }
-inline function exp(idx const & x) { return exp(ex(x)); }
-inline function exp(lorentzidx const & x) { return exp(ex(x)); }
-inline function exp(coloridx const & x) { return exp(ex(x)); }
-
-// fixes for function log(x)
-inline function log(symbol const & x) { return log(ex(x)); }
-inline function log(function const & x) { return log(ex(x)); }
-inline function log(constant const & x) { return log(ex(x)); }
-inline function log(idx const & x) { return log(ex(x)); }
-inline function log(lorentzidx const & x) { return log(ex(x)); }
-inline function log(coloridx const & x) { return log(ex(x)); }
-
-// fixes for function sinh(x)
-inline function sinh(symbol const & x) { return sinh(ex(x)); }
-inline function sinh(function const & x) { return sinh(ex(x)); }
-inline function sinh(constant const & x) { return sinh(ex(x)); }
-inline function sinh(idx const & x) { return sinh(ex(x)); }
-inline function sinh(lorentzidx const & x) { return sinh(ex(x)); }
-inline function sinh(coloridx const & x) { return sinh(ex(x)); }
-
-// fixes for function cosh(x)
-inline function cosh(symbol const & x) { return cosh(ex(x)); }
-inline function cosh(function const & x) { return cosh(ex(x)); }
-inline function cosh(constant const & x) { return cosh(ex(x)); }
-inline function cosh(idx const & x) { return cosh(ex(x)); }
-inline function cosh(lorentzidx const & x) { return cosh(ex(x)); }
-inline function cosh(coloridx const & x) { return cosh(ex(x)); }
-
-// fixes for function tanh(x)
-inline function tanh(symbol const & x) { return tanh(ex(x)); }
-inline function tanh(function const & x) { return tanh(ex(x)); }
-inline function tanh(constant const & x) { return tanh(ex(x)); }
-inline function tanh(idx const & x) { return tanh(ex(x)); }
-inline function tanh(lorentzidx const & x) { return tanh(ex(x)); }
-inline function tanh(coloridx const & x) { return tanh(ex(x)); }
-
-// fixes for function abs(x)
-inline function abs(symbol const & x) { return abs(ex(x)); }
-inline function abs(function const & x) { return abs(ex(x)); }
-inline function abs(constant const & x) { return abs(ex(x)); }
-inline function abs(idx const & x) { return abs(ex(x)); }
-inline function abs(lorentzidx const & x) { return abs(ex(x)); }
-inline function abs(coloridx const & x) { return abs(ex(x)); }
-
-// fixes for ex sqrt(x)
-inline ex sqrt(symbol const & x) { return sqrt(ex(x)); }
-inline ex sqrt(function const & x) { return sqrt(ex(x)); }
-inline ex sqrt(constant const & x) { return sqrt(ex(x)); }
-inline ex sqrt(idx const & x) { return sqrt(ex(x)); }
-inline ex sqrt(lorentzidx const & x) { return sqrt(ex(x)); }
-inline ex sqrt(coloridx const & x) { return sqrt(ex(x)); }
-
-// fixes for function atan2(x,y)
-inline function atan2(symbol const & x,symbol const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(symbol const & x,function const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(symbol const & x,constant const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(symbol const & x,idx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(symbol const & x,lorentzidx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(symbol const & x,coloridx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(function const & x,symbol const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(function const & x,function const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(function const & x,constant const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(function const & x,idx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(function const & x,lorentzidx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(function const & x,coloridx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(constant const & x,symbol const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(constant const & x,function const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(constant const & x,constant const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(constant const & x,idx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(constant const & x,lorentzidx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(constant const & x,coloridx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(idx const & x,symbol const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(idx const & x,function const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(idx const & x,constant const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(idx const & x,idx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(idx const & x,lorentzidx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(idx const & x,coloridx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(lorentzidx const & x,symbol const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(lorentzidx const & x,function const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(lorentzidx const & x,constant const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(lorentzidx const & x,idx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(lorentzidx const & x,lorentzidx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(lorentzidx const & x,coloridx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(coloridx const & x,symbol const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(coloridx const & x,function const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(coloridx const & x,constant const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(coloridx const & x,idx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(coloridx const & x,lorentzidx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(coloridx const & x,coloridx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(symbol const & x,numeric const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(symbol const & x,int const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(symbol const & x,double const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(function const & x,numeric const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(function const & x,int const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(function const & x,double const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(constant const & x,numeric const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(constant const & x,int const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(constant const & x,double const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(idx const & x,numeric const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(idx const & x,int const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(idx const & x,double const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(lorentzidx const & x,numeric const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(lorentzidx const & x,int const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(lorentzidx const & x,double const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(coloridx const & x,numeric const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(coloridx const & x,int const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(coloridx const & x,double const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(numeric const & x,symbol const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(numeric const & x,function const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(numeric const & x,constant const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(numeric const & x,idx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(numeric const & x,lorentzidx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(numeric const & x,coloridx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(int const & x,symbol const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(int const & x,function const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(int const & x,constant const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(int const & x,idx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(int const & x,lorentzidx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(int const & x,coloridx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(double const & x,symbol const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(double const & x,function const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(double const & x,constant const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(double const & x,idx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(double const & x,lorentzidx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(double const & x,coloridx const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(ex const & x,numeric const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(ex const & x,int const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(ex const & x,double const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(numeric const & x,ex const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(int const & x,ex const & y) {
-    return atan2(ex(x),ex(y));
-}
-inline function atan2(double const & x,ex const & y) {
-    return atan2(ex(x),ex(y));
-}
-
-// fixes for ex pow(x,y)
-inline ex pow(symbol const & x,symbol const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(symbol const & x,function const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(symbol const & x,constant const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(symbol const & x,idx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(symbol const & x,lorentzidx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(symbol const & x,coloridx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(function const & x,symbol const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(function const & x,function const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(function const & x,constant const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(function const & x,idx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(function const & x,lorentzidx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(function const & x,coloridx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(constant const & x,symbol const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(constant const & x,function const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(constant const & x,constant const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(constant const & x,idx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(constant const & x,lorentzidx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(constant const & x,coloridx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(idx const & x,symbol const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(idx const & x,function const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(idx const & x,constant const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(idx const & x,idx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(idx const & x,lorentzidx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(idx const & x,coloridx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(lorentzidx const & x,symbol const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(lorentzidx const & x,function const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(lorentzidx const & x,constant const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(lorentzidx const & x,idx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(lorentzidx const & x,lorentzidx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(lorentzidx const & x,coloridx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(coloridx const & x,symbol const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(coloridx const & x,function const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(coloridx const & x,constant const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(coloridx const & x,idx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(coloridx const & x,lorentzidx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(coloridx const & x,coloridx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(symbol const & x,numeric const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(symbol const & x,int const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(symbol const & x,double const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(function const & x,numeric const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(function const & x,int const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(function const & x,double const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(constant const & x,numeric const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(constant const & x,int const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(constant const & x,double const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(idx const & x,numeric const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(idx const & x,int const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(idx const & x,double const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(lorentzidx const & x,numeric const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(lorentzidx const & x,int const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(lorentzidx const & x,double const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(coloridx const & x,numeric const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(coloridx const & x,int const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(coloridx const & x,double const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(numeric const & x,symbol const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(numeric const & x,function const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(numeric const & x,constant const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(numeric const & x,idx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(numeric const & x,lorentzidx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(numeric const & x,coloridx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(int const & x,symbol const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(int const & x,function const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(int const & x,constant const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(int const & x,idx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(int const & x,lorentzidx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(int const & x,coloridx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(double const & x,symbol const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(double const & x,function const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(double const & x,constant const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(double const & x,idx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(double const & x,lorentzidx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(double const & x,coloridx const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(ex const & x,numeric const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(ex const & x,int const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(ex const & x,double const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(numeric const & x,ex const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(int const & x,ex const & y) {
-    return pow(ex(x),ex(y));
-}
-inline ex pow(double const & x,ex const & y) {
-    return pow(ex(x),ex(y));
-}
-
-// fixes for ex operator+(x,y)
-inline ex operator+(ex const & x, basic const & y) {
-    return operator+((x),ex(y));
-}
-inline ex operator+(basic const & x, ex const & y) {
-    return operator+(ex(x),(y));
-}
-inline ex operator+(basic const & x, basic const & y) {
-    return operator+(ex(x),ex(y));
-}
-
-// fixes for ex operator-(x,y)
-inline ex operator-(ex const & x, basic const & y) {
-    return operator-((x),ex(y));
-}
-inline ex operator-(basic const & x, ex const & y) {
-    return operator-(ex(x),(y));
-}
-inline ex operator-(basic const & x, basic const & y) {
-    return operator-(ex(x),ex(y));
-}
-
-// fixes for ex operator*(x,y)
-inline ex operator*(ex const & x, basic const & y) {
-    return operator*((x),ex(y));
-}
-inline ex operator*(basic const & x, ex const & y) {
-    return operator*(ex(x),(y));
-}
-inline ex operator*(basic const & x, basic const & y) {
-    return operator*(ex(x),ex(y));
-}
-
-// fixes for ex operator/(x,y)
-inline ex operator/(ex const & x, basic const & y) {
-    return operator/((x),ex(y));
-}
-inline ex operator/(basic const & x, ex const & y) {
-    return operator/(ex(x),(y));
-}
-inline ex operator/(basic const & x, basic const & y) {
-    return operator/(ex(x),ex(y));
-}
-
-// fixes for ex operator%(x,y)
-inline ex operator%(ex const & x, basic const & y) {
-    return operator%((x),ex(y));
-}
-inline ex operator%(basic const & x, ex const & y) {
-    return operator%(ex(x),(y));
-}
-inline ex operator%(basic const & x, basic const & y) {
-    return operator%(ex(x),ex(y));
-}
-
-// fixes for relational operator==(x,y)
-inline relational operator==(ex const & x, basic const & y) {
-    return operator==((x),ex(y));
-}
-inline relational operator==(basic const & x, ex const & y) {
-    return operator==(ex(x),(y));
-}
-inline relational operator==(basic const & x, basic const & y) {
-    return operator==(ex(x),ex(y));
-}
-
-// fixes for relational operator!=(x,y)
-inline relational operator!=(ex const & x, basic const & y) {
-    return operator!=((x),ex(y));
-}
-inline relational operator!=(basic const & x, ex const & y) {
-    return operator!=(ex(x),(y));
-}
-inline relational operator!=(basic const & x, basic const & y) {
-    return operator!=(ex(x),ex(y));
-}
-
-// fixes for relational operator<(x,y)
-inline relational operator<(ex const & x, basic const & y) {
-    return operator<((x),ex(y));
-}
-inline relational operator<(basic const & x, ex const & y) {
-    return operator<(ex(x),(y));
-}
-inline relational operator<(basic const & x, basic const & y) {
-    return operator<(ex(x),ex(y));
-}
-
-// fixes for relational operator<=(x,y)
-inline relational operator<=(ex const & x, basic const & y) {
-    return operator<=((x),ex(y));
-}
-inline relational operator<=(basic const & x, ex const & y) {
-    return operator<=(ex(x),(y));
-}
-inline relational operator<=(basic const & x, basic const & y) {
-    return operator<=(ex(x),ex(y));
-}
-
-// fixes for relational operator>(x,y)
-inline relational operator>(ex const & x, basic const & y) {
-    return operator>((x),ex(y));
-}
-inline relational operator>(basic const & x, ex const & y) {
-    return operator>(ex(x),(y));
-}
-inline relational operator>(basic const & x, basic const & y) {
-    return operator>(ex(x),ex(y));
-}
-
-// fixes for relational operator>=(x,y)
-inline relational operator>=(ex const & x, basic const & y) {
-    return operator>=((x),ex(y));
-}
-inline relational operator>=(basic const & x, ex const & y) {
-    return operator>=(ex(x),(y));
-}
-inline relational operator>=(basic const & x, basic const & y) {
-    return operator>=(ex(x),ex(y));
-}
-
-// fixes for ex const & operator+=(x,y)
-inline ex const & operator+=(ex & x, basic const & y) {
-    return operator+=((x),ex(y));
-}
-// fixes for ex const & operator-=(x,y)
-inline ex const & operator-=(ex & x, basic const & y) {
-    return operator-=((x),ex(y));
-}
-// fixes for ex const & operator*=(x,y)
-inline ex const & operator*=(ex & x, basic const & y) {
-    return operator*=((x),ex(y));
-}
-// fixes for ex const & operator/=(x,y)
-inline ex const & operator/=(ex & x, basic const & y) {
-    return operator/=((x),ex(y));
-}
-// fixes for other operators
-inline ex operator+(basic const & x) {
-    return operator+(ex(x));
-}
-inline ex operator-(basic const & x) {
-    return operator-(ex(x));
-}
-inline ostream & operator<<(ostream & os, basic const & x) {
-    return operator<<(os,ex(x));
-}
-// fixes for functions
-// fixes for bool are_ex_trivially_equal(x,y)
-inline bool are_ex_trivially_equal(ex const & x, basic const & y) {
-    return are_ex_trivially_equal((x),ex(y));
-}
-inline bool are_ex_trivially_equal(basic const & x, ex const & y) {
-    return are_ex_trivially_equal(ex(x),(y));
-}
-inline bool are_ex_trivially_equal(basic const & x, basic const & y) {
-    return are_ex_trivially_equal(ex(x),ex(y));
-}
-
-inline unsigned nops(basic const & x) {
-    return nops(ex(x));
-}
-inline ex expand(basic const & x) {
-    return expand(ex(x));
-}
-// fixes for bool has(x,y)
-inline bool has(ex const & x, basic const & y) {
-    return has((x),ex(y));
-}
-inline bool has(basic const & x, ex const & y) {
-    return has(ex(x),(y));
-}
-inline bool has(basic const & x, basic const & y) {
-    return has(ex(x),ex(y));
-}
-
-inline int degree(basic const & x, symbol const & y) {
-    return degree(ex(x),(y));
-}
-inline int ldegree(basic const & x, symbol const & y) {
-    return ldegree(ex(x),(y));
-}
-inline ex coeff(basic const & x, symbol const & y, int z=1) {
-    return coeff(ex(x),(y),z);
-}
-inline ex numer(basic const & x) {
-    return numer(ex(x));
-}
-inline ex denom(basic const & x) {
-    return denom(ex(x));
-}
-inline ex normal(basic const & x, int y=0) {
-    return normal(ex(x),y);
-}
-inline ex collect(basic const & x, symbol const & y) {
-    return collect(ex(x),(y));
-}
-inline ex eval(basic const & x, int y=0) {
-    return eval(ex(x),y);
-}
-inline ex evalf(basic const & x, int y=0) {
-    return evalf(ex(x),y);
-}
-inline ex diff(basic const & x, symbol const & y, int z=1) {
-    return diff(ex(x),(y),z);
-}
-inline ex series(const basic & x, const relational & y, int z) {
-    return series(ex(x),ex(y),(z));
-}
-inline ex series(const basic & x, const symbol & y, int z) {
-    return series(ex(x),ex(y),(z));
-}
-// fixes for ex subs(x,y)
-inline ex subs(ex const & x, basic const & y) {
-    return subs((x),ex(y));
-}
-inline ex subs(basic const & x, ex const & y) {
-    return subs(ex(x),(y));
-}
-inline ex subs(basic const & x, basic const & y) {
-    return subs(ex(x),ex(y));
-}
-
-inline ex subs(basic const & x, lst const & y, lst const & z) {
-    return subs(ex(x),(y),(z));
-}
-inline ex op(basic const & x, int y) {
-    return op(ex(x),(y));
-}
-inline ex lhs(basic const & x) {
-    return lhs(ex(x));
-}
-inline ex rhs(basic const & x) {
-    return rhs(ex(x));
-}
-inline bool is_zero(basic const & x) {
-    return is_zero(ex(x));
-}
-// fixes for simp_lor lor_g(x,y)
-inline simp_lor lor_g(ex const & x, basic const & y) {
-    return lor_g((x),ex(y));
-}
-inline simp_lor lor_g(basic const & x, ex const & y) {
-    return lor_g(ex(x),(y));
-}
-inline simp_lor lor_g(basic const & x, basic const & y) {
-    return lor_g(ex(x),ex(y));
-}
-
-inline simp_lor lor_vec(const string & x, const basic & y) {
-    return lor_vec((x),ex(y));
-}
-
-#endif // (!defined(G_CINTVERSION)) || (G_CINTVERSION < 501437)

diff --git a/cint/dummies.pl b/cint/dummies.pl
deleted file mode 100644 (file)
index 4da0b81..0000000
--- a/cint/dummies.pl
+++ /dev/null
@@ -1,247 +0,0 @@
-# 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');
-
-# C math library functions with one parameter and return type 'function'
-@cfunc_1p_function=('sin','cos','tan','asin','acos','atan','exp','log',
-                    'sinh','cosh','tanh','abs');
-
-# C math library functions with one parameter and return type 'ex'
-@cfunc_1p_ex=('sqrt');
-
-# C math library functions with two parameters and return type 'function'
-@cfunc_2p_function=('atan2');
-
-# C math library functions with two parameters and return type 'ex'
-@cfunc_2p_ex=('pow');
-
-@binops_ex=('+','-','*','/','%');
-@binops_relational=('==','!=','<','<=','>','>=');
-@binops_exconstref=('+=','-=','*=','/=');
-
-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!
- */
-
-#if (!defined(G_CINTVERSION)) || (G_CINTVERSION < 501437)
-// this dummy file seems to be no longer needed for cint >= 5.14.37
-
-END_OF_OPENING
-
-print OUT $opening;
-
-sub inline_cfunc_1p {
-    my ($rettype,$funcsref)=@_;
-    foreach $f (@$funcsref) {
-        print OUT "// fixes for $rettype $f(x)\n";
-        foreach $t (@types) {
-            print OUT "inline $rettype $f($t const & x) { return $f(ex(x)); }\n";
-        }
-        print OUT "\n";
-    }
-}  
-
-inline_cfunc_1p('function',\@cfunc_1p_function);
-inline_cfunc_1p('ex',\@cfunc_1p_ex);
-
-sub inline_single_cfunc_2p {
-    my ($rettype,$types1ref,$types2ref)=@_;
-    foreach $t1 (@$types1ref) {
-        foreach $t2 (@$types2ref) {
-            print OUT "inline $rettype $f($t1 const & x,$t2 const & y) {\n";
-            print OUT "    return $f(ex(x),ex(y));\n";
-            print OUT "}\n";
-        }
-    }
-}
-
-sub inline_cfunc_2p {
-    my ($rettype,$funcsref)=@_;
-    foreach $f (@$funcsref) {
-        print OUT "// fixes for $rettype $f(x,y)\n";
-        inline_single_cfunc_2p($rettype,\@types,\@types);
-        inline_single_cfunc_2p($rettype,\@types,\@moretypes);
-        inline_single_cfunc_2p($rettype,\@moretypes,\@types);
-        inline_single_cfunc_2p($rettype,\@extype,\@moretypes);
-        inline_single_cfunc_2p($rettype,\@moretypes,\@extype);
-        print OUT "\n";
-    }
-}  
-
-inline_cfunc_2p('function',\@cfunc_2p_function);
-inline_cfunc_2p('ex',\@cfunc_2p_ex);
-
-sub inline_function_1p {
-    my ($rettype,$func)=@_;
-    print OUT "inline $rettype $func(basic const & x) {\n";
-    print OUT "    return $func(ex(x));\n";
-    print OUT "}\n";
-}
-
-sub inline_single_function_2p {
-    my ($rettype,$func,$t1,$cast1,$t2,$cast2)=@_;
-    print OUT "inline $rettype $func($t1 x, $t2 y) {\n";
-    print OUT "    return $func($cast1(x),$cast2(y));\n";
-    print OUT "}\n";
-}
-
-sub inline_single_function_2p_with_defarg {
-    my ($rettype,$func,$t1,$defarg)=@_;
-    print OUT "inline $rettype $func(basic const & x, $t1 y=$defarg) {\n";
-    print OUT "    return $func(ex(x),y);\n";
-    print OUT "}\n";
-}
-
-sub inline_single_function_3p {
-    my ($rettype,$func,$t1,$cast1,$t2,$cast2,$t3,$cast3)=@_;
-    print OUT "inline $rettype $func($t1 x, $t2 y, $t3 z) {\n";
-    print OUT "    return $func($cast1(x),$cast2(y),$cast3(z));\n";
-    print OUT "}\n";
-}
-
-sub inline_single_function_3p_with_defarg {
-    my ($rettype,$func,$t1,$cast1,$t2,$cast2,$t3,$defarg)=@_;
-    print OUT "inline $rettype $func($t1 x, $t2 y, $t3 z=$defarg) {\n";
-    print OUT "    return $func($cast1(x),$cast2(y),z);\n";
-    print OUT "}\n";
-}
-
-sub inline_single_function_4p_with_defarg {
-    my ($rettype,$func,$t1,$cast1,$t2,$cast2,$t3,$cast3,$t4,$defarg)=@_;
-    print OUT "inline $rettype $func($t1 x, $t2 y, $t3 z, $t4 zz=$defarg) {\n";
-    print OUT "    return $func($cast1(x),$cast2(y),$cast3(z),zz);\n";
-    print OUT "}\n";
-}
-
-sub inline_single_binop {
-    my ($rettype,$op,$t1,$cast1,$t2,$cast2)=@_;
-    inline_single_function_2p($rettype,'operator'.$op,$t1,$cast1,$t2,$cast2);
-}
-
-sub inline_single_unaryop {
-    my ($rettype,$op)=@_;
-    print OUT "inline $rettype operator$op(basic const & x) {\n";
-    print OUT "    return operator$op(ex(x));\n";
-    print OUT "}\n";
-}
-
-sub inline_function_2p {
-    my ($rettype,$func)=@_;
-    print OUT "// fixes for $rettype $func(x,y)\n";
-    inline_single_function_2p($rettype,$func,'ex const &','','basic const &','ex');
-    inline_single_function_2p($rettype,$func,'basic const &','ex','ex const &','');
-    inline_single_function_2p($rettype,$func,'basic const &','ex','basic const &','ex');
-    print OUT "\n";
-}
-
-sub inline_binops {
-    my ($rettype,$opsref)=@_;
-    foreach $op (@$opsref) {
-        inline_function_2p($rettype,'operator'.$op);
-    }
-}
-
-inline_binops('ex',\@binops_ex);
-inline_binops('relational',\@binops_relational);
-foreach $op (@binops_exconstref) {
-    print OUT "// fixes for ex const & operator$op(x,y)\n";
-    inline_single_binop('ex const &',$op,'ex &','','basic const &','ex');
-}
-
-print OUT "// fixes for other operators\n";
-inline_single_unaryop('ex','+');
-inline_single_unaryop('ex','-');
-print OUT "inline ostream & operator<<(ostream & os, basic const & x) {\n";
-print OUT "    return operator<<(os,ex(x));\n";
-print OUT "}\n";
-
-print OUT "// fixes for functions\n";
-inline_function_2p('bool','are_ex_trivially_equal');
-inline_function_1p('unsigned','nops');
-inline_function_1p('ex','expand');
-inline_function_2p('bool','has');
-inline_single_function_2p('int','degree','basic const &','ex','symbol const &','');
-inline_single_function_2p('int','ldegree','basic const &','ex','symbol const &','');
-inline_single_function_3p_with_defarg('ex','coeff','basic const &','ex','symbol const &','','int','1');
-inline_function_1p('ex','numer');
-inline_function_1p('ex','denom');
-inline_single_function_2p_with_defarg('ex','normal','int','0');
-inline_single_function_2p('ex','collect','basic const &','ex','symbol const &','');
-inline_single_function_2p_with_defarg('ex','eval','int','0');
-inline_single_function_2p_with_defarg('ex','evalf','int','0');
-inline_single_function_3p_with_defarg('ex','diff','basic const &','ex','symbol const &','','int','1');
-inline_single_function_3p('ex','series','const basic &','ex','const relational &','ex','int','');
-inline_single_function_3p('ex','series','const basic &','ex','const symbol &','ex','int','');
-inline_function_2p('ex','subs');
-inline_single_function_3p('ex','subs','basic const &','ex','lst const &','','lst const &','');
-inline_single_function_2p('ex','op','basic const &','ex','int','');
-inline_function_1p('ex','lhs');
-inline_function_1p('ex','rhs');
-inline_function_1p('bool','is_zero');
-
-# fixes for simp_lor.h
-inline_function_2p('simp_lor','lor_g');
-inline_single_function_2p('simp_lor','lor_vec','const string &','','const basic &','ex');
-
-print OUT "\n#endif // (!defined(G_CINTVERSION)) || (G_CINTVERSION < 501437)\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
-namespace GiNaC {
-#endif // ndef NO_NAMESPACE_GINAC
-
-END_OF_OPENING
-
-print OUT $opening;
-print OUT "void ginsh_get_ginac_functions(void) { }\n";
-
-$closing=<<END_OF_CLOSING;
-
-#ifndef NO_NAMESPACE_GINAC
-}
-#endif // ndef NO_NAMESPACE_GINAC
-
-END_OF_CLOSING
-
-print OUT $closing;
-
-close OUT;
-
-# Create dummies 

diff --git a/cint/ginaccint.bin.cpp b/cint/ginaccint.bin.cpp
index 60b0ec7c441a0eb9836ad3efc6968b6aafad9890..9e095cf920d0daa8fbfd59dd2e6fbeb8bb57275f 100644 (file)
--- a/cint/ginaccint.bin.cpp
+++ b/cint/ginaccint.bin.cpp
@@ -1,4 +1,9 @@
 #include "G__ci.h"   /* G__atpause is defined in G__ci.h */
 #include "G__ci.h"   /* G__atpause is defined in G__ci.h */

+
+#if (!defined(G__CINTVERSION)) || (G__CINTVERSION < 501438)
+#error You need at least cint 5.14.38 to compile GiNaC-cint. Download it via http from root.cern.ch/root/Cint.html or via ftp from ftpthep.physik.uni-mainz.de/pub/cint
+#endif // (!defined(G__CINTVERSION)) || (G__CINTVERSION < 501438)
+

 #include <iostream>
 #include <fstream>
 #include <string>
 #include <iostream>
 #include <fstream>
 #include <string>