1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
/* pdlhash.c - functions for manipulating pdl hashes */
#define PDL_CORE /* For certain ifdefs */
#include "pdl.h" /* Data structure declarations */
#include "pdlcore.h" /* Core declarations */
/* Free the data if possible; used by mmapper */
void pdl_freedata (pdl *a) {
if(a->datasv) {
SvREFCNT_dec(a->datasv);
a->datasv=0;
a->data=0;
} else if(a->data) {
die("Trying to free data of untouchable (mmapped?) pdl");
}
}
/* Utility to change the size of the data compt of a pdl */
void pdl_grow (pdl* a, int newsize) {
SV* foo;
HV* hash;
int nbytes;
int ncurr;
STRLEN len;
if(a->state & PDL_DONTTOUCHDATA) {
die("Trying to touch data of an untouchable (mmapped?) pdl");
}
if(a->datasv == NULL)
a->datasv = newSVpv("",0);
foo = a->datasv;
nbytes = newsize * pdl_howbig(a->datatype);
ncurr = SvCUR( foo );
if (ncurr == nbytes)
return; /* Nothing to be done */
/* We don't want to do this: if someone is resizing it
* but wanting to preserve data.. */
#ifdef FEOIJFOESIJFOJE
if (ncurr>nbytes) /* Nuke back to zero */
sv_setpvn(foo,"",0);
#endif
if(nbytes > (1024*1024*1024)) {
die("Probably false alloc of over 1Gb piddle!");
}
SvGROW ( foo, nbytes ); SvCUR_set( foo, nbytes );
a->data = (void *) SvPV( foo, len ); a->nvals = newsize;
}
/* unpack dims array into Hash */
void pdl_unpackarray ( HV* hash, char *key, int *dims, int ndims ) {
AV* array;
int i;
array = newAV();
hv_store(hash, key, strlen(key), newRV( (SV*) array), 0 );
if (ndims==0 )
return;
for(i=0; i<ndims; i++)
av_store( array, i, newSViv( (IV)dims[i] ) );
}
|
