]> git.imager.perl.org - imager.git/blob - typemap
f39ed30ea3fbc4717d169c1e66329d54efd4e91b
[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::TTHandle        T_PTROBJ
6 Imager::IO              T_PTROBJ
7 Imager::Font::FT2       T_PTROBJ
8 Imager::FillHandle      T_PTROBJ
9 const char *            T_PV
10 float                   T_FLOAT
11 float*                  T_ARRAY
12 undef_int               T_IV_U
13 HASH                    T_HVREF
14 #############################################################################
15 INPUT
16 T_PTR_NULL
17         if (SvOK($arg)) $var = ($type)SvIV($arg);
18         else $var = NULL
19 #############################################################################
20 OUTPUT
21 T_IV_U
22         if ($var == 0) $arg=&PL_sv_undef;
23         else sv_setiv($arg, (IV)$var);
24 T_PTR_NULL
25         sv_setiv($arg, (IV)$var);