[svn-r7610] Purpose:

    Code cleanup

Description:
    Removed "H5Git" routines, now that there are library routines which perform
the same functionality.

Platforms tested:
    FreeBSD 4.9 (sleipnir)
    Linux 2.4 (verbena) w/FORTRAN
    too minor for h5committest

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;
-	}
- }