summaryrefslogtreecommitdiffstats
path: root/fortran/src/H5Git.c
diff options
context:
space:
mode:
Diffstat (limited to 'fortran/src/H5Git.c')
-rw-r--r--fortran/src/H5Git.c239
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;
- }
- }
generated by cgit v0.12 at 2024-08-29 14:25:04 (GMT)