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:
parent
8a1cb2fcf6
commit
3b866d286b
7 changed files with 51 additions and 29 deletions
|
|
@ -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);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue