-
Notifications
You must be signed in to change notification settings - Fork 20
Expand file tree
/
Copy pathH5T.c
More file actions
320 lines (251 loc) · 6.97 KB
/
H5T.c
File metadata and controls
320 lines (251 loc) · 6.97 KB
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
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
#include "H5T.h"
SEXP _H5Tcreate( SEXP _type, SEXP _size ) {
H5T_class_t type = (H5T_class_t) INTEGER(_type)[0];
size_t size = (size_t ) INTEGER(_size)[0];
hid_t tid = H5Tcreate(type, size);
addHandle(tid);
SEXP Rval;
PROTECT(Rval = HID_2_STRSXP(tid));
UNPROTECT(1);
return Rval;
}
/* hid_t H5Tcopy( hid_t dtype_id ) */
SEXP _H5Tcopy( SEXP _dtype_id ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
hid_t tid = H5Tcopy(dtype_id);
addHandle(tid);
SEXP Rval;
PROTECT(Rval = HID_2_STRSXP(tid));
UNPROTECT(1);
return Rval;
}
/* herr_t H5Tset_size( hid_t dtype_id, size_t size ) */
SEXP _H5Tset_size( SEXP _dtype_id, SEXP _size ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
herr_t herr;
if (LENGTH(_size) > 0) {
size_t size = INTEGER(_size)[0];
herr = H5Tset_size(dtype_id, size);
} else {
herr = H5Tset_size(dtype_id, H5T_VARIABLE);
}
SEXP Rval;
PROTECT(Rval = allocVector(INTSXP, 1));
INTEGER(Rval)[0] = herr;
UNPROTECT(1);
return Rval;
}
/* size_t H5Tget_size(hid_t type_id); */
SEXP _H5Tget_size( SEXP _dtype_id ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
SEXP Rval = R_NilValue;
if (!H5Tis_variable_str(dtype_id)) {
size_t size = H5Tget_size( dtype_id );
PROTECT(Rval = allocVector(INTSXP, 1));
INTEGER(Rval)[0] = size;
UNPROTECT(1);
}
return Rval;
}
/* herr_t H5Tset_strpad( hid_t dtype_id, H5T_str_t strpad ) */
SEXP _H5Tset_strpad( SEXP _dtype_id, SEXP _strpad ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
int strpad_int = INTEGER(_strpad)[0];
H5T_str_t strpad;
switch(strpad_int) {
case 0:
strpad = H5T_STR_NULLTERM;
break;
case 1:
strpad = H5T_STR_NULLPAD;
break;
case 2:
strpad = H5T_STR_SPACEPAD;
break;
default:
error("Unknown string padding argument\n");
}
herr_t herr = H5Tset_strpad(dtype_id, strpad);
SEXP Rval;
PROTECT(Rval = allocVector(INTSXP, 1));
INTEGER(Rval)[0] = herr;
UNPROTECT(1);
return Rval;
}
/* size_t H5Tget_strpad(hid_t type_id); */
SEXP _H5Tget_strpad( SEXP _dtype_id ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
H5T_str_t strpad = H5Tget_strpad( dtype_id );
SEXP Rval;
PROTECT(Rval = allocVector(INTSXP, 1));
INTEGER(Rval)[0] = strpad;
UNPROTECT(1);
return Rval;
}
/* herr_t H5Tset_cset( hid_t dtype_id, H5T_cset_t csetpad ) */
SEXP _H5Tset_cset( SEXP _dtype_id, SEXP _cset ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
int cset_int = INTEGER(_cset)[0];
H5T_cset_t cset;
switch(cset_int) {
case 0:
cset = H5T_CSET_ASCII;
break;
case 1:
cset = H5T_CSET_UTF8;
break;
default:
error("Unknown cset argument\n");
}
herr_t herr = H5Tset_cset(dtype_id, cset);
SEXP Rval;
PROTECT(Rval = allocVector(INTSXP, 1));
INTEGER(Rval)[0] = herr;
UNPROTECT(1);
return Rval;
}
/* size_t H5Tget_cset(hid_t type_id); */
SEXP _H5Tget_cset( SEXP _dtype_id ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
H5T_cset_t cset = H5Tget_cset( dtype_id );
SEXP Rval;
PROTECT(Rval = allocVector(INTSXP, 1));
INTEGER(Rval)[0] = cset;
UNPROTECT(1);
return Rval;
}
/* htri_t H5Tis_variable_str( hid_t dtype_id ) */
SEXP _H5Tis_variable_str( SEXP _dtype_id ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
htri_t res = H5Tis_variable_str( dtype_id );
SEXP Rval;
PROTECT(Rval = allocVector(INTSXP, 1));
INTEGER(Rval)[0] = res;
UNPROTECT(1);
return Rval;
}
/* herr_t H5Tset_precision( hid_t dtype_id, size_t precision ) */
SEXP _H5Tset_precision( SEXP _dtype_id, SEXP _precision ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
size_t precision = INTEGER(_precision)[0];
herr_t herr = H5Tset_precision(dtype_id, precision);
SEXP Rval;
PROTECT(Rval = ScalarInteger(herr));
UNPROTECT(1);
return Rval;
}
/* size_t H5Tget_precision( hid_t dtype_id ) */
SEXP _H5Tget_precision( SEXP _dtype_id ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
size_t precision = H5Tget_precision(dtype_id);
SEXP Rval;
PROTECT(Rval = ScalarInteger(precision));
UNPROTECT(1);
return Rval;
}
/* herr_t H5Tset_offset( hid_t dtype_id, size_t offset ) */
SEXP _H5Tset_offset( SEXP _dtype_id, SEXP _offset ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
size_t offset = INTEGER(_offset)[0];
herr_t herr = H5Tset_precision(dtype_id, offset);
SEXP Rval;
PROTECT(Rval = ScalarInteger(herr));
UNPROTECT(1);
return Rval;
}
/* int H5Tget_offset( hid_t dtype_id ) */
SEXP _H5Tget_offset( SEXP _dtype_id ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
int offset = H5Tget_precision(dtype_id);
SEXP Rval;
PROTECT(Rval = ScalarInteger(offset));
UNPROTECT(1);
return Rval;
}
SEXP _H5Tenum_create( SEXP _base_id ) {
hid_t base_id = STRSXP_2_HID( _base_id );
hid_t tid = H5Tenum_create(base_id);
addHandle(tid);
SEXP Rval;
PROTECT(Rval = HID_2_STRSXP(tid));
UNPROTECT(1);
return Rval;
}
SEXP _H5Tenum_insert( SEXP _type, SEXP _name, SEXP _value ) {
hid_t type = STRSXP_2_HID( _type );
const char *name = CHAR(STRING_ELT(_name, 0));
void * value = INTEGER(_value);
herr_t herr = H5Tenum_insert(type, name, value);
SEXP Rval;
PROTECT(Rval = ScalarInteger(herr));
UNPROTECT(1);
return Rval;
}
/* int H5Tget_nmembers ( hid_t type_id ) */
SEXP _H5Tget_nmembers( SEXP _dtype_id ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
int nmembers = H5Tget_nmembers(dtype_id);
SEXP Rval;
PROTECT(Rval = ScalarInteger(nmembers));
UNPROTECT(1);
return Rval;
}
SEXP _H5Tget_class( SEXP _dtype_id ) {
hid_t type = STRSXP_2_HID( _dtype_id );
H5T_class_t tid_class = H5Tget_class(type);
SEXP Rval = PROTECT(allocVector(STRSXP, 1));
switch(tid_class) {
case H5T_INTEGER: {
SET_STRING_ELT(Rval, 0, mkChar("H5T_INTEGER"));
} break;
case H5T_FLOAT: {
SET_STRING_ELT(Rval, 0, mkChar("H5T_FLOAT"));
} break;
case H5T_TIME: {
SET_STRING_ELT(Rval, 0, mkChar("H5T_TIME"));
} break;
case H5T_STRING: {
SET_STRING_ELT(Rval, 0, mkChar("H5T_STRING"));
} break;
case H5T_BITFIELD: {
SET_STRING_ELT(Rval, 0, mkChar("H5T_BITFIELD"));
} break;
case H5T_OPAQUE: {
SET_STRING_ELT(Rval, 0, mkChar("H5T_OPAQUE"));
} break;
case H5T_COMPOUND: {
SET_STRING_ELT(Rval, 0, mkChar("H5T_COMPOUND"));
} break;
case H5T_REFERENCE: {
SET_STRING_ELT(Rval, 0, mkChar("H5T_REFERENCE"));
} break;
case H5T_ENUM: {
SET_STRING_ELT(Rval, 0, mkChar("H5T_ENUM"));
} break;
case H5T_VLEN: {
SET_STRING_ELT(Rval, 0, mkChar("H5T_VLEN"));
} break;
case H5T_ARRAY: {
SET_STRING_ELT(Rval, 0, mkChar("H5T_ARRAY"));
} break;
default: {
UNPROTECT(1);
error("Unknown class");
} break;
}
UNPROTECT(1);
return Rval;
}
/* herr_t H5Tclose( hid_t dtype_id ) */
SEXP _H5Tclose( SEXP _dtype_id ) {
hid_t dtype_id = STRSXP_2_HID( _dtype_id );
herr_t herr = H5Tclose( dtype_id );
if (herr == 0) {
removeHandle(dtype_id);
}
SEXP Rval;
PROTECT(Rval = allocVector(INTSXP, 1));
INTEGER(Rval)[0] = herr;
UNPROTECT(1);
return Rval;
}