/****h* H5If/H5If * PURPOSE * This file contains C stubs for H5I 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 COPYING file, which can be found at the root of the source code * * distribution tree, or in https://support.hdfgroup.org/ftp/HDF5/releases. * * 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* H5If/h5iget_type_c * NAME * h5iget_type_c * PURPOSE * Call H5Iget_type to get the type of an object * INPUTS * obj_id - object identifier * OUTPUTS * type - object type * RETURNS * 0 on success, -1 on failure * AUTHOR * Xiangyang Su * Thursday, March 24, 2000 * HISTORY * * SOURCE */ int_f h5iget_type_c (hid_t_f *obj_id, int_f *type) /******/ { int ret_value = -1; hid_t c_obj_id; H5I_type_t c_type; /* * Call H5Iget_type function. */ c_obj_id = *obj_id; c_type = H5Iget_type(c_obj_id); if (c_type == H5I_BADID) return ret_value; *type = (int_f)c_type; ret_value = 0; return ret_value; } /****if* H5If/h5iget_name_c * NAME * h5iget_name_c * PURPOSE * Call H5Iget_name to get object's name * INPUTS * obj_id - object identifier * buf_size - size of the buffer * OUTPUTS * buf - buffer to hold the name * RETURNS * length of the name on success, -1 on failure * AUTHOR * Elena Pourmal * Wednesday, March 12, 2003 * HISTORY * * Changed the size of c_buf_size to c_buf_size + 1, which * fixes the problem of truncating the string by 1 if the * exact size of the string (buf_size) is passed in. * M. Scot Breitenfeld, April 21, 2008 * SOURCE */ int_f h5iget_name_c(hid_t_f *obj_id, _fcd buf, size_t_f *buf_size, size_t_f *name_size) /******/ { int ret_value = -1; hid_t c_obj_id; ssize_t c_size; size_t c_buf_size; char *c_buf =NULL; /* * Allocate buffer to hold name of an object */ c_buf_size = (size_t)*buf_size +1; c_buf = (char *)HDmalloc(c_buf_size); if (c_buf == NULL) return ret_value; /* * Call H5IAget_name function */ c_obj_id = (hid_t)*obj_id; c_size = H5Iget_name(c_obj_id, c_buf, c_buf_size); if (c_size < 0) goto DONE; /* * Convert C name to FORTRAN and place it in the given buffer */ HD5packFstring(c_buf, _fcdtocp(buf), c_buf_size-1); *name_size = (size_t_f)c_size; ret_value = 0; DONE: HDfree(c_buf); return ret_value; } /****if* H5If/h5iinc_ref_c * 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 * AUTHOR * Quincey Koziol * Tuesday, December 9, 2003 * SOURCE */ int_f h5iinc_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; } /****if* H5If/h5idec_ref_c * 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 * AUTHOR * Quincey Koziol * Tuesday, December 9, 2003 * SOURCE */ int_f h5idec_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; } /****if* H5If/h5iget_ref_c * 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 * AUTHOR * Quincey Koziol * Tuesday, December 9, 2003 * * SOURCE */ int_f h5iget_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; } /****if* H5If/h5iget_file_id_c * NAME * h5iget_file_id_c * PURPOSE * Call H5Iget_file_id to obtain file identifier from object identifier * INPUTS * obj_id - object identifier * OUTPUTS * file_id - file identifier * RETURNS * 0 on success, -1 on failure * AUTHOR * Elena Pourmal * Tuesday, August 24, 2004 * * SOURCE */ int_f h5iget_file_id_c(hid_t_f *obj_id, hid_t_f *file_id) /******/ { int ret_value; hid_t c_file_id; /* * Call H5Iget_file_id */ if ((c_file_id = H5Iget_file_id(*obj_id)) < 0) HGOTO_DONE(FAIL); /* Set output & return values */ *file_id=(hid_t_f)c_file_id; ret_value=0; done: return ret_value; } /*---------------------------------------------------------------------------- * Name: h5iis_valid_c * Purpose: Calls H5Iis_valid * Inputs: obj_id - object identifier * Outputs: 0 = false, 1 = true * Returns: 0 on success, -1 on failure * Programmer: Elena Pourmal * Tuesday, August 24, 2004 * Modifications: *---------------------------------------------------------------------------*/ int_f h5iis_valid_c(hid_t_f *obj_id, int_f *c_valid) { int ret_value; htri_t c_ret_value; /* * Call H5Iis_valid */ if ((c_ret_value = H5Iis_valid(*obj_id)) < 0) HGOTO_DONE(FAIL); /* Set output & return values */ *c_valid = (int_f)c_ret_value; ret_value=0; done: return ret_value; }