"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Core/pdlaffine.c" between
PDL-2.078.tar.gz and PDL-2.079.tar.gz

About: PDL (Perl Data Language) aims to turn perl into an efficient numerical language for scientific computing (similar to IDL and MatLab).

pdlaffine.c  (PDL-2.078):pdlaffine.c  (PDL-2.079)
skipping to change at line 248 skipping to change at line 248
to_pdl ## _physdatap[i] = trans->bvalflag && from_pdl ## _physdatap[i] == from_pdl ## _badval \ to_pdl ## _physdatap[i] = trans->bvalflag && from_pdl ## _physdatap[i] == from_pdl ## _badval \
? to_pdl ## _badval \ ? to_pdl ## _badval \
: from_pdl ## _physdatap[i]; \ : from_pdl ## _physdatap[i]; \
; \ ; \
} \ } \
} }
pdl_error pdl_converttypei_readdata(pdl_trans *trans) { pdl_error pdl_converttypei_readdata(pdl_trans *trans) {
pdl_error PDL_err = {0, NULL, 0}; pdl_error PDL_err = {0, NULL, 0};
pdl_params_converttypei *params = trans->params; pdl_params_converttypei *params = trans->params;
PDLDEBUG_f(printf("pdl_converttypei_readdata %s=%p from parent: ", trans->vtab le->name, trans); pdl_dump(trans->pdls[0]));
#define X_OUTER(datatype_out, ctype_out, ...) \ #define X_OUTER(datatype_out, ctype_out, ...) \
PDL_DECLARE_PARAMETER_BADVAL(ctype_out, (trans->vtable->per_pdl_flags[1]), CHI LD, (trans->pdls[1]), 1) \ PDL_DECLARE_PARAMETER_BADVAL(ctype_out, (trans->vtable->per_pdl_flags[1]), CHI LD, (trans->pdls[1]), 1) \
PDL_GENERICSWITCH2(PDL_TYPELIST2_ALL_, trans->__datatype, X_INNER, return pdl_ make_error(PDL_EUSERERROR, "Not a known data type code=%d", trans->__datatype)) PDL_GENERICSWITCH2(PDL_TYPELIST2_ALL_, trans->__datatype, X_INNER, return pdl_ make_error(PDL_EUSERERROR, "Not a known data type code=%d", trans->__datatype))
#define X_INNER(datatype_in, ctype_in, ...) \ #define X_INNER(datatype_in, ctype_in, ...) \
PDL_DECLARE_PARAMETER_BADVAL(ctype_in, (trans->vtable->per_pdl_flags[0]), PARE NT, (trans->pdls[0]), 1) \ PDL_DECLARE_PARAMETER_BADVAL(ctype_in, (trans->vtable->per_pdl_flags[0]), PARE NT, (trans->pdls[0]), 1) \
COPYCONVERT(PARENT, CHILD) COPYCONVERT(PARENT, CHILD)
PDL_GENERICSWITCH(PDL_TYPELIST2_ALL, params->totype, X_OUTER, return pdl_make_ error(PDL_EUSERERROR, "Not a known data type code=%d", params->totype)) PDL_GENERICSWITCH(PDL_TYPELIST2_ALL, params->totype, X_OUTER, return pdl_make_ error(PDL_EUSERERROR, "Not a known data type code=%d", params->totype))
#undef X_INNER #undef X_INNER
return PDL_err; return PDL_err;
} }
pdl_error pdl_converttypei_writebackdata(pdl_trans *trans) { pdl_error pdl_converttypei_writebackdata(pdl_trans *trans) {
pdl_error PDL_err = {0, NULL, 0}; pdl_error PDL_err = {0, NULL, 0};
pdl_params_converttypei *params = trans->params; pdl_params_converttypei *params = trans->params;
PDLDEBUG_f(printf("pdl_converttypei_writebackdata %s=%p from child: ", trans-> vtable->name, trans); pdl_dump(trans->pdls[1]));
#define X_INNER(datatype_in, ctype_in, ...) \ #define X_INNER(datatype_in, ctype_in, ...) \
PDL_DECLARE_PARAMETER_BADVAL(ctype_in, (trans->vtable->per_pdl_flags[0]), PARE NT, (trans->pdls[0]), 1) \ PDL_DECLARE_PARAMETER_BADVAL(ctype_in, (trans->vtable->per_pdl_flags[0]), PARE NT, (trans->pdls[0]), 1) \
COPYCONVERT(CHILD, PARENT) COPYCONVERT(CHILD, PARENT)
PDL_GENERICSWITCH(PDL_TYPELIST2_ALL, params->totype, X_OUTER, return pdl_make_ error(PDL_EUSERERROR, "Not a known data type code=%d", params->totype)) PDL_GENERICSWITCH(PDL_TYPELIST2_ALL, params->totype, X_OUTER, return pdl_make_ error(PDL_EUSERERROR, "Not a known data type code=%d", params->totype))
#undef X_INNER #undef X_INNER
#undef X_OUTER #undef X_OUTER
return PDL_err; return PDL_err;
} }
static pdl_datatypes pdl_converttypei_vtable_gentypes[] = PDL_ALL_GENTYPES; static pdl_datatypes pdl_converttypei_vtable_gentypes[] = PDL_ALL_GENTYPES;
 End of changes. 2 change blocks. 
0 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)