typemap

   1 #i_img *                        T_PTR_NULL
   2 Imager::Color           T_PTROBJ
   3 Imager::ImgRaw          T_PTROBJ
   4 Imager::TTHandle        T_PTROBJ
   5 Imager::IO              T_PTROBJ
   6 const char *            T_PV
   7 float                   T_FLOAT
   8 float*                  T_ARRAY
   9 undef_int               T_IV_U
  10 HASH                    T_HVREF
  11 #############################################################################
  12 INPUT
  13 T_PTR_NULL
  14         if (SvOK($arg)) $var = ($type)SvIV($arg);
  15         else $var = NULL
  16 #############################################################################
  17 OUTPUT
  18 T_IV_U
  19         if ($var == 0) $arg=&PL_sv_undef;
  20         else sv_setiv($arg, (IV)$var);
  21 T_PTR_NULL
  22         sv_setiv($arg, (IV)$var);