You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
58 lines
2.0 KiB
58 lines
2.0 KiB
/* ----------------------------------------------------------------------------- |
|
* 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. |
|
* |
|
* 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 "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); |
|
%}
|
|
|