Lib/guile/swigrun.i

   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