| 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 |