/tags/rel-1.3.35/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*/