3 Imager::Color::Float T_PTROBJ
4 Imager::ImgRaw T_IMAGER_IMAGE
5 Imager::Font::TT T_PTROBJ
7 Imager::FillHandle T_PTROBJ
12 undef_neg_int T_IV_NEGU
17 # these types are for use by Inline, which can't handle types containing ::
18 Imager__Color T_PTROBJ_INV
19 Imager__Color__Float T_PTROBJ_INV
20 Imager__ImgRaw T_IMAGER_IMAGE
21 Imager__FillHandle T_PTROBJ_INV
22 Imager__IO T_PTROBJ_INV
24 # mostly intended for non-Imager-core use
25 Imager T_IMAGER_FULL_IMAGE
27 #############################################################################
30 if (SvOK($arg)) $var = INT2PTR($type,SvIV($arg));
33 # handles Imager objects rather than just raw objects
35 if (sv_derived_from($arg, \"Imager::ImgRaw\")) {
36 IV tmp = SvIV((SV*)SvRV($arg));
37 $var = INT2PTR($type,tmp);
39 else if (sv_derived_from($arg, \"Imager\") &&
40 SvTYPE(SvRV($arg)) == SVt_PVHV) {
41 HV *hv = (HV *)SvRV($arg);
42 SV **sv = hv_fetch(hv, \"IMG\", 3, 0);
43 if (sv && *sv && sv_derived_from(*sv, \"Imager::ImgRaw\")) {
44 IV tmp = SvIV((SV*)SvRV(*sv));
45 $var = INT2PTR($type,tmp);
48 Perl_croak(aTHX_ \"$var is not of type Imager::ImgRaw\");
51 Perl_croak(aTHX_ \"$var is not of type Imager::ImgRaw\");
54 if (sv_derived_from($arg, \"Imager\") &&
55 SvTYPE(SvRV($arg)) == SVt_PVHV) {
56 HV *hv = (HV *)SvRV($arg);
57 SV **sv = hv_fetch(hv, \"IMG\", 3, 0);
58 if (sv && *sv && sv_derived_from(*sv, \"Imager::ImgRaw\")) {
59 IV tmp = SvIV((SV*)SvRV(*sv));
60 $var = INT2PTR($type,tmp);
63 Perl_croak(aTHX_ \"$var is not of type Imager::ImgRaw\");
66 Perl_croak(aTHX_ \"$var is not of type Imager\");
68 # same as T_PTROBJ, but replace __ with ::, the opposite of the way
69 # xsubpp's processing works
70 # this is to compensate for Inline's problem with type names containing ::
72 if (sv_derived_from($arg, \"${(my $ntt=$ntype)=~s/__/::/g;\$ntt}\")) {
73 IV tmp = SvIV((SV*)SvRV($arg));
74 $var = INT2PTR($type,tmp);
77 croak(\"$var is not of type ${(my $ntt=$ntype)=~s/__/::/g;\$ntt}\");
80 #############################################################################
83 if ($var == 0) $arg=&PL_sv_undef;
84 else sv_setiv($arg, (IV)$var);
86 if ($var < 0) $arg=&PL_sv_undef;
87 else sv_setiv($arg, (IV)$var);
89 sv_setiv($arg, (IV)$var);
93 sv_setref_pv($arg, \"Imager::ImgRaw\", (void*)$var);
96 sv_setref_pv($arg, \"${(my $ntt=$ntype)=~s/__/::/g;\$ntt}\", (void*)$var);
98 # ugh, the things we do for ease of use
99 # this isn't suitable in some cases
102 SV *imobj = NEWSV(0, 0);
104 sv_setref_pv(imobj, \"Imager::ImgRaw\", $var);
105 hv_store(hv, "IMG", 3, imobj, 0);
106 $arg = sv_2mortal(sv_bless(newRV_noinc((SV*)hv), gv_stashpv("Imager", 1)));