12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 |
- /* -*- mode: c -*- */
- %module swigrun
- #ifdef SWIGGUILE_SCM
- /* Hook the runtime module initialization
- into the shared initialization function SWIG_Guile_Init. */
- %runtime %{
- /* Hook the runtime module initialization
- into the shared initialization function SWIG_Guile_Init. */
- #include <libguile.h>
- #ifdef __cplusplus
- extern "C"
- #endif
- SCM scm_init_Swig_swigrun_module (void);
- #define SWIG_INIT_RUNTIME_MODULE scm_init_Swig_swigrun_module();
- %}
- /* The runtime type system from common.swg */
- typedef struct swig_type_info swig_type_info;
- const char *
- SWIG_TypeName(const swig_type_info *type);
- const char *
- SWIG_TypePrettyName(const swig_type_info *type);
- swig_type_info *
- SWIG_TypeQuery(const char *);
- /* Language-specific stuff */
- %apply bool { int };
- int
- SWIG_IsPointer(SCM object);
- int
- SWIG_IsPointerOfType(SCM object, swig_type_info *type);
- unsigned long
- SWIG_PointerAddress(SCM object);
- swig_type_info *
- SWIG_PointerType(SCM object);
- #endif
|