typemap (PDL-2.082) | : | typemap (PDL-2.083) | ||
---|---|---|---|---|
TYPEMAP | TYPEMAP | |||
pdl * T_PDL | pdl * T_PDL | |||
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 | |||
pdl ** T_PDL_LIST | ||||
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; | $var = PDL_CORE_(packdims)($arg, &${var}_count) | |||
$var = PDL_CORE_(packdims)($arg, &${var}_count); | ||||
T_PDL_LIST | ||||
$var = PDL_CORE_(packpdls)($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); | |||
T_PDL_LIST | ||||
if ($var) { | ||||
$arg = PDL_CORE_(unpackpdls)($var, ${var}_count); | ||||
free($var); | ||||
} | ||||
End of changes. 9 change blocks. | ||||
11 lines changed or deleted | 14 lines changed or added |