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

[Guile] Changed SCHEME_NAME to FUNC_NAME.

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@866 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Matthias Köppe 2000-09-20 14:00:56 +00:00
commit 66b7d171d7
2 changed files with 5 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Lib/exception.i
View file

@ -167,7 +167,7 @@ static void _SWIG_exception(int code, char *msg) {
#undef MAP
}
#define SWIG_exception(a,b) _SWIG_exception(a, b, SCHEME_NAME)
#define SWIG_exception(a,b) _SWIG_exception(a, b, FUNC_NAME)
%}
#endif

11
Source/Modules1.1/guile.cxx
View file

@ -588,12 +588,9 @@ GUILE::create_function (char *name, char *iname, SwigType *d, ParmList *l)
Printv(signature, ")\n", 0);
Printf(f->def, ")\n{\n");
/* Define the scheme name in C */
/* FIXME: This is only needed for the code in exception.i since
typemaps can always use $name. I propose to define a new macro
SWIG_exception_in(ERROR, MESSAGE, FUNCTION) and use it instead of
SWIG_exception(ERROR, MESSAGE). */
Printv(f->def, "#define SCHEME_NAME \"", proc_name, "\"\n", 0);
/* Define the scheme name in C. This define is used by several Guile
macros. */
Printv(f->def, "#define FUNC_NAME \"", proc_name, "\"\n", 0);
// Now write code to make the function call
Printv(f->code, tab4, "gh_defer_ints();\n", 0);
@ -644,7 +641,7 @@ GUILE::create_function (char *name, char *iname, SwigType *d, ParmList *l)
// Undefine the scheme name
Printf(f->code, "#undef SCHEME_NAME\n");
Printf(f->code, "#undef FUNC_NAME\n");
Printf(f->code, "}\n");
Wrapper_print (f, f_wrappers);