Commit | Line | Data |
---|---|---|
920dae64 AT |
1 | /* -*- mode: c -*- */ |
2 | ||
3 | %module swigrun | |
4 | ||
5 | #ifdef SWIGGUILE_SCM | |
6 | ||
7 | /* Hook the runtime module initialization | |
8 | into the shared initialization function SWIG_Guile_Init. */ | |
9 | %runtime %{ | |
10 | /* Hook the runtime module initialization | |
11 | into the shared initialization function SWIG_Guile_Init. */ | |
12 | #include <libguile.h> | |
13 | #ifdef __cplusplus | |
14 | extern "C" | |
15 | #endif | |
16 | SCM scm_init_Swig_swigrun_module (void); | |
17 | #define SWIG_INIT_RUNTIME_MODULE scm_init_Swig_swigrun_module(); | |
18 | %} | |
19 | ||
20 | /* The runtime type system from common.swg */ | |
21 | ||
22 | typedef struct swig_type_info swig_type_info; | |
23 | ||
24 | const char * | |
25 | SWIG_TypeName(const swig_type_info *type); | |
26 | ||
27 | const char * | |
28 | SWIG_TypePrettyName(const swig_type_info *type); | |
29 | ||
30 | swig_type_info * | |
31 | SWIG_TypeQuery(const char *); | |
32 | ||
33 | /* Language-specific stuff */ | |
34 | ||
35 | %apply bool { int }; | |
36 | ||
37 | int | |
38 | SWIG_IsPointer(SCM object); | |
39 | ||
40 | int | |
41 | SWIG_IsPointerOfType(SCM object, swig_type_info *type); | |
42 | ||
43 | unsigned long | |
44 | SWIG_PointerAddress(SCM object); | |
45 | ||
46 | swig_type_info * | |
47 | SWIG_PointerType(SCM object); | |
48 | ||
49 | #endif |