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 const char *            T_PV
  10 float                   T_FLOAT
  11 float*                  T_ARRAY
  12 undef_int               T_IV_U
  13 HASH                    T_HVREF
  14 utf8_str                T_UTF8_STR
  15 #############################################################################
  16 INPUT
  17 T_PTR_NULL
  18         if (SvOK($arg)) $var = INT2PTR($type,SvIV($arg));
  19         else $var = NULL
  20
  21 # the pre-5.8.0 T_AVREF input map was fixed in 5.8.0
  22 T_AVREF
  23         if (SvROK($arg) && SvTYPE(SvRV($arg))==SVt_PVAV)
  24             $var = (AV*)SvRV($arg);
  25         else
  26             Perl_croak(aTHX_ \"$var is not an array reference\")
  27
  28 #############################################################################
  29 OUTPUT
  30 T_IV_U
  31         if ($var == 0) $arg=&PL_sv_undef;
  32         else sv_setiv($arg, (IV)$var);
  33 T_PTR_NULL
  34         sv_setiv($arg, (IV)$var);