TCL typemap fix

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@7667 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2005-10-15 22:33:37 +00:00
commit e17687bfbf

View file

@ -23,7 +23,11 @@
%typemap(in) int Space::nspace "/*int nspace in */ $1=0;"
%typemap(out) int Space::nspace "/*int nspace out*/ $result=0;"
%typemap(in) int member "/*int member in */ $1=0;"
#ifdef SWIGTCL
%typemap(out) int member "/*int member out*/"
#else
%typemap(out) int member "/*int member out*/ $result=0;"
#endif
%typemap(in) int Space::Struct::smember "/*int smember in */ $1=0;"
%typemap(out) int Space::Struct::smember "/*int smember out*/ $result=0;"