cint/dummies.pl

   1 # Create files containing dummies, wrappers and so on to overcome certain
   2 # deficiencies in Cint.  In an ideal world it would be unnecessary.
   3
   4 $header='dummies.h';
   5 $source='dummies.cpp';
   6
   7 # Generate a header file which is additionally included in cint
   8 # to work around the broken overloading resolution of cint for
   9 # C library functions and other problems.
  10 # E.g: if a function declared as ex sin(ex const & x) and called
  11 # with sin(y) where y is a symbol, cint favours a conversion from
  12 # symbol to void * to double over symbol to ex and thus calls the
  13 # C math library function double sin(double x) (sigh!)
  14
  15 # types which need help to be converted to ex
  16 @types=('symbol','function','constant','idx','lorentzidx','coloridx');
  17 @moretypes=('numeric','int','double');
  18 @extype=('ex');
  19
  20 # functions with one parameter
  21 @functions1p=('sin','cos','tan','asin','acos','atan','exp','log','sqrt',
  22               'sinh','cosh','tanh','abs');
  23
  24 # functions with two parameters
  25 @functions2p=('pow','atan2');
  26
  27 open OUT,">$header";
  28
  29 $opening=<<END_OF_OPENING;
  30 /*  dummies.h
  31  *
  32  *  Dummies and wrappers to overcome certain deficiencies of Cint.
  33  *  This file was generated automatically by dummies.pl.
  34  *  Please do not modify it directly, edit the perl script instead!
  35  */
  36
  37 END_OF_OPENING
  38
  39 print OUT $opening;
  40
  41 foreach $f (@functions1p) {
  42     print OUT "// fixes for $f(x)\n";
  43     foreach $t (@types) {
  44         print OUT "inline ex $f($t const & x) { return $f(ex(x)); }\n";
  45     }
  46     print OUT "\n";
  47 }
  48
  49 sub inlines2 {
  50     my ($types1ref,$types2ref)=@_;
  51     foreach $t1 (@$types1ref) {
  52         foreach $t2 (@$types2ref) {
  53             print OUT "inline ex $f($t1 const & x,$t2 const & y) {\n";
  54             print OUT "    return $f(ex(x),ex(y));\n";
  55             print OUT "}\n";
  56         }
  57     }
  58 }
  59
  60 foreach $f (@functions2p) {
  61     print OUT "// fixes for $f(x,y)\n";
  62     inlines2(\@types,\@types);
  63     inlines2(\@types,\@moretypes);
  64     inlines2(\@moretypes,\@types);
  65     inlines2(\@extype,\@moretypes);
  66     inlines2(\@moretypes,\@extype);
  67     print OUT "\n";
  68 }
  69
  70 close OUT;
  71
  72 # Create a file containing stubs that may be necessary because Cint always
  73 # wants to link against anything that was ever declared:
  74
  75 open OUT,">$source";
  76
  77 $opening=<<END_OF_OPENING;
  78 /*  dummies.cpp
  79  *
  80  *  Dummies and stubs to overcome certain deficiencies of Cint.
  81  *  This file was generated automatically by dummies.pl.
  82  *  Please do not modify it directly, edit the perl script instead!
  83  */
  84
  85 #include <ginac/function.h>
  86
  87 #ifndef NO_NAMESPACE_GINAC
  88 using namespace GiNaC;
  89 #endif // ndef NO_NAMESPACE_GINAC
  90
  91 END_OF_OPENING
  92
  93 print OUT $opening;
  94 print OUT "void ginsh_get_ginac_functions(void) { }\n";
  95
  96 close OUT;
  97
  98 # Create dummies