jyapayne/swig
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added missing SWIGIMPORT to runtime library functions

Browse source 
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5410 626c5289-ae23-0410-ae9c-e8d60b6d4f22
This commit is contained in:
William S Fulton 2003-11-25 21:15:15 +00:00
commit 60c74da9c6
1 changed files with 53 additions and 82 deletions
Download patch file Download diff file Expand all files Collapse all files

65
Lib/perl5/perlrun.swg
View file

@ -8,8 +8,7 @@
#define SWIGPERL #define SWIGPERL
#define SWIGPERL5 #define SWIGPERL5
#ifdef __cplusplus #ifdef __cplusplus
/* Needed on some windows machines---since MS plays funny /* Needed on some windows machines---since MS plays funny games with the header files under C++ */
games with the header files under C++ */
#include <math.h> #include <math.h>
#include <stdlib.h> #include <stdlib.h>
extern "C" { extern "C" {
@ -47,8 +46,7 @@ extern "C" {
#define SWIG_contract_assert(expr,msg) if (!(expr)) { SWIG_croak(msg); } else #define SWIG_contract_assert(expr,msg) if (!(expr)) { SWIG_croak(msg); } else
/* Note: SwigMagicFuncHack is a typedef used to get the C++ /* Note: SwigMagicFuncHack is a typedef used to get the C++ compiler to just shut up already */
compiler to just shut up already */
#ifdef PERL_OBJECT #ifdef PERL_OBJECT
#define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this; #define MAGIC_PPERL CPerlObj *pPerl = (CPerlObj *) this;
@ -165,29 +163,16 @@ extern "C" {
#ifdef SWIG_NOINCLUDE #ifdef SWIG_NOINCLUDE
extern int SWIGIMPORT(int) SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *, void **, swig_type_info *, int flags);
SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SWIGIMPORT(void) SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *, void *, swig_type_info *, int flags);
SV *, void **, swig_type_info *, int flags); SWIGIMPORT(SV *) SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void *, swig_type_info *, int flags);
extern void SWIGIMPORT(swig_type_info *) SWIG_Perl_TypeCheckRV(SWIG_MAYBE_PERL_OBJECT SV *rv, swig_type_info *ty);
SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SWIGIMPORT(SV *) SWIG_Perl_SetError(SWIG_MAYBE_PERL_OBJECT char *);
SV *, void *, swig_type_info *, int flags);
extern SV *
SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT
void *, swig_type_info *, int flags);
extern swig_type_info *
SWIG_Perl_TypeCheckRV(SWIG_MAYBE_PERL_OBJECT
SV *rv, swig_type_info *ty);
extern SV *
SWIG_Perl_SetError(SWIG_MAYBE_PERL_OBJECT
char *);
#else #else
SWIGRUNTIME(swig_type_info *) SWIGRUNTIME(swig_type_info *)
SWIG_Perl_TypeCheckRV(SWIG_MAYBE_PERL_OBJECT SWIG_Perl_TypeCheckRV(SWIG_MAYBE_PERL_OBJECT SV *rv, swig_type_info *ty) {
SV *rv, swig_type_info *ty)
{
swig_type_info *s; swig_type_info *s;
if (!ty) return 0; /* Void pointer */ if (!ty) return 0; /* Void pointer */
s = ty->next; /* First element always just a name */ s = ty->next; /* First element always just a name */
@ -203,7 +188,7 @@ SWIG_Perl_TypeCheckRV(SWIG_MAYBE_PERL_OBJECT
s->next = ty->next; s->next = ty->next;
if (ty->next) ty->next->prev = s; if (ty->next) ty->next->prev = s;
ty->next = s; ty->next = s;
s->prev = ty; /**/ s->prev = ty;
return s; return s;
} }
s = s->next; s = s->next;
@ -214,9 +199,7 @@ SWIG_Perl_TypeCheckRV(SWIG_MAYBE_PERL_OBJECT
/* Function for getting a pointer value */ /* Function for getting a pointer value */
SWIGRUNTIME(int) SWIGRUNTIME(int)
SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
SV *sv, void **ptr, swig_type_info *_t, int flags)
{
swig_type_info *tc; swig_type_info *tc;
void *voidptr = (void *)0; void *voidptr = (void *)0;
@ -277,9 +260,7 @@ SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT
} }
SWIGRUNTIME(void) SWIGRUNTIME(void)
SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
SV *sv, void *ptr, swig_type_info *t, int flags)
{
if (ptr && (flags & SWIG_SHADOW)) { if (ptr && (flags & SWIG_SHADOW)) {
SV *self; SV *self;
SV *obj=newSV(0); SV *obj=newSV(0);
@ -308,35 +289,27 @@ SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT
} }
SWIGRUNTIME(SV *) SWIGRUNTIME(SV *)
SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT SWIG_Perl_NewPointerObj(SWIG_MAYBE_PERL_OBJECT void *ptr, swig_type_info *t, int flags) {
void *ptr, swig_type_info *t, int flags)
{
SV *result = sv_newmortal(); SV *result = sv_newmortal();
SWIG_MakePtr(result, ptr, t, flags); SWIG_MakePtr(result, ptr, t, flags);
return result; return result;
} }
SWIGRUNTIME(void) SWIGRUNTIME(void)
SWIG_Perl_SetError(SWIG_MAYBE_PERL_OBJECT SWIG_Perl_SetError(SWIG_MAYBE_PERL_OBJECT const char *error) {
const char *error)
{
if (error) sv_setpv(get_sv("@", TRUE), error); if (error) sv_setpv(get_sv("@", TRUE), error);
} }
SWIGRUNTIME(void) SWIGRUNTIME(void)
SWIG_Perl_SetErrorSV(SWIG_MAYBE_PERL_OBJECT SWIG_Perl_SetErrorSV(SWIG_MAYBE_PERL_OBJECT SV *error) {
SV *error)
{
if (error) sv_setsv(get_sv("@", TRUE), error); if (error) sv_setsv(get_sv("@", TRUE), error);
} }
SWIGRUNTIME(void) SWIGRUNTIME(void)
SWIG_Perl_SetErrorf(const char *fmt, ...) SWIG_Perl_SetErrorf(const char *fmt, ...) {
{
va_list args; va_list args;
va_start(args, fmt); va_start(args, fmt);
sv_vsetpvfn(get_sv("@", TRUE), fmt, strlen(fmt), &args, sv_vsetpvfn(get_sv("@", TRUE), fmt, strlen(fmt), &args, Null(SV**), 0, Null(bool*));
Null(SV**), 0, Null(bool*));
va_end(args); va_end(args);
} }
@ -393,11 +366,9 @@ typedef struct {
#ifndef PERL_OBJECT #ifndef PERL_OBJECT
#define swig_create_magic(s,a,b,c) _swig_create_magic(s,a,b,c) #define swig_create_magic(s,a,b,c) _swig_create_magic(s,a,b,c)
#ifndef MULTIPLICITY #ifndef MULTIPLICITY
static void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int \ static void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *)) {
(*get)(SV *,MAGIC *)) {
#else #else
static void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*,\ static void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *)) {
SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *)) {
#endif #endif
#else #else
# define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c) # define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)