- arc(..., fill=> ...) wasn't handling concave areas correctly
[imager.git] / typemap
1 #i_img *                        T_PTR_NULL
2 Imager::Color           T_PTROBJ
3 Imager::Color::Float    T_PTROBJ
4 Imager::ImgRaw          T_PTROBJ
5 Imager::Font::TT        T_PTROBJ
6 Imager::IO              T_PTROBJ
7 Imager::Font::FT2       T_PTROBJ
8 Imager::FillHandle      T_PTROBJ
9 Imager::Internal::Hlines T_PTROBJ
10 const char *            T_PV
11 float                   T_FLOAT
12 float*                  T_ARRAY
13 undef_int               T_IV_U
14 undef_neg_int           T_IV_NEGU
15 HASH                    T_HVREF
16 utf8_str                T_UTF8_STR
17 #############################################################################
18 INPUT
19 T_PTR_NULL
20         if (SvOK($arg)) $var = INT2PTR($type,SvIV($arg));
21         else $var = NULL
22
23 # the pre-5.8.0 T_AVREF input map was fixed in 5.8.0
24 T_AVREF
25         if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV)
26             $var = (AV*)SvRV($arg);
27         else
28             Perl_croak(aTHX_ \"$var is not an array reference\")
29
30 #############################################################################
31 OUTPUT
32 T_IV_U
33         if ($var == 0) $arg=&PL_sv_undef;
34         else sv_setiv($arg, (IV)$var);
35 T_IV_NEGU
36         if ($var < 0) $arg=&PL_sv_undef;
37         else sv_setiv($arg, (IV)$var);
38 T_PTR_NULL
39         sv_setiv($arg, (IV)$var);