Lib/perl5/perlfragments.swg

   1 /*
   2
   3   Create a file with this name, 'perlfragments.swg', in your working
   4   directory and add all the %fragments you want to take precedence
   5   over the ones defined by default by swig.
   6
   7   For example, if you add:
   8
   9   %fragment(SWIG_AsVal_frag(int),"header") {
  10    SWIGINTERNINLINE int
  11    SWIG_AsVal(int)(PyObject *obj, int *val)
  12    {
  13      <your code here>;
  14    }
  15   }
  16
  17   this will replace the code used to retrieve an integer value for all
  18   the typemaps that need it, including:
  19
  20     int, std::vector<int>, std::list<std::pair<int,int> >, etc.
  21
  22
  23 */