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

(GUILE_APPEND_RESULT): New macro. (Thanks to Matthias Koeppe.)

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@283 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
Thien-Thi Nguyen 2000-02-28 13:43:30 +00:00
commit 9df0c9b1d4
1 changed files with 13 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

19
SWIG/Lib/guile/guile.swg
View file

@ -1,15 +1,22 @@
/* ----------------------------------------------------------------------- /* -----------------------------------------------------------------------
* swig_lib/guile/guile.swg * swig_lib/guile/guile.swg
* *
* Guile configuration file. This file assumes FSF Guile 1.0. It may not * Guile configuration file.
* work with other versions
* ----------------------------------------------------------------------- */ * ----------------------------------------------------------------------- */
#include "guile/gh.h" #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 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 */