488 lines
13 KiB
C
488 lines
13 KiB
C
|
/****************************************************************************
|
||
|
|
* NCSA HDF *
|
||
|
|
* National Comptational Science Alliance *
|
||
|
|
* University of Illinois at Urbana-Champaign *
|
||
|
|
* 605 E. Springfield, Champaign IL 61820 *
|
||
|
|
* *
|
||
|
|
* For conditions of distribution and use, see the accompanying *
|
||
|
|
* hdf-java/COPYING file. *
|
||
|
|
* *
|
||
|
|
****************************************************************************/
|
||
|
|
|
||
|
|
/*
|
||
|
|
* This code is the C-interface called by Java programs to access the
|
||
|
|
* file interface functions of the HDF5 library.
|
||
|
|
*
|
||
|
|
* Each routine wraps a single HDF entry point, generally with the
|
||
|
|
* analogous arguments and return codes.
|
||
|
|
*
|
||
|
|
* For details of the HDF libraries, see the HDF Documentation at:
|
||
|
|
* http://hdf.ncsa.uiuc.edu/HDF5/doc/
|
||
|
|
*
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifdef __cplusplus
|
||
|
|
extern "C" {
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#include "hdf5.h"
|
||
|
|
#include <stdio.h>
|
||
|
|
#include <stdlib.h>
|
||
|
|
#include "jni.h"
|
||
|
|
|
||
|
|
#ifdef __cplusplus
|
||
|
|
#define ENVPTR (env)
|
||
|
|
#define ENVPAR
|
||
|
|
#else
|
||
|
|
#define ENVPTR (*env)
|
||
|
|
#define ENVPAR env,
|
||
|
|
#endif
|
||
|
|
|
||
|
|
extern jboolean h5outOfMemory( JNIEnv *env, char *functName);
|
||
|
|
extern jboolean h5JNIFatalError( JNIEnv *env, char *functName);
|
||
|
|
extern jboolean h5nullArgument( JNIEnv *env, char *functName);
|
||
|
|
extern jboolean h5libraryError( JNIEnv *env );
|
||
|
|
extern jboolean h5badArgument( JNIEnv *env, char *functName);
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Method: H5Fopen
|
||
|
|
* Signature: (Ljava/lang/String;II)I
|
||
|
|
*/
|
||
|
|
JNIEXPORT jint JNICALL Java_ncsa_hdf_hdf5lib_H5__1H5Fopen
|
||
|
|
(JNIEnv *env, jclass clss, jstring name, jint flags, jint access_id)
|
||
|
|
{
|
||
|
|
hid_t status;
|
||
|
|
char* file;
|
||
|
|
jboolean isCopy;
|
||
|
|
|
||
|
|
if (name == NULL) {
|
||
|
|
/* exception -- bad argument? */
|
||
|
|
h5nullArgument( env, "H5Fopen: name is NULL");
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
file = (char *)ENVPTR->GetStringUTFChars(ENVPAR name,&isCopy);
|
||
|
|
if (file == NULL) {
|
||
|
|
/* exception -- out of memory? */
|
||
|
|
h5JNIFatalError( env, "H5Fopen: file name not pinned");
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
status = H5Fopen(file, (unsigned) flags, (hid_t) access_id );
|
||
|
|
|
||
|
|
ENVPTR->ReleaseStringUTFChars(ENVPAR name,file);
|
||
|
|
if (status < 0) {
|
||
|
|
/* throw exception */
|
||
|
|
h5libraryError(env);
|
||
|
|
}
|
||
|
|
return (jint)status;
|
||
|
|
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Method: H5Fcreate
|
||
|
|
* Signature: (Ljava/lang/String;III)I
|
||
|
|
*/
|
||
|
|
JNIEXPORT jint JNICALL Java_ncsa_hdf_hdf5lib_H5__1H5Fcreate
|
||
|
|
(JNIEnv *env, jclass clss, jstring name, jint flags, jint create_id, jint access_id)
|
||
|
|
{
|
||
|
|
hid_t status;
|
||
|
|
char* file;
|
||
|
|
jboolean isCopy;
|
||
|
|
|
||
|
|
if (name == NULL) {
|
||
|
|
/* exception -- bad argument? */
|
||
|
|
h5nullArgument( env, "H5Fcreate: name is NULL");
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
file = (char *)ENVPTR->GetStringUTFChars(ENVPAR name,&isCopy);
|
||
|
|
if (file == NULL) {
|
||
|
|
/* exception -- out of memory? */
|
||
|
|
h5JNIFatalError( env, "H5Fcreate: file name is not pinned");
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
status = H5Fcreate(file, flags, create_id, access_id);
|
||
|
|
|
||
|
|
ENVPTR->ReleaseStringUTFChars(ENVPAR name,file);
|
||
|
|
if (status < 0) {
|
||
|
|
/* throw exception */
|
||
|
|
h5libraryError(env);
|
||
|
|
}
|
||
|
|
return (jint)status;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Method: H5Fflush
|
||
|
|
* Signature: (II)I
|
||
|
|
*/
|
||
|
|
JNIEXPORT jint JNICALL Java_ncsa_hdf_hdf5lib_H5_H5Fflush
|
||
|
|
(JNIEnv *env, jclass clss, jint object_id, jint scope)
|
||
|
|
{
|
||
|
|
herr_t retVal = -1;
|
||
|
|
retVal = H5Fflush((hid_t) object_id, (H5F_scope_t) scope );
|
||
|
|
if (retVal < 0) {
|
||
|
|
/* throw exception */
|
||
|
|
h5libraryError(env);
|
||
|
|
}
|
||
|
|
return (jint)retVal;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Method: H5Fis_hdf5
|
||
|
|
* Signature: (Ljava/lang/String;)B
|
||
|
|
*/
|
||
|
|
JNIEXPORT jboolean JNICALL Java_ncsa_hdf_hdf5lib_H5_H5Fis_1hdf5
|
||
|
|
(JNIEnv *env, jclass clss, jstring name)
|
||
|
|
{
|
||
|
|
htri_t retVal = 0;
|
||
|
|
char * file;
|
||
|
|
jboolean isCopy;
|
||
|
|
|
||
|
|
if (name == NULL) {
|
||
|
|
/* exception -- bad argument? */
|
||
|
|
h5nullArgument( env, "H5Fis_hdf5: name is NULL");
|
||
|
|
return JNI_FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
file = (char *)ENVPTR->GetStringUTFChars(ENVPAR name,&isCopy);
|
||
|
|
if (file == NULL) {
|
||
|
|
/* exception -- out of memory? */
|
||
|
|
h5JNIFatalError( env, "H5Fis_hdf5: file name is not pinned");
|
||
|
|
return JNI_FALSE;
|
||
|
|
}
|
||
|
|
|
||
|
|
retVal = H5Fis_hdf5(file);
|
||
|
|
|
||
|
|
ENVPTR->ReleaseStringUTFChars(ENVPAR name,file);
|
||
|
|
|
||
|
|
if (retVal > 0) {
|
||
|
|
return JNI_TRUE;
|
||
|
|
} else if (retVal == 0) {
|
||
|
|
return JNI_FALSE;
|
||
|
|
} else {
|
||
|
|
/* raise exception here -- return value is irrelevant */
|
||
|
|
h5libraryError(env);
|
||
|
|
return JNI_FALSE;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Method: H5Fget_create_plist
|
||
|
|
* Signature: (I)I
|
||
|
|
*/
|
||
|
|
JNIEXPORT jint JNICALL Java_ncsa_hdf_hdf5lib_H5__1H5Fget_1create_1plist
|
||
|
|
(JNIEnv *env, jclass clss, jint file_id)
|
||
|
|
{
|
||
|
|
hid_t retVal = -1;
|
||
|
|
retVal = H5Fget_create_plist((hid_t) file_id );
|
||
|
|
if (retVal < 0) {
|
||
|
|
/* throw exception */
|
||
|
|
h5libraryError(env);
|
||
|
|
}
|
||
|
|
return (jint)retVal;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Method: H5Fget_access_plist
|
||
|
|
* Signature: (I)I
|
||
|
|
*/
|
||
|
|
JNIEXPORT jint JNICALL Java_ncsa_hdf_hdf5lib_H5__1H5Fget_1access_1plist
|
||
|
|
(JNIEnv *env, jclass clss, jint file_id)
|
||
|
|
{
|
||
|
|
hid_t retVal = -1;
|
||
|
|
retVal = H5Fget_access_plist((hid_t) file_id);
|
||
|
|
if (retVal < 0) {
|
||
|
|
/* throw exception */
|
||
|
|
h5libraryError(env);
|
||
|
|
}
|
||
|
|
return (jint)retVal;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Method: H5Fclose
|
||
|
|
* Signature: (I)I
|
||
|
|
*/
|
||
|
|
JNIEXPORT jint JNICALL Java_ncsa_hdf_hdf5lib_H5__1H5Fclose
|
||
|
|
(JNIEnv *env, jclass clss, jint file_id)
|
||
|
|
{
|
||
|
|
herr_t status = 0;
|
||
|
|
|
||
|
|
if (file_id > 0)
|
||
|
|
status = H5Fclose((hid_t) file_id );
|
||
|
|
|
||
|
|
if (status < 0) {
|
||
|
|
h5libraryError(env);
|
||
|
|
}
|
||
|
|
|
||
|
|
return (jint)status;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Method: H5Fmount
|
||
|
|
* Signature: (ILjava/lang/String;II)I
|
||
|
|
*/
|
||
|
|
JNIEXPORT jint JNICALL Java_ncsa_hdf_hdf5lib_H5_H5Fmount
|
||
|
|
(JNIEnv *env, jclass clss, jint loc_id, jstring name, jint child_id, jint plist_id)
|
||
|
|
{
|
||
|
|
herr_t status;
|
||
|
|
char* file;
|
||
|
|
jboolean isCopy;
|
||
|
|
|
||
|
|
if (name == NULL) {
|
||
|
|
/* exception -- bad argument? */
|
||
|
|
h5nullArgument( env, "H5Fmount: name is NULL");
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
file = (char *)ENVPTR->GetStringUTFChars(ENVPAR name,&isCopy);
|
||
|
|
if (file == NULL) {
|
||
|
|
/* exception -- out of memory? */
|
||
|
|
h5JNIFatalError( env, "H5Fmount: file name is not pinned");
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
status = H5Fmount((hid_t) loc_id, file, (hid_t) child_id, (hid_t) plist_id );
|
||
|
|
ENVPTR->ReleaseStringUTFChars(ENVPAR name,file);
|
||
|
|
if (status < 0) {
|
||
|
|
/* throw exception */
|
||
|
|
h5libraryError(env);
|
||
|
|
}
|
||
|
|
return (jint)status;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Method: H5Funmount
|
||
|
|
* Signature: (ILjava/lang/String;)I
|
||
|
|
*/
|
||
|
|
JNIEXPORT jint JNICALL Java_ncsa_hdf_hdf5lib_H5_H5Funmount
|
||
|
|
(JNIEnv *env, jclass clss, jint loc_id, jstring name)
|
||
|
|
{
|
||
|
|
herr_t status;
|
||
|
|
char* file;
|
||
|
|
jboolean isCopy;
|
||
|
|
|
||
|
|
if (name == NULL) {
|
||
|
|
/* exception -- bad argument? */
|
||
|
|
h5nullArgument( env, "H5Funmount: name is NULL");
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
file = (char *)ENVPTR->GetStringUTFChars(ENVPAR name,&isCopy);
|
||
|
|
if (file == NULL) {
|
||
|
|
h5JNIFatalError( env, "H5Funmount: file name is not pinned");
|
||
|
|
/* exception -- out of memory? */
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
status = H5Funmount((hid_t) loc_id, file );
|
||
|
|
|
||
|
|
ENVPTR->ReleaseStringUTFChars(ENVPAR name,file);
|
||
|
|
if (status < 0) {
|
||
|
|
/* throw exception */
|
||
|
|
h5libraryError(env);
|
||
|
|
}
|
||
|
|
return (jint)status;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Method: H5Freopen
|
||
|
|
* Signature: (I)I
|
||
|
|
*/
|
||
|
|
JNIEXPORT jint JNICALL Java_ncsa_hdf_hdf5lib_H5__1H5Freopen
|
||
|
|
(JNIEnv *env, jclass clss, jint file_id)
|
||
|
|
{
|
||
|
|
hid_t retVal = -1;
|
||
|
|
retVal = H5Freopen((hid_t)file_id);
|
||
|
|
if (retVal < 0) {
|
||
|
|
/* throw exception */
|
||
|
|
h5libraryError(env);
|
||
|
|
}
|
||
|
|
return (jint)retVal;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Method: H5Fget_obj_ids(hid_t file_id, unsigned int types, int maxObjs, hid_t *obj_id_list )
|
||
|
|
* Signature: (I[J[J)I
|
||
|
|
*/
|
||
|
|
JNIEXPORT jint JNICALL Java_ncsa_hdf_hdf5lib_H5_H5Fget_1obj_1ids
|
||
|
|
(JNIEnv *env, jclass clss, jint file_id, jint types, jint obj_count, jintArray obj_id_list)
|
||
|
|
{
|
||
|
|
herr_t status=-1;
|
||
|
|
jint *obj_id_listP;
|
||
|
|
jboolean isCopy;
|
||
|
|
|
||
|
|
if ( obj_id_list == NULL ) {
|
||
|
|
h5nullArgument( env, "H5Fget_obj_ids: obj_id_list is NULL");
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
obj_id_listP = ENVPTR->GetIntArrayElements(ENVPAR obj_id_list,&isCopy);
|
||
|
|
if (obj_id_listP == NULL) {
|
||
|
|
h5JNIFatalError( env, "H5Fget_obj_ids: obj_id_list not pinned");
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
status = H5Fget_obj_ids((hid_t)file_id, (unsigned int)types, (int)obj_count, (hid_t*)obj_id_listP);
|
||
|
|
|
||
|
|
if (status < 0) {
|
||
|
|
ENVPTR->ReleaseIntArrayElements(ENVPAR obj_id_list,obj_id_listP,JNI_ABORT);
|
||
|
|
h5libraryError(env);
|
||
|
|
} else {
|
||
|
|
ENVPTR->ReleaseIntArrayElements(ENVPAR obj_id_list,obj_id_listP,0);
|
||
|
|
}
|
||
|
|
|
||
|
|
return (jint)status;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* bug on 64-bit machines
|
||
|
|
JNIEXPORT jint JNICALL Java_ncsa_hdf_hdf5lib_H5_H5Fget_1obj_1ids
|
||
|
|
(JNIEnv *env, jclass clss, jint file_id, jint types, jint maxObjs, jintArray obj_id_list)
|
||
|
|
{
|
||
|
|
herr_t status;
|
||
|
|
jint *obj_id_listP;
|
||
|
|
jboolean isCopy;
|
||
|
|
hid_t *id_list;
|
||
|
|
int rank;
|
||
|
|
int i;
|
||
|
|
|
||
|
|
status = -1;
|
||
|
|
|
||
|
|
if ( obj_id_list == NULL ) {
|
||
|
|
h5nullArgument( env, "H5Fget_obj_ids: obj_id_list is NULL");
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
obj_id_listP = ENVPTR->GetIntArrayElements(ENVPAR obj_id_list,&isCopy);
|
||
|
|
if (obj_id_listP == NULL) {
|
||
|
|
h5JNIFatalError( env, "H5Fget_obj_ids: obj_id_list not pinned");
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
rank = (int)ENVPTR->GetArrayLength(ENVPAR obj_id_list);
|
||
|
|
|
||
|
|
id_list = (hid_t *)malloc( rank * sizeof(hid_t));
|
||
|
|
|
||
|
|
if (id_list == NULL) {
|
||
|
|
ENVPTR->ReleaseIntArrayElements(ENVPAR obj_id_list,obj_id_listP,JNI_ABORT);
|
||
|
|
h5JNIFatalError(env, "H5Fget_obj_ids: obj_id_list not converted to hid_t");
|
||
|
|
return -1;
|
||
|
|
}
|
||
|
|
|
||
|
|
status = H5Fget_obj_ids((hid_t)file_id, (unsigned int)types, (int)maxObjs, id_list);
|
||
|
|
|
||
|
|
if (status < 0) {
|
||
|
|
ENVPTR->ReleaseIntArrayElements(ENVPAR obj_id_list,obj_id_listP,JNI_ABORT);
|
||
|
|
free(id_list);
|
||
|
|
h5libraryError(env);
|
||
|
|
} else {
|
||
|
|
for (i = 0; i < rank; i++) {
|
||
|
|
obj_id_listP[i] = id_list[i];
|
||
|
|
}
|
||
|
|
free(id_list);
|
||
|
|
ENVPTR->ReleaseIntArrayElements(ENVPAR obj_id_list,obj_id_listP,0);
|
||
|
|
}
|
||
|
|
|
||
|
|
return (jint)status;
|
||
|
|
}
|
||
|
|
*/
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Method: H5Fget_obj_count(hid_t file_id, unsigned int types )
|
||
|
|
* Signature: (I[J[J)I
|
||
|
|
*/
|
||
|
|
JNIEXPORT jint JNICALL Java_ncsa_hdf_hdf5lib_H5_H5Fget_1obj_1count
|
||
|
|
(JNIEnv *env, jclass clss, jint file_id, jint types )
|
||
|
|
{
|
||
|
|
ssize_t status;
|
||
|
|
|
||
|
|
status = -1;
|
||
|
|
|
||
|
|
status = H5Fget_obj_count((hid_t)file_id, (unsigned int)types );
|
||
|
|
|
||
|
|
if (status < 0) {
|
||
|
|
h5libraryError(env);
|
||
|
|
}
|
||
|
|
|
||
|
|
return (jint)status;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
/**********************************************************************
|
||
|
|
* *
|
||
|
|
* New functions release 1.6.3 versus release 1.6.2 *
|
||
|
|
* *
|
||
|
|
**********************************************************************/
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Signature: ssize_t H5Fget_name (hid_t obj_id, char *name, size_t size)
|
||
|
|
* Purpose:
|
||
|
|
*/
|
||
|
|
JNIEXPORT jstring JNICALL Java_ncsa_hdf_hdf5lib_H5_H5Fget_1name
|
||
|
|
(JNIEnv *env, jclass clss, jint obj_id, jstring name, jint buf_size)
|
||
|
|
{
|
||
|
|
char *aName;
|
||
|
|
jstring str;
|
||
|
|
ssize_t size;
|
||
|
|
|
||
|
|
if (buf_size <= 0) {
|
||
|
|
h5badArgument( env, "H5Fget_name: buf_size <= 0");
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
aName = (char*)malloc(sizeof(char)*buf_size);
|
||
|
|
if (aName == NULL) {
|
||
|
|
h5outOfMemory( env, "H5Fget_name: malloc failed");
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
size = H5Fget_name ((hid_t) obj_id, (char *)aName, (size_t)buf_size);
|
||
|
|
if (size < 0) {
|
||
|
|
free(aName);
|
||
|
|
h5libraryError(env);
|
||
|
|
return NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
str = ENVPTR->NewStringUTF(ENVPAR aName);
|
||
|
|
free(aName);
|
||
|
|
|
||
|
|
return str;
|
||
|
|
}
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Class: ncsa_hdf_hdf5lib_H5
|
||
|
|
* Signature: herr_t H5Fget_filesize (hid_t file_id, hsize_t * size)
|
||
|
|
* Purpose:
|
||
|
|
*/
|
||
|
|
JNIEXPORT jlong JNICALL Java_ncsa_hdf_hdf5lib_H5_H5Fget_1filesize
|
||
|
|
(JNIEnv *env, jclass clss, jint file_id)
|
||
|
|
{
|
||
|
|
herr_t status;
|
||
|
|
hsize_t size = 0;
|
||
|
|
|
||
|
|
status = H5Fget_filesize ((hid_t) file_id, (hsize_t *) &size);
|
||
|
|
|
||
|
|
if (status < 0) {
|
||
|
|
h5libraryError(env);
|
||
|
|
}
|
||
|
|
|
||
|
|
return (jlong) size;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
#ifdef __cplusplus
|
||
|
|
}
|
||
|
|
#endif
|