| /* |
| |
| Create a file with this name, 'tclfragments.swg', in your working |
| directory and add all the %fragments you want to take precedence |
| over the ones defined by default by swig. |
| |
| For example, if you add: |
| |
| %fragment(SWIG_AsVal_frag(int),"header") { |
| SWIGINTERNINLINE int |
| SWIG_AsVal_dec(int)(TclObject *obj, int *val) |
| { |
| <your code here>; |
| } |
| } |
| |
| this will replace the code used to retrieve an integer value for all |
| the typemaps that need it, including: |
| |
| int, std::vector<int>, std::list<std::pair<int,int> >, etc. |
| |
| */ |