wxruby3 0.9.0 → 0.9.1

data/{ext/wxruby3/swig/custom/swig4/rubyrun.swg → rakelib/lib/core/include/swigrubyrun.inc}

@@ -1,58 +1,134 @@
-/* -----------------------------------------------------------------------------
- * rubyrun.swg
- *
- * This file contains the runtime support for Ruby modules
- * and includes code for managing global variables and pointer
- * type checking.
- * ----------------------------------------------------------------------------- */
-
-/* For backward compatibility only */
-#define SWIG_POINTER_EXCEPTION  0
-
-/* for raw pointers */
-#define SWIG_ConvertPtr(obj, pptr, type, flags)         SWIG_Ruby_ConvertPtrAndOwn(obj, pptr, type, flags, 0)
-#define SWIG_ConvertPtrAndOwn(obj,pptr,type,flags,own)  SWIG_Ruby_ConvertPtrAndOwn(obj, pptr, type, flags, own)
-#define SWIG_NewPointerObj(ptr, type, flags)            SWIG_Ruby_NewPointerObj(ptr, type, flags)
-#define SWIG_AcquirePtr(ptr, own)                       SWIG_Ruby_AcquirePtr(ptr, own)
-#define swig_owntype                                    swig_ruby_owntype
-
-/* for raw packed data */
-#define SWIG_ConvertPacked(obj, ptr, sz, ty)            SWIG_Ruby_ConvertPacked(obj, ptr, sz, ty, flags)
-#define SWIG_NewPackedObj(ptr, sz, type)                SWIG_Ruby_NewPackedObj(ptr, sz, type)
+// Copyright (c) 2023 M.J.N. Corino, The Netherlands
+//
+// This software is released under the MIT license.
 
-/* for class or struct pointers */
-#define SWIG_ConvertInstance(obj, pptr, type, flags)    SWIG_ConvertPtr(obj, pptr, type, flags)
-#define SWIG_NewInstanceObj(ptr, type, flags)           SWIG_NewPointerObj(ptr, type, flags)
+// SWIG Ruby runtime
 
-/* for C or C++ function pointers */
-#define SWIG_ConvertFunctionPtr(obj, pptr, type)        SWIG_ConvertPtr(obj, pptr, type, 0)
-#define SWIG_NewFunctionPtrObj(ptr, type)               SWIG_NewPointerObj(ptr, type, 0)
+/* From rubytracking.swg */
 
-/* for C++ member pointers, ie, member methods */
-#define SWIG_ConvertMember(obj, ptr, sz, ty)            SWIG_Ruby_ConvertPacked(obj, ptr, sz, ty)
-#define SWIG_NewMemberObj(ptr, sz, type)                SWIG_Ruby_NewPackedObj(ptr, sz, type)
-
-
-/* Runtime API */
+#ifdef __cplusplus
+extern "C" {
+#endif
+// Shared custom swig tracking functions
+WXRB_EXPORT_FLAG void wxRuby_AddTracking(void* ptr, VALUE object);
+WXRB_EXPORT_FLAG VALUE wxRuby_FindTracking(void* ptr);
+WXRB_EXPORT_FLAG void wxRuby_RemoveTracking(void* ptr);
+WXRB_EXPORT_FLAG void wxRuby_IterateTracking( void(*meth)(void* ptr, VALUE obj) );
+/* Setup a Ruby hash table to store Trackings - mostly done in wx.i */
+SWIGRUNTIMEINLINE void SWIG_RubyInitializeTrackings(void)
+{
+  // no-op
+}
+/* Add a Tracking from a C/C++ struct to a Ruby object */
+SWIGRUNTIMEINLINE void SWIG_RubyAddTracking(void* ptr, VALUE object)
+{
+  wxRuby_AddTracking(ptr, object);
+}
+/* Get the Ruby object that owns the specified C/C++ struct */
+SWIGRUNTIMEINLINE VALUE SWIG_RubyInstanceFor(void* ptr)
+{
+  return wxRuby_FindTracking(ptr);
+}
+/* Remove a Tracking from a C/C++ struct to a Ruby object.  It
+   is very important to remove objects once they are destroyed
+   since the same memory address may be reused later to create
+   a new object. */
+SWIGRUNTIMEINLINE void SWIG_RubyRemoveTracking(void* ptr)
+{
+  wxRuby_RemoveTracking(ptr);
+}
+/* This is a helper method that unlinks a Ruby object from its
+   underlying C++ object.  This is needed if the lifetime of the
+   Ruby object is longer than the C++ object */
+SWIGRUNTIMEINLINE void SWIG_RubyUnlinkObjects(void* ptr)
+{
+  VALUE object = SWIG_RubyInstanceFor(ptr);
+  if (object != Qnil)
+  {
+    DATA_PTR(object) = 0;
+  }
+}
+#ifdef __cplusplus
+}
+#endif
 
-#define SWIG_GetModule(clientdata)                      SWIG_Ruby_GetModule(clientdata)
-#define SWIG_SetModule(clientdata, pointer) 		SWIG_Ruby_SetModule(pointer)
+/* From rubyapi.swg */
 
+#ifdef __cplusplus
+extern "C" {
+#endif
 
-/* Error manipulation */
+WXRB_EXPORT_FLAG VALUE
+SWIG_Ruby_AppendOutput(VALUE target, VALUE o)
+{
+  if (NIL_P(target))
+  {
+    target = o;
+  }
+  else
+  {
+    if (TYPE(target) != T_ARRAY)
+    {
+      VALUE o2 = target;
+      target = rb_ary_new();
+      rb_ary_push(target, o2);
+    }
+    rb_ary_push(target, o);
+  }
+  return target;
+}
 
-#define SWIG_ErrorType(code)                            SWIG_Ruby_ErrorType(code)               
-#define SWIG_Error(code, msg)            		rb_raise(SWIG_Ruby_ErrorType(code), "%s", msg)
-#define SWIG_fail                        		goto fail				 
+#ifdef __cplusplus
+}
+#endif
 
+/*
+ * The following macros are used for providing the correct type of a
+ * function pointer to the Ruby C API.
+ *
+ * Starting with Ruby 2.7 these macros act transparently due to Ruby's moving
+ * moving away from ANYARGS and instead employing strict function signatures.
+ *
+ * Note: In case of C (not C++) the macros are transparent even before
+ * Ruby 2.7 due to the fact that the Ruby C API used function declarators
+ * with empty parentheses, which allows for an unspecified number of
+ * arguments.
+ *
+ * PROTECTFUNC(f) is used for the function pointer argument of the Ruby
+ * C API function rb_protect().
+ *
+ * VALUEFUNC(f) is used for the function pointer argument(s) of Ruby C API
+ * functions like rb_define_method() and rb_define_singleton_method().
+ *
+ * VOIDFUNC(f) is used to typecast a C function that implements either
+ * the "mark" or "free" stuff for a Ruby Data object, so that it can be
+ * passed as an argument to Ruby C API functions like Data_Wrap_Struct()
+ * and Data_Make_Struct().
+ *
+ * SWIG_RUBY_VOID_ANYARGS_FUNC(f) is used for the function pointer
+ * argument(s) of Ruby C API functions like rb_define_virtual_variable().
+ *
+ * SWIG_RUBY_INT_ANYARGS_FUNC(f) is used for the function pointer
+ * argument(s) of Ruby C API functions like st_foreach().
+ */
+#if defined(__cplusplus) && RUBY_API_VERSION_CODE < 20700
+#  define PROTECTFUNC(f) ((VALUE (*)(VALUE)) f)
+#  define VALUEFUNC(f) ((VALUE (*)(ANYARGS)) f)
+#  define VOIDFUNC(f) ((RUBY_DATA_FUNC) f)
+#  define SWIG_RUBY_VOID_ANYARGS_FUNC(f) ((void (*)(ANYARGS))(f))
+#  define SWIG_RUBY_INT_ANYARGS_FUNC(f) ((int (*)(ANYARGS))(f))
+#else
+#  define PROTECTFUNC(f) (f)
+#  define VALUEFUNC(f) (f)
+#  define VOIDFUNC(f) (f)
+#  define SWIG_RUBY_VOID_ANYARGS_FUNC(f) (f)
+#  define SWIG_RUBY_INT_ANYARGS_FUNC(f) (f)
+#endif
 
-/* Ruby-specific SWIG API */
+#define SWIG_MangleStr(value)                        	SWIG_Ruby_MangleStr(value)
+#define SWIG_CheckConvert(value, ty)                 	SWIG_Ruby_CheckConvert(value, ty)
 
-#define SWIG_InitRuntime()                              SWIG_Ruby_InitRuntime()              
-#define SWIG_define_class(ty)                        	SWIG_Ruby_define_class(ty)
-#define SWIG_NewClassInstance(value, ty)             	SWIG_Ruby_NewClassInstance(value, ty)
-#define SWIG_MangleStr(value)                        	SWIG_Ruby_MangleStr(value)		  
-#define SWIG_CheckConvert(value, ty)                 	SWIG_Ruby_CheckConvert(value, ty)	  
+static VALUE _mSWIG = Qnil;
 
 #include "assert.h"
 
@@ -64,7 +140,8 @@
 extern "C" {
 #endif
 
-typedef struct {
+typedef struct WXRB_EXPORT_FLAG swig_class
+{
   VALUE klass;
   VALUE mImpl;
   void  (*mark)(void *);
@@ -72,7 +149,6 @@ typedef struct {
   int trackObjects;
 } swig_class;
 
-
 /* Global pointer used to keep some internal SWIG stuff */
 static VALUE _cSWIG_Pointer = Qnil;
 static VALUE swig_runtime_data_type_pointer = Qnil;
@@ -83,9 +159,9 @@ static ID swig_call_id  = 0;
 
 /*
   If your swig extension is to be run within an embedded ruby and has
-  director callbacks, you should set -DRUBY_EMBEDDED during compilation.  
-  This will reset ruby's stack frame on each entry point from the main 
-  program the first time a virtual director function is invoked (in a 
+  director callbacks, you should set -DRUBY_EMBEDDED during compilation.
+  This will reset ruby's stack frame on each entry point from the main
+  program the first time a virtual director function is invoked (in a
   non-recursive way).
   If this is not done, you run the risk of Ruby trashing the stack.
 */
@@ -111,36 +187,43 @@ static ID swig_call_id  = 0;
 #endif  /* RUBY_EMBEDDED */
 
 
-SWIGRUNTIME VALUE 
-getExceptionClass(void) {
+SWIGRUNTIME VALUE
+getExceptionClass(void)
+{
   static int init = 0;
   static VALUE rubyExceptionClass ;
-  if (!init) {
+  if (!init)
+  {
     init = 1;
     rubyExceptionClass = rb_const_get(_mSWIG, rb_intern("Exception"));
   }
   return rubyExceptionClass;
-} 
+}
 
 /* This code checks to see if the Ruby object being raised as part
    of an exception inherits from the Ruby class Exception.  If so,
    the object is simply returned.  If not, then a new Ruby exception
    object is created and that will be returned to Ruby.*/
-SWIGRUNTIME VALUE
-SWIG_Ruby_ExceptionType(swig_type_info *desc, VALUE obj) {
+WXRB_EXPORT_FLAG VALUE
+SWIG_Ruby_ExceptionType(swig_type_info *desc, VALUE obj)
+{
   VALUE exceptionClass = getExceptionClass();
-  if (rb_obj_is_kind_of(obj, exceptionClass)) {
+  if (rb_obj_is_kind_of(obj, exceptionClass))
+  {
     return obj;
-  }  else {
+  }
+  else
+  {
     return rb_exc_new3(rb_eRuntimeError, rb_obj_as_string(obj));
   }
 }
 
 /* Initialize Ruby runtime support */
-SWIGRUNTIME void
+WXRB_EXPORT_FLAG void
 SWIG_Ruby_InitRuntime(void)
 {
-  if (_mSWIG == Qnil) {
+  if (_mSWIG == Qnil)
+  {
     _mSWIG = rb_define_module("SWIG");
     swig_call_id  = rb_intern("call");
     swig_arity_id = rb_intern("arity");
@@ -148,12 +231,13 @@ SWIG_Ruby_InitRuntime(void)
 }
 
 /* Define Ruby class for C type */
-SWIGRUNTIME void
+WXRB_EXPORT_FLAG void
 SWIG_Ruby_define_class(swig_type_info *type)
 {
   char *klass_name = (char *) malloc(4 + strlen(type->name) + 1);
   sprintf(klass_name, "TYPE%s", type->name);
-  if (NIL_P(_cSWIG_Pointer)) {
+  if (NIL_P(_cSWIG_Pointer))
+  {
     _cSWIG_Pointer = rb_define_class_under(_mSWIG, "Pointer", rb_cObject);
     rb_undef_method(CLASS_OF(_cSWIG_Pointer), "new");
   }
@@ -162,10 +246,10 @@ SWIG_Ruby_define_class(swig_type_info *type)
 }
 
 /* Create a new pointer object */
-SWIGRUNTIME VALUE
+WXRB_EXPORT_FLAG VALUE
 SWIG_Ruby_NewPointerObj(void *ptr, swig_type_info *type, int flags)
 {
-  int own =  flags & SWIG_POINTER_OWN; 
+  int own =  flags & SWIG_POINTER_OWN;
   int track;
   char *klass_name;
   swig_class *sklass;
@@ -176,38 +260,47 @@ SWIG_Ruby_NewPointerObj(void *ptr, swig_type_info *type, int flags)
     return Qnil;
 
   assert(type);
-  if (type->clientdata) {
+  if (type->clientdata)
+  {
     sklass = (swig_class *) type->clientdata;
-		
+
     /* Are we tracking this class and have we already returned this Ruby object? */
     track = sklass->trackObjects;
-    if (track) {
+    if (track)
+    {
       obj = SWIG_RubyInstanceFor(ptr);
 
       /* Check the object's type and make sure it has the correct type.
-        It might not in cases where methods do things like 
+        It might not in cases where methods do things like
         downcast methods. */
-      if (obj != Qnil) {
+      if (obj != Qnil)
+      {
+        // wxRuby : Note that we also track non-SWIG types so the return
+        //          value might be nil
         VALUE value = rb_iv_get(obj, "@__swigtype__");
-        const char* type_name = RSTRING_PTR(value);
-				
-        if (strcmp(type->name, type_name) == 0) {
+
+        // wxRuby : allow returning tracked objects of derived classes
+        if (!NIL_P(value) && rb_obj_is_kind_of(obj, sklass->klass))
+        {
           return obj;
         }
       }
     }
 
     /* Create a new Ruby object */
-    obj = Data_Wrap_Struct(sklass->klass, VOIDFUNC(sklass->mark), 
-			   ( own ? VOIDFUNC(sklass->destroy) : 
+    obj = Data_Wrap_Struct(sklass->klass, VOIDFUNC(sklass->mark),
+			   ( own ? VOIDFUNC(sklass->destroy) :
 			     (track ? VOIDFUNC(SWIG_RubyRemoveTracking) : 0 )
 			     ), ptr);
 
     /* If tracking is on for this class then track this object. */
-    if (track) {
+    if (track)
+    {
       SWIG_RubyAddTracking(ptr, obj);
     }
-  } else {
+  }
+  else
+  {
     klass_name = (char *) malloc(4 + strlen(type->name) + 1);
     sprintf(klass_name, "TYPE%s", type->name);
     klass = rb_const_get(_mSWIG, rb_intern(klass_name));
@@ -220,7 +313,7 @@ SWIG_Ruby_NewPointerObj(void *ptr, swig_type_info *type, int flags)
 }
 
 /* Create a new class instance (always owned) */
-SWIGRUNTIME VALUE
+WXRB_EXPORT_FLAG VALUE
 SWIG_Ruby_NewClassInstance(VALUE klass, swig_type_info *type)
 {
   VALUE obj;
@@ -231,7 +324,7 @@ SWIG_Ruby_NewClassInstance(VALUE klass, swig_type_info *type)
 }
 
 /* Get type mangle from class name */
-SWIGRUNTIMEINLINE char *
+WXRB_EXPORT_FLAG char *
 SWIG_Ruby_MangleStr(VALUE obj)
 {
   VALUE stype = rb_iv_get(obj, "@__swigtype__");
@@ -241,15 +334,18 @@ SWIG_Ruby_MangleStr(VALUE obj)
 }
 
 /* Acquire a pointer value */
-typedef struct {
+typedef struct WXRB_EXPORT_FLAG swig_ruby_owntype
+{
   void (*datafree)(void *);
   int own;
 } swig_ruby_owntype;
 
-SWIGRUNTIME swig_ruby_owntype
-SWIG_Ruby_AcquirePtr(VALUE obj, swig_ruby_owntype own) {
+WXRB_EXPORT_FLAG swig_ruby_owntype
+SWIG_Ruby_AcquirePtr(VALUE obj, swig_ruby_owntype own)
+{
   swig_ruby_owntype oldown = {0, 0};
-  if (TYPE(obj) == T_DATA && !RTYPEDDATA_P(obj)) {
+  if (TYPE(obj) == T_DATA && !RTYPEDDATA_P(obj))
+  {
     oldown.datafree = RDATA(obj)->dfree;
     RDATA(obj)->dfree = own.datafree;
   }
@@ -257,7 +353,7 @@ SWIG_Ruby_AcquirePtr(VALUE obj, swig_ruby_owntype own) {
 }
 
 /* Convert a pointer value */
-SWIGRUNTIME int
+WXRB_EXPORT_FLAG int
 SWIG_Ruby_ConvertPtrAndOwn(VALUE obj, void **ptr, swig_type_info *ty, int flags, swig_ruby_owntype *own)
 {
   char *c;
@@ -265,71 +361,94 @@ SWIG_Ruby_ConvertPtrAndOwn(VALUE obj, void **ptr, swig_type_info *ty, int flags,
   void *vptr = 0;
 
   /* Grab the pointer */
-  if (NIL_P(obj)) {
+  if (NIL_P(obj))
+  {
     if (ptr)
       *ptr = 0;
     return (flags & SWIG_POINTER_NO_NULL) ? SWIG_NullReferenceError : SWIG_OK;
-  } else {
-    if (TYPE(obj) != T_DATA || (TYPE(obj) == T_DATA && RTYPEDDATA_P(obj))) {
+  }
+  else
+  {
+    if (TYPE(obj) != T_DATA || (TYPE(obj) == T_DATA && RTYPEDDATA_P(obj)))
+    {
       return SWIG_ERROR;
     }
     Data_Get_Struct(obj, void, vptr);
   }
-  
-  if (own) {
+
+  if (own)
+  {
     own->datafree = RDATA(obj)->dfree;
     own->own = 0;
   }
 
   /* Check to see if the input object is giving up ownership
      of the underlying C struct or C++ object.  If so then we
-     need to reset the destructor since the Ruby object no 
-     longer owns the underlying C++ object.*/ 
-  if (flags & SWIG_POINTER_DISOWN) {
+     need to reset the destructor since the Ruby object no
+     longer owns the underlying C++ object.*/
+  if (flags & SWIG_POINTER_DISOWN)
+  {
     /* Is tracking on for this class? */
     int track = 0;
-    if (ty && ty->clientdata) {
+    if (ty && ty->clientdata)
+    {
       swig_class *sklass = (swig_class *) ty->clientdata;
       track = sklass->trackObjects;
     }
 
-    if (track) {
+    if (track)
+    {
       /* We are tracking objects for this class.  Thus we change the destructor
        * to SWIG_RubyRemoveTracking.  This allows us to
        * remove the mapping from the C++ to Ruby object
        * when the Ruby object is garbage collected.  If we don't
-       * do this, then it is possible we will return a reference 
+       * do this, then it is possible we will return a reference
        * to a Ruby object that no longer exists thereby crashing Ruby. */
       RDATA(obj)->dfree = SWIG_RubyRemoveTracking;
-    } else {    
+    }
+    else
+    {
       RDATA(obj)->dfree = 0;
     }
   }
 
   /* Do type-checking if type info was provided */
-  if (ty) {
-    if (ty->clientdata) {
-      if (rb_obj_is_kind_of(obj, ((swig_class *) (ty->clientdata))->klass)) {
-        if (vptr == 0) {
+  if (ty)
+  {
+    if (ty->clientdata)
+    {
+      if (rb_obj_is_kind_of(obj, ((swig_class *) (ty->clientdata))->klass))
+      {
+        if (vptr == 0)
+        {
           /* The object has already been deleted */
           return SWIG_ObjectPreviouslyDeletedError;
         }
       }
     }
-    if ((c = SWIG_MangleStr(obj)) == NULL) {
+    if ((c = SWIG_MangleStr(obj)) == NULL)
+    {
       return SWIG_ERROR;
     }
     tc = SWIG_TypeCheck(c, ty);
-    if (!tc) {
+    if (!tc)
+    {
       return SWIG_ERROR;
-    } else {
-      if (ptr) {
-        if (tc->type == ty) {
+    }
+    else
+    {
+      if (ptr)
+      {
+        if (tc->type == ty)
+        {
           *ptr = vptr;
-        } else {
+        }
+        else
+        {
           int newmemory = 0;
           *ptr = SWIG_TypeCast(tc, vptr, &newmemory);
-          if (newmemory == SWIG_CAST_NEW_MEMORY) {
+          if (newmemory == SWIG_CAST_NEW_MEMORY)
+          {
             assert(own); /* badly formed typemap which will lead to a memory leak - it must set and use own to delete *ptr */
             if (own)
               own->own = own->own | SWIG_CAST_NEW_MEMORY;
@@ -337,16 +456,18 @@ SWIG_Ruby_ConvertPtrAndOwn(VALUE obj, void **ptr, swig_type_info *ty, int flags,
         }
       }
     }
-  } else {
+  }
+  else
+  {
     if (ptr)
       *ptr = vptr;
   }
-  
+
   return SWIG_OK;
 }
 
 /* Check convert */
-SWIGRUNTIMEINLINE int
+WXRB_EXPORT_FLAG int
 SWIG_Ruby_CheckConvert(VALUE obj, swig_type_info *ty)
 {
   char *c = SWIG_MangleStr(obj);
@@ -354,8 +475,9 @@ SWIG_Ruby_CheckConvert(VALUE obj, swig_type_info *ty)
   return SWIG_TypeCheck(c,ty) != 0;
 }
 
-SWIGRUNTIME VALUE
-SWIG_Ruby_NewPackedObj(void *ptr, int sz, swig_type_info *type) {
+WXRB_EXPORT_FLAG VALUE
+SWIG_Ruby_NewPackedObj(void *ptr, int sz, swig_type_info *type)
+{
   char result[1024];
   char *r = result;
   if ((2*sz + 1 + strlen(type->name)) > 1000) return 0;
@@ -366,8 +488,9 @@ SWIG_Ruby_NewPackedObj(void *ptr, int sz, swig_type_info *type) {
 }
 
 /* Convert a packed pointer value */
-SWIGRUNTIME int
-SWIG_Ruby_ConvertPacked(VALUE obj, void *ptr, int sz, swig_type_info *ty) {
+WXRB_EXPORT_FLAG int
+SWIG_Ruby_ConvertPacked(VALUE obj, void *ptr, int sz, swig_type_info *ty)
+{
   swig_cast_info *tc;
   const char  *c;
 
@@ -377,7 +500,8 @@ SWIG_Ruby_ConvertPacked(VALUE obj, void *ptr, int sz, swig_type_info *ty) {
   if (*c != '_') goto type_error;
   c++;
   c = SWIG_UnpackData(c, ptr, sz);
-  if (ty) {
+  if (ty)
+  {
     tc = SWIG_TypeCheck(c, ty);
     if (!tc) goto type_error;
   }
@@ -387,7 +511,7 @@ SWIG_Ruby_ConvertPacked(VALUE obj, void *ptr, int sz, swig_type_info *ty) {
   return SWIG_ERROR;
 }
 
-SWIGRUNTIME swig_module_info *
+WXRB_EXPORT_FLAG swig_module_info *
 SWIG_Ruby_GetModule(void *SWIGUNUSEDPARM(clientdata))
 {
   VALUE pointer;
@@ -396,10 +520,11 @@ SWIG_Ruby_GetModule(void *SWIGUNUSEDPARM(clientdata))
 
  /* temporarily disable warnings, since the pointer check causes warnings with 'ruby -w' */
   rb_gv_set("VERBOSE", Qfalse);
-  
+
   /* first check if pointer already created */
   pointer = rb_gv_get("$swig_runtime_data_type_pointer" SWIG_RUNTIME_VERSION SWIG_TYPE_TABLE_NAME);
-  if (pointer != Qnil) {
+  if (pointer != Qnil)
+  {
     Data_Get_Struct(pointer, swig_module_info, ret);
   }
 
@@ -408,7 +533,7 @@ SWIG_Ruby_GetModule(void *SWIGUNUSEDPARM(clientdata))
   return ret;
 }
 
-SWIGRUNTIME void 
+WXRB_EXPORT_FLAG void
 SWIG_Ruby_SetModule(swig_module_info *pointer)
 {
   /* register a new class */
@@ -426,7 +551,7 @@ SWIG_Ruby_SetModule(swig_module_info *pointer)
         $result = SWIG_Ruby_isCallable( $input );
    }
  */
-SWIGINTERN
+WXRB_EXPORT_FLAG
 int SWIG_Ruby_isCallable( VALUE proc )
 {
   if ( rb_respond_to( proc, swig_call_id ) )
@@ -439,7 +564,7 @@ int SWIG_Ruby_isCallable( VALUE proc )
    Valid arities will be that equal to minimal or those < 0
    which indicate a variable number of parameters at the end.
  */
-SWIGINTERN
+WXRB_EXPORT_FLAG
 int SWIG_Ruby_arity( VALUE proc, int minimal )
 {
   if ( rb_respond_to( proc, swig_arity_id ) )