diff options
author | Quincey Koziol <koziol@hdfgroup.org> | 2003-12-11 18:29:36 (GMT) |
---|---|---|
committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-12-11 18:29:36 (GMT) |
commit | 1f272a2cee555b3db8501a36450bf1e942921f92 (patch) | |
tree | 839701059c32fdd8fee11c9738be104cd26774b7 /fortran | |
parent | cf591231155821ab65fdb7dfe6fdf23a7af0f0b4 (diff) | |
download | hdf5-1f272a2cee555b3db8501a36450bf1e942921f92.zip hdf5-1f272a2cee555b3db8501a36450bf1e942921f92.tar.gz hdf5-1f272a2cee555b3db8501a36450bf1e942921f92.tar.bz2 |
[svn-r7935] Purpose:
Add new feature
Description:
Add FORTRAN wrappers for new H5I routines.
Platforms tested:
FreeBSD 4.9 (sleipnir)
h5committest
Diffstat (limited to 'fortran')
-rw-r--r-- | fortran/src/H5If.c | 88 | ||||
-rw-r--r-- | fortran/src/H5Iff.f90 | 149 | ||||
-rw-r--r-- | fortran/src/H5f90proto.h | 9 |
3 files changed, 243 insertions, 3 deletions
diff --git a/fortran/src/H5If.c b/fortran/src/H5If.c index 9811788..625f29e 100644 --- a/fortran/src/H5If.c +++ b/fortran/src/H5If.c @@ -15,6 +15,7 @@ /* This files contains C stubs for H5I Fortran APIs */ #include "H5f90.h" +#include "H5Eprivate.h" /*---------------------------------------------------------------------------- * Name: h5iget_type_c @@ -88,3 +89,90 @@ DONE: HDfree(c_buf); return ret_value; } + +/*---------------------------------------------------------------------------- + * Name: h5iinc_ref_c + * Purpose: Call H5Iinc_ref to increment object's reference count + * Inputs: obj_id - object identifier + * Outputs: ref_count - Reference count of ID + * Returns: current reference count on success, -1 on failure + * Programmer: Quincey Koziol + * Tuesday, December 9, 2003 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5iinc_ref_c(hid_t_f *obj_id, int_f *ref_count) +{ + int ret_value; + + /* + * Call H5Iinc_ref function + */ + if ((ret_value = H5Iinc_ref(*obj_id)) < 0) + HGOTO_DONE(FAIL); + + /* Set output & return values */ + *ref_count=ret_value; + ret_value=0; + +done: + return ret_value; +} + +/*---------------------------------------------------------------------------- + * Name: h5idec_ref_c + * Purpose: Call H5Idec_ref to decrement object's reference count + * Inputs: obj_id - object identifier + * Outputs: ref_count - Reference count of ID + * Returns: current reference count on success, -1 on failure + * Programmer: Quincey Koziol + * Tuesday, December 9, 2003 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5idec_ref_c(hid_t_f *obj_id, int_f *ref_count) +{ + int ret_value; + + /* + * Call H5Idec_ref function + */ + if ((ret_value = H5Idec_ref(*obj_id)) < 0) + HGOTO_DONE(FAIL); + + /* Set output & return values */ + *ref_count=ret_value; + ret_value=0; + +done: + return ret_value; +} + +/*---------------------------------------------------------------------------- + * Name: h5iget_ref_c + * Purpose: Call H5Iget_ref to retrieve object's reference count + * Inputs: obj_id - object identifier + * Outputs: ref_count - Reference count of ID + * Returns: current reference count on success, -1 on failure + * Programmer: Quincey Koziol + * Tuesday, December 9, 2003 + * Modifications: + *---------------------------------------------------------------------------*/ +int_f +nh5iget_ref_c(hid_t_f *obj_id, int_f *ref_count) +{ + int ret_value; + + /* + * Call H5Iget_ref function + */ + if ((ret_value = H5Iget_ref(*obj_id)) < 0) + HGOTO_DONE(FAIL); + + /* Set output & return values */ + *ref_count=ret_value; + ret_value=0; + +done: + return ret_value; +} diff --git a/fortran/src/H5Iff.f90 b/fortran/src/H5Iff.f90 index b277c93..a4bc6f6 100644 --- a/fortran/src/H5Iff.f90 +++ b/fortran/src/H5Iff.f90 @@ -86,6 +86,7 @@ END INTERFACE hdferr = h5iget_type_c(obj_id, type) END SUBROUTINE h5iget_type_f + !---------------------------------------------------------------------- ! Name: h5iget_name_f ! @@ -145,10 +146,152 @@ hdferr = h5iget_name_c(obj_id, buf, buf_size, name_size) END SUBROUTINE h5iget_name_f +!---------------------------------------------------------------------- +! Name: h5iinc_ref_f +! +! Purpose: Increments the reference count of an ID +! +! Inputs: obj_id - object identifier +! Outputs: +! ref_count - Current reference count of the ID +! hdferr: - error code +! Success: 0 +! Failure: -1 +! Optional parameters: +! NONE +! +! Programmer: Quincey Koziol +! December 9, 2003 +! +! Modifications: +! +! Comment: +!---------------------------------------------------------------------- + SUBROUTINE h5iinc_ref_f(obj_id, ref_count, hdferr) +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5iinc_ref_f +!DEC$endif +! + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier + INTEGER, INTENT(OUT) :: ref_count !Current reference count of ID + INTEGER, INTENT(OUT) :: hdferr ! Error code - END MODULE H5I - +! INTEGER, EXTERNAL :: h5iinc_ref_c +! Interface is needed for MS FORTRAN +! + INTERFACE + INTEGER FUNCTION h5iinc_ref_c(obj_id, ref_count) + USE H5GLOBAL + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5IINC_REF_C':: h5iinc_ref_c + !DEC$ ENDIF + INTEGER(HID_T), INTENT(IN) :: obj_id + INTEGER, INTENT(OUT) :: ref_count + END FUNCTION h5iinc_ref_c + END INTERFACE + hdferr = h5iinc_ref_c(obj_id, ref_count) + END SUBROUTINE h5iinc_ref_f - +!---------------------------------------------------------------------- +! Name: h5idec_ref_f +! +! Purpose: Decrements the reference count of an ID +! +! Inputs: obj_id - object identifier +! Outputs: +! ref_count - Current reference count of the ID +! hdferr: - error code +! Success: 0 +! Failure: -1 +! Optional parameters: +! NONE +! +! Programmer: Quincey Koziol +! December 9, 2003 +! +! Modifications: +! +! Comment: +!---------------------------------------------------------------------- + SUBROUTINE h5idec_ref_f(obj_id, ref_count, hdferr) +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5idec_ref_f +!DEC$endif +! + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier + INTEGER, INTENT(OUT) :: ref_count !Current reference count of ID + INTEGER, INTENT(OUT) :: hdferr ! Error code +! INTEGER, EXTERNAL :: h5idec_ref_c +! Interface is needed for MS FORTRAN +! + INTERFACE + INTEGER FUNCTION h5idec_ref_c(obj_id, ref_count) + USE H5GLOBAL + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5IDEC_REF_C':: h5idec_ref_c + !DEC$ ENDIF + INTEGER(HID_T), INTENT(IN) :: obj_id + INTEGER, INTENT(OUT) :: ref_count + END FUNCTION h5idec_ref_c + END INTERFACE + hdferr = h5idec_ref_c(obj_id, ref_count) + END SUBROUTINE h5idec_ref_f + +!---------------------------------------------------------------------- +! Name: h5iget_ref_f +! +! Purpose: Retrieves the reference count of an ID +! +! Inputs: obj_id - object identifier +! Outputs: +! ref_count - Current reference count of the ID +! hdferr: - error code +! Success: 0 +! Failure: -1 +! Optional parameters: +! NONE +! +! Programmer: Quincey Koziol +! December 9, 2003 +! +! Modifications: +! +! Comment: +!---------------------------------------------------------------------- + SUBROUTINE h5iget_ref_f(obj_id, ref_count, hdferr) +! +!This definition is needed for Windows DLLs +!DEC$if defined(BUILD_HDF5_DLL) +!DEC$attributes dllexport :: h5iget_ref_f +!DEC$endif +! + IMPLICIT NONE + INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier + INTEGER, INTENT(OUT) :: ref_count !Current reference count of ID + INTEGER, INTENT(OUT) :: hdferr ! Error code + +! INTEGER, EXTERNAL :: h5iget_ref_c +! Interface is needed for MS FORTRAN +! + INTERFACE + INTEGER FUNCTION h5iget_ref_c(obj_id, ref_count) + USE H5GLOBAL + !DEC$ IF DEFINED(HDF5F90_WINDOWS) + !MS$ATTRIBUTES C,reference,alias:'_H5IGET_REF_C':: h5iget_ref_c + !DEC$ ENDIF + INTEGER(HID_T), INTENT(IN) :: obj_id + INTEGER, INTENT(OUT) :: ref_count + END FUNCTION h5iget_ref_c + END INTERFACE + hdferr = h5iget_ref_c(obj_id, ref_count) + END SUBROUTINE h5iget_ref_f + + END MODULE H5I diff --git a/fortran/src/H5f90proto.h b/fortran/src/H5f90proto.h index ea014ca..a81c71b 100644 --- a/fortran/src/H5f90proto.h +++ b/fortran/src/H5f90proto.h @@ -1186,14 +1186,23 @@ nh5rget_object_type_obj_c (hid_t_f *dset_id, int_f *ref, int_f *obj_type); #ifdef DF_CAPFNAMES # define nh5iget_type_c FNAME(H5IGET_TYPE_C) # define nh5iget_name_c FNAME(H5IGET_NAME_C) +# define nh5iinc_ref_c FNAME(H5IINC_REF_C) +# define nh5idec_ref_c FNAME(H5IDEC_REF_C) +# define nh5iget_ref_c FNAME(H5IGET_REF_C) #else # define nh5iget_type_c FNAME(h5iget_type_c) # define nh5iget_name_c FNAME(h5iget_name_c) +# define nh5iinc_ref_c FNAME(h5iinc_ref_c) +# define nh5idec_ref_c FNAME(h5idec_ref_c) +# define nh5iget_ref_c FNAME(h5iget_ref_c) #endif #endif H5_DLL int_f nh5iget_type_c(hid_t_f *obj_id, int_f *type); H5_DLL int_f nh5iget_name_c(hid_t_f *obj_id, _fcd buf, size_t_f *buf_size, size_t_f *name_size); +H5_DLL int_f nh5iinc_ref_c(hid_t_f *obj_id, int_f *ref_count); +H5_DLL int_f nh5idec_ref_c(hid_t_f *obj_id, int_f *ref_count); +H5_DLL int_f nh5iget_ref_c(hid_t_f *obj_id, int_f *ref_count); #ifndef H5Ef90_FNAMES |