typemap (PDL-2.080) | : | typemap (PDL-2.081) | ||
---|---|---|---|---|
skipping to change at line 13 | skipping to change at line 13 | |||
pdl_trans * T_PDLTRANS | pdl_trans * T_PDLTRANS | |||
PDL_Indx T_IV | PDL_Indx T_IV | |||
float T_NV | float T_NV | |||
PDL_Anyval T_PDL_ANYVAL | PDL_Anyval T_PDL_ANYVAL | |||
pdl_slice_args * T_PDL_SLICEARGS | pdl_slice_args * T_PDL_SLICEARGS | |||
PDL_Indx * T_PDL_DIMLIST | PDL_Indx * T_PDL_DIMLIST | |||
INPUT | INPUT | |||
T_PDL | T_PDL | |||
$var = PDL_CORE_(SvPDLV)($arg); | $var = PDL_CORE_(SvPDLV)($arg) | |||
T_PDL_ANYVAL | T_PDL_ANYVAL | |||
ANYVAL_FROM_SV($var, $arg, FALSE, -1) | ANYVAL_FROM_SV($var, $arg, FALSE, -1) | |||
T_PDLTRANS | T_PDLTRANS | |||
if(sv_isa($arg,\"PDL::Trans\")) | if(sv_isa($arg,\"PDL::Trans\")) | |||
$var = INT2PTR(pdl_trans *,SvIV(SvRV($arg))); | $var = INT2PTR(pdl_trans *,SvIV(SvRV($arg))); | |||
else | else | |||
croak(\"$var is not of type PDL::Trans\"); | croak(\"$var is not of type PDL::Trans\"); | |||
T_PDL_SLICEARGS | T_PDL_SLICEARGS | |||
$var = PDL_CORE_(slice_args_parse_sv)($arg); | $var = PDL_CORE_(slice_args_parse_sv)($arg) | |||
T_PDL_DIMLIST | T_PDL_DIMLIST | |||
PDL_Indx ${var}_count; | PDL_Indx ${var}_count; | |||
$var = PDL_CORE_(packdims)($arg, &${var}_count); | $var = PDL_CORE_(packdims)($arg, &${var}_count); | |||
OUTPUT | OUTPUT | |||
T_PDL | T_PDL | |||
PDL_CORE_(SetSV_PDL)($arg,$var); | PDL_CORE_(SetSV_PDL)($arg,$var); | |||
T_PDL_ANYVAL | T_PDL_ANYVAL | |||
ANYVAL_TO_SV($arg, $var) | ANYVAL_TO_SV($arg, $var); | |||
T_PDLTRANS | T_PDLTRANS | |||
sv_setref_pv($arg, \"PDL::Trans\", (void*)$var); | sv_setref_pv($arg, \"PDL::Trans\", (void*)$var); | |||
End of changes. 3 change blocks. | ||||
3 lines changed or deleted | 3 lines changed or added |