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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
|
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
/* #include "INLINE.h" */
#define STATES_INITIAL_SIZE 10
struct _iterator_state {
I32 riter;
HE* eiter;
};
typedef struct _iterator_state iterator_state;
static int module_initialized = 0;
iterator_state **STATES;
int STATES_size;
void _initialize()
{
int i;
if (module_initialized) return;
STATES = malloc(STATES_INITIAL_SIZE*sizeof(iterator_state *));
STATES_size = STATES_INITIAL_SIZE;
for (i=0; i<STATES_size; i++) {
STATES[i] = (iterator_state*) 0;
}
module_initialized = 1;
}
void _resize_STATES()
{
int i;
int new_size = STATES_size * 2;
iterator_state **new_STATES = malloc(new_size*sizeof(iterator_state*));
for (i=0; i<STATES_size; i++) {
new_STATES[i] = STATES[i];
}
for (; i<new_size; i++) {
new_STATES[i] = (iterator_state*) 0;
}
free(STATES);
STATES = new_STATES;
STATES_size = new_size;
}
int save_iterator_state(SV* hvref)
{
int i;
if (hvref == (SV*) 0) {
warn("Hash::SafeKeys::save_iterator_state: null input!");
return -1;
}
HV* hv = (HV*) SvRV(hvref);
if (hv == (HV*) 0) {
warn("Hash::SafeKeys::save_iterator_state: null input!");
return -1;
}
iterator_state *state = malloc(sizeof(iterator_state));
_initialize();
for (i=0; i<STATES_size; i++) {
if (STATES[i] == (iterator_state*) 0) {
break;
}
}
if (i >= STATES_size) {
i = STATES_size;
_resize_STATES();
}
state->riter = HvRITER(hv);
state->eiter = HvEITER(hv);
STATES[i] = state;
hv_iterinit(hv);
return i;
}
int restore_iterator_state(SV* hvref, int i)
{
if (hvref == (SV*) 0) {
warn("Hash::SafeKeys::restore_iterator_state: null input");
return 0;
}
HV* hv = (HV*) SvRV(hvref);
if (hv == (HV*) 0) {
warn("Hash::SafeKeys::restore_iterator_state: null input");
return 0;
}
_initialize();
if (i < 0 || i >= STATES_size) {
warn("Hash::SafeKeys::restore_iterator_state: "
"invalid restore key %d", i);
return 0;
}
iterator_state *state = STATES[i];
if (state != (iterator_state*) 0) {
HvRITER(hv) = state->riter;
HvEITER(hv) = state->eiter;
free(state);
STATES[i] = (iterator_state*) 0;
return 1;
}
warn("Hash::SafeKeys::restore_iterator_state: "
"operation failed for key %d", i);
STATES[i] = (iterator_state*) 0;
return 0;
}
MODULE = Hash::SafeKeys PACKAGE = Hash::SafeKeys
PROTOTYPES: DISABLE
int
save_iterator_state (hvref)
SV * hvref
int
restore_iterator_state (hvref, i)
SV * hvref
int i
|
