update Changes

[imager.git] / typemap.local

diff --git a/typemap.local b/typemap.local
index c738af77a0480701c418a1d4c8729642aac2740a..a3ea2d292cff324b9d9a1a83ec7a3e92a51e09e4 100644 (file)
--- a/typemap.local
+++ b/typemap.local
@@ -5,6 +5,7 @@
 i_channel_list         T_IM_CHANNEL_LIST
 i_sample_list          T_IM_SAMPLE_LIST
 i_fsample_list         T_IM_FSAMPLE_LIST
+i_polygon_list         T_IM_POLYGON_LIST
 
 off_t                  T_OFF_T
 
@@ -12,6 +13,14 @@ Imager::Internal::Hlines T_PTROBJ
 
 Imager::Context                 T_PTROBJ
 
+i_palidx               T_IV
+double *               T_AVARRAY
+int *                          T_AVARRAY
+i_img_dim *            T_AVARRAY
+i_color *              T_AVARRAY
+
+i_poly_fill_mode_t     T_I_POLY_FILL_MODE_T
+
 #############################################################################
 INPUT
 
@@ -102,6 +111,37 @@ T_IM_FSAMPLE_LIST
            croak(\"$pname: no samples provided in $var\");
        }
 
+T_IM_POLYGON_LIST
+        S_get_polygon_list(aTHX_ &$var, $arg);
+
+T_AVARRAY
+       STMT_START {
+               SV* const xsub_tmp_sv = $arg;
+               SvGETMAGIC(xsub_tmp_sv);
+               if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv)) == SVt_PVAV){
+                   AV *xsub_tmp_av = (AV*)SvRV(xsub_tmp_sv);
+                   STRLEN xsub_index;
+                   size_$var = av_len(xsub_tmp_av) + 1;
+                   $var = $ntype(size_$var);
+                   for (xsub_index = 0; xsub_index < size_$var; ++xsub_index) {
+                       SV **sv = av_fetch(xsub_tmp_av, xsub_index, 0);
+                       if (sv) {
+                         ${var}[xsub_index] = Sv${(my $ntt = $ntype) =~ s/Ptr$//; \(ucfirst $ntt)}(*sv, \"$pname\");
+                        }
+                   }
+               }
+               else{
+                   Perl_croak(aTHX_ \"%s: %s is not an ARRAY reference\",
+                               ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
+                               \"$var\");
+               }
+       } STMT_END
+
+T_I_POLY_FILL_MODE_T
+       $var = S_get_poly_fill_mode(aTHX_ $arg);
+
+
+
 #############################################################################
 OUTPUT