Gecko [ www.jdcpatala.org ]

Name	Size	Permission
mzrun.swg	14.38 KB	-rw-r--r--
mzscheme.swg	1.84 KB	-rw-r--r--
std_common.i	546 B	-rw-r--r--
std_deque.i	28 B	-rw-r--r--
std_map.i	65.01 KB	-rw-r--r--
std_pair.i	42.85 KB	-rw-r--r--
std_string.i	1.4 KB	-rw-r--r--
std_vector.i	17.96 KB	-rw-r--r--
stl.i	291 B	-rw-r--r--
typemaps.i	10.4 KB	-rw-r--r--

Code Editor : mzscheme.swg

/* -----------------------------------------------------------------------------
 * mzscheme.swg
 *
 * SWIG Configuration File for MzScheme.
 * This file is parsed by SWIG before reading any other interface file.
 * ----------------------------------------------------------------------------- */

/* Include headers */
%runtime "swigrun.swg"     // Common C API type-checking code
%runtime "swigerrors.swg"  // SWIG errors
%runtime "mzrun.swg"

%define SWIG_APPEND_VALUE(value)
   values[lenv++] = value
%enddef

/* Definitions */
#define SWIG_malloc(size) swig_malloc(size, FUNC_NAME)
#define SWIG_free(mem) free(mem)

#define SWIG_convert_short(o)					\
  SWIG_convert_integer(o, - (1 << (8 * sizeof(short) - 1)),	\
		       (1 << (8 * sizeof(short) - 1)) - 1,	\
		       FUNC_NAME, $argnum-1, argc, argv)
#define SWIG_convert_int(o)					\
  SWIG_convert_integer(o, INT_MIN, INT_MAX,			\
		       FUNC_NAME, $argnum-1, argc, argv)
#define SWIG_convert_long(o)					\
  SWIG_convert_integer(o, LONG_MIN, LONG_MAX,			\
		       FUNC_NAME, $argnum-1, argc, argv)
#define SWIG_convert_unsigned_short(o)				\
  SWIG_convert_unsigned_integer(o, 0,				\
		       (1 << (8 * sizeof(short))) - 1,		\
		       FUNC_NAME, $argnum-1, argc, argv)
#define SWIG_convert_unsigned_int(o)				\
  SWIG_convert_unsigned_integer(o, 0, UINT_MAX,			\
		       FUNC_NAME, $argnum-1, argc, argv)
#define SWIG_convert_unsigned_long(o)				\
  SWIG_convert_unsigned_integer(o, 0, ULONG_MAX,		\
		       FUNC_NAME, $argnum-1, argc, argv)

/* Guile compatibility kludges */
#define SCM_VALIDATE_VECTOR(argnum, value) (void)0
#define SCM_VALIDATE_LIST(argnum, value) (void)0

/* Read in standard typemaps. */
%include <typemaps.i>

%insert(init) "swiginit.swg"

%init %{
Scheme_Object *scheme_reload(Scheme_Env *env) {
  Scheme_Env *menv = SWIG_MZSCHEME_CREATE_MENV(env);

SWIG_InitializeModule((void *) env);
%}

${this.title}

Code Editor : mzscheme.swg