Gecko [ 122.154.134.11 ]

Name	Size	Permission
common.scm	2.58 KB	-rw-r--r--
cplusplus.i	911 B	-rw-r--r--
ghinterface.i	1.65 KB	-rw-r--r--
guile.i	1.21 KB	-rw-r--r--
guile_gh.swg	2.2 KB	-rw-r--r--
guile_gh_run.swg	6.8 KB	-rw-r--r--
guile_scm.swg	1.52 KB	-rw-r--r--
guile_scm_run.swg	13.51 KB	-rw-r--r--
guilemain.i	1.19 KB	-rw-r--r--
interpreter.i	1.55 KB	-rw-r--r--
list-vector.i	17.86 KB	-rw-r--r--
pointer-in-out.i	3.41 KB	-rw-r--r--
ports.i	1.47 KB	-rw-r--r--
std_common.i	736 B	-rw-r--r--
std_deque.i	28 B	-rw-r--r--
std_except.i	182 B	-rw-r--r--
std_map.i	58.8 KB	-rw-r--r--
std_pair.i	39.34 KB	-rw-r--r--
std_string.i	2.46 KB	-rw-r--r--
std_vector.i	16.5 KB	-rw-r--r--
stl.i	519 B	-rw-r--r--
swigrun.i	965 B	-rw-r--r--
typemaps.i	14.76 KB	-rw-r--r--

Code Editor : guile_gh.swg

/* -----------------------------------------------------------------------------
 * See the LICENSE file for information on copyright, usage and redistribution
 * of SWIG, and the README file for authors - http://www.swig.org/release.html.
 *
 * guile_gh.swg
 *
 * This SWIG interface file is processed if the Guile module is run
 * with gh_ flavor.
 * ----------------------------------------------------------------------------- */

#define SWIGGUILE_GH

%runtime "swigrun.swg"
%runtime "guile_gh_run.swg"

#define SWIG_convert_short(o)					\
  SWIG_convert_integer(o, - (1 << (8 * sizeof(short) - 1)),	\
		       (1 << (8 * sizeof(short) - 1)) - 1,	\
		       FUNC_NAME, $argnum)
#define SWIG_convert_unsigned_short(o)			\
  SWIG_convert_unsigned_integer(o, 0,				\
		       (1 << (8 * sizeof(short))) - 1,	\
		       FUNC_NAME, $argnum)
#define SWIG_convert_unsigned_int(o)		\
  SWIG_convert_unsigned_integer(o, 0, UINT_MAX,	\
		       FUNC_NAME, $argnum)

#define gh_scm2short(a) SWIG_convert_short(a)
#define gh_scm2ushort(a) SWIG_convert_unsigned_short(a)
#define gh_scm2uint(a)   SWIG_convert_unsigned_int(a)

%include <guile.i>

%runtime %{

/* scm_values was implemented on C level in 1.4.1, and the prototype
   is not included in libguile.h, so play safe and lookup `values'... */
#define GUILE_MAYBE_VALUES						\
    if (gswig_list_p)							\
        gswig_result = gh_apply(gh_lookup("values"), gswig_result);
    
#define GUILE_MAYBE_VECTOR				\
    if (gswig_list_p)					\
        gswig_result = gh_list_to_vector(gswig_result);

#define SWIG_APPEND_VALUE(object)						\
    if (gswig_result == SCM_UNSPECIFIED) {		\
        gswig_result = object;							\
    } else {									\
        if (!gswig_list_p) {							\
	    gswig_list_p = 1;							\
	    gswig_result = gh_list(gswig_result, object, SCM_UNDEFINED);	\
        }									\
        else									\
            gswig_result = gh_append2(gswig_result,				\
                                      gh_list(object, SCM_UNDEFINED));		\
    }

%init "swiginit.swg"

%init %{
static int _swig_module_smob_tag;

SWIG_GUILE_INIT_STATIC void
SWIG_init(void)
{

SWIG_InitializeModule(0);
  swig_module.clientdata = (void *) &_swig_module_smob_tag;

SWIG_Guile_Init(&swig_module);
%}

${this.title}

Code Editor : guile_gh.swg