summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Af.c
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-04-30 19:23:26 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-04-30 19:23:26 (GMT)
commit5773fd34bc5adf59b4530d95ac9f0c0585902803 (patch)
tree456ad239799382e1f083fb7fc74399e43b471912 /fortran/src/H5Af.c
parent0138995d1ce2068db1f790503435a2121132d3ad (diff)
downloadhdf5-5773fd34bc5adf59b4530d95ac9f0c0585902803.zip
hdf5-5773fd34bc5adf59b4530d95ac9f0c0585902803.tar.gz
hdf5-5773fd34bc5adf59b4530d95ac9f0c0585902803.tar.bz2
[svn-r14902] Merged fortran_1_8 branch changes r14505:14901 into the trunk. New fortran wrappers added.
Diffstat (limited to 'fortran/src/H5Af.c')
-rw-r--r--fortran/src/H5Af.c800
1 files changed, 787 insertions, 13 deletions
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c
index 0be225b..5fdc27e 100644
--- a/fortran/src/H5Af.c
+++ b/fortran/src/H5Af.c
@@ -35,7 +35,7 @@
*---------------------------------------------------------------------------*/
int_f
nh5acreate_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *type_id,
- hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *attr_id)
+ hid_t_f *space_id, hid_t_f *crt_prp, hid_t_f *aapl, hid_t_f *attr_id)
{
char *c_name = NULL; /* Buffer to hold C string */
int_f ret_value = 0; /* Return value */
@@ -49,7 +49,7 @@ nh5acreate_c(hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *type_id,
/*
* Call H5Acreate2 function.
*/
- if((*attr_id = (hid_t_f)H5Acreate2((hid_t)*obj_id, c_name, (hid_t)*type_id, (hid_t)*space_id, (hid_t)*crt_prp, H5P_DEFAULT)) < 0)
+ if((*attr_id = (hid_t_f)H5Acreate2((hid_t)*obj_id, c_name, (hid_t)*type_id, (hid_t)*space_id, (hid_t)*crt_prp, (hid_t)*aapl)) < 0)
HGOTO_DONE(FAIL);
done:
@@ -959,7 +959,7 @@ done:
* Name: h5aget_name_c
* Purpose: Call H5Aget_name to get attribute's name
* Inputs: attr_id - attribute identifier
- * bufsize -size of the buffer
+ * bufsize - size of the buffer
* Outputs: buf - buffer to hold the name
* Returns: 0 on success, -1 on failure
* Programmer: Elena Pourmal
@@ -969,27 +969,801 @@ done:
int_f
nh5aget_name_c(hid_t_f *attr_id, size_t_f *bufsize, _fcd buf)
{
- char *c_buf=NULL; /* Buffer to hold C string */
+ size_t c_bufsize;
+ char *c_buf=NULL; /* Buffer to hold C string */
+ int_f ret_value=0; /* Return value */
+
+ c_bufsize = (size_t)*bufsize+1;
+ /*
+ * Allocate buffer to hold name of an attribute
+ */
+ if ((c_buf = HDmalloc(c_bufsize)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ /*
+ * Call H5Aget_name function
+ */
+
+ if ((ret_value = (int_f)H5Aget_name((hid_t)*attr_id, c_bufsize, c_buf)) < 0)
+ HGOTO_DONE(FAIL);
+
+ /*
+ * Convert C name to FORTRAN and place it in the given buffer
+ */
+ HD5packFstring(c_buf, _fcdtocp(buf), c_bufsize-1);
+
+done:
+ if(c_buf) HDfree(c_buf);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aget_storage_size_c
+ * Purpose: Call H5Aget_storage_size
+ * Inputs: attr_id - identifier of an attribute
+ * Outputs: size - attributes storage requirements
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M. S. Breitenfeld
+ * January, 2008
+ * Modifications: N/A
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5aget_storage_size_c ( hid_t_f *attr_id, hsize_t_f *size)
+{
+ int_f ret_value=0; /* Return value */
+
+ if ((*size = (hsize_t_f)H5Aget_storage_size((hid_t)*attr_id)) < 0)
+ HGOTO_DONE(FAIL);
+
+done:
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aget_create_plist_c
+ * Purpose: Call H5Aget_create_plist
+ * Inputs: attr_id - identifier of an attribute
+ * Outputs: creation_prop_id - Identifier for the attribute’s creation property
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M. S. Breitenfeld
+ * January, 2008
+ * Modifications: N/A
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5aget_create_plist_c ( hid_t_f *attr_id, hid_t_f *creation_prop_id)
+{
int_f ret_value=0; /* Return value */
+ if ((*creation_prop_id = (hid_t_f)H5Aget_create_plist((hid_t)*attr_id)) < 0)
+ HGOTO_DONE(FAIL);
+
+done:
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5arename_by_name_c
+ * Purpose: Calls H5Arename_by_name
+ * Inputs: loc_id - Object identifier
+ * obj_name - Name of object, relative to location,
+ * whose attribute is to be renamed
+ * obj_name_len - Object name length
+ * old_attr_name - Prior attribute name
+ * old_attr_name_len - Prior attribute name length
+ * new_attr_name - New attribute name
+ * new_attr_name_len - New attribute name length
+ * lapl_id - Link access property list identifier
+ * Outputs: N/A
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M. S. Breitenfeld
+ * January, 2008
+ * Modifications: N/A
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5arename_by_name_c( hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
+ _fcd old_attr_name, size_t_f *old_attr_namelen,
+ _fcd new_attr_name, size_t_f *new_attr_namelen,
+ hid_t_f *lapl_id )
+{
+ char *c_obj_name = NULL; /* Buffer to hold C string */
+ char *c_old_attr_name = NULL; /* Buffer to hold C string */
+ char *c_new_attr_name = NULL; /* Buffer to hold C string */
+ int_f ret_value=0; /* Return value */
/*
- * Allocate buffer to hold name of an attribute
+ * Convert FORTRAN name to C name
*/
- if ((c_buf = HDmalloc((size_t)*bufsize +1)) == NULL)
- HGOTO_DONE(FAIL);
+ if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+ if((c_old_attr_name = HD5f2cstring(old_attr_name, (size_t)*old_attr_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+ if((c_new_attr_name = HD5f2cstring(new_attr_name, (size_t)*new_attr_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ if(H5Arename_by_name((hid_t)*loc_id,c_obj_name,c_old_attr_name,c_new_attr_name,(hid_t)*lapl_id) < 0)
+ HGOTO_DONE(FAIL);
+
+done:
+ if(c_obj_name)
+ HDfree(c_obj_name);
+ if(c_old_attr_name)
+ HDfree(c_old_attr_name);
+ if(c_new_attr_name)
+ HDfree(c_new_attr_name);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aopen_c
+ * Purpose: Call H5Aopen to open an attribute
+ * Inputs: obj_id - Identifer for object to which attribute is attached
+ * attr_name - Attribute access property list
+ * attr_namelen - size of attr_name
+ * aapl_id - Link access property list
+ * Outputs: attr_id - dataset identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M.S. Breitenfeld
+ * January, 2008
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aopen_c (hid_t_f *obj_id, _fcd attr_name, size_t_f *attr_namelen, hid_t_f *aapl_id, hid_t_f *attr_id)
+{
+ char *c_attr_name = NULL; /* Buffer to hold C string */
+ int_f ret_value = 0; /* Return value */
/*
- * Call H5Aget_name function
+ * Convert FORTRAN name to C name
+ */
+ if((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+ /*
+ * Call H5Aopen function.
*/
- if ((ret_value = (int_f)H5Aget_name((hid_t)*attr_id, (size_t)*bufsize, c_buf)) < 0)
- HGOTO_DONE(FAIL);
+
+ if((*attr_id = (hid_t_f)H5Aopen((hid_t)*obj_id, c_attr_name, (hid_t)*aapl_id)) < 0)
+ HGOTO_DONE(FAIL);
+
+done:
+ if(c_attr_name)
+ HDfree(c_attr_name);
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5adelete_by_name_c
+ * Purpose: Call h5adelete_by_name to remove an attribute from a specified location
+ * Inputs: loc_id - identifer for object to which attribute is attached
+ * obj_name - object identifier
+ * obj_namelen - name length
+ * attr_name - name of the attribute
+ * attr_namelen - name length
+ * lapl_id - link access property list
+ *
+ * Outputs: N/A
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M.S. Breitenfeld
+ * January, 2008
+ * Modifications: N/A
+ *---------------------------------------------------------------------------*/
+int_f
+nh5adelete_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name, size_t_f *attr_namelen, hid_t_f *lapl_id)
+{
+ char *c_obj_name = NULL; /* Buffer to hold C string */
+ char *c_attr_name = NULL; /* Buffer to hold C string */
+ int_f ret_value = 0; /* Return value */
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+ if((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ /*
+ * Call H5Adelete_by_name function.
+ */
+ if(H5Adelete_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, (hid_t)*lapl_id) < 0)
+ HGOTO_DONE(FAIL);
+
+done:
+ if(c_attr_name)
+ HDfree(c_attr_name);
+ if(c_obj_name)
+ HDfree(c_obj_name);
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5adelete_by_idx_c
+ * Purpose: Call h5adelete_by_idx
+ * Inputs: loc_id - Location or object identifier; may be dataset or group
+ * obj_name - object identifier
+ * obj_namelen - name length
+ * attr_name - name of the attribute
+ * attr_namelen - name length
+ * lapl_id - link access property list
+ *
+ * Outputs: N/A
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M.S. Breitenfeld
+ * January, 2008
+ * Modifications: N/A
+ *---------------------------------------------------------------------------*/
+int_f
+nh5adelete_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
+ int_f *idx_type, int_f *order, size_t_f *n, hid_t_f *lapl_id)
+{
+ char *c_obj_name = NULL; /* Buffer to hold C string */
+ H5_index_t c_idx_type;
+ H5_iter_order_t c_order;
+ int_f ret_value = 0; /* Return value */
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ c_idx_type = (H5_index_t)*idx_type;
+ c_order = (H5_iter_order_t)*order;
+
+ /*
+ * Call H5Adelete_by_name function.
+ */
+
+ if(H5Adelete_by_idx((hid_t)*loc_id, c_obj_name, c_idx_type, c_order, (hsize_t)*n, (hid_t)*lapl_id) < 0)
+ HGOTO_DONE(FAIL);
+
+
+done:
+ if(c_obj_name)
+ HDfree(c_obj_name);
+ return ret_value;
+}
+/*----------------------------------------------------------------------------
+ * Name: h5aget_name_by_idx_c
+ * Purpose: Call h5aget_name_by_idx
+ * Inputs:
+ *
+ * loc_id - Identifer for object to which attribute is attached
+ * obj_name - Name of object, relative to location,
+ * from which attribute is to be removed *TEST* check NULL
+ * idx_type - Type of index; Possible values are:
+ * H5_INDEX_UNKNOWN - Unknown index type
+ * H5_INDEX_NAME - Index on names
+ * H5_INDEX_CRT_ORDER - Index on creation order
+ * H5_INDEX_N - Number of indices defined
+ *
+ * order - Order in which to iterate over index; Possible values are:
+ * H5_ITER_UNKNOWN - Unknown order
+ * H5_ITER_INC - Increasing order
+ * H5_ITER_DEC - Decreasing order
+ * H5_ITER_NATIVE - No particular order, whatever is fastest
+ * H5_ITER_N - Number of iteration orders
+ *
+ * n - Attribute’s position in index
+ * attr_id - Attribute identifier
+ * size - Buffer size ! *TEST* check for 0 value *CHECK* should this return the correct value
+ *
+ * lapl_id - Link access property list
+ * hdferr - Error code:
+ * Returns attribute name size, -1 if fail
+ *
+ * Outputs: name - Attribute name
+ *
+ * Returns: Size of buffer on success, -1 on failure
+ * Programmer: M.S. Breitenfeld
+ * January, 2008
+ * Modifications: N/A
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aget_name_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
+ int_f *idx_type, int_f *order, size_t_f *n, _fcd name,
+ size_t_f *size, hid_t_f *lapl_id)
+{
+ char *c_obj_name = NULL; /* Buffer to hold C string */
+ H5_index_t c_idx_type;
+ H5_iter_order_t c_order;
+ int_f ret_value = -1; /* Return value */
+ ssize_t c_size;
+ size_t c_buf_size;
+ char *c_buf =NULL;
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ c_idx_type = (H5_index_t)*idx_type;
+ c_order = (H5_iter_order_t)*order;
+
+ /*
+ * Allocate buffer to hold name of an attribute
+ */
+ c_buf_size = (size_t)*size + 1;
+ c_buf = (char *)HDmalloc(c_buf_size);
+ if (c_buf == NULL) return ret_value;
+
+ /*
+ * Call H5Aget_name_by_idx function.
+ */
+ c_size = H5Aget_name_by_idx((hid_t)*loc_id, c_obj_name, c_idx_type, c_order, (hsize_t)*n, c_buf, c_buf_size,(hid_t)*lapl_id);
+
+/* printf( "In C routine, The attr name is %s %i \n ", c_buf, c_buf_size ); */
+/* printf( "In C routine, The c_size is %i \n ", c_size ); */
+
+ if (c_size < 0) goto done;
/*
* Convert C name to FORTRAN and place it in the given buffer
*/
- HD5packFstring(c_buf, _fcdtocp(buf), (size_t)*bufsize);
+ HD5packFstring(c_buf, _fcdtocp(name), c_buf_size);
+ *size = (size_t_f)c_size;
+ ret_value = 0;
+
+done:
+ if(c_obj_name)
+ HDfree(c_obj_name);
+ HDfree(c_buf);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aopen_by_idx_c
+ * Purpose: Call H5Aopen_by_idx
+ * Inputs: loc_id - Object identifier
+ * obj_name - Name of object to which attribute is attached
+ * obj_namelen - name length
+ * idx_type - Type of index; Possible values are:
+ * H5_INDEX_UNKNOWN - Unknown index type
+ * H5_INDEX_NAME - Index on names
+ * H5_INDEX_CRT_ORDER - Index on creation order
+ * H5_INDEX_N - Number of indices defined
+ *
+ * order - Order in which to iterate over index; Possible values are:
+ * H5_ITER_UNKNOWN - Unknown order
+ * H5_ITER_INC - Increasing order
+ * H5_ITER_DEC - Decreasing order
+ * H5_ITER_NATIVE - No particular order, whatever is fastest
+ * H5_ITER_N - Number of iteration orders
+ *
+ * n - Attribute’s position in index
+ * aapl_id - Attribute access property list
+ * lapl_id - Link access property list
+ * Outputs: attr_id - attribute identifer
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M.S. Breitenfeld
+ * January, 2008
+ * Modifications: N/A
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aopen_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
+ int_f *idx_type, int_f *order, size_t_f *n, hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id )
+{
+ char *c_obj_name = NULL; /* Buffer to hold C string */
+ H5_index_t c_idx_type;
+ H5_iter_order_t c_order;
+ int_f ret_value = 0; /* Return value */
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ c_idx_type = (H5_index_t)*idx_type;
+ c_order = (H5_iter_order_t)*order;
+
+ /*
+ * Call H5Aopen_by_idx function.
+ */
+ if((*attr_id = (hid_t_f)H5Aopen_by_idx((hid_t)*loc_id, c_obj_name, c_idx_type, c_order, (hsize_t)*n, (hid_t)*aapl_id, (hid_t)*lapl_id)) < 0)
+ HGOTO_DONE(FAIL);
+done:
+ if(c_obj_name)
+ HDfree(c_obj_name);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aget_info_c
+ * Purpose: Call H5Aget_info
+ * Inputs: loc_id - Object identifier
+ * Outputs:
+ * corder_valid - Indicates whether the the creation order data is valid for this attribute
+ * corder - Is a positive integer containing the creation order of the attribute
+ * cset - Indicates the character set used for the attribute’s name
+ * data_size - indicates the size, in the number of characters, of the attribute
+ *
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M.S. Breitenfeld
+ * January, 2008
+ * Modifications: N/A
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aget_info_c (hid_t_f *loc_id, int_f *corder_valid, int_f *corder,
+ int_f *cset, hsize_t_f *data_size )
+{
+
+ int_f ret_value = 0; /* Return value */
+ H5A_info_t ainfo;
+
+
+ /*
+ * Call H5Aget_info function.
+ */
+ if(H5Aget_info((hid_t)*loc_id,&ainfo) < 0)
+ HGOTO_DONE(FAIL);
+
+ /* Unpack the structure */
+
+ *corder_valid = 0;
+ if(ainfo.corder_valid > 0) *corder_valid = 1;
+
+ *corder = (int_f)ainfo.corder;
+ *cset = (int_f)ainfo.cset;
+ *data_size = (hsize_t)ainfo.data_size;
+
+done:
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aget_info_by_idx_c
+ * Purpose: Call H5Aget_info_by_idx
+ * Inputs: loc_id - Object identifier
+ * obj_name - Name of object to which attribute is attached
+ * obj_namelen - name length
+ * idx_type - Type of index; Possible values are:
+ * H5_INDEX_UNKNOWN - Unknown index type
+ * H5_INDEX_NAME - Index on names
+ * H5_INDEX_CRT_ORDER - Index on creation order
+ * H5_INDEX_N - Number of indices defined
+ *
+ * order - Order in which to iterate over index; Possible values are:
+ * H5_ITER_UNKNOWN - Unknown order
+ * H5_ITER_INC - Increasing order
+ * H5_ITER_DEC - Decreasing order
+ * H5_ITER_NATIVE - No particular order, whatever is fastest
+ * H5_ITER_N - Number of iteration orders
+ *
+ * n - Attribute’s position in index
+ * lapl_id - Link access property list
+ * Outputs:
+ * corder_valid - Indicates whether the the creation order data is valid for this attribute
+ * corder - Is a positive integer containing the creation order of the attribute
+ * cset - Indicates the character set used for the attribute’s name
+ * data_size - indicates the size, in the number of characters, of the attribute
+ *
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M.S. Breitenfeld
+ * January, 2008
+ * Modifications: N/A
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aget_info_by_idx_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
+ int_f *idx_type, int_f *order, size_t_f *n, hid_t_f *lapl_id,
+ int_f *corder_valid, int_f *corder,
+ int_f *cset, hsize_t_f *data_size )
+{
+ char *c_obj_name = NULL; /* Buffer to hold C string */
+ H5_index_t c_idx_type;
+ H5_iter_order_t c_order;
+ int_f ret_value = 0; /* Return value */
+ H5A_info_t ainfo;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ c_idx_type = (H5_index_t)*idx_type;
+ c_order = (H5_iter_order_t)*order;
+ /*
+ * Call H5Ainfo_by_idx function.
+ */
+ if(H5Aget_info_by_idx((hid_t)*loc_id, c_obj_name, c_idx_type, c_order, (hsize_t)*n,
+ &ainfo, (hid_t)*lapl_id) < 0)
+ HGOTO_DONE(FAIL);
+
+ /* Unpack the structure */
+
+ *corder_valid = 0;
+ if(ainfo.corder_valid > 0) *corder_valid = 1;
+
+ *corder = (int_f)ainfo.corder;
+ *cset = (int_f)ainfo.cset;
+ *data_size = (hsize_t)ainfo.data_size;
+
+done:
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aget_info_by_name_c
+ * Purpose: Call H5Aget_info_by_name
+ * Inputs: loc_id - Object identifier
+ * obj_name - Name of object to which attribute is attached
+ * obj_namelen - name length
+ * attr_name - Attribute name
+ * attr_namelen - attribute name length
+ * lapl_id - Link access property list
+ * Outputs:
+ * corder_valid - Indicates whether the the creation order data is valid for this attribute
+ * corder - Is a positive integer containing the creation order of the attribute
+ * cset - Indicates the character set used for the attribute’s name
+ * data_size - indicates the size, in the number of characters, of the attribute
+ *
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M.S. Breitenfeld
+ * January, 2008
+ * Modifications: N/A
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aget_info_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
+ _fcd attr_name, size_t_f *attr_namelen, hid_t_f *lapl_id,
+ int_f *corder_valid, int_f *corder,
+ int_f *cset, hsize_t_f *data_size )
+{
+ char *c_obj_name = NULL; /* Buffer to hold C string */
+ char *c_attr_name = NULL; /* Buffer to hold C string */
+ int_f ret_value = 0; /* Return value */
+ H5A_info_t ainfo;
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+ if((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ /*
+ * Call H5Ainfo_by_name function.
+ */
+ if(H5Aget_info_by_name((hid_t)*loc_id, c_obj_name, c_attr_name,
+ &ainfo, (hid_t)*lapl_id) < 0)
+ HGOTO_DONE(FAIL);
+
+ /* Unpack the structure */
+
+ *corder_valid = 0;
+ if(ainfo.corder_valid > 0) *corder_valid = 1;
+
+ *corder = (int_f)ainfo.corder;
+ *cset = (int_f)ainfo.cset;
+ *data_size = (hsize_t)ainfo.data_size;
+
+done:
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5acreate_by_name_c
+ * Purpose: Call h5acreate_by_name
+
+ * Inputs:
+ * loc_id - Object identifier
+ * obj_name - Name of object to which attribute is attached
+ * obj_namelen - name length
+ * attr_name - Attribute name
+ * attr_namelen - attribute name length
+ * type_id - Attribute datatype identifier
+ * space_id - Attribute dataspace identifier
+ * acpl_id - Attribute creation property list identifier (Currently not used.)
+ * aapl_id - Attribute access property list identifier (Currently not used.)
+ * lapl_id - Link access property list
+ *
+ * Outputs:
+ * attr - an attribute identifier
+ *
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M.S. Breitenfeld
+ * February, 2008
+ * Modifications: N/A
+ *---------------------------------------------------------------------------*/
+int_f
+nh5acreate_by_name_c(hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen,
+ _fcd attr_name, size_t_f *attr_namelen, hid_t_f *type_id,
+ hid_t_f *space_id, hid_t_f *acpl_id, hid_t_f *aapl_id,
+ hid_t_f *lapl_id, hid_t_f *attr_id )
+{
+ char *c_obj_name = NULL; /* Buffer to hold C string */
+ char *c_attr_name = NULL; /* Buffer to hold C string */
+ int_f ret_value = 0; /* Return value */
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+ if((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ /*
+ * Call H5Acreate_by_name function.
+ */
+ if((*attr_id = (hid_t_f)H5Acreate_by_name((hid_t)*loc_id, c_obj_name, c_attr_name,
+ (hid_t)*type_id, (hid_t)*space_id,(hid_t)*acpl_id,(hid_t)*aapl_id,(hid_t)*lapl_id )) < 0)
+ HGOTO_DONE(FAIL);
+
+done:
+ if(c_obj_name)
+ HDfree(c_obj_name);
+ if(c_attr_name)
+ HDfree(c_attr_name);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aexists_c
+ * Purpose: CAll h5aexists
+ * Inputs:
+ * obj_id - Object identifier
+ * attr_name - Attribute name
+ * Outputs:
+ * attr_exists_c - returns a positive value, for TRUE, or 0 (zero), for FALSE.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M.S. Breitenfeld
+ * February, 2008
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aexists_c (hid_t_f *obj_id, _fcd name, size_t_f *namelen, hid_t_f *attr_exists)
+{
+ char *c_name = NULL; /* Buffer to hold C string */
+ int_f ret_value = 0; /* Return value */
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if((c_name = HD5f2cstring(name, (size_t)*namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ /*
+ * Call H5Aexists function.
+ */
+ if((*attr_exists = (hid_t_f)H5Aexists((hid_t)*obj_id, c_name)) < 0)
+ HGOTO_DONE(FAIL);
+
+done:
+ if(c_name)
+ HDfree(c_name);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aexists_by_name_c
+ * Purpose: CAll H5Aexists_by_name
+ * Inputs:
+ * loc_id - Location identifier
+ * obj_name - Object name either relative to loc_id, absolute from the file’s root group, or '.' (a dot)
+ * attr_name - Attribute name
+ * lapl_id - Link access property list identifier
+ * Outputs:
+ * attr_exists_c - returns a positive value, for TRUE, or 0 (zero), for FALSE.
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M.S. Breitenfeld
+ * February, 2008
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aexists_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name, size_t_f *attr_namelen,
+ hid_t_f *lapl_id, hid_t_f *attr_exists)
+{
+ char *c_obj_name = NULL; /* Buffer to hold object name C string */
+ char *c_attr_name = NULL; /* Buffer to hold attribute name C string */
+ int_f ret_value = 0; /* Return value */
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+ if((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ /*
+ * Call H5Aexists_by_name function.
+ */
+ if((*attr_exists = (hid_t_f)H5Aexists_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, (hid_t)*lapl_id)) < 0)
+ HGOTO_DONE(FAIL);
+
+done:
+ if(c_obj_name)
+ HDfree(c_obj_name);
+ if(c_attr_name)
+ HDfree(c_attr_name);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5aopen_by_name_c
+ * Purpose: Call H5Aopen_by_name
+ * Inputs:
+ * loc_id - Location identifier
+ * obj_name - Object name either relative to loc_id, absolute from the file’s root group, or '.' (a dot)
+ * attr_name - Attribute name
+ * aapl_id - Attribute access property list (Currently unused; should be passed in as H5P_DEFAULT.)
+ * lapl_id - Link access property list identifier
+ * Outputs:
+ * attr_id - attribute identifier
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M.S. Breitenfeld
+ * February, 2008
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+int_f
+nh5aopen_by_name_c (hid_t_f *loc_id, _fcd obj_name, size_t_f *obj_namelen, _fcd attr_name, size_t_f *attr_namelen,
+ hid_t_f *aapl_id, hid_t_f *lapl_id, hid_t_f *attr_id)
+{
+ char *c_obj_name = NULL; /* Buffer to hold object name C string */
+ char *c_attr_name = NULL; /* Buffer to hold attribute name C string */
+ int_f ret_value = 0; /* Return value */
+
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if((c_obj_name = HD5f2cstring(obj_name, (size_t)*obj_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+ if((c_attr_name = HD5f2cstring(attr_name, (size_t)*attr_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ /*
+ * Call H5Aopen function.
+ */
+ if((*attr_id = (hid_t_f)H5Aopen_by_name((hid_t)*loc_id, c_obj_name, c_attr_name, (hid_t)*aapl_id, (hid_t)*lapl_id)) < 0)
+ HGOTO_DONE(FAIL);
+
+ done:
+ if(c_obj_name)
+ HDfree(c_obj_name);
+ if(c_attr_name)
+ HDfree(c_attr_name);
+ return ret_value;
+}
+
+/*----------------------------------------------------------------------------
+ * Name: h5arename_c
+ * Purpose: Calls H5Arename
+ * Inputs: loc_id - Object identifier
+ * old_attr_name - Prior attribute name
+ * old_attr_name_len - Prior attribute name length
+ * new_attr_name - New attribute name
+ * new_attr_name_len - New attribute name length
+ * Outputs: N/A
+ * Returns: 0 on success, -1 on failure
+ * Programmer: M. S. Breitenfeld
+ * January, 2008
+ * Modifications: N/A
+ *---------------------------------------------------------------------------*/
+
+int_f
+nh5arename_c( hid_t_f *loc_id,
+ _fcd old_attr_name, size_t_f *old_attr_namelen,
+ _fcd new_attr_name, size_t_f *new_attr_namelen)
+{
+ char *c_old_attr_name = NULL; /* Buffer to hold C string */
+ char *c_new_attr_name = NULL; /* Buffer to hold C string */
+ int_f ret_value=0; /* Return value */
+ /*
+ * Convert FORTRAN name to C name
+ */
+ if((c_old_attr_name = HD5f2cstring(old_attr_name, (size_t)*old_attr_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+ if((c_new_attr_name = HD5f2cstring(new_attr_name, (size_t)*new_attr_namelen)) == NULL)
+ HGOTO_DONE(FAIL);
+
+ if(H5Arename((hid_t)*loc_id,c_old_attr_name,c_new_attr_name) < 0)
+ HGOTO_DONE(FAIL);
done:
- if(c_buf) HDfree(c_buf);
- return ret_value;
+ if(c_old_attr_name)
+ HDfree(c_old_attr_name);
+ if(c_new_attr_name)
+ HDfree(c_new_attr_name);
+ return ret_value;
}