typemap.oldperl

   1 # typemaps for perl before 5.8
   2 # STRLEN isn't in the default typemap in older perls
   3 STRLEN                  T_UV
   4 PerlIO *                T_INOUT
   5
   6 #############################################################################
   7 INPUT
   8 # the pre-5.8.0 T_AVREF input map was fixed in 5.8.0
   9 T_AVREF
  10         STMT_START {
  11             SV *const xsub_tmp_sv = $arg;
  12             SvGETMAGIC(xsub_tmp_sv);
  13             if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv))==SVt_PVAV)
  14                 $var = (AV*)SvRV(xsub_tmp_sv);
  15             else
  16                 Perl_croak(aTHX_ \"$var is not an array reference\");
  17         } STMT_END
  18
  19 # the pre-5.8.0 T_HVREF input map was fixed in 5.8.0
  20 T_HVREF
  21         STMT_START {
  22             SV *const xsub_tmp_sv = $arg;
  23             SvGETMAGIC(xsub_tmp_sv);
  24             if (SvROK(xsub_tmp_sv) && SvTYPE(SvRV(xsub_tmp_sv))==SVt_PVHV)
  25                 $var = (HV*)SvRV(xsub_tmp_sv);
  26             else
  27                 Perl_croak(aTHX_ \"$var is not a hash reference\");
  28         } STMT_END
  29