43
#define SWIG_GetModule(clientdata) SWIG_Perl_GetModule()
43
#define SWIG_GetModule(clientdata) SWIG_Perl_GetModule(clientdata)
44
44
#define SWIG_SetModule(clientdata, pointer) SWIG_Perl_SetModule(pointer)
47
47
/* Error manipulation */
49
49
#define SWIG_ErrorType(code) SWIG_Perl_ErrorType(code)
50
#define SWIG_Error(code, msg) sv_setpvf(GvSV(PL_errgv),"%s %s\n", SWIG_ErrorType(code), msg)
50
#define SWIG_Error(code, msg) sv_setpvf(get_sv("@", GV_ADD), "%s %s", SWIG_ErrorType(code), msg)
51
51
#define SWIG_fail goto fail
53
53
/* Perl-specific SWIG API */
150
148
static void SWIG_croak_null()
151
SV *err = get_sv("@", GV_ADD);
154
152
# if (PERL_VERSION < 6)
155
153
croak("%_", err);
157
if (SvOK(err) && !SvROK(err)) croak("%_", err);
155
if (sv_isobject(err))
158
croak("%s", SvPV_nolen(err));
162
# define SWIG_croak_null() croak(Nullch)
213
210
swig_cast_info *iter = ty->cast;
215
if ( (!iter->type->clientdata && (strcmp(iter->type->name, c) == 0)) ||
216
(iter->type->clientdata && (strcmp((char*)iter->type->clientdata, c) == 0)) ) {
212
if (strcmp(SWIG_Perl_TypeProxyName(iter->type), c) == 0) {
217
213
if (iter == ty->cast)
219
215
/* Move iter to the top of the linked list */
344
340
SV *obj=newSV(0);
345
341
HV *hash=newHV();
347
sv_setref_pv(obj, (char *) SWIG_Perl_TypeProxyName(t), ptr);
343
sv_setref_pv(obj, SWIG_Perl_TypeProxyName(t), ptr);
348
344
stash=SvSTASH(SvRV(obj));
349
345
if (flags & SWIG_POINTER_OWN) {
454
450
/* Magic variable code */
455
451
#ifndef PERL_OBJECT
456
#define swig_create_magic(s,a,b,c) _swig_create_magic(s,a,b,c)
458
SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *))
460
SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *))
453
# define swig_create_magic(s,a,b,c) _swig_create_magic(s,const_cast<char*>(a),b,c)
455
# define swig_create_magic(s,a,b,c) _swig_create_magic(s,(char*)(a),b,c)
457
# ifndef MULTIPLICITY
458
SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *))
460
SWIGRUNTIME void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *))
463
463
# define swig_create_magic(s,a,b,c) _swig_create_magic(pPerl,s,a,b,c)
464
464
SWIGRUNTIME void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *))
468
sv_magic(sv,sv,'U',(char *) name,strlen(name));
468
sv_magic(sv,sv,'U',name,strlen(name));
469
469
mg = mg_find(sv,'U');
470
470
mg->mg_virtual = (MGVTBL *) malloc(sizeof(MGVTBL));
471
471
mg->mg_virtual->svt_get = (SwigMagicFunc) get;