implement the 'allowexcept' feature for global variables

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

View file

@ -506,7 +506,8 @@ public:
Replaceall(tm,"$source","argv[0]");
Replaceall(tm,"$target",name);
Replaceall(tm,"$input","argv[0]");
Printv(f->code, tm, "\n",NIL);
/* Printv(f->code, tm, "\n",NIL); */
emit_action_code(n, f, tm);
}
else {
throw_unhandled_mzscheme_type_error (t);
@ -521,7 +522,8 @@ public:
Replaceall(tm,"$source",name);
Replaceall(tm,"$target","swig_result");
Replaceall(tm,"$result","swig_result");
Printf (f->code, "%s\n", tm);
/* Printf (f->code, "%s\n", tm); */
emit_action_code(n, f, tm);
}
else {
throw_unhandled_mzscheme_type_error (t);