/****h* H5Gf/H5Gf
* PURPOSE
* This file contains C stubs for H5G Fortran APIs
*
* COPYRIGHT
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* Copyright by The HDF Group. *
* Copyright by the Board of Trustees of the University of Illinois. *
* 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 files COPYING and Copyright.html. COPYING can be found at the root *
* of the source code distribution tree; Copyright.html can be found at the *
* root level of an installed copy of the electronic HDF5 document set and *
* is linked from the top-level documents page. It can also be found at *
* http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have *
* access to either file, you may request a copy from help@hdfgroup.org. *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*
******
*/
#include "H5f90.h"
#include "H5Eprivate.h"
/****if* H5Gf/h5gcreate_c
* NAME
* h5gcreate_c
* PURPOSE
* Call H5Gcreate to create a group
* INPUTS
* loc_id - file or group identifier
* name - name of the group
* namelen - name length
* size_hint - length of names in the group
* OUTPUTS
* grp_id - group identifier
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* Wednesday, August 5, 1999
* HISTORY
*
* Changed to call H5Gcreate2 because H5Gcreate flip-flops and
* H5Gcreate1 can be compiled out of the library
* QAK - 2007/08/23
* SOURCE
*/
int_f
h5gcreate_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size_hint,
hid_t_f *grp_id, hid_t_f *lcpl_id, hid_t_f *gcpl_id, hid_t_f *gapl_id )
/******/
{
hid_t c_gcpl_id = -1; /* Group creation property list */
char *c_name = NULL;
hid_t c_grp_id;
int_f ret_value = -1;
/*
* Convert FORTRAN name to C name
*/
if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/*
* Call H5Gcreate function.
*/
if(*size_hint == (size_t_f)OBJECT_NAMELEN_DEFAULT_F ){
c_grp_id = H5Gcreate2((hid_t)*loc_id, c_name,(hid_t)*lcpl_id,(hid_t)*gcpl_id,(hid_t)*gapl_id);}
else {
/* Create the group creation property list */
if((c_gcpl_id = H5Pcreate(H5P_GROUP_CREATE)) < 0)
goto DONE;
/* Set the local heap size hint */
if(H5Pset_local_heap_size_hint(c_gcpl_id, (size_t)*size_hint) < 0)
goto DONE;
/* Create the group */
c_grp_id = H5Gcreate2((hid_t)*loc_id, c_name, H5P_DEFAULT, c_gcpl_id, H5P_DEFAULT);
}
if(c_grp_id < 0)
goto DONE;
/* Everything OK, set values to return */
*grp_id = (hid_t_f)c_grp_id;
ret_value = 0;
DONE:
if(c_gcpl_id > 0)
H5Pclose(c_gcpl_id);
if(c_name)
HDfree(c_name);
return ret_value;
}
/****if* H5Gf/h5gopen_c
* NAME
* h5gopen_c
* PURPOSE
* Call H5Gopen to open a dataset
* INPUTS
* loc_id - file or group identifier
* name - name of the group
* namelen - name length
* gapl_id - Group access property list identifier
* OUTPUTS
* grp_id - group identifier
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* Wednesday, August 5, 1999
*
* SOURCE
*/
int_f
h5gopen_c(hid_t_f *loc_id, _fcd name, int_f *namelen, hid_t_f *gapl_id, hid_t_f *grp_id)
/******/
{
char *c_name = NULL;
hid_t c_grp_id;
int ret_value = -1;
/*
* Convert FORTRAN name to C name
*/
if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/*
* Call H5Gopen function.
*/
if((c_grp_id = H5Gopen2((hid_t)*loc_id, c_name, (hid_t)*gapl_id)) < 0)
goto DONE;
/* Everything OK, set values to return */
*grp_id = (hid_t_f)c_grp_id;
ret_value = 0;
DONE:
if(c_name)
HDfree(c_name);
return ret_value;
}
/****if* H5Gf/h5gget_obj_info_idx_c
* NAME
* h5gget_obj_info_idx_c
* PURPOSE
* Call H5Gget_obj_info to return name and the type of group
* member
* INPUTS
* loc_id - file or group identifier
* name - name of the group
* namelen - name length
* idx - index of the group member
* OUTPUTS
* obj_name - buffer to store member's name
* obj_namelen - length of the buffer
* obj_type - type of the object
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* Wednesday, August 5, 1999
* SOURCE
*/
int_f
h5gget_obj_info_idx_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *idx,
_fcd obj_name, int_f *obj_namelen, int_f *obj_type)
/******/
{
H5O_info_t oinfo;
hid_t c_loc_id = (hid_t)*loc_id;
char *c_name = NULL;
size_t c_obj_namelen;
char *c_obj_name = NULL;
hsize_t c_idx = (hsize_t)*idx;
hid_t gid = (-1); /* Temporary group ID */
int ret_value = -1;
/*
* Convert FORTRAN name to C name
*/
if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/*
* Allocate buffer to hold name of the object
*/
c_obj_namelen = (size_t)*obj_namelen;
if(c_obj_namelen)
if(NULL == (c_obj_name = (char *)HDmalloc(c_obj_namelen + 1)))
goto DONE;
/* Get a temporary group ID for the group to query */
if((gid = H5Gopen2(c_loc_id, c_name, H5P_DEFAULT)) < 0)
goto DONE;
/* Query the object's information */
if(H5Lget_name_by_idx(gid, ".", H5_INDEX_NAME, H5_ITER_INC, c_idx, c_obj_name, c_obj_namelen, H5P_DEFAULT) < 0)
goto DONE;
if(H5Oget_info_by_idx(gid, ".", H5_INDEX_NAME, H5_ITER_INC, c_idx, &oinfo, H5P_DEFAULT) < 0)
goto DONE;
/* XXX: Switch from using H5Gget_objtype_by_idx() means that this routine won't
* work on non-hard links - QAK
*/
*obj_type = oinfo.type;
/*
* Convert C name to FORTRAN and place it in the given buffer
*/
HD5packFstring(c_obj_name, _fcdtocp(obj_name), c_obj_namelen);
ret_value = 0;
DONE:
/* Close the temporary group, if it was opened */
if(gid > 0)
H5Gclose(gid);
if(c_obj_name)
HDfree(c_obj_name);
if(c_name)
HDfree(c_name);
return ret_value;
}
/****if* H5Gf/h5gn_members_c
* NAME
* h5gn_members_c
* PURPOSE
* Call H5Gget_info_by_name to find number of objects in the group
* INPUTS
* loc_id - file or group identifier
* name - name of the group
* namelen - name length
* OUTPUTS
* nmemebers - number of members
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* Wednesday, August 5, 1999
* SOURCE
*/
int_f
h5gn_members_c(hid_t_f *loc_id, _fcd name, int_f *namelen, int_f *nmembers)
/******/
{
char *c_name = NULL;
H5G_info_t ginfo;
int ret_value = -1;
/*
* Convert FORTRAN name to C name
*/
if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/* Call H5Gget_info_by_name() for the number of objects in the group */
if(H5Gget_info_by_name((hid_t)*loc_id, c_name, &ginfo, H5P_DEFAULT) < 0)
goto DONE;
*nmembers = (int_f)ginfo.nlinks;
ret_value = 0;
DONE:
if(c_name)
HDfree(c_name);
return ret_value;
}
/****if* H5Gf/h5gclose_c
* NAME
* h5gclose_c
* PURPOSE
* Call H5Gclose to close the group
* INPUTS
* grp_id - identifier of the group to be closed
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* Wednesday, August 5, 1999
* SOURCE
*/
int_f
h5gclose_c(hid_t_f *grp_id)
/******/
{
int ret_value = 0;
if(H5Gclose((hid_t)*grp_id) < 0)
ret_value = -1;
return ret_value;
}
/****if* H5Gf/h5glink_c
* NAME
* h5glink_c
* PURPOSE
* Call H5Glink to link the specified type
* INPUTS
* loc_id - identifier of file or group
* link_type - link type
* current_name - name of the existing object for hard link,
* anything for the soft link
* current_namelen - current name lenghth
* new_name - new name for the object
* new_namelen - new_name lenghth
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Mingshi Chen
* Friday, August 6, 1999
* SOURCE
*/
int_f
h5glink_c(hid_t_f *loc_id, int_f *link_type, _fcd current_name,
int_f *current_namelen, _fcd new_name, int_f *new_namelen)
/******/
{
char *c_current_name = NULL, *c_new_name = NULL;
int ret_value = -1;
/*
* Convert Fortran name to C name
*/
if(NULL == (c_current_name = (char *)HD5f2cstring(current_name, (size_t)*current_namelen)))
goto DONE;
if(NULL == (c_new_name = (char *)HD5f2cstring(new_name, (size_t)*new_namelen)))
goto DONE;
/*
* Call appropriate link creation function
*/
switch((H5L_type_t)*link_type) {
case H5L_TYPE_HARD:
if(H5Lcreate_hard((hid_t)*loc_id, c_current_name, H5L_SAME_LOC, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
goto DONE;
break;
case H5L_TYPE_SOFT:
if(H5Lcreate_soft(c_current_name, (hid_t)*loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
goto DONE;
break;
/* Cases below were added to remove the warnings in gcc 4.9.2 and probably other */
case H5L_TYPE_EXTERNAL:
ret_value = -1;
goto DONE;
break;
case H5L_TYPE_MAX:
ret_value = -1;
goto DONE;
break;
case H5L_TYPE_ERROR:
ret_value = -1;
goto DONE;
break;
/* End of the warnings fix */
default: /* Unknown/unhandled link type */
goto DONE;
} /* end switch */
ret_value = 0;
DONE:
if(c_current_name)
HDfree(c_current_name);
if(c_new_name)
HDfree(c_new_name);
return ret_value ;
}
/****if* H5Gf/h5glink2_c
* NAME
* h5glink2_c
* PURPOSE
* Call H5Glink2 to link the specified type
* INPUTS
* cur_loc_id - identifier of file or group
* cur_name - name of the existing object for hard link releative
* to cur_loc_id location,
* anything for the soft link
* current_namelen - current name lenghth
* link_type - link type
* new_loc_id - location identifier
* new_name - new name for the object releative to the new_loc_id
* location
* new_namelen - new_name lenghth
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* Wednesday, September 25, 2002
* HISTORY
*
* SOURCE
*/
int_f
h5glink2_c(hid_t_f *cur_loc_id, _fcd cur_name, int_f *cur_namelen,
int_f *link_type, hid_t_f *new_loc_id, _fcd new_name, int_f *new_namelen)
/******/
{
char *c_cur_name = NULL, *c_new_name = NULL;
int ret_value = -1;
/*
* Convert Fortran name to C name
*/
if(NULL == (c_cur_name = (char *)HD5f2cstring(cur_name, (size_t)*cur_namelen)))
goto DONE;
if(NULL == (c_new_name = (char *)HD5f2cstring(new_name, (size_t)*new_namelen)))
goto DONE;
/*
* Call appropriate link creation function
*/
switch((H5L_type_t)*link_type) {
case H5L_TYPE_HARD:
if(H5Lcreate_hard((hid_t)*cur_loc_id, c_cur_name, (hid_t)*new_loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
goto DONE;
break;
case H5L_TYPE_SOFT:
if(H5Lcreate_soft(c_cur_name, (hid_t)*new_loc_id, c_new_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
goto DONE;
break;
/* Cases below were added to remove the warnings in gcc 4.9.2 and probably other */
case H5L_TYPE_EXTERNAL:
ret_value = -1;
goto DONE;
break;
case H5L_TYPE_MAX:
ret_value = -1;
goto DONE;
break;
case H5L_TYPE_ERROR:
ret_value = -1;
goto DONE;
break;
/* End of the warnings fix */
default: /* Unknown/unhandled link type */
goto DONE;
} /* end switch */
ret_value = 0;
DONE:
if(c_cur_name)
HDfree(c_cur_name);
if(c_new_name)
HDfree(c_new_name);
return ret_value ;
}
/****if* H5Gf/h5gunlink_c
* NAME
* h5gunlink_c
* PURPOSE
* Call H5Gunlink to remove the specified name
* INPUTS
* loc_id - identifier of file or group
* name - name of the object to unlink
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Mingshi Chen
* Friday, August 6, 1999
* SOURCE
*/
int_f
h5gunlink_c(hid_t_f *loc_id, _fcd name, int_f *namelen)
/******/
{
char *c_name = NULL;
int ret_value = -1;
/*
* Convert Fortran name to C name
*/
if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/*
* Call H5Gunlink function
*/
if(H5Ldelete((hid_t)*loc_id, c_name, H5P_DEFAULT) < 0)
goto DONE;
ret_value = 0;
DONE:
if(c_name)
HDfree(c_name);
return ret_value;
}
/****if* H5Gf/h5gmove_c
* NAME
* h5gmove_c
* PURPOSE
* Call H5Gmove to rename an object within an HDF5 file
* INPUTS
* loc_id - identifier of file or group
* src_name - name of the original object
* src_namelen - original name lenghth
* dst_name - new name for the object
* dst_namelen - new name lenghth
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Mingshi Chen
* Friday, August 6, 1999
* SOURCE
*/
int_f
h5gmove_c(hid_t_f *loc_id, _fcd src_name, int_f *src_namelen, _fcd dst_name, int_f*dst_namelen)
/******/
{
char *c_src_name = NULL, *c_dst_name = NULL;
int ret_value = -1;
/*
* Convert Fortran name to C name
*/
if(NULL == (c_src_name = (char *)HD5f2cstring(src_name, (size_t)*src_namelen)))
goto DONE;
if(NULL == (c_dst_name = (char *)HD5f2cstring(dst_name, (size_t)*dst_namelen)))
goto DONE;
/*
* Call H5Gmove function
*/
if(H5Lmove((hid_t)*loc_id, c_src_name, H5L_SAME_LOC, c_dst_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
goto DONE;
ret_value = 0;
DONE:
if(c_src_name)
HDfree(c_src_name);
if(c_dst_name)
HDfree(c_dst_name);
return ret_value;
}
/****if* H5Gf/h5gmove2_c
* NAME
* h5gmove2_c
* PURPOSE
* Call H5Gmove2 to rename an object within an HDF5 file
* INPUTS
* src_loc_id - identifier of file or group
* src_name - name of the original object relative to src_loc_id
* src_namelen - original name lenghth
* dst_loc_id - new location identifier
* dst_name - new name for the object relative to dst_loc_id
* dst_namelen - new name lenghth
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Elena Pourmal
* Wednesday, September 25, 2002
*
* SOURCE
*/
int_f
h5gmove2_c(hid_t_f *src_loc_id, _fcd src_name, int_f *src_namelen, hid_t_f *dst_loc_id, _fcd dst_name, int_f*dst_namelen)
/******/
{
char *c_src_name = NULL, *c_dst_name = NULL;
int ret_value = -1;
/*
* Convert Fortran name to C name
*/
if(NULL == (c_src_name = (char *)HD5f2cstring(src_name, (size_t)*src_namelen)))
goto DONE;
if(NULL == (c_dst_name = (char *)HD5f2cstring(dst_name, (size_t)*dst_namelen)))
goto DONE;
/*
* Call H5Gmove2 function
*/
if(H5Lmove((hid_t)*src_loc_id, c_src_name, (hid_t)*dst_loc_id, c_dst_name, H5P_DEFAULT, H5P_DEFAULT) < 0)
goto DONE;
ret_value = 0;
DONE:
if(c_src_name)
HDfree(c_src_name);
if(c_dst_name)
HDfree(c_dst_name);
return ret_value;
}
/****if* H5Gf/h5gget_linkval_c
* NAME
* h5gget_linkval_c
* PURPOSE
* Call H5Gget_linkval to return the name of object
* INPUTS
* loc_id - identifier of file or group
* name - name of the object that symbolic link points to
* namelen - the name lenghth
* size - lenghth of retrurned value
* OUTPUTS
* value - name to be returned
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Mingshi Chen
* Friday, August 6, 1999
* SOURCE
*/
int_f
h5gget_linkval_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *size,
_fcd value)
/******/
{
char *c_name = NULL;
char *c_value = NULL;
int ret_value = -1;
/*
* Convert Fortran name to C name
*/
if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/*
* Allocate buffer to hold name of the value
*/
if(*size) c_value = (char *)HDmalloc((size_t)*size);
if(c_value == NULL) {
HDfree(c_name);
return ret_value;
}
/*
* Call H5Lget_val function
*/
if(H5Lget_val((hid_t)*loc_id, c_name, c_value, (size_t)*size, H5P_DEFAULT) < 0)
goto DONE;
/*
* Convert C name to FORTRAN and place it in the given buffer
*/
HD5packFstring(c_value, _fcdtocp(value), (size_t)*size);
ret_value = 0;
DONE:
if(c_value)
HDfree(c_value);
if(c_name)
HDfree(c_name);
return ret_value;
}
/****if* H5Gf/h5gset_comment_c
* NAME
* h5gset_comment_c
* PURPOSE
* Call H5Oset_comment_by_name to set comments for the specified object
* INPUTS
* loc_id - identifier of file or group
* name - name of object whose comment is to be set or reset
* namelen - the name lenghth
* comment - the new comment
* commentlen - new comment lenghth
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Mingshi Chen
* Friday, August 6, 1999
* HISTORY
* Elena Pourmal
* SOURCE
*/
int_f
h5gset_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, _fcd comment,
int_f *commentlen)
/******/
{
char *c_name = NULL, *c_comment = NULL;
int ret_value = -1;
/*
* Convert Fortran name to C name
*/
if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
if(NULL == (c_comment = (char *)HD5f2cstring(comment, (size_t)*commentlen)))
goto DONE;
/*
* Call H5Oset_comment_by_name function
*/
if(H5Oset_comment_by_name((hid_t)*loc_id, c_name, c_comment, H5P_DEFAULT) < 0)
goto DONE;
ret_value = 0;
DONE:
if(c_name)
HDfree(c_name);
if(c_comment)
HDfree(c_comment);
return ret_value;
}
/****if* H5Gf/h5gget_comment_c
* NAME
* h5gget_comment_c
* PURPOSE
* Call H5Oget_comment_by_name to retrieve comments for the specified object
* INPUTS
* loc_id - identifier of file or group
* name - name of object whose comment is to be set or reset
* namelen - the name lenghth
* bufsize - at most bufsize characters
* comment - the new comment
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* Mingshi Chen
* Friday, August 6, 1999
* SOURCE
*/
int_f
h5gget_comment_c(hid_t_f *loc_id, _fcd name, int_f *namelen, size_t_f *bufsize,
_fcd comment)
/******/
{
char *c_name = NULL, *c_comment = NULL;
size_t c_bufsize;
int ret_value = -1;
/*
* Convert Fortran name to C name
*/
if(NULL == (c_name = (char *)HD5f2cstring(name, (size_t)*namelen)))
goto DONE;
/*
* Allocate buffer to hold the comment
*/
c_bufsize = (size_t)*bufsize;
if(c_bufsize) {
if(NULL == (c_comment = (char *)HDmalloc(c_bufsize + 1)))
goto DONE;
} /* end if */
/*
* Call H5Oget_comment_by_name function
*/
if(H5Oget_comment_by_name((hid_t)*loc_id, c_name, c_comment, c_bufsize, H5P_DEFAULT) < 0)
goto DONE;
/*
* Convert C name to FORTRAN and place it in the given buffer
*/
HD5packFstring(c_comment, _fcdtocp(comment), c_bufsize);
ret_value = 0;
DONE:
if(c_name)
HDfree(c_name);
if(c_comment)
HDfree(c_comment);
return ret_value;
}
/****if* H5Gf/h5gcreate_anon_c
* NAME
* h5gcreate_anon_c
* PURPOSE
* Call H5Gcreate_anon
* INPUTS
*
* loc_id - Location identifier
* gcpl_id - Group creation property list identifier
* gapl_id - Group access property list identifier
*
* OUTPUTS
* grp_id - group identifier
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* M. Scot Breitenfeld
* February 15, 2008
* SOURCE
*/
int_f
h5gcreate_anon_c(hid_t_f *loc_id, hid_t_f *gcpl_id, hid_t_f *gapl_id, hid_t_f *grp_id)
/******/
{
int_f ret_value=0; /* Return value */
if ((*grp_id = (hid_t_f)H5Gcreate_anon((hid_t)*loc_id,(hid_t)*gcpl_id,(hid_t)*gapl_id)) < 0)
HGOTO_DONE(FAIL);
done:
return ret_value;
}
/****if* H5Gf/h5gget_create_plist_c
* NAME
* h5gget_create_plist_c
* PURPOSE
* Call H5Gget_create_plist
* INPUTS
*
* grp_id - group identifier
*
* OUTPUTS
* gcpl_id - Group creation property list identifier
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* M. Scot Breitenfeld
* February 15, 2008
* SOURCE
*/
int_f
h5gget_create_plist_c(hid_t_f *grp_id, hid_t_f *gcpl_id )
/******/
{
int_f ret_value=0; /* Return value */
if ((*gcpl_id = (hid_t_f)H5Gget_create_plist((hid_t)*grp_id)) < 0)
HGOTO_DONE(FAIL);
done:
return ret_value;
}
/****if* H5Gf/h5gget_info_c
* NAME
* h5gget_info_c
* PURPOSE
* Call H5Gget_info
* INPUTS
* group_id - Group identifier
* OUTPUTS
*
* storage_type - Type of storage for links in group:
* H5G_STORAGE_TYPE_COMPACT: Compact storage
* H5G_STORAGE_TYPE_DENSE: Indexed storage
* H5G_STORAGE_TYPE_SYMBOL_TABLE: Symbol tables, the original HDF5 structure
*
* nlinks - Number of links in group
* max_corder - Current maximum creation order value for group
* mounted - Whether group has a file mounted on it (0 = false, 1 = true)
*
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* M. Scot Breitenfeld
* February 15, 2008
* HISTORY
*
* - Added 'mounted' paramater
* M. Scot Breitenfeld
* July 16, 2008
* SOURCE
*/
int_f
h5gget_info_c (hid_t_f *group_id, int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted )
/******/
{
int_f ret_value = 0; /* Return value */
H5G_info_t ginfo;
/*
* Call H5Gget_info function.
*/
if(H5Gget_info((hid_t)*group_id,&ginfo) < 0)
HGOTO_DONE(FAIL);
/* Unpack the structure */
*storage_type = (int_f)ginfo.storage_type;
*nlinks = (int_f)ginfo.nlinks;
*max_corder = (int_f)ginfo.max_corder;
*mounted = 0;
if(ginfo.mounted) *mounted = 1;
done:
return ret_value;
}
/****if* H5Gf/h5gget_info_by_idx_c
* NAME
* h5gget_info_by_idx_c
* PURPOSE
* Call H5Gget_info_by_idx
* INPUTS
*
* loc_id - File or group identifier
* group_name - Name of group containing group for which information is to be retrieved
* group_namelen - name length
* index_type - Index type
* order - Order of the count in the index
* n - Position in the index of the group for which information is retrieved
* lapl_id - Link access property list
* OUTPUTS
*
* storage_type - Type of storage for links in group:
* H5G_STORAGE_TYPE_COMPACT: Compact storage
* H5G_STORAGE_TYPE_DENSE: Indexed storage
* H5G_STORAGE_TYPE_SYMBOL_TABLE: Symbol tables, the original HDF5 structure
*
* nlinks - Number of links in group
* max_corder - Current maximum creation order value for group
* mounted - Whether group has a file mounted on it (0 = false, 1 = true)
*
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* M. Scot Breitenfeld
* February 18, 2008
* HISTORY
*
* - Added 'mounted' paramater
* M. Scot Breitenfeld
* July 16, 2008
* SOURCE
*/
int_f
h5gget_info_by_idx_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen,
int_f *index_type, int_f *order, hsize_t_f *n, hid_t_f *lapl_id,
int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted )
/******/
{
char *c_group_name = NULL; /* Buffer to hold group name C string */
int_f ret_value = 0; /* Return value */
H5G_info_t ginfo;
/*
* Convert FORTRAN name to C name
*/
if((c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)) == NULL)
HGOTO_DONE(FAIL);
/*
* Call H5Gget_info_by_idx function.
*/
if(H5Gget_info_by_idx((hid_t)*loc_id,c_group_name, (H5_index_t)*index_type,(H5_iter_order_t)*order,(hsize_t)*n,
&ginfo, (hid_t)*lapl_id) < 0)
HGOTO_DONE(FAIL);
/* Unpack the structure */
*storage_type = (int_f)ginfo.storage_type;
*nlinks = (int_f)ginfo.nlinks;
*max_corder = (int_f)ginfo.max_corder;
*mounted = 0;
if(ginfo.mounted) *mounted = 1;
done:
if(c_group_name)
HDfree(c_group_name);
return ret_value;
}
/****if* H5Gf/h5gget_info_by_name_c
* NAME
* h5gget_info_by_name_c
* PURPOSE
* Call H5Gget_info_by_name
* INPUTS
*
* loc_id - File or group identifier
* group_name - Name of group containing group for which information is to be retrieved
* group_namelen - name length
* lapl_id - Link access property list
* OUTPUTS
*
* storage_type - Type of storage for links in group:
* H5G_STORAGE_TYPE_COMPACT: Compact storage
* H5G_STORAGE_TYPE_DENSE: Indexed storage
* H5G_STORAGE_TYPE_SYMBOL_TABLE: Symbol tables, the original HDF5 structure
*
* nlinks - Number of links in group
* max_corder - Current maximum creation order value for group
* mounted - Whether group has a file mounted on it (0 = false, 1 = true)
*
* RETURNS
* 0 on success, -1 on failure
* AUTHOR
* M. Scot Breitenfeld
* February 18, 2008
* HISTORY
*
* - Added 'mounted' paramater
* M. Scot Breitenfeld
* July 16, 2008
* SOURCE
*/
int_f
h5gget_info_by_name_c(hid_t_f *loc_id, _fcd group_name, size_t_f *group_namelen, hid_t_f *lapl_id,
int_f *storage_type, int_f *nlinks, int_f *max_corder, int_f *mounted)
/******/
{
char *c_group_name = NULL; /* Buffer to hold group name C string */
int_f ret_value = 0; /* Return value */
H5G_info_t ginfo;
/*
* Convert FORTRAN name to C name
*/
if((c_group_name = HD5f2cstring(group_name, (size_t)*group_namelen)) == NULL)
HGOTO_DONE(FAIL);
/*
* Call H5Gget_info_by_name function.
*/
if(H5Gget_info_by_name((hid_t)*loc_id, c_group_name, &ginfo, (hid_t)*lapl_id) < 0)
HGOTO_DONE(FAIL);
/* Unpack the structure */
*storage_type = (int_f)ginfo.storage_type;
*nlinks = (int_f)ginfo.nlinks;
*max_corder = (int_f)ginfo.max_corder;
*mounted = 0;
if(ginfo.mounted) *mounted = 1;
done:
if(c_group_name)
HDfree(c_group_name);
return ret_value;
}