Commit | Line | Data |
---|---|---|
920dae64 AT |
1 | /* SWIG Configuration File for MzScheme. -*-c-*- |
2 | This file is parsed by SWIG before reading any other interface | |
3 | file. */ | |
4 | ||
5 | /* Include headers */ | |
6 | %runtime "swigrun.swg" // Common C API type-checking code | |
7 | %runtime "mzrun.swg" | |
8 | ||
9 | %define SWIG_APPEND_VALUE(value) | |
10 | values[lenv++] = value | |
11 | %enddef | |
12 | ||
13 | /* Definitions */ | |
14 | #define SWIG_malloc(size) swig_malloc(size, FUNC_NAME) | |
15 | #define SWIG_free(mem) free(mem) | |
16 | ||
17 | /* Guile compatibility kludges */ | |
18 | #define SCM_VALIDATE_VECTOR(argnum, value) (void)0 | |
19 | #define SCM_VALIDATE_LIST(argnum, value) (void)0 | |
20 | ||
21 | /* Read in standard typemaps. */ | |
22 | %include "typemaps.i" | |
23 | ||
24 | %insert(init) "swiginit.swg" | |
25 | ||
26 | %init %{ | |
27 | Scheme_Object *scheme_reload(Scheme_Env *env) { | |
28 | Scheme_Env *menv = SWIG_MZSCHEME_CREATE_MENV(env); | |
29 | ||
30 | SWIG_InitializeModule((void *) env); | |
31 | %} |