Lines Matching refs:sv
538 typedef int (CPerlObj::*SwigMagicFunc)(SV *, MAGIC *);
543 typedef int (CPerlObj::*SwigMagicFuncHack)(SV *, MAGIC *);
548 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
554 #define SWIG_MAGIC(a,b) (SV *a, MAGIC *b)
555 typedef int (*SwigMagicFunc)(SV *, MAGIC *);
560 typedef int (*SwigMagicFuncHack)(SV *, MAGIC *);
567 #define SWIG_MAGIC(a,b) (struct interpreter *interp, SV *a, MAGIC *b)
568 typedef int (*SwigMagicFunc)(struct interpreter *, SV *, MAGIC *);
572 typedef int (*SwigMagicFuncHack)(struct interpreter *, SV *, MAGIC *);
614 # define SWIG_MakePackedObj(sv, p, s, type) \
615 SWIG_Perl_MakePackedObj(pPerl, sv, p, s, type)
624 # define SWIG_MakePackedObj(sv, p, s, type) \
625 SWIG_Perl_MakePackedObj(sv, p, s, type )
632 # define SWIG_MakePtr(sv, ptr, type, flags) \
633 SWIG_Perl_MakePtr(pPerl, sv, ptr, type, flags)
637 # define SWIG_MakePtr(sv, ptr, type, flags) \
638 sv, ptr, type, flags)
657 SV *pointer;
682 SWIG_Perl_TypeCheckRV(SWIG_MAYBE_PERL_OBJECT SV *rv, swig_type_info *ty) {
709 SWIG_Perl_ConvertPtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void **ptr, swig_type_info *_t, int flags) {
714 if (SvGMAGICAL(sv))
715 mg_get(sv);
718 if (sv_isobject(sv)) {
719 SV *tsv = (SV*) SvRV(sv);
726 sv = mg->mg_obj;
727 if (sv_isobject(sv)) {
728 tmp = SvIV((SV*)SvRV(sv));
735 tmp = SvIV((SV*)SvRV(sv));
742 } else if (! SvOK(sv)) { /* Check for undef */
745 } else if (SvTYPE(sv) == SVt_RV) { /* Check for NULL pointer */
747 if (!SvROK(sv))
757 char *_c = HvNAME(SvSTASH(SvRV(sv)));
771 SWIG_Perl_MakePtr(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, swig_type_info *t, int flags) {
773 SV *self;
774 SV *obj=newSV(0);
787 sv_magic((SV *)hash, (SV *)obj, 'P', Nullch, 0);
789 self=newRV_noinc((SV *)hash);
790 sv_setsv(sv, self);
791 SvREFCNT_dec((SV *)self);
792 sv_bless(sv, stash);
795 sv_setref_pv(sv, (char *) t->name, ptr);
799 static SWIGINLINE SV *
801 SV *result = sv_newmortal();
807 SWIG_Perl_MakePackedObj(SWIG_MAYBE_PERL_OBJECT SV *sv, void *ptr, int sz, swig_type_info *type) {
814 sv_setpv(sv, result);
819 SWIG_Perl_ConvertPacked(SWIG_MAYBE_PERL_OBJECT SV *obj, void *ptr, int sz, swig_type_info *ty, int flags) {
842 SWIG_Perl_SetErrorSV(SWIG_MAYBE_PERL_OBJECT SV *error) {
850 sv_vsetpvfn(perl_get_sv("@", TRUE), fmt, strlen(fmt), &args, Null(SV**), 0, Null(bool*));
905 static void _swig_create_magic(SV *sv, char *name, int (*set)(SV *, MAGIC *), int (*get)(SV *,MAGIC *)) {
907 static void _swig_create_magic(SV *sv, char *name, int (*set)(struct interpreter*, SV *, MAGIC *), int (*get)(struct interpreter*, SV *,MAGIC *)) {
911 static void _swig_create_magic(CPerlObj *pPerl, SV *sv, const char *name, int (CPerlObj::*set)(SV *, MAGIC *), int (CPerlObj::*get)(SV *, MAGIC *)) {
914 sv_magic(sv,sv,'U',(char *) name,strlen(name));
915 mg = mg_find(sv,'U');
1017 SWIGCLASS_STATIC int swig_magic_readonly(pTHX_ SV *sv, MAGIC *mg) {
1019 sv = sv; mg = mg;
1082 SV *pointer;
1128 SV *sv;
1129 sv = perl_get_sv((char*) swig_variables[i].name, TRUE | 0x2);
1131 SWIG_MakePtr(sv,(void *)1, *swig_variables[i].type,0);
1133 sv_setiv(sv,(IV) 0);
1135 swig_create_magic(sv, (char *) swig_variables[i].name, swig_variables[i].set, swig_variables[i].get);
1140 SV *sv;
1141 sv = perl_get_sv((char*)swig_constants[i].name, TRUE | 0x2);
1144 sv_setiv(sv, (IV) swig_constants[i].lvalue);
1147 sv_setnv(sv, (double) swig_constants[i].dvalue);
1150 sv_setpv(sv, (char *) swig_constants[i].pvalue);
1153 SWIG_MakePtr(sv, swig_constants[i].pvalue, *(swig_constants[i].ptype),0);
1156 SWIG_MakePackedObj(sv, swig_constants[i].pvalue, swig_constants[i].lvalue, *(swig_constants[i].ptype));
1161 SvREADONLY_on(sv);
