jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

implement the 'allowexcept' feature for global variables

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@8576 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Marcelo Matus 2006-01-28 02:36:13 +00:00
commit 3b866d286b
7 changed files with 51 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Source/Modules/perl5.cxx
View file

@ -831,7 +831,8 @@ public:
Replaceall(tm,"$source","sv");
Replaceall(tm,"$target",name);
Replaceall(tm,"$input","sv");
Printf(setf->code,"%s\n", tm);
/* Printf(setf->code,"%s\n", tm); */
emit_action_code(n, setf, tm);
} else {
Swig_warning(WARN_TYPEMAP_VARIN_UNDEF, input_file, line_number,
"Unable to set variable of type %s.\n", SwigType_str(t,0));
@ -860,7 +861,8 @@ public:
} else {
Replaceall(tm, "$shadow", "0");
}
Printf(getf->code,"%s\n", tm);
/* Printf(getf->code,"%s\n", tm);*/
emit_action_code(n, getf, tm);
} else {
Swig_warning(WARN_TYPEMAP_VAROUT_UNDEF, input_file, line_number,
"Unable to read variable of type %s\n", SwigType_str(t,0));