"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "Basic/Core/pdlcore.h" between
PDL-2.074.tar.gz and PDL-2.075.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.h  (PDL-2.074):pdlcore.h  (PDL-2.075)
#ifndef __PDLCORE_H #ifndef __PDLCORE_H
#define __PDLCORE_H #define __PDLCORE_H
/* version 20: memory-management changes */ /* version 20: memory-management changes */
/* on 21, unify pdl_thread per_pdl_flags, par_flags */ /* on 21, unify pdl_broadcast per_pdl_flags, par_flags; remove threadloop #defin es; change creating to char */
#define PDL_CORE_VERSION 20 #define PDL_CORE_VERSION 20
#define startbroadcastloop startthreadloop
#define pdl_startbroadcastloop pdl_startthreadloop
#define iterbroadcastloop iterthreadloop
#define pdl_iterbroadcastloop pdl_iterthreadloop
#define get_broadcastdims get_threaddims
#include "EXTERN.h" /* std perl include */ #include "EXTERN.h" /* std perl include */
#include "perl.h" /* std perl include */ #include "perl.h" /* std perl include */
#include "XSUB.h" /* for the win32 perlCAPI crap */ #include "XSUB.h" /* for the win32 perlCAPI crap */
#include "ppport.h" /* include this AFTER XSUB.h */ #include "ppport.h" /* include this AFTER XSUB.h */
#include <stdint.h> #include <stdint.h>
#if defined(CONTEXT) && defined(__osf__) #if defined(CONTEXT) && defined(__osf__)
#undef CONTEXT #undef CONTEXT
skipping to change at line 51 skipping to change at line 56
#undef warn #undef warn
#define warn PDL_CORE_(pdl_warn) #define warn PDL_CORE_(pdl_warn)
pdl_error pdl_makescratchhash(pdl *ret, PDL_Anyval data); pdl_error pdl_makescratchhash(pdl *ret, PDL_Anyval data);
PDL_Indx av_ndcheck(AV* av, AV* dims, int level, int *datalevel); PDL_Indx av_ndcheck(AV* av, AV* dims, int level, int *datalevel);
pdl* pdl_from_array(AV* av, AV* dims, int type, pdl* p); pdl* pdl_from_array(AV* av, AV* dims, int type, pdl* p);
PDL_Anyval pdl_at( void* x, int datatype, PDL_Indx* pos, PDL_Indx* dims, /* Valu e at x,y,z,... */ PDL_Anyval pdl_at( void* x, int datatype, PDL_Indx* pos, PDL_Indx* dims, /* Valu e at x,y,z,... */
PDL_Indx *incs, PDL_Indx offset, PDL_Indx ndims); PDL_Indx *incs, PDL_Indx offset, PDL_Indx ndims);
pdl_error pdl_writebackdata_vaffine(pdl *it); pdl_error pdl_writebackdata_vaffine(pdl *it);
pdl_error pdl_readdata_vaffine(pdl *it); pdl_error pdl_readdata_vaffine(pdl *it);
pdl_error pdl_dim_checks(pdl_transvtable *vtable, pdl **pdls,
pdl_broadcast *broadcast, PDL_Indx *creating,
PDL_Indx *ind_sizes, char load_only);
/* pdlutil.c */ /* pdlutil.c */
typedef enum { typedef enum {
PDL_FLAGS_TRANS, PDL_FLAGS_TRANS,
PDL_FLAGS_PDL, PDL_FLAGS_PDL,
PDL_FLAGS_VTABLE PDL_FLAGS_VTABLE
} pdl_flags; } pdl_flags;
pdl_error pdl_croak_param(pdl_transvtable *transvtable, int paramIndex, char *pa t, ...); pdl_error pdl_croak_param(pdl_transvtable *transvtable, int paramIndex, char *pa t, ...);
void pdl_print_iarr(PDL_Indx *iarr, int n); void pdl_print_iarr(PDL_Indx *iarr, int n);
void pdl_dump_thread(pdl_thread *thread); void pdl_dump_broadcast(pdl_broadcast *broadcast);
void pdl_dump_threading_info( void pdl_dump_broadcasting_info(
int npdls, PDL_Indx* creating, int target_pthread, int npdls, PDL_Indx* creating, int target_pthread,
PDL_Indx *nthreadedDims, PDL_Indx **threadedDims, PDL_Indx **threadedDimSizes, PDL_Indx *nbroadcastedDims, PDL_Indx **broadcastedDims, PDL_Indx **broadcasted DimSizes,
int maxPthreadPDL, int maxPthreadDim, int maxPthread int maxPthreadPDL, int maxPthreadDim, int maxPthread
); );
void pdl_thread_mismatch_msg( void pdl_broadcast_mismatch_msg(
char *s, char *s,
pdl **pdls, pdl_thread *thread, pdl **pdls, pdl_broadcast *broadcast,
PDL_Indx i, PDL_Indx j, PDL_Indx nimpl, PDL_Indx i, PDL_Indx j, PDL_Indx nimpl,
PDL_Indx *realdims,PDL_Indx *creating PDL_Indx *realdims,PDL_Indx *creating
); );
void pdl_dump_flags_fixspace(int flags, int nspac, pdl_flags type); void pdl_dump_flags_fixspace(int flags, int nspac, pdl_flags type);
void pdl_dump_trans_fixspace(pdl_trans *it, int nspac); void pdl_dump_trans_fixspace(pdl_trans *it, int nspac);
void pdl_dump_anyval(PDL_Anyval v); void pdl_dump_anyval(PDL_Anyval v);
#define PDL_CORE_LIST(X) \ #define PDL_CORE_LIST(X) \
X(SvPDLV, pdl*, ( SV* )) \ X(SvPDLV, pdl*, ( SV* )) \
X(SetSV_PDL, void, ( SV *sv, pdl *it )) \ X(SetSV_PDL, void, ( SV *sv, pdl *it )) \
skipping to change at line 91 skipping to change at line 99
X(null, pdl*, ()) \ X(null, pdl*, ()) \
X(scalar, pdl*, (PDL_Anyval anyval)) \ X(scalar, pdl*, (PDL_Anyval anyval)) \
X(hard_copy, pdl*, ( pdl* )) \ X(hard_copy, pdl*, ( pdl* )) \
X(converttype, pdl_error, ( pdl*, int )) \ X(converttype, pdl_error, ( pdl*, int )) \
X(smalloc, void*, ( STRLEN )) \ X(smalloc, void*, ( STRLEN )) \
X(howbig, size_t, ( int )) \ X(howbig, size_t, ( int )) \
X(packdims, PDL_Indx*, ( SV* sv, PDL_Indx *ndims )) \ X(packdims, PDL_Indx*, ( SV* sv, PDL_Indx *ndims )) \
X(setdims, pdl_error, ( pdl* it, PDL_Indx* dims, PDL_Indx ndims )) \ X(setdims, pdl_error, ( pdl* it, PDL_Indx* dims, PDL_Indx ndims )) \
X(at0, PDL_Anyval, ( pdl* x )) \ X(at0, PDL_Anyval, ( pdl* x )) \
X(reallocdims, pdl_error, ( pdl *it,PDL_Indx ndims )) \ X(reallocdims, pdl_error, ( pdl *it,PDL_Indx ndims )) \
X(reallocthreadids, pdl_error, ( pdl *it,PDL_Indx ndims )) \ X(reallocbroadcastids, pdl_error, ( pdl *it,PDL_Indx ndims )) \
X(resize_defaultincs, void, ( pdl *it )) /* Make incs out of dims */ \ X(resize_defaultincs, void, ( pdl *it )) /* Make incs out of dims */ \
X(clearthreadstruct, void, (pdl_thread *it)) \ X(clearbroadcaststruct, void, (pdl_broadcast *it)) \
X(initthreadstruct, pdl_error, (int nobl,pdl **pdls,PDL_Indx *realdims, \ X(initbroadcaststruct, pdl_error, (int nobl,pdl **pdls,PDL_Indx *realdims, \
PDL_Indx *creating,PDL_Indx npdls,pdl_transvtable *transvtable, \ PDL_Indx *creating,PDL_Indx npdls,pdl_transvtable *transvtable, \
pdl_thread *thread,PDL_Indx *ind_sizes,PDL_Indx *inc_sizes, \ pdl_broadcast *broadcast,PDL_Indx *ind_sizes,PDL_Indx *inc_sizes, \
char *flags, int noPthreadFlag)) \ char *flags, int noPthreadFlag)) \
X(redodims_default, pdl_error, (pdl_trans *)) \ X(redodims_default, pdl_error, (pdl_trans *)) \
X(startthreadloop, int, (pdl_thread *thread,pdl_error (*func)(pdl_trans *), \ X(startbroadcastloop, int, (pdl_broadcast *broadcast,pdl_error (*func)(pdl_tra ns *), \
pdl_trans *, pdl_error *)) \ pdl_trans *, pdl_error *)) \
X(get_threadoffsp, PDL_Indx*, (pdl_thread *thread)) /* For pthreading */ \ X(get_threadoffsp, PDL_Indx*, (pdl_broadcast *broadcast)) /* For pthreading */
X(get_threaddims, PDL_Indx*, (pdl_thread *thread)) /* For pthreading */ \ \
X(iterthreadloop, int, (pdl_thread *thread, PDL_Indx which)) \ X(get_broadcastdims, PDL_Indx*, (pdl_broadcast *broadcast)) /* For pthreading
X(freethreadstruct, void, (pdl_thread *thread)) \ */ \
X(thread_create_parameter, pdl_error, (pdl_thread *thread,PDL_Indx j, \ X(iterbroadcastloop, int, (pdl_broadcast *broadcast, PDL_Indx which)) \
X(freebroadcaststruct, void, (pdl_broadcast *broadcast)) \
X(broadcast_create_parameter, pdl_error, (pdl_broadcast *broadcast,PDL_Indx j,
\
PDL_Indx *dims, int temp)) \ PDL_Indx *dims, int temp)) \
X(add_deletedata_magic, pdl_error, (pdl *it,void (*func)(pdl *, Size_t param) , \ X(add_deletedata_magic, pdl_error, (pdl *it,void (*func)(pdl *, Size_t param) , \
Size_t param)) /* Automagic destructor */ \ Size_t param)) /* Automagic destructor */ \
X(setdims_careful, pdl_error, (pdl *pdl)) \ X(setdims_careful, pdl_error, (pdl *pdl)) \
X(get_offs, PDL_Anyval, (pdl *pdl,PDL_Indx offs)) \ X(get_offs, PDL_Anyval, (pdl *pdl,PDL_Indx offs)) \
X(set, pdl_error, ( void* x, int datatype, PDL_Indx* pos, PDL_Indx* dims, \ X(set, pdl_error, ( void* x, int datatype, PDL_Indx* pos, PDL_Indx* dims, \
PDL_Indx *incs, PDL_Indx offs, PDL_Indx ndims, PDL_Anyval value)) \ PDL_Indx *incs, PDL_Indx offs, PDL_Indx ndims, PDL_Anyval value)) \
X(create_trans, pdl_trans *, (pdl_transvtable *vtable)) \ X(create_trans, pdl_trans *, (pdl_transvtable *vtable)) \
X(type_coerce, pdl_error, (pdl_trans *trans)) \ X(type_coerce, pdl_error, (pdl_trans *trans)) \
X(trans_badflag_from_inputs, char, (pdl_trans *trans)) \ X(trans_badflag_from_inputs, char, (pdl_trans *trans)) \
 End of changes. 12 change blocks. 
16 lines changed or deleted 27 lines changed or added

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