diff options
Diffstat (limited to 'fortran/src/H5Git.c')
| -rw-r--r-- | fortran/src/H5Git.c | 239 |
1 files changed, 0 insertions, 239 deletions
diff --git a/fortran/src/H5Git.c b/fortran/src/H5Git.c deleted file mode 100644 index 7b867fa..0000000 --- a/fortran/src/H5Git.c +++ /dev/null @@ -1,239 +0,0 @@ -/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * - * 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://hdf.ncsa.uiuc.edu/HDF5/doc/Copyright.html. If you do not have * - * access to either file, you may request a copy from hdfhelp@ncsa.uiuc.edu. * - * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ - -/* This files contains C stubs for H5G Fortran APIs */ - -#include "hdf5.h" -#include "H5private.h" -#include "H5Git.h" -#define FALSE 0 - -static herr_t count_elems(hid_t loc_id, const char *name, void *opdata); -static herr_t obj_info(hid_t loc_id, const char *name, void *opdata); - -typedef struct retval { - char * name; - int type; -} retval_t; - - -/*------------------------------------------------------------------------- - * Function: H5Gn_members - * - * Purpose: Return the number of members of a group. The "members" - * are the datasets, groups, and named datatypes in the - * group. - * - * This function wraps the H5Ginterate() function in - * a completely obvious way, uses the operator - * function 'count_members()' below; - * - * See also: H5Giterate() - * - * IN: hid_t file: the file id - * IN: char *group_name: the name of the group - * - * Errors: - * - * Return: Success: The object number of members of - * the group. - * - * Failure: FAIL - * - * Programmer: REMcG - * Monday, Aug 2, 1999 - * - * Modifications: - * - *------------------------------------------------------------------------- - */ -int -H5Gn_members( hid_t loc_id, char *group_name ) -{ - int res; - int nelems = 0; - - res = H5Giterate(loc_id, group_name, NULL, count_elems, (void *)&nelems); - if (res < 0) { - return res; - } else { - return( nelems ); - } -} - - - -/*------------------------------------------------------------------------- - * Function: H5Gget_obj_info_idx - * - * Purpose: Return the name and type of the member of the group - * at index 'idx', as defined by the H5Giterator() - * function. - * - * This function wraps the H5Ginterate() function in - * a completely obvious way, uses the operator - * function 'get_objinfo()' below; - * - * See also: H5Giterate() - * - * IN: hid_t file: the file id - * IN: char *group_name: the name of the group - * IN: int idx: the index of the member object (see - * H5Giterate() - * OUT: char **objname: the name of the member object - * OUT: int *type: the type of the object (dataset, - * group, or named datatype) - * - * Errors: - * - * Return: Success: The object number of members of - * the group. - * - * Failure: FAIL - * - * Programmer: REMcG - * Monday, Aug 2, 1999 - * - * Modifications: - * - *------------------------------------------------------------------------- - */ -herr_t -H5Gget_obj_info_idx( hid_t loc_id, char *group_name, int idx, char **objname, size_t max_objname_len, int *type ) -{ - int res; - retval_t retVal; - - res = H5Giterate(loc_id, group_name, &idx, obj_info, (void *)&retVal); - if (res < 0) { - return res; - } - - /* Only play with the string if it was returned */ - if(retVal.name!=NULL) { - /* Copy the name to return & truncate if necessary */ - strncpy(*objname,retVal.name,max_objname_len); - (*objname)[max_objname_len]='\0'; - - /* Free the name we strdup'ed in obj_info() */ - HDfree(retVal.name); - } /* end if */ - else - *(*objname)='\0'; - - *type = retVal.type; - return 0; -} - - - -/*------------------------------------------------------------------------- - * Function: count_elems - * - * Purpose: this is the operator function called by H5Gn_members(). - * - * This function is passed to H5Ginterate(). - * - * See also: H5Giterate() - * - * OUT: 'opdata' is returned as an integer with the - * number of members in the group. - * - * Errors: - * - * Return: Success: The object number of members of - * the group. - * - * Failure: FAIL - * - * Programmer: REMcG - * Monday, Aug 2, 1999 - * - * Modifications: - * - *------------------------------------------------------------------------- - */ - -static herr_t -count_elems(hid_t loc_id, const char *name, void *opdata) -{ - herr_t res; - H5G_stat_t statbuf; - - res = H5Gget_objinfo(loc_id, name, FALSE, &statbuf); - if (res < 0) { - return 1; - } - switch (statbuf.type) { - case H5G_GROUP: - (*(int *)opdata)++; - break; - case H5G_DATASET: - (*(int *)opdata)++; - break; - case H5G_TYPE: - (*(int *)opdata)++; - break; - default: - (*(int *)opdata)++; /* ???? count links or no? */ - break; - } - return 0; - } - - -/*------------------------------------------------------------------------- - * Function: obj_info - * - * Purpose: this is the operator function called by H5Gn_members(). - * - * This function is passed to H5Ginterate(). - * - * See also: H5Giterate() - * - * OUT: 'opdata' is returned as a 'recvar_t', containing - * the object name and type. - * - * Errors: - * - * Return: Success: The object number of members of - * the group. - * - * Failure: FAIL - * - * Programmer: REMcG - * Monday, Aug 2, 1999 - * - * Modifications: - * - *------------------------------------------------------------------------- - * group, or named datatype) - */ -static herr_t -obj_info(hid_t loc_id, const char *name, void *opdata) -{ - herr_t res; - H5G_stat_t statbuf; - - res = H5Gget_objinfo(loc_id, name, FALSE, &statbuf); - if (res < 0) { - ((retval_t *)opdata)->type = 0; - ((retval_t *)opdata)->name = NULL; - return 1; - } else { - ((retval_t *)opdata)->type = statbuf.type; - ((retval_t *)opdata)->name = strdup(name); - return 1; - } - } |