- extra concept index entries
[imager.git] / typemap
CommitLineData
02d1d628
AMH
1#i_img * T_PTR_NULL
2Imager::Color T_PTROBJ
faa9b3e7 3Imager::Color::Float T_PTROBJ
02d1d628 4Imager::ImgRaw T_PTROBJ
4b19f77a 5Imager::Font::TT T_PTROBJ
02d1d628 6Imager::IO T_PTROBJ
faa9b3e7 7Imager::Font::FT2 T_PTROBJ
f1ac5027 8Imager::FillHandle T_PTROBJ
a8652edf 9Imager::Internal::Hlines T_PTROBJ
02d1d628
AMH
10const char * T_PV
11float T_FLOAT
12float* T_ARRAY
13undef_int T_IV_U
a659442a 14undef_neg_int T_IV_NEGU
02d1d628 15HASH T_HVREF
1bd75e4c 16utf8_str T_UTF8_STR
02d1d628
AMH
17#############################################################################
18INPUT
19T_PTR_NULL
5997b792 20 if (SvOK($arg)) $var = INT2PTR($type,SvIV($arg));
02d1d628 21 else $var = NULL
e5744e01
TC
22
23# the pre-5.8.0 T_AVREF input map was fixed in 5.8.0
24T_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
02d1d628
AMH
30#############################################################################
31OUTPUT
32T_IV_U
33 if ($var == 0) $arg=&PL_sv_undef;
34 else sv_setiv($arg, (IV)$var);
a659442a
TC
35T_IV_NEGU
36 if ($var < 0) $arg=&PL_sv_undef;
37 else sv_setiv($arg, (IV)$var);
02d1d628
AMH
38T_PTR_NULL
39 sv_setiv($arg, (IV)$var);