"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Core/pdlcore.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).

pdlcore.c  (PDL-2.078)	:	pdlcore.c  (PDL-2.079)
skipping to change at line 33		skipping to change at line 33
/* Size of data type information */		/* Size of data type information */
size_t pdl_howbig (int datatype) {		size_t pdl_howbig (int datatype) {
#define X(datatype, ctype, ...) \		#define X(datatype, ctype, ...) \
return sizeof(ctype);		return sizeof(ctype);
PDL_GENERICSWITCH(PDL_TYPELIST2_ALL, datatype, X, croak("Not a known data type code=%d", datatype))		PDL_GENERICSWITCH(PDL_TYPELIST2_ALL, datatype, X, croak("Not a known data type code=%d", datatype))
#undef X		#undef X
}		}
/* Make a scratch dataspace for a scalar pdl */
pdl_error pdl_makescratchhash(pdl *ret, PDL_Anyval data) {
pdl_error PDL_err = {0, NULL, 0};
PDLDEBUG_f(printf("pdl_makescratchhash type=%d val=", data.type); pdl_dump_any
val(data); printf("\n"););
ret->datatype = data.type;
ret->ndims = 0; pdl_resize_defaultincs(ret);
PDL_RETERROR(PDL_err, pdl_allocdata(ret));
ret->ndims = 1; ret->dims[0] = 0; pdl_resize_defaultincs(ret);
ret->state &= ~PDL_ALLOCATED;
PDLDEBUG_f(printf("pdl_makescratchhash after alloc: "); pdl_dump(ret););
/* Refcnt should be 1 already... */
/* Make the whole pdl mortal so destruction happens at the right time.
* If there are dangling references, pdlapi.c knows not to actually
* destroy the C struct. */
sv_2mortal(getref_pdl(ret));
/* NULLs should be ok because no dimensions. */
PDL_RETERROR(PDL_err, pdl_set(ret->data, ret->datatype, NULL, NULL, NULL, 0, 0
, data));
return PDL_err;
}
/*		/*
"Convert" a perl SV into a pdl (alright more like a mapping as		"Convert" a perl SV into a pdl (alright more like a mapping as
the data block is not actually copied in the most common case		the data block is not actually copied in the most common case
of a single scalar) scalars are automatically converted to PDLs.		of a single scalar) scalars are automatically converted to PDLs.
*/		*/
pdl* pdl_SvPDLV ( SV* sv ) {		pdl* pdl_SvPDLV ( SV* sv ) {
pdl* ret;		pdl* ret;
SV *sv2;		SV *sv2;
End of changes. 1 change blocks.
22 lines changed or deleted		0 lines changed or added

---