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.
49 lines
965 B
49 lines
965 B
/* -*- 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
|
|
|