(GUILE_APPEND_RESULT): New macro. (Thanks to Matthias Koeppe.)
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@283 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
parent
20302a2abf
commit
9df0c9b1d4
1 changed files with 13 additions and 6 deletions
|
|
@ -1,15 +1,22 @@
|
|||
/* -----------------------------------------------------------------------
|
||||
* swig_lib/guile/guile.swg
|
||||
*
|
||||
* Guile configuration file. This file assumes FSF Guile 1.0. It may not
|
||||
* work with other versions
|
||||
* Guile configuration file.
|
||||
* ----------------------------------------------------------------------- */
|
||||
|
||||
#include "guile/gh.h"
|
||||
|
||||
/* Since GUILE seems to be somewhat incomplete, these bindings
|
||||
are used in the SWIG generated code. To change the Guile
|
||||
interface, simply change this file */
|
||||
|
||||
#define GH_NOT_PASSED SCM_UNDEFINED
|
||||
|
||||
#define GUILE_APPEND_RESULT(object) \
|
||||
if (gswig_result == GH_UNSPECIFIED) \
|
||||
gswig_result = object; \
|
||||
else { \
|
||||
if (!gh_pair_p(gswig_result)) \
|
||||
gswig_result = gh_list(gswig_result, object, GH_NOT_PASSED); \
|
||||
else \
|
||||
gswig_result = gh_append2(gswig_result, \
|
||||
gh_list(object, GH_NOT_PASSED)); \
|
||||
}
|
||||
|
||||
/* guile.swg ends here */
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue