mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-11-27 02:10:55 +08:00
64b045691c
Refactored code
Description:
Use H5E_BEGIN_TRY/H5E_END_TRY macros around blocks where errors shouldn't
be printed, instead of managing 'automatic error' information.
Use new 'flags' field in table objects where appropriate
Chase changes to 'fileno' and 'objno' fields of H5G_stat_t
Platforms tested:
h5committested
625 lines
13 KiB
C
625 lines
13 KiB
C
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
|
|
* 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. *
|
|
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#include "hdf5.h"
|
|
#include "h5trav.h"
|
|
#include "H5private.h"
|
|
|
|
|
|
#ifndef FALSE
|
|
#define FALSE 0
|
|
#endif
|
|
#ifndef TRUE
|
|
#define TRUE 1
|
|
#endif
|
|
|
|
#ifndef FAIL
|
|
#define FAIL -1
|
|
#endif
|
|
|
|
/* functions for traversal */
|
|
int traverse( hid_t loc_id, const char *group_name, table_t *table, info_t *info, int *idx );
|
|
herr_t get_nobjects( hid_t loc_id, const char *group_name );
|
|
herr_t get_name_type( hid_t loc_id, const char *group_name, int idx, char **name, int *type );
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: H5get_object_info
|
|
*
|
|
* Purpose:
|
|
*
|
|
* Return:
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: November 6, 2002
|
|
*
|
|
* Comments:
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
int H5get_object_info( hid_t file_id, info_t *info )
|
|
{
|
|
|
|
table_t *table=NULL;
|
|
int nobjects=0;
|
|
|
|
/* init table */
|
|
table_init( &table );
|
|
|
|
/* iterate starting on the root group */
|
|
if (( nobjects = traverse( file_id, "/", table, info, &nobjects )) < 0 )
|
|
return -1;
|
|
|
|
/* free table */
|
|
table_free( table );
|
|
|
|
return nobjects;
|
|
|
|
}
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: count_objects
|
|
*
|
|
* Purpose: operator function
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: October 10, 2002
|
|
*
|
|
* Comments:
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
static herr_t count_objects( hid_t loc_id, const char *name, void *op_data)
|
|
{
|
|
|
|
H5G_stat_t statbuf;
|
|
|
|
if (H5Gget_objinfo( loc_id, name, FALSE, &statbuf) < 0 )
|
|
return 1;
|
|
|
|
(*(int *)op_data)++;
|
|
|
|
/* Define a default zero value for return. This will cause the iterator to continue */
|
|
return 0;
|
|
}
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: get_nobjects
|
|
*
|
|
* Purpose: Counts the number of objects in the group GROUP_NAME
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: October 10, 2002
|
|
*
|
|
* Return:
|
|
* Success: The return value of the first operator that
|
|
* returns non-zero, or zero if all members were
|
|
* processed with no operator returning non-zero.
|
|
*
|
|
* Failure: Negative if something goes wrong within the
|
|
* library, or the negative value returned by one
|
|
* of the operators.
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
herr_t get_nobjects( hid_t loc_id, const char *group_name )
|
|
{
|
|
|
|
int nobjs = 0;
|
|
|
|
if ( H5Giterate( loc_id, group_name, NULL, count_objects, (void *)&nobjs ) < 0 )
|
|
return -1;
|
|
|
|
return nobjs;
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: opget_info
|
|
*
|
|
* Purpose: operator function
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: October 10, 2002
|
|
*
|
|
* Comments:
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
static herr_t opget_info( hid_t loc_id, const char *name, void *op_data)
|
|
{
|
|
|
|
H5G_stat_t statbuf;
|
|
|
|
if (H5Gget_objinfo( loc_id, name, FALSE, &statbuf) < 0 )
|
|
return 1;
|
|
|
|
((info_t *)op_data)->type = statbuf.type;
|
|
((info_t *)op_data)->name = (char *)HDstrdup(name);
|
|
|
|
/* Define 1 for return. This will cause the iterator to stop */
|
|
return 1;
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: get_name_type
|
|
*
|
|
* Purpose:
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: October 10, 2002
|
|
*
|
|
* Return:
|
|
* Success: The return value of the first operator that
|
|
* returns non-zero, or zero if all members were
|
|
* processed with no operator returning non-zero.
|
|
*
|
|
* Failure: Negative if something goes wrong within the
|
|
* library, or the negative value returned by one
|
|
* of the operators.
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
herr_t get_name_type( hid_t loc_id, const char *group_name, int idx, char **name, int *type )
|
|
{
|
|
|
|
info_t info;
|
|
|
|
if (H5Giterate( loc_id, group_name, &idx, opget_info, (void *)&info) < 0 )
|
|
return -1;
|
|
|
|
*name = info.name;
|
|
*type = info.type;
|
|
|
|
return 0;
|
|
}
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: traverse
|
|
*
|
|
* Purpose:
|
|
*
|
|
* Return:
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: November 4, 2002
|
|
*
|
|
* Comments:
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
int traverse( hid_t loc_id, const char *group_name, table_t *table, info_t *info, int *idx )
|
|
{
|
|
|
|
char *name=NULL;
|
|
int type;
|
|
int nobjs;
|
|
int i;
|
|
char *path=NULL;
|
|
H5G_stat_t statbuf;
|
|
int inserted_objs=0;
|
|
int j;
|
|
|
|
if (( nobjs = get_nobjects( loc_id, group_name )) < 0 )
|
|
return -1;
|
|
|
|
for ( i = 0; i < nobjs; i++)
|
|
{
|
|
|
|
if (get_name_type( loc_id, group_name, i, &name, &type ) < 0 )
|
|
return -1;
|
|
|
|
/* allocate path buffer */
|
|
path = (char*) malloc(strlen(group_name) + strlen(name) + 2);
|
|
|
|
/* initialize path */
|
|
strcpy( path, group_name );
|
|
if ( strcmp(group_name,"/")!=0 )
|
|
strcat( path, "/" );
|
|
strcat( path, name );
|
|
|
|
/* disable error reporting */
|
|
H5E_BEGIN_TRY {
|
|
|
|
/* get info */
|
|
H5Gget_objinfo( loc_id, path, TRUE, &statbuf);
|
|
} H5E_END_TRY;
|
|
|
|
/* add to array */
|
|
if ( info )
|
|
{
|
|
info[*idx].name = (char *)HDstrdup(path);
|
|
info[*idx].type = type;
|
|
(*idx)++;
|
|
}
|
|
|
|
|
|
switch ( type )
|
|
{
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* H5G_GROUP
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
case H5G_GROUP:
|
|
|
|
/* increment */
|
|
inserted_objs++;
|
|
|
|
/* nlink is number of hard links to object */
|
|
if (statbuf.nlink > 0 && table_search_obj(statbuf.objno, table ) == FAIL)
|
|
{
|
|
/* add object to table */
|
|
table_add_obj(statbuf.objno, path, H5G_GROUP, table );
|
|
|
|
/* recurse with the absolute name */
|
|
inserted_objs += traverse( loc_id, path, table, info, idx );
|
|
}
|
|
|
|
/* search table
|
|
group with more than one link to it */
|
|
if (statbuf.nlink > 1)
|
|
{
|
|
if ((j = table_search_obj(statbuf.objno, table )) < 0 )
|
|
return -1;
|
|
|
|
if ( table->objs[j].displayed == 0 )
|
|
{
|
|
table->objs[j].displayed = 1;
|
|
}
|
|
else
|
|
{
|
|
printf("%s %s\n", "HARDLINK", table->objs[j].objname);
|
|
}
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* H5G_DATASET
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
case H5G_DATASET:
|
|
|
|
/* increment */
|
|
inserted_objs++;
|
|
|
|
/* nlink is number of hard links to object */
|
|
if (statbuf.nlink > 0 && table_search_obj(statbuf.objno, table ) == FAIL)
|
|
{
|
|
/* add object to table */
|
|
table_add_obj(statbuf.objno, path, H5G_DATASET, table );
|
|
}
|
|
|
|
/* search table
|
|
dataset with more than one link to it */
|
|
if (statbuf.nlink > 1)
|
|
{
|
|
if ((j = table_search_obj(statbuf.objno, table )) < 0 )
|
|
return -1;
|
|
|
|
if ( table->objs[j].displayed == 0 )
|
|
{
|
|
table->objs[j].displayed = 1;
|
|
}
|
|
else
|
|
{
|
|
printf("%s %s\n", "HARDLINK", table->objs[j].objname);
|
|
}
|
|
|
|
}
|
|
|
|
|
|
break;
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* H5G_TYPE
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
case H5G_TYPE:
|
|
|
|
/* increment */
|
|
inserted_objs++;
|
|
|
|
/* nlink is number of hard links to object */
|
|
if (statbuf.nlink > 0 && table_search_obj(statbuf.objno, table ) == FAIL)
|
|
{
|
|
/* add object to table */
|
|
table_add_obj(statbuf.objno, path, H5G_TYPE, table );
|
|
}
|
|
|
|
break;
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* H5G_LINK
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
case H5G_LINK:
|
|
|
|
/* increment */
|
|
inserted_objs++;
|
|
|
|
break;
|
|
|
|
|
|
default:
|
|
break;
|
|
|
|
}
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* end switch
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
if ( name )
|
|
free( name );
|
|
|
|
if ( path )
|
|
free( path );
|
|
|
|
} /* i */
|
|
|
|
|
|
|
|
return inserted_objs;
|
|
}
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: table_search_obj
|
|
*
|
|
* Purpose:
|
|
*
|
|
* Return:
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: November 4, 2002
|
|
*
|
|
* Comments:
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
int table_search_obj(haddr_t objno, table_t *table )
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; i < table->nobjs; i++)
|
|
if (table->objs[i].objno == objno)
|
|
return i;
|
|
|
|
return FAIL;
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: table_add_obj
|
|
*
|
|
* Purpose:
|
|
*
|
|
* Return:
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: November 4, 2002
|
|
*
|
|
* Comments:
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
void
|
|
table_add_obj(haddr_t objno, char *objname, int type, table_t *table)
|
|
{
|
|
int i;
|
|
|
|
if (table->nobjs == table->size) {
|
|
table->size *= 2;
|
|
table->objs = (obj_t*)realloc(table->objs, table->size * sizeof(obj_t));
|
|
|
|
for (i = table->nobjs; i < table->size; i++) {
|
|
table->objs[i].objno = 0;
|
|
table->objs[i].flags[0] = table->objs[i].flags[1] = 0;
|
|
table->objs[i].displayed = 0;
|
|
table->objs[i].type = H5G_UNKNOWN;
|
|
table->objs[i].objname = NULL;
|
|
}
|
|
}
|
|
|
|
i = table->nobjs++;
|
|
table->objs[i].objno = objno;
|
|
table->objs[i].flags[0] = table->objs[i].flags[1] = 0;
|
|
free(table->objs[i].objname);
|
|
table->objs[i].objname = (char *)HDstrdup(objname);
|
|
table->objs[i].type = type;
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: table_add_flags
|
|
*
|
|
* Purpose:
|
|
*
|
|
* Return:
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: November 4, 2002
|
|
*
|
|
* Comments:
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
void
|
|
table_add_flags(unsigned *flags, char *objname, int type, table_t *table)
|
|
{
|
|
int i;
|
|
|
|
if (table->nobjs == table->size) {
|
|
table->size *= 2;
|
|
table->objs = (obj_t*)realloc(table->objs, table->size * sizeof(obj_t));
|
|
|
|
for (i = table->nobjs; i < table->size; i++) {
|
|
table->objs[i].objno = 0;
|
|
table->objs[i].flags[0] = table->objs[i].flags[1] = 0;
|
|
table->objs[i].displayed = 0;
|
|
table->objs[i].type = H5G_UNKNOWN;
|
|
table->objs[i].objname = NULL;
|
|
}
|
|
}
|
|
|
|
i = table->nobjs++;
|
|
table->objs[i].objno = 0;
|
|
table->objs[i].flags[0] = flags[0];
|
|
table->objs[i].flags[1] = flags[1];
|
|
free(table->objs[i].objname);
|
|
table->objs[i].objname = (char *)HDstrdup(objname);
|
|
table->objs[i].type = type;
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: table_init
|
|
*
|
|
* Purpose:
|
|
*
|
|
* Return:
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: November 4, 2002
|
|
*
|
|
* Comments:
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
void table_init( table_t **tbl )
|
|
{
|
|
int i;
|
|
table_t* table = (table_t*) malloc(sizeof(table_t));
|
|
|
|
table->size = 20;
|
|
table->nobjs = 0;
|
|
table->objs = (obj_t*) malloc(table->size * sizeof(obj_t));
|
|
|
|
for (i = 0; i < table->size; i++) {
|
|
table->objs[i].objno = 0;
|
|
table->objs[i].flags[0] = table->objs[i].flags[1] = 0;
|
|
table->objs[i].displayed = 0;
|
|
table->objs[i].type = H5G_UNKNOWN;
|
|
table->objs[i].objname = NULL;
|
|
}
|
|
|
|
*tbl = table;
|
|
}
|
|
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: table_free
|
|
*
|
|
* Purpose: free table memory
|
|
*
|
|
* Return:
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: November 4, 2002
|
|
*
|
|
* Comments:
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
void table_free( table_t *table )
|
|
{
|
|
int i;
|
|
|
|
for ( i = 0; i < table->nobjs; i++)
|
|
free( table->objs[i].objname );
|
|
|
|
free(table->objs);
|
|
free(table);
|
|
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: info_free
|
|
*
|
|
* Purpose: free info memory
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
void info_free( info_t *info, int nobjs )
|
|
{
|
|
int i;
|
|
if ( info )
|
|
{
|
|
for ( i = 0; i < nobjs; i++)
|
|
{
|
|
if (info[i].name)
|
|
free( info[i].name );
|
|
}
|
|
free(info);
|
|
}
|
|
|
|
}
|
|
|