fixes for the examples and tcl to use the old Tcl_SetResult()... methods

git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@7962 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2005-12-09 22:39:43 +00:00
commit efcc7aeacf
8 changed files with 47 additions and 17 deletions

View file

@ -15,11 +15,11 @@
%typemap(out,noblock=1) SWIG_Object {
$result = $1;
%set_output($1);
}
%typemap(out,noblock=1) SWIG_Object const & {
$result = *$1;
%set_output(*$1);
}
%typecheck(SWIG_TYPECHECK_POINTER) SWIG_Object "$1 = ($input != 0);";