/*
* Class: hdf_hdf5lib_H5
* Method: H5Lget_info_by_idx
* Signature: (JLjava/lang/String;IIJJ)Lhdf/hdf5lib/structs/H5L_info_t;
*/
JNIEXPORT jobject JNICALL
Java_hdf_hdf5lib_H5_H5Lget_1info_1by_1idx
(JNIEnv *env, jclass clss, jlong loc_id, jstring name,
jint index_field, jint order, jlong link_n, jlong access_id)
{
jobject ret_obj = NULL;
jvalue args[5];
herr_t status;
H5L_info_t infobuf;
const char *lName;
PIN_JAVA_STRING(name, lName);
if (lName != NULL) {
status = H5Lget_info_by_idx((hid_t)loc_id, lName, (H5_index_t)index_field, (H5_iter_order_t)order, (hsize_t)link_n, &infobuf, (hid_t)access_id);
UNPIN_JAVA_STRING(name, lName);
if (status < 0) {
h5libraryError(env);
} /* end if */
else {
args[0].i = infobuf.type;
args[1].z = infobuf.corder_valid;
args[2].j = infobuf.corder;
args[3].i = infobuf.cset;
if(infobuf.type==0)
args[4].j = (jlong)infobuf.u.address;
else
args[4].j = (jlong)infobuf.u.val_size;
CALL_CONSTRUCTOR("hdf/hdf5lib/structs/H5L_info_t", "(IZJIJ)V", args);
} /* end els */
}
return ret_obj;
} /* end Java_hdf_hdf5lib_H5_H5Lget_1info_1by_1idx */
/****************************************************************
**
** test_links(): Test soft and hard link iteration
**
****************************************************************/
static void test_links(hid_t fapl)
{
hid_t file; /* File ID */
char obj_name[NAMELEN]; /* Names of the object in group */
ssize_t name_len; /* Length of object's name */
hid_t gid, gid1;
H5G_info_t ginfo; /* Buffer for querying object's info */
hsize_t i;
herr_t ret; /* Generic return value */
/* Output message about test being performed */
MESSAGE(5, ("Testing Soft and Hard Link Iteration Functionality\n"));
/* Create the test file with the datasets */
file = H5Fcreate(DATAFILE, H5F_ACC_TRUNC, H5P_DEFAULT, fapl);
CHECK(file, FAIL, "H5Fcreate");
/* create groups */
gid = H5Gcreate2(file, "/g1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
CHECK(gid, FAIL, "H5Gcreate2");
gid1 = H5Gcreate2(file, "/g1/g1.1", H5P_DEFAULT, H5P_DEFAULT, H5P_DEFAULT);
CHECK(gid1, FAIL, "H5Gcreate2");
/* create soft and hard links to the group "/g1". */
ret = H5Lcreate_soft("something", gid, "softlink", H5P_DEFAULT, H5P_DEFAULT);
CHECK(ret, FAIL, "H5Lcreate_soft");
ret = H5Lcreate_hard(gid, "/g1", H5L_SAME_LOC, "hardlink", H5P_DEFAULT, H5P_DEFAULT);
CHECK(ret, FAIL, "H5Lcreate_hard");
ret = H5Gget_info(gid, &ginfo);
CHECK(ret, FAIL, "H5Gget_info");
VERIFY(ginfo.nlinks, 3, "H5Gget_info");
/* Test these two functions, H5Oget_info_by_idx and H5Lget_name_by_idx */
for(i = 0; i < ginfo.nlinks; i++) {
H5O_info_t oinfo; /* Object info */
H5L_info_t linfo; /* Link info */
/* Get link name */
name_len = H5Lget_name_by_idx(gid, ".", H5_INDEX_NAME, H5_ITER_INC, i, obj_name, (size_t)NAMELEN, H5P_DEFAULT);
CHECK(name_len, FAIL, "H5Lget_name_by_idx");
/* Get link type */
ret = H5Lget_info_by_idx(gid, ".", H5_INDEX_NAME, H5_ITER_INC, (hsize_t)i, &linfo, H5P_DEFAULT);
CHECK(ret, FAIL, "H5Lget_info_by_idx");
/* Get object type */
if(linfo.type == H5L_TYPE_HARD) {
ret = H5Oget_info_by_idx(gid, ".", H5_INDEX_NAME, H5_ITER_INC, (hsize_t)i, &oinfo, H5P_DEFAULT);
CHECK(ret, FAIL, "H5Oget_info_by_idx");
} /* end if */
if(!HDstrcmp(obj_name, "g1.1"))
VERIFY(oinfo.type, H5O_TYPE_GROUP, "H5Lget_name_by_idx");
else if(!HDstrcmp(obj_name, "hardlink"))
VERIFY(oinfo.type, H5O_TYPE_GROUP, "H5Lget_name_by_idx");
else if(!HDstrcmp(obj_name, "softlink"))
VERIFY(linfo.type, H5L_TYPE_SOFT, "H5Lget_name_by_idx");
else
CHECK(0, 0, "unknown object name");
} /* end for */
ret = H5Gclose(gid);
CHECK(ret, FAIL, "H5Gclose");
ret = H5Gclose(gid1);
CHECK(ret, FAIL, "H5Gclose");
ret = H5Fclose(file);
CHECK(ret, FAIL, "H5Fclose");
} /* test_links() */
/*
* Class: hdf_hdf5lib_H5
* Method: H5Lget_value_by_idx
* Signature: (JLjava/lang/String;IIJ[Ljava/lang/String;J)I
*/
JNIEXPORT jint JNICALL
Java_hdf_hdf5lib_H5_H5Lget_1value_1by_1idx
(JNIEnv *env, jclass clss, jlong loc_id, jstring name, jint index_field, jint order,
jlong link_n, jobjectArray link_value, jlong access_id)
{
herr_t status;
size_t buf_size;
H5L_info_t infobuf;
const char *lName;
void *lValue;
const char *file_name;
const char *obj_name;
jstring str;
infobuf.type = -1;
PIN_JAVA_STRING(name, lName);
if (lName != NULL) {
/* get the length of the link valuee */
status = H5Lget_info_by_idx((hid_t)loc_id, lName, (H5_index_t)index_field, (H5_iter_order_t)order, (hsize_t)link_n, &infobuf, (hid_t)access_id);
if(status < 0) {
h5libraryError(env);
} /* end if */
else {
buf_size = infobuf.u.val_size;
if(buf_size == 0) {
h5libraryError(env);
} /* end if */
else {
lValue = (void*)HDmalloc(buf_size);
if (lValue == NULL) {
h5outOfMemory(env, "H5Lget_val_by_idx: malloc failed ");
} /* end if */
else {
status = H5Lget_val_by_idx((hid_t)loc_id, lName, (H5_index_t)index_field, (H5_iter_order_t)order, (hsize_t)link_n, (void*)lValue, (size_t)buf_size, (hid_t)access_id);
if (status < 0) {
h5libraryError(env);
} /* end if */
else if(infobuf.type == H5L_TYPE_EXTERNAL) {
status = H5Lunpack_elink_val((char*)lValue, (size_t)infobuf.u.val_size, (unsigned*)NULL, (const char**)&file_name, (const char**)&obj_name);
if (status < 0) {
h5libraryError(env);
} /* end if */
else {
str = ENVPTR->NewStringUTF(ENVPAR obj_name);
if (str == NULL) {
h5JNIFatalError(env, "H5Lget_val_by_idx: return string not created");
} /* end if */
else {
ENVPTR->SetObjectArrayElement(ENVPAR link_value, 0, str);
str = ENVPTR->NewStringUTF(ENVPAR file_name);
if (str == NULL) {
h5JNIFatalError(env, "H5Lget_val_by_idx: return string not created");
} /* end if */
else {
ENVPTR->SetObjectArrayElement(ENVPAR link_value, 1, str);
} /* end else */
} /* end else */
} /* end else */
} /* end else if */
else {
str = ENVPTR->NewStringUTF(ENVPAR (char *)lValue);
if (str == NULL) {
h5JNIFatalError(env, "H5Lget_val_by_idx: return string not created");
} /* end if */
else {
ENVPTR->SetObjectArrayElement(ENVPAR link_value, 0, str);
} /* end else */
} /* end else */
HDfree(lValue);
} /* end else */
} /* end else */
} /* end else */
UNPIN_JAVA_STRING(name, lName);
}
return infobuf.type;
} /* end Java_hdf_hdf5lib_H5_H5Lget_1val_1by_1idx */
