add some more extensions, add add_type_extensions() class method

[imager.git] / typemap

diff --git a/typemap b/typemap
index 5bd5a4739d2495b05ffb51744c98e7bfbe17b9c0..83f7152f6c1ff653ac76d9779cd33f0bb3e585a0 100644 (file)
--- a/typemap
+++ b/typemap
@@ -14,9 +14,6 @@ HASH                  T_HVREF
 utf8_str               T_UTF8_STR
 i_img_dim              T_IV
 
 utf8_str               T_UTF8_STR
 i_img_dim              T_IV
 

-double *               T_AVARRAY
-int *                          T_AVARRAY
-

 # these types are for use by Inline, which can't handle types containing ::
 Imager__Color           T_PTROBJ_INV
 Imager__Color__Float    T_PTROBJ_INV
 # these types are for use by Inline, which can't handle types containing ::
 Imager__Color           T_PTROBJ_INV
 Imager__Color__Float    T_PTROBJ_INV


@@ -79,31 +76,6 @@ T_PTROBJ_INV
         else
             croak(\"$var is not of type ${(my $ntt=$ntype)=~s/__/::/g;\$ntt}\");
 
         else
             croak(\"$var is not of type ${(my $ntt=$ntype)=~s/__/::/g;\$ntt}\");
 

-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);
-                        }
-                       else
-                         ${var}[xsub_index] = 0;
-                   }
-               }
-               else{
-                   Perl_croak(aTHX_ \"%s: %s is not an ARRAY reference\",
-                               ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]},
-                               \"$var\");
-               }
-       } STMT_END
-

 
 #############################################################################
 OUTPUT
 
 #############################################################################
 OUTPUT