mirrors/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2026-09-25 04:09:44 +03:00
Code Issues Packages Projects Releases Wiki Activity
Files
develop
hdf5/java/src-jni/jni/h5sImp.c
T
Allen Byrne b754dcb8f2 Move Java wrappers to FFM using jextract and java 25 (#5957) 
FFM build requires Java 25, Jextract 25.
Generates FFM bindings during configure.
JNI is default when the requirements are not met or can be forced.
Presets added for maven and FFM - JNI is default selection.
Enhanced Maven options will work with either JNI or FFM
New Workflows for testing and maven uploads.
Extensive documentation changes for java.
2025-11-04 14:03:06 -06:00

1725 lines
52 KiB
C
Raw Permalink Blame History

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Copyright by The HDF Group. *
* All rights reserved. *
* *
* This file is part of HDF5. The full HDF5 copyright notice, including *
* terms governing use, modification, and redistribution, is contained in *
* the LICENSE file, which can be found at the root of the source code *
* distribution tree, or in https://www.hdfgroup.org/licenses. *
* If you do not have access to either file, you may request a copy from *
* help@hdfgroup.org. *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
#ifdef __cplusplus
extern "C" {
#endif /* __cplusplus */
#include <stdlib.h>
#include "hdf5.h"
#include "h5jni.h"
#include "h5sImp.h"
/*
* Pointer to the JNI's Virtual Machine; used for callback functions.
*/
/* extern JavaVM *jvm; */
/*
* Class: hdf_hdf5lib_H5
* Method: _H5Screate
* Signature: (I)J
*/
JNIEXPORT jlong JNICALL
Java_hdf_hdf5lib_H5__1H5Screate(JNIEnv *env, jclass clss, jint type)
{
hid_t retVal = H5I_INVALID_HID;
UNUSED(clss);
if ((retVal = H5Screate((H5S_class_t)type)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jlong)retVal;
} /* end Java_hdf_hdf5lib_H5__1H5Screate */
/*
* Class: hdf_hdf5lib_H5
* Method: _H5Screate_simple
* Signature: (I[J[J)G
*/
JNIEXPORT jlong JNICALL
Java_hdf_hdf5lib_H5__1H5Screate_1simple(JNIEnv *env, jclass clss, jint rank, jlongArray dims,
jlongArray maxdims)
{
jboolean isCopy;
hsize_t *sa = NULL;
hsize_t *msa = NULL;
hsize_t *lp = NULL;
jlong *dimsP = NULL, *maxdimsP = NULL;
jlong *jlp = NULL;
jsize drank = 0, mrank = 0;
int i;
hid_t retVal = H5I_INVALID_HID;
UNUSED(clss);
if (rank < 0)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Screate_simple: rank is invalid");
if (NULL == dims)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Screate_simple: dims is NULL");
if ((drank = ENVPTR->GetArrayLength(ENVONLY, dims)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Screate_simple: dims array length < 0");
}
if (drank != rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Screate_simple: dims rank is invalid");
if (NULL != maxdims) {
if ((mrank = ENVPTR->GetArrayLength(ENVONLY, maxdims)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Screate_simple: maxdims array length < 0");
}
if (mrank != rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Screate_simple: maxdims rank is invalid");
}
PIN_LONG_ARRAY(ENVONLY, dims, dimsP, &isCopy, "H5Screate_simple: dims not pinned");
if (NULL == (sa = lp = (hsize_t *)malloc((size_t)rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Screate_simple: failed to allocate dims buffer");
jlp = (jlong *)dimsP;
for (i = 0; i < rank; i++) {
*lp = (hsize_t)*jlp;
lp++;
jlp++;
} /* end for */
if (NULL == maxdims) {
maxdimsP = NULL;
msa = (hsize_t *)maxdimsP;
}
else {
PIN_LONG_ARRAY(ENVONLY, maxdims, maxdimsP, &isCopy, "H5Screate_simple: maxdims not pinned");
if (NULL == (msa = lp = (hsize_t *)malloc((size_t)rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Screate_simple: failed to allocate maxdims buffer");
jlp = (jlong *)maxdimsP;
for (i = 0; i < mrank; i++) {
*lp = (hsize_t)*jlp;
lp++;
jlp++;
} /* end for */
}
if ((retVal = H5Screate_simple(rank, (const hsize_t *)sa, (const hsize_t *)msa)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
if (msa)
free(msa);
if (maxdimsP)
UNPIN_LONG_ARRAY(ENVONLY, maxdims, maxdimsP, JNI_ABORT);
if (sa)
free(sa);
if (dimsP)
UNPIN_LONG_ARRAY(ENVONLY, dims, dimsP, JNI_ABORT);
return (jlong)retVal;
} /* end Java_hdf_hdf5lib_H5__1H5Screate_1simple */
/*
* Class: hdf_hdf5lib_H5
* Method: _H5Scopy
* Signature: (J)J
*/
JNIEXPORT jlong JNICALL
Java_hdf_hdf5lib_H5__1H5Scopy(JNIEnv *env, jclass clss, jlong space_id)
{
hid_t retVal = H5I_INVALID_HID;
UNUSED(clss);
if ((retVal = H5Scopy(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jlong)retVal;
} /* end Java_hdf_hdf5lib_H5__1H5Scopy */
#ifdef notdef
/* 10/28/99 -- added code to copy the array -- this is not used,
* but serves as a reminder in case we try to implement this in
* the future....
*/
/*
* Note: the argument coord is actually long coord[][], which has been
* flattened by the caller.
*/
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sselect_elements
* Signature: (JII[J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sselect_1elements(JNIEnv *env, jclass clss, jlong space_id, jint op, jint num_elemn,
jlongArray coords)
{
jboolean isCopy;
hssize_t *sa = NULL;
jlong *P = NULL;
jint i;
int rank;
herr_t status = FAIL;
UNUSED(clss);
if (NULL == coords)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Sselect_elements: coords is NULL");
PIN_LONG_ARRAY(ENVONLY, coords, P, &isCopy, "H5Sselect_elements: coords not pinned");
if (NULL == (sa = (hssize_t *)malloc((size_t)num_elemn * 2 * sizeof(hssize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sselect_elements: failed to allocate coordinate buffer");
for (i = 0; i < (num_elemn * 2); i++) {
sa[i] = P[i];
} /* end for */
if ((status = H5Sselect_elements(space_id, (H5S_seloper_t)op, num_elemn, (const hssize_t **)&sa)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
if (sa)
free(sa);
if (P)
UNPIN_LONG_ARRAY(ENVONLY, coords, P, JNI_ABORT);
return (jint)status;
} /* end Java_hdf_hdf5lib_H5_H5Sselect_1elements */
#endif
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sselect_elements
* Signature: (JII[B)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sselect_1elements(JNIEnv *env, jclass clss, jlong space_id, jint op, jint num_elemn,
jbyteArray coords)
{
jboolean isCopy;
hsize_t *coords_p = NULL;
uint8_t *pinned_arr_p = NULL;
jbyte *pinned_arr = NULL;
jsize size;
size_t nlongs;
herr_t status = FAIL;
UNUSED(clss);
if (NULL == coords)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Sselect_elements: coords is NULL");
PIN_BYTE_ARRAY(ENVONLY, coords, pinned_arr, &isCopy, "H5Sselect_elements: coords not pinned");
if ((size = ENVPTR->GetArrayLength(ENVONLY, coords)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_elements: coords array length < 0");
}
nlongs = (size_t)size / sizeof(jlong);
if (NULL == (coords_p = malloc(nlongs * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sselect_elements: failed to allocate coordinate buffer");
pinned_arr_p = (uint8_t *)pinned_arr;
for (size_t i = 0; i < nlongs; i++) {
jlong coord_elem;
memcpy(&coord_elem, pinned_arr_p, sizeof(jlong));
if (coord_elem < 0)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_elements: coordinate element can't be negative");
coords_p[i] = (hsize_t)coord_elem;
pinned_arr_p += sizeof(jlong);
}
if ((status = H5Sselect_elements(space_id, (H5S_seloper_t)op, (size_t)num_elemn, coords_p)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
free(coords_p);
if (pinned_arr)
UNPIN_BYTE_ARRAY(ENVONLY, coords, pinned_arr, JNI_ABORT);
return (jint)status;
} /* end Java_hdf_hdf5lib_H5_H5Sselect_1elements */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sselect_all
* Signature: (J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sselect_1all(JNIEnv *env, jclass clss, jlong space_id)
{
herr_t retVal = FAIL;
UNUSED(clss);
if ((retVal = H5Sselect_all(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jint)retVal;
} /* end Java_hdf_hdf5lib_H5_H5Sselect_1all */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sselect_none
* Signature: (J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sselect_1none(JNIEnv *env, jclass clss, jlong space_id)
{
herr_t retVal = FAIL;
UNUSED(clss);
if ((retVal = H5Sselect_none(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jint)retVal;
} /* end Java_hdf_hdf5lib_H5_H5Sselect_1none */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sselect_valid
* Signature: (J)Z
*/
JNIEXPORT jboolean JNICALL
Java_hdf_hdf5lib_H5_H5Sselect_1valid(JNIEnv *env, jclass clss, jlong space_id)
{
htri_t bval = JNI_FALSE;
UNUSED(clss);
if ((bval = H5Sselect_valid(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
bval = (bval > 0) ? JNI_TRUE : JNI_FALSE;
done:
return (jboolean)bval;
} /* end Java_hdf_hdf5lib_H5_H5Sselect_1valid */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sget_simple_extent_npoints
* Signature: (J)J
*/
JNIEXPORT jlong JNICALL
Java_hdf_hdf5lib_H5_H5Sget_1simple_1extent_1npoints(JNIEnv *env, jclass clss, jlong space_id)
{
hssize_t retVal = -1;
UNUSED(clss);
if ((retVal = H5Sget_simple_extent_npoints(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jlong)retVal;
} /* end Java_hdf_hdf5lib_H5_H5Sget_1simple_1extent_1npoints */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sget_select_npoints
* Signature: (J)J
*/
JNIEXPORT jlong JNICALL
Java_hdf_hdf5lib_H5_H5Sget_1select_1npoints(JNIEnv *env, jclass clss, jlong space_id)
{
hssize_t retVal = -1;
UNUSED(clss);
if ((retVal = H5Sget_select_npoints(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jlong)retVal;
} /* end Java_hdf_hdf5lib_H5_H5Sget_1select_1npoints */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sget_select_type
* Signature: (J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sget_1select_1type(JNIEnv *env, jclass clss, jlong space_id)
{
int retVal = -1;
UNUSED(clss);
if (H5S_SEL_ERROR == (retVal = H5Sget_select_type(space_id)))
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jint)retVal;
} /* end Java_hdf_hdf5lib_H5_H5Sget_1select_1type */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sget_simple_extent_ndims
* Signature: (J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sget_1simple_1extent_1ndims(JNIEnv *env, jclass clss, jlong space_id)
{
int retVal = -1;
UNUSED(clss);
if ((retVal = H5Sget_simple_extent_ndims(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jint)retVal;
} /* end Java_hdf_hdf5lib_H5_H5Sget_1simple_1extent_1ndims */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sget_simple_extent_dims
* Signature: (J[J[J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sget_1simple_1extent_1dims(JNIEnv *env, jclass clss, jlong space_id, jlongArray dims,
jlongArray maxdims)
{
jboolean isCopy;
hsize_t *sa = NULL;
hsize_t *msa = NULL;
jlong *dimsP = NULL, *maxdimsP = NULL;
int i;
int rank = -1;
int mrank;
int status = -1;
UNUSED(clss);
if (NULL == dims) {
dimsP = NULL;
sa = (hsize_t *)dimsP;
}
else {
PIN_LONG_ARRAY(ENVONLY, dims, dimsP, &isCopy, "H5Sget_simple_extent_dims: dims not pinned");
if ((rank = (int)ENVPTR->GetArrayLength(ENVONLY, dims)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_simple_extent_dims: dims array length < 0");
}
if (NULL == (sa = (hsize_t *)malloc((size_t)rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sget_simple_extent_dims: failed to allocate dimension buffer");
}
if (NULL == maxdims) {
maxdimsP = NULL;
msa = (hsize_t *)maxdimsP;
}
else {
PIN_LONG_ARRAY(ENVONLY, maxdims, maxdimsP, &isCopy, "H5Sget_simple_extent_dims: maxdims not pinned");
if ((mrank = (int)ENVPTR->GetArrayLength(ENVONLY, maxdims)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_simple_extent_dims: maxdims array length < 0");
}
if (rank < 0)
rank = mrank;
else if (mrank != rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_simple_extent_dims: maxdims rank not same as dims");
if (NULL == (msa = (hsize_t *)malloc((size_t)rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY,
"H5Sget_simple_extent_dims: failed to allocate maximum dimension buffer");
}
if ((status = H5Sget_simple_extent_dims(space_id, (hsize_t *)sa, (hsize_t *)msa)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
if (NULL != dimsP) {
for (i = 0; i < rank; i++) {
dimsP[i] = (jlong)sa[i];
} /* end for */
}
if (NULL != maxdimsP) {
for (i = 0; i < rank; i++) {
maxdimsP[i] = (jlong)msa[i];
} /* end for */
}
done:
if (msa)
free(msa);
if (maxdimsP)
UNPIN_LONG_ARRAY(ENVONLY, maxdims, maxdimsP, (status < 0) ? JNI_ABORT : 0);
if (sa)
free(sa);
if (dimsP)
UNPIN_LONG_ARRAY(ENVONLY, dims, dimsP, (status < 0) ? JNI_ABORT : 0);
return (jint)status;
} /* end Java_hdf_hdf5lib_H5_H5Sget_1simple_1extent_1dims */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sget_simple_extent_type
* Signature: (J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sget_1simple_1extent_1type(JNIEnv *env, jclass clss, jlong space_id)
{
H5S_class_t retVal = H5S_NO_CLASS;
UNUSED(clss);
if (space_id < 0)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_simple_extent_type: space_id < 0");
if (H5S_NO_CLASS == (retVal = H5Sget_simple_extent_type(space_id)))
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jint)retVal;
} /* end Java_hdf_hdf5lib_H5_H5Sget_1simple_1extent_1type */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sset_extent_simple
* Signature: (JI[J[J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sset_1extent_1simple(JNIEnv *env, jclass clss, jlong space_id, jint rank,
jlongArray dims, jlongArray maxdims)
{
jboolean isCopy;
hsize_t *sa = NULL;
hsize_t *msa = NULL;
hsize_t *lp = NULL;
jlong *dimsP = NULL, *maxdimsP = NULL;
jlong *jlp = NULL;
jsize drank, mrank;
int i;
herr_t status = FAIL;
UNUSED(clss);
if (NULL == dims)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Sset_extent_simple: dims is NULL");
if ((drank = ENVPTR->GetArrayLength(ENVONLY, dims)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sset_extent_simple: dims array length < 0");
}
if (drank != rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sset_extent_simple: dims rank is invalid");
if (NULL != maxdims) {
if ((mrank = ENVPTR->GetArrayLength(ENVONLY, maxdims)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sset_extent_simple: maxdims array length < 0");
}
if (mrank != rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sset_extent_simple: maxdims rank is invalid");
}
PIN_LONG_ARRAY(ENVONLY, dims, dimsP, &isCopy, "H5Sset_extent_simple: dims not pinned");
if (NULL == (sa = lp = (hsize_t *)malloc((size_t)rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sset_extent_simple: failed to allocate dimension buffer");
jlp = (jlong *)dimsP;
for (i = 0; i < rank; i++) {
*lp = (hsize_t)*jlp;
lp++;
jlp++;
} /* end for */
if (NULL == maxdims) {
maxdimsP = NULL;
msa = (hsize_t *)maxdimsP;
}
else {
PIN_LONG_ARRAY(ENVONLY, maxdims, maxdimsP, &isCopy, "H5Sset_extent_simple: maxdims not pinned");
if (NULL == (msa = lp = (hsize_t *)malloc((size_t)rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY,
"H5Sset_extent_simple: failed to allocate maximum dimension buffer");
jlp = (jlong *)maxdimsP;
for (i = 0; i < rank; i++) {
*lp = (hsize_t)*jlp;
lp++;
jlp++;
} /* end for */
}
if ((status = H5Sset_extent_simple(space_id, rank, (hsize_t *)sa, (hsize_t *)msa)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
if (msa)
free(msa);
if (maxdimsP)
UNPIN_LONG_ARRAY(ENVONLY, maxdims, maxdimsP, JNI_ABORT);
if (sa)
free(sa);
if (dimsP)
UNPIN_LONG_ARRAY(ENVONLY, dims, dimsP, JNI_ABORT);
return (jint)status;
} /* end Java_hdf_hdf5lib_H5_H5Sset_1extent_1simple */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sis_simple
* Signature: (J)Z
*/
JNIEXPORT jboolean JNICALL
Java_hdf_hdf5lib_H5_H5Sis_1simple(JNIEnv *env, jclass clss, jlong space_id)
{
htri_t bval = JNI_FALSE;
UNUSED(clss);
if ((bval = H5Sis_simple(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
bval = (bval > 0) ? JNI_TRUE : JNI_FALSE;
done:
return (jboolean)bval;
} /* end Java_hdf_hdf5lib_H5_H5Sis_1simple */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Soffset_simple
* Signature: (J[B)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Soffset_1simple(JNIEnv *env, jclass clss, jlong space_id, jbyteArray offset)
{
jboolean isCopy;
hssize_t *offset_dims = NULL;
uint8_t *pinned_arr_p = NULL;
jbyte *pinned_arr = NULL;
size_t rank;
herr_t status = FAIL;
UNUSED(clss);
if (NULL != offset) {
jsize size;
PIN_BYTE_ARRAY(ENVONLY, offset, pinned_arr, &isCopy, "H5Soffset_simple: offset not pinned");
if ((size = ENVPTR->GetArrayLength(ENVONLY, offset)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Soffset_simple: offset array length < 0");
}
rank = (size_t)size / sizeof(jlong);
if (NULL == (offset_dims = malloc((size_t)rank * sizeof(hssize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Soffset_simple: failed to allocate offset buffer");
pinned_arr_p = (uint8_t *)pinned_arr;
for (size_t i = 0; i < rank; i++) {
jlong offset_elem;
memcpy(&offset_elem, pinned_arr_p, sizeof(jlong));
offset_dims[i] = (hssize_t)offset_elem;
pinned_arr_p += sizeof(jlong);
}
}
if ((status = H5Soffset_simple(space_id, offset_dims)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
free(offset_dims);
if (pinned_arr)
UNPIN_BYTE_ARRAY(ENVONLY, offset, pinned_arr, JNI_ABORT);
return (jint)status;
} /* end Java_hdf_hdf5lib_H5_H5Soffset_1simple */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sextent_copy
* Signature: (JJ)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sextent_1copy(JNIEnv *env, jclass clss, jlong space_id, jlong src_id)
{
herr_t retVal = FAIL;
UNUSED(clss);
if ((retVal = H5Sextent_copy(space_id, src_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jint)retVal;
} /* end Java_hdf_hdf5lib_H5_H5Sextent_1copy */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sextent_equal
* Signature: (JJ)Z
*/
JNIEXPORT jboolean JNICALL
Java_hdf_hdf5lib_H5_H5Sextent_1equal(JNIEnv *env, jclass clss, jlong space_id, jlong src_id)
{
htri_t bval = JNI_FALSE;
UNUSED(clss);
if ((bval = H5Sextent_equal(space_id, src_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
bval = (bval > 0) ? JNI_TRUE : JNI_FALSE;
done:
return (jboolean)bval;
} /* end Java_hdf_hdf5lib_H5_H5Sextent_1equal */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sset_extent_none
* Signature: (J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sset_1extent_1none(JNIEnv *env, jclass clss, jlong space_id)
{
herr_t retVal = FAIL;
UNUSED(clss);
if ((retVal = H5Sset_extent_none(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jint)retVal;
} /* end Java_hdf_hdf5lib_H5_H5Sset_1extent_1none */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sselect_hyperslab
* Signature: (JI[J[J[J[J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sselect_1hyperslab(JNIEnv *env, jclass clss, jlong space_id, jint op, jlongArray start,
jlongArray stride, jlongArray count, jlongArray block)
{
jboolean isCopy;
hsize_t *strt = NULL, *strd = NULL, *cnt = NULL, *blk = NULL;
hsize_t *lp = NULL;
jlong *startP = NULL, *strideP = NULL, *countP = NULL, *blockP = NULL;
jlong *jlp = NULL;
jsize start_rank, stride_rank, count_rank, block_rank;
int i;
herr_t status = FAIL;
UNUSED(clss);
if (NULL == start)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Sselect_hyperslab: start is NULL");
if (NULL == count)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Sselect_hyperslab: count is NULL");
if ((start_rank = ENVPTR->GetArrayLength(ENVONLY, start)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_hyperslab: start array length < 0");
}
if ((count_rank = ENVPTR->GetArrayLength(ENVONLY, count)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_hyperslab: count array length < 0");
}
if (start_rank != count_rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_hyperslab: count and start have different rank!");
PIN_LONG_ARRAY(ENVONLY, start, startP, &isCopy, "H5Sselect_hyperslab: start not pinned");
if (NULL == (strt = lp = (hsize_t *)malloc((size_t)start_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sselect_hyperslab: failed to allocate start buffer");
jlp = (jlong *)startP;
for (i = 0; i < start_rank; i++) {
*lp = (hsize_t)*jlp;
lp++;
jlp++;
} /* end if */
PIN_LONG_ARRAY(ENVONLY, count, countP, &isCopy, "H5Sselect_hyperslab: count not pinned");
if (NULL == (cnt = lp = (hsize_t *)malloc((size_t)count_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sselect_hyperslab: failed to allocate count buffer");
jlp = (jlong *)countP;
for (i = 0; i < count_rank; i++) {
*lp = (hsize_t)*jlp;
lp++;
jlp++;
} /* end if */
if (NULL == stride) {
strideP = NULL;
strd = (hsize_t *)strideP;
}
else {
if ((stride_rank = ENVPTR->GetArrayLength(ENVONLY, stride)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_hyperslab: stride array length < 0");
}
if (stride_rank != start_rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_hyperslab: stride and start have different rank!");
PIN_LONG_ARRAY(ENVONLY, stride, strideP, &isCopy, "H5Sselect_hyperslab: stride not pinned");
if (NULL == (strd = lp = (hsize_t *)malloc((size_t)stride_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sselect_hyperslab: failed to allocate stride buffer");
jlp = (jlong *)strideP;
for (i = 0; i < stride_rank; i++) {
*lp = (hsize_t)*jlp;
lp++;
jlp++;
} /* end if */
}
if (NULL == block) {
blockP = NULL;
blk = (hsize_t *)blockP;
}
else {
if ((block_rank = ENVPTR->GetArrayLength(ENVONLY, block)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_hyperslab: block array length < 0");
}
if (block_rank != start_rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_hyperslab: block and start have different rank!");
PIN_LONG_ARRAY(ENVONLY, block, blockP, &isCopy, "H5Sselect_hyperslab: block not pinned");
if (NULL == (blk = lp = (hsize_t *)malloc((size_t)block_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sselect_hyperslab: failed to allocate block buffer");
jlp = (jlong *)blockP;
for (i = 0; i < block_rank; i++) {
*lp = (hsize_t)*jlp;
lp++;
jlp++;
} /* end for */
}
if ((status = H5Sselect_hyperslab(space_id, (H5S_seloper_t)op, (const hsize_t *)strt,
(const hsize_t *)strd, (const hsize_t *)cnt, (const hsize_t *)blk)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
if (blk)
free(blk);
if (blockP)
UNPIN_LONG_ARRAY(ENVONLY, block, blockP, JNI_ABORT);
if (strd)
free(strd);
if (strideP)
UNPIN_LONG_ARRAY(ENVONLY, stride, strideP, JNI_ABORT);
if (cnt)
free(cnt);
if (countP)
UNPIN_LONG_ARRAY(ENVONLY, count, countP, JNI_ABORT);
if (strt)
free(strt);
if (startP)
UNPIN_LONG_ARRAY(ENVONLY, start, startP, JNI_ABORT);
return (jint)status;
} /* end Java_hdf_hdf5lib_H5_H5Sselect_1hyperslab */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sclose
* Signature: (J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5__1H5Sclose(JNIEnv *env, jclass clss, jlong space_id)
{
herr_t retVal = FAIL;
UNUSED(clss);
if ((retVal = H5Sclose(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jint)retVal;
} /* end Java_hdf_hdf5lib_H5__1H5Sclose */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sget_select_hyper_nblocks
* Signature: (J)J
*/
JNIEXPORT jlong JNICALL
Java_hdf_hdf5lib_H5_H5Sget_1select_1hyper_1nblocks(JNIEnv *env, jclass clss, jlong spaceid)
{
hssize_t retVal = -1;
UNUSED(clss);
if ((retVal = H5Sget_select_hyper_nblocks((hid_t)spaceid)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jlong)retVal;
} /* end Java_hdf_hdf5lib_H5_H5Sget_1select_1hyper_1nblocks */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sget_select_elem_npoints
* Signature: (J)J
*/
JNIEXPORT jlong JNICALL
Java_hdf_hdf5lib_H5_H5Sget_1select_1elem_1npoints(JNIEnv *env, jclass clss, jlong spaceid)
{
hssize_t retVal = -1;
UNUSED(clss);
if ((retVal = H5Sget_select_elem_npoints((hid_t)spaceid)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jlong)retVal;
} /* end Java_hdf_hdf5lib_H5_H5Sget_1select_1elem_1npoints */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sget_select_hyper_blocklist
* Signature: (JJJ[J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sget_1select_1hyper_1blocklist(JNIEnv *env, jclass clss, jlong spaceid,
jlong startblock, jlong numblocks, jlongArray buf)
{
jboolean isCopy;
hsize_t *ba = NULL;
size_t i, buf_size;
jlong *bufP = NULL;
jsize buflen;
int rank;
herr_t status = FAIL;
UNUSED(clss);
if (NULL == buf)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Sget_select_hyper_blocklist: buf is NULL");
if (numblocks < 0)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_select_hyper_blocklist: numblocks < 0");
if ((rank = H5Sget_simple_extent_ndims(spaceid)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
if (rank == 0)
rank = 1;
if ((buflen = ENVPTR->GetArrayLength(ENVONLY, buf)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_select_hyper_blocklist: buf array length < 0");
}
if (buflen < (numblocks * rank))
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_select_hyper_blocklist: buffer input array too small");
PIN_LONG_ARRAY(ENVONLY, buf, bufP, &isCopy, "H5Sget_select_hyper_blocklist: buffer not pinned");
buf_size = (size_t)numblocks * (size_t)2 * (size_t)rank * sizeof(hsize_t);
if (NULL == (ba = (hsize_t *)malloc(buf_size)))
H5_OUT_OF_MEMORY_ERROR(ENVONLY,
"H5Sget_select_hyper_blocklist: failed to allocate block list buffer");
if ((status = H5Sget_select_hyper_blocklist((hid_t)spaceid, (hsize_t)startblock, (hsize_t)numblocks,
(hsize_t *)ba)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
for (i = 0; i < (buf_size / sizeof(hsize_t)); i++) {
bufP[i] = (jlong)ba[i];
} /* end for */
done:
if (ba)
free(ba);
if (bufP)
UNPIN_LONG_ARRAY(ENVONLY, buf, bufP, (status < 0) ? JNI_ABORT : 0);
return (jint)status;
} /* end Java_hdf_hdf5lib_H5_H5Sget_1select_1hyper_1blocklist */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sget_select_elem_pointlist
* Signature: (JJJ[J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sget_1select_1elem_1pointlist(JNIEnv *env, jclass clss, jlong spaceid, jlong startpoint,
jlong numpoints, jlongArray buf)
{
jboolean isCopy;
hsize_t *ba = NULL;
jlong *bufP = NULL;
jsize buflen;
int i, rank;
herr_t status = FAIL;
UNUSED(clss);
if (NULL == buf)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Sget_select_elem_pointlist: buffer is NULL");
if ((rank = H5Sget_simple_extent_ndims(spaceid)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
if (rank == 0)
rank = 1;
if ((buflen = ENVPTR->GetArrayLength(ENVONLY, buf)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_select_elem_pointlist: buf array length < 0");
}
if (buflen < (numpoints * rank))
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_select_elem_pointlist: buffer input array too small");
PIN_LONG_ARRAY(ENVONLY, buf, bufP, &isCopy, "H5Sget_select_elem_pointlist: buffer not pinned");
if (NULL == (ba = (hsize_t *)malloc(((size_t)numpoints * (size_t)rank) * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sget_select_elem_pointlist: failed to allocate point list buffer");
if ((status = H5Sget_select_elem_pointlist((hid_t)spaceid, (hsize_t)startpoint, (hsize_t)numpoints,
(hsize_t *)ba)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
for (i = 0; i < (numpoints * rank); i++) {
bufP[i] = (jlong)ba[i];
} /* end for */
done:
if (ba)
free(ba);
if (bufP)
UNPIN_LONG_ARRAY(ENVONLY, buf, bufP, (status < 0) ? JNI_ABORT : 0);
return (jint)status;
} /* end if */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sget_select_bounds
* Signature: (J[J[J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Sget_1select_1bounds(JNIEnv *env, jclass clss, jlong spaceid, jlongArray start,
jlongArray end)
{
jboolean isCopy;
hsize_t *strt = NULL;
hsize_t *en = NULL;
size_t i;
jlong *startP = NULL, *endP = NULL;
jsize rank;
herr_t status = FAIL;
UNUSED(clss);
if (NULL == start)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Sget_select_bounds: start is NULL");
if (NULL == end)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Sget_select_bounds: end is NULL");
PIN_LONG_ARRAY(ENVONLY, start, startP, &isCopy, "H5Sget_select_bounds: start not pinned");
if ((rank = ENVPTR->GetArrayLength(ENVONLY, start)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_select_bounds: start array length < 0");
}
if (NULL == (strt = (hsize_t *)malloc((size_t)rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sget_select_bounds: failed to allocate start buffer");
PIN_LONG_ARRAY(ENVONLY, end, endP, &isCopy, "H5Sget_select_bounds: end not pinned");
if (NULL == (en = (hsize_t *)malloc((size_t)rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sget_select_bounds: failed to allocate end buffer");
if ((status = H5Sget_select_bounds((hid_t)spaceid, (hsize_t *)strt, (hsize_t *)en)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
for (i = 0; i < (size_t)rank; i++) {
startP[i] = (jlong)strt[i];
endP[i] = (jlong)en[i];
} /* end for */
done:
if (en)
free(en);
if (endP)
UNPIN_LONG_ARRAY(ENVONLY, end, endP, (status < 0) ? JNI_ABORT : 0);
if (strt)
free(strt);
if (startP)
UNPIN_LONG_ARRAY(ENVONLY, start, startP, (status < 0) ? JNI_ABORT : 0);
return (jint)status;
} /* end Java_hdf_hdf5lib_H5_H5Sget_1select_1bounds */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sencode
* Signature: (J)[B
*/
JNIEXPORT jbyteArray JNICALL
Java_hdf_hdf5lib_H5_H5Sencode(JNIEnv *env, jclass clss, jlong obj_id)
{
unsigned char *bufPtr = NULL;
size_t buf_size = 0;
herr_t status = FAIL;
jbyteArray returnedArray = NULL;
UNUSED(clss);
if (obj_id < 0)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sencode: invalid object ID");
if ((status = H5Sencode2(obj_id, NULL, &buf_size, H5P_DEFAULT)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
if (buf_size == 0)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sencode: buf_size = 0");
if (NULL == (bufPtr = (unsigned char *)calloc((size_t)1, buf_size)))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sencode: failed to allocate encoding buffer");
if ((status = H5Sencode2((hid_t)obj_id, bufPtr, &buf_size, H5P_DEFAULT)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
if (NULL == (returnedArray = ENVPTR->NewByteArray(ENVONLY, (jsize)buf_size)))
CHECK_JNI_EXCEPTION(ENVONLY, JNI_FALSE);
ENVPTR->SetByteArrayRegion(ENVONLY, returnedArray, 0, (jsize)buf_size, (jbyte *)bufPtr);
CHECK_JNI_EXCEPTION(ENVONLY, JNI_FALSE);
done:
if (bufPtr)
free(bufPtr);
return returnedArray;
} /* end Java_hdf_hdf5lib_H5_H5Sencode */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sdecode
* Signature: ([B)J
*/
JNIEXPORT jlong JNICALL
Java_hdf_hdf5lib_H5_H5Sdecode(JNIEnv *env, jclass clss, jbyteArray buf)
{
jboolean isCopy;
jbyte *bufP = NULL;
hid_t sid = H5I_INVALID_HID;
UNUSED(clss);
if (NULL == buf)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Sdecode: buffer is NULL");
PIN_BYTE_ARRAY(ENVONLY, buf, bufP, &isCopy, "H5Sdecode: buffer not pinned");
if ((sid = H5Sdecode(bufP)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
if (bufP)
UNPIN_BYTE_ARRAY(ENVONLY, buf, bufP, JNI_ABORT);
return (jlong)sid;
} /* end Java_hdf_hdf5lib_H5_H5Sdecode */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sis_regular_hyperslab
* Signature: (J)Z
*/
JNIEXPORT jboolean JNICALL
Java_hdf_hdf5lib_H5_H5Sis_1regular_1hyperslab(JNIEnv *env, jclass clss, jlong obj_id)
{
htri_t bval = JNI_FALSE;
UNUSED(clss);
if ((bval = H5Sis_regular_hyperslab((hid_t)obj_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
bval = (bval > 0) ? JNI_TRUE : JNI_FALSE;
done:
return (jboolean)bval;
} /* end Java_hdf_hdf5lib_H5_H5Sis_1regular_1hyperslab */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sget_regular_hyperslab
* Signature: (J[J[J[J[J)V
*/
JNIEXPORT void JNICALL
Java_hdf_hdf5lib_H5_H5Sget_1regular_1hyperslab(JNIEnv *env, jclass clss, jlong space_id, jlongArray start,
jlongArray stride, jlongArray count, jlongArray block)
{
jboolean isCopy;
hsize_t *strt = NULL, *strd = NULL, *cnt = NULL, *blk = NULL;
jlong *startP = NULL, *strideP = NULL, *countP = NULL, *blockP = NULL;
jsize start_rank = -1, stride_rank = -1, count_rank = -1, block_rank = -1;
int i, rank = -1;
herr_t status = FAIL;
UNUSED(clss);
if (space_id < 0)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_regular_hyperslab: invalid dataspace ID");
if ((rank = H5Sget_simple_extent_ndims(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
if (NULL == start) {
startP = NULL;
strt = (hsize_t *)startP;
}
else {
if ((start_rank = ENVPTR->GetArrayLength(ENVONLY, start)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_regular_hyperslab: start array length < 0");
}
if (start_rank != rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY,
"H5Sget_regular_hyperslab: start rank doesn't match dataspace rank!");
PIN_LONG_ARRAY(ENVONLY, start, startP, &isCopy, "H5Sget_regular_hyperslab: start not pinned");
if (NULL == (strt = (hsize_t *)malloc((size_t)start_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sget_regular_hyperslab: failed to allocate start buffer");
}
if (NULL == stride) {
strideP = NULL;
strd = (hsize_t *)strideP;
}
else {
if ((stride_rank = ENVPTR->GetArrayLength(ENVONLY, stride)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_regular_hyperslab: stride array length < 0");
}
if (stride_rank != rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY,
"H5Sget_regular_hyperslab: stride rank doesn't match dataspace rank!");
PIN_LONG_ARRAY(ENVONLY, stride, strideP, &isCopy, "H5Sget_regular_hyperslab: stride not pinned");
if (NULL == (strd = (hsize_t *)malloc((size_t)stride_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sget_regular_hyperslab: failed to allocate stride buffer");
}
if (NULL == count) {
countP = NULL;
cnt = (hsize_t *)countP;
}
else {
if ((count_rank = ENVPTR->GetArrayLength(ENVONLY, count)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_regular_hyperslab: count array length < 0");
}
if (count_rank != rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY,
"H5Sget_regular_hyperslab: count rank doesn't match dataspace rank!");
PIN_LONG_ARRAY(ENVONLY, count, countP, &isCopy, "H5Sget_regular_hyperslab: count not pinned");
if (NULL == (cnt = (hsize_t *)malloc((size_t)count_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sget_regular_hyperslab: failed to allocate count buffer");
}
if (NULL == block) {
blockP = NULL;
blk = (hsize_t *)blockP;
}
else {
if ((block_rank = ENVPTR->GetArrayLength(ENVONLY, block)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sget_regular_hyperslab: block array length < 0");
}
if (block_rank != rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY,
"H5Sget_regular_hyperslab: block rank doesn't match dataspace rank!");
PIN_LONG_ARRAY(ENVONLY, block, blockP, &isCopy, "H5Sget_regular_hyperslab: block not pinned");
if (NULL == (blk = (hsize_t *)malloc((size_t)block_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sget_regular_hyperslab: failed to allocate block buffer");
}
if ((status = H5Sget_regular_hyperslab(space_id, (hsize_t *)strt, (hsize_t *)strd, (hsize_t *)cnt,
(hsize_t *)blk)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
for (i = 0; i < start_rank; i++) {
startP[i] = (jlong)strt[i];
countP[i] = (jlong)cnt[i];
strideP[i] = (jlong)strd[i];
blockP[i] = (jlong)blk[i];
} /* end for */
done:
if (blk)
free(blk);
if (blockP)
UNPIN_LONG_ARRAY(ENVONLY, block, blockP, (status < 0) ? JNI_ABORT : 0);
if (cnt)
free(cnt);
if (countP)
UNPIN_LONG_ARRAY(ENVONLY, count, countP, (status < 0) ? JNI_ABORT : 0);
if (strd)
free(strd);
if (strideP)
UNPIN_LONG_ARRAY(ENVONLY, stride, strideP, (status < 0) ? JNI_ABORT : 0);
if (strt)
free(strt);
if (startP)
UNPIN_LONG_ARRAY(ENVONLY, start, startP, (status < 0) ? JNI_ABORT : 0);
return;
} /* end Java_hdf_hdf5lib_H5_H5Sget_1regular_1hyperslab */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sselect_copy
* Signature: (JJ)V
*/
JNIEXPORT void JNICALL
Java_hdf_hdf5lib_H5_H5Sselect_1copy(JNIEnv *env, jclass clss, jlong dst_id, jlong src_id)
{
herr_t status = FAIL;
UNUSED(clss);
if ((status = H5Sselect_copy((hid_t)dst_id, (hid_t)src_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return;
} /* end Java_hdf_hdf5lib_H5_H5Sselect_1copy */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sselect_shape_same
* Signature: (JJ)Z
*/
JNIEXPORT jboolean JNICALL
Java_hdf_hdf5lib_H5_H5Sselect_1shape_1same(JNIEnv *env, jclass clss, jlong space1_id, jlong space2_id)
{
htri_t bval = JNI_FALSE;
UNUSED(clss);
if ((bval = H5Sselect_shape_same((hid_t)space1_id, (hid_t)space2_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
bval = (bval > 0) ? JNI_TRUE : JNI_FALSE;
done:
return (jboolean)bval;
} /* end Java_hdf_hdf5lib_H5_H5Sselect_1shape_1same */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sselect_adjust
* Signature: (J[J)V
*/
JNIEXPORT void JNICALL
Java_hdf_hdf5lib_H5_H5Sselect_1adjust(JNIEnv *env, jclass clss, jlong space_id, jlongArray offset)
{
jboolean isCopy;
hssize_t *offst = NULL;
jlong *offsetP = NULL;
jsize offset_rank = -1;
int i, rank = -1;
herr_t status = FAIL;
UNUSED(clss);
if (space_id < 0)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_adjust: invalid dataspace ID");
if ((rank = H5Sget_simple_extent_ndims(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
if (NULL == offset) {
offsetP = NULL;
offst = (hssize_t *)offsetP;
}
else {
if ((offset_rank = ENVPTR->GetArrayLength(ENVONLY, offset)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_adjust: offset length < 0");
}
if (offset_rank != rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_adjust: offset rank doesn't match dataspace rank!");
PIN_LONG_ARRAY(ENVONLY, offset, offsetP, &isCopy, "H5Sselect_adjust: offset not pinned");
if (NULL == (offst = (hssize_t *)malloc((size_t)offset_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sselect_adjust: failed to allocate offset buffer");
}
if ((status = H5Sselect_adjust(space_id, (hssize_t *)offst)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
for (i = 0; i < offset_rank; i++) {
offsetP[i] = (jlong)offst[i];
} /* end for */
done:
if (offst)
free(offst);
if (offsetP)
UNPIN_LONG_ARRAY(ENVONLY, offset, offsetP, (status < 0) ? JNI_ABORT : 0);
return;
} /* end Java_hdf_hdf5lib_H5_H5Sselect_1adjust */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sselect_intersect_block
* Signature: (J[J[J)Z
*/
JNIEXPORT jboolean JNICALL
Java_hdf_hdf5lib_H5_H5Sselect_1intersect_1block(JNIEnv *env, jclass clss, jlong space_id, jlongArray start,
jlongArray end)
{
htri_t bval = JNI_FALSE;
jboolean isCopy;
hsize_t *strt = NULL, *nd = NULL;
jlong *startP = NULL, *endP = NULL;
jsize start_rank = -1, end_rank = -1;
int i, rank = -1;
UNUSED(clss);
if (space_id < 0)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_intersect_block: invalid dataspace ID");
if ((rank = H5Sget_simple_extent_ndims(space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
if (NULL == start) {
startP = NULL;
strt = (hsize_t *)startP;
}
else {
if ((start_rank = ENVPTR->GetArrayLength(ENVONLY, start)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_intersect_block: start length < 0");
}
if (start_rank != rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY,
"H5Sselect_intersect_block: start rank doesn't match dataspace rank!");
PIN_LONG_ARRAY(ENVONLY, start, startP, &isCopy, "H5Sselect_intersect_block: start not pinned");
if (NULL == (strt = (hsize_t *)malloc((size_t)start_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sselect_intersect_block: failed to allocate start buffer");
}
if (NULL == end) {
endP = NULL;
nd = (hsize_t *)endP;
}
else {
if ((end_rank = ENVPTR->GetArrayLength(ENVONLY, end)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Sselect_intersect_block: end array length < 0");
}
if (end_rank != rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY,
"H5Sselect_intersect_block: end rank doesn't match dataspace rank!");
PIN_LONG_ARRAY(ENVONLY, end, endP, &isCopy, "H5Sselect_intersect_block: end not pinned");
if (NULL == (nd = (hsize_t *)malloc((size_t)end_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Sselect_intersect_block: failed to allocate end buffer");
}
if ((bval = H5Sselect_intersect_block(space_id, (hsize_t *)strt, (hsize_t *)nd)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
bval = (bval > 0) ? JNI_TRUE : JNI_FALSE;
for (i = 0; i < start_rank; i++) {
startP[i] = (jlong)strt[i];
endP[i] = (jlong)nd[i];
} /* end for */
done:
if (strt)
free(strt);
if (startP)
UNPIN_LONG_ARRAY(ENVONLY, start, startP, (bval < 0) ? JNI_ABORT : 0);
if (nd)
free(nd);
if (endP)
UNPIN_LONG_ARRAY(ENVONLY, end, endP, (bval < 0) ? JNI_ABORT : 0);
return (jboolean)bval;
} /* end Java_hdf_hdf5lib_H5_H5Sselect_1intersect_1block */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Sselect_project_intersection
* Signature: (JJJ)J
*/
JNIEXPORT jlong JNICALL
Java_hdf_hdf5lib_H5_H5Sselect_1project_1intersection(JNIEnv *env, jclass clss, jlong src_space_id,
jlong dst_space_id, jlong src_intersect_space_id)
{
hid_t sid = H5I_INVALID_HID;
UNUSED(clss);
if ((sid = H5Sselect_project_intersection(src_space_id, dst_space_id, src_intersect_space_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jlong)sid;
} /* end Java_hdf_hdf5lib_H5_H5Sselect_1project_1intersection */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Scombine_hyperslab
* Signature: (JI[J[J[J[J)J
*/
JNIEXPORT jlong JNICALL
Java_hdf_hdf5lib_H5_H5Scombine_1hyperslab(JNIEnv *env, jclass clss, jlong space_id, jint op, jlongArray start,
jlongArray stride, jlongArray count, jlongArray block)
{
jboolean isCopy;
hsize_t *strt = NULL, *strd = NULL, *cnt = NULL, *blk = NULL;
hsize_t *lp = NULL;
jlong *startP = NULL, *strideP = NULL, *countP = NULL, *blockP = NULL;
jlong *jlp = NULL;
jsize start_rank, stride_rank, count_rank, block_rank;
int i;
hid_t sid = H5I_INVALID_HID;
UNUSED(clss);
if (NULL == start)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Scombine_hyperslab: start is NULL");
if (NULL == count)
H5_NULL_ARGUMENT_ERROR(ENVONLY, "H5Scombine_hyperslab: count is NULL");
if ((start_rank = ENVPTR->GetArrayLength(ENVONLY, start)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Scombine_hyperslab: start array length < 0");
}
if ((count_rank = ENVPTR->GetArrayLength(ENVONLY, count)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Scombine_hyperslab: count array length < 0");
}
if (start_rank != count_rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Scombine_hyperslab: count and start have different rank!");
PIN_LONG_ARRAY(ENVONLY, start, startP, &isCopy, "H5Scombine_hyperslab: start not pinned");
if (NULL == (strt = lp = (hsize_t *)malloc((size_t)start_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Scombine_hyperslab: failed to allocate start buffer");
jlp = (jlong *)startP;
for (i = 0; i < start_rank; i++) {
*lp = (hsize_t)*jlp;
lp++;
jlp++;
} /* end if */
PIN_LONG_ARRAY(ENVONLY, count, countP, &isCopy, "H5Scombine_hyperslab: count not pinned");
if (NULL == (cnt = lp = (hsize_t *)malloc((size_t)count_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Scombine_hyperslab: failed to allocate count buffer");
jlp = (jlong *)countP;
for (i = 0; i < count_rank; i++) {
*lp = (hsize_t)*jlp;
lp++;
jlp++;
} /* end if */
if (NULL == stride) {
strideP = NULL;
strd = (hsize_t *)strideP;
}
else {
if ((stride_rank = ENVPTR->GetArrayLength(ENVONLY, stride)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Scombine_hyperslab: stride array length < 0");
}
if (stride_rank != start_rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Scombine_hyperslab: stride and start have different rank!");
PIN_LONG_ARRAY(ENVONLY, stride, strideP, &isCopy, "H5Scombine_hyperslab: stride not pinned");
if (NULL == (strd = lp = (hsize_t *)malloc((size_t)stride_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Scombine_hyperslab: failed to allocate stride buffer");
jlp = (jlong *)strideP;
for (i = 0; i < stride_rank; i++) {
*lp = (hsize_t)*jlp;
lp++;
jlp++;
} /* end if */
}
if (NULL == block) {
blockP = NULL;
blk = (hsize_t *)blockP;
}
else {
if ((block_rank = ENVPTR->GetArrayLength(ENVONLY, block)) < 0) {
CHECK_JNI_EXCEPTION(ENVONLY, JNI_TRUE);
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Scombine_hyperslab: block array length < 0");
}
if (block_rank != start_rank)
H5_BAD_ARGUMENT_ERROR(ENVONLY, "H5Scombine_hyperslab: block and start have different rank!");
PIN_LONG_ARRAY(ENVONLY, block, blockP, &isCopy, "H5Scombine_hyperslab: block not pinned");
if (NULL == (blk = lp = (hsize_t *)malloc((size_t)block_rank * sizeof(hsize_t))))
H5_OUT_OF_MEMORY_ERROR(ENVONLY, "H5Scombine_hyperslab: failed to allocate block buffer");
jlp = (jlong *)blockP;
for (i = 0; i < block_rank; i++) {
*lp = (hsize_t)*jlp;
lp++;
jlp++;
} /* end for */
}
if ((sid = H5Scombine_hyperslab(space_id, (H5S_seloper_t)op, (const hsize_t *)strt, (const hsize_t *)strd,
(const hsize_t *)cnt, (const hsize_t *)blk)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
if (blk)
free(blk);
if (blockP)
UNPIN_LONG_ARRAY(ENVONLY, block, blockP, JNI_ABORT);
if (strd)
free(strd);
if (strideP)
UNPIN_LONG_ARRAY(ENVONLY, stride, strideP, JNI_ABORT);
if (cnt)
free(cnt);
if (countP)
UNPIN_LONG_ARRAY(ENVONLY, count, countP, JNI_ABORT);
if (strt)
free(strt);
if (startP)
UNPIN_LONG_ARRAY(ENVONLY, start, startP, JNI_ABORT);
return (jlong)sid;
} /* end Java_hdf_hdf5lib_H5_H5Sselect_1hyperslab */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Smodify_select
* Signature: (JIJ)V
*/
JNIEXPORT void JNICALL
Java_hdf_hdf5lib_H5_H5Smodify_1select(JNIEnv *env, jclass clss, jlong space1_id, jint op, jlong space2_id)
{
herr_t status = FAIL;
UNUSED(clss);
if ((status = H5Smodify_select((hid_t)space1_id, (H5S_seloper_t)op, (hid_t)space2_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return;
} /* end Java_hdf_hdf5lib_H5_H5Smodify_1select */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Scombine_select
* Signature: (JIJ)J
*/
JNIEXPORT jlong JNICALL
Java_hdf_hdf5lib_H5_H5Scombine_1select(JNIEnv *env, jclass clss, jlong space1_id, jint op, jlong space2_id)
{
hid_t sid = H5I_INVALID_HID;
UNUSED(clss);
if ((sid = H5Scombine_select((hid_t)space1_id, (H5S_seloper_t)op, (hid_t)space2_id)) < 0)
H5_LIBRARY_ERROR(ENVONLY);
done:
return (jlong)sid;
} /* end Java_hdf_hdf5lib_H5_H5Scombine_1select */
#ifdef __cplusplus
} /* end extern "C" */
#endif /* __cplusplus */
Reference in New Issue View Git Blame Copy Permalink