mirror of
https://github.com/HDFGroup/hdf5.git
synced 2024-11-27 02:10:55 +08:00
17d0b72815
changes of input/ output format Description: on web page /RFC/h5diff Solution: Platforms tested: Windows 2000 (octopus) Linux 2.4 (rockaway) SunOS 5.7 (arabica) IRIX 6.5 (modi4) Misc. update:
583 lines
12 KiB
C
583 lines
12 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;
|
|
void *edata;
|
|
hid_t (*func)(void*);
|
|
|
|
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 */
|
|
H5Eget_auto(&func, &edata);
|
|
H5Eset_auto(NULL, NULL);
|
|
|
|
/* get info */
|
|
H5Gget_objinfo( loc_id, path, TRUE, &statbuf);
|
|
H5Eset_auto(func, edata);
|
|
|
|
/* 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(statbuf.objno, table ) == FAIL)
|
|
{
|
|
/* add object to table */
|
|
table_add(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(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(statbuf.objno, table ) == FAIL)
|
|
{
|
|
/* add object to table */
|
|
table_add(statbuf.objno, path, H5G_DATASET, table );
|
|
}
|
|
|
|
/* search table
|
|
dataset with more than one link to it */
|
|
if (statbuf.nlink > 1)
|
|
{
|
|
if ((j = table_search(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(statbuf.objno, table ) == FAIL)
|
|
{
|
|
/* add object to table */
|
|
table_add(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
|
|
*
|
|
* Purpose:
|
|
*
|
|
* Return:
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: November 4, 2002
|
|
*
|
|
* Comments:
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
int table_search(unsigned long *objno, table_t *table )
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; i < table->nobjs; i++)
|
|
if (table->objs[i].objno[0] == *objno && table->objs[i].objno[1] == *(objno + 1))
|
|
return i;
|
|
|
|
return FAIL;
|
|
}
|
|
|
|
|
|
/*-------------------------------------------------------------------------
|
|
* Function: table_add
|
|
*
|
|
* Purpose:
|
|
*
|
|
* Return:
|
|
*
|
|
* Programmer: Pedro Vicente, pvn@ncsa.uiuc.edu
|
|
*
|
|
* Date: November 4, 2002
|
|
*
|
|
* Comments:
|
|
*
|
|
* Modifications:
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
|
|
void table_add(unsigned long *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].objno[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] = objno[0];
|
|
table->objs[i].objno[1] = objno[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].objno[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);
|
|
}
|
|
|
|
}
|
|
|