PageRenderTime 61ms CodeModel.GetById 37ms RepoModel.GetById 0ms app.codeStats 0ms

/tags/rel-1.3.35/Lib/perl5/perlfragments.swg

#
Unknown | 23 lines | 16 code | 7 blank | 0 comment | 0 complexity | bc6aa728b636bf02c330a9278aadea0c MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
  1. /*
  2. Create a file with this name, 'perlfragments.swg', in your working
  3. directory and add all the %fragments you want to take precedence
  4. over the ones defined by default by swig.
  5. For example, if you add:
  6. %fragment(SWIG_AsVal_frag(int),"header") {
  7. SWIGINTERNINLINE int
  8. SWIG_AsVal(int)(PyObject *obj, int *val)
  9. {
  10. <your code here>;
  11. }
  12. }
  13. this will replace the code used to retrieve an integer value for all
  14. the typemaps that need it, including:
  15. int, std::vector<int>, std::list<std::pair<int,int> >, etc.
  16. */