Home | History | Annotate | Download | only in perl5
      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 */
     24