From 23ab35a5a7aadf526d0a3b4c1011a521a838b36b Mon Sep 17 00:00:00 2001 From: Patrick Lu Date: Fri, 29 Oct 1999 14:50:25 -0500 Subject: [svn-r1800] moved the code from the dumper that iterates thru the files and stores the info into the tables into the tools lib. h5findshd-had some of the same functions so i removed them for now --- tools/h5dump.c | 360 ++++++++++++++++-------------------------------------- tools/h5findshd.c | 7 +- tools/h5tools.c | 164 +++++++++++++++++++++++++ tools/h5tools.h | 36 +++++- 4 files changed, 307 insertions(+), 260 deletions(-) diff --git a/tools/h5dump.c b/tools/h5dump.c index 13acbc9..bac225c 100644 --- a/tools/h5dump.c +++ b/tools/h5dump.c @@ -8,28 +8,15 @@ static int display_data = 1; static int status = 0; static int unamedtype = 0; /* shared data type with no name */ -typedef struct shared_obj_t{ -unsigned long objno[2]; -char objname[1024]; -int displayed; -int recorded; -} shared_obj_t; - -typedef struct table_t{ -int size; -int nobjs; -shared_obj_t *objs; -} table_t; - static int prefix_len = 1024; static char *prefix; -static table_t group_table, dset_table, type_table; +static table_t *group_table = NULL, *dset_table = NULL, *type_table = NULL; static void dump_group (hid_t , const char* ); static void dump_dataset (hid_t, const char*); static void dump_data (hid_t, int); static void dump_named_datatype (hid_t , const char *); -static int search_obj (table_t, unsigned long *); + void indentation(int); static void print_enum(hid_t type); @@ -283,11 +270,11 @@ H5G_stat_t statbuf; indentation (indent+COL); if (i >= 0) { - if (!type_table.objs[i].recorded) /* unamed data type */ - printf("\"/#%lu:%lu\"\n", type_table.objs[i].objno[0], - type_table.objs[i].objno[1]); + if (!type_table->objs[i].recorded) /* unamed data type */ + printf("\"/#%lu:%lu\"\n", type_table->objs[i].objno[0], + type_table->objs[i].objno[1]); else - printf("\"%s\"\n", type_table.objs[i].objname); + printf("\"%s\"\n", type_table->objs[i].objname); } else { printf("h5dump error: unknown committed type.\n"); status = 1; @@ -719,19 +706,19 @@ int i; end_obj(); status = 1; goto done; - } else if (dset_table.objs[i].displayed) { + } else if (dset_table->objs[i].displayed) { indentation (indent); begin_obj(DATASET, name); indentation (indent+COL); - printf("%s \"%s\"\n", HARDLINK, dset_table.objs[i].objname); + printf("%s \"%s\"\n", HARDLINK, dset_table->objs[i].objname); indentation (indent); end_obj(); goto done; } else { - dset_table.objs[i].displayed = 1; + dset_table->objs[i].displayed = 1; strcat(tmp,"/"); strcat(tmp,name); - strcpy(dset_table.objs[i].objname, tmp); + strcpy(dset_table->objs[i].objname, tmp); } } dump_dataset (obj, name); @@ -853,12 +840,12 @@ int i; dump_oid(gid); } if (!strcmp(name,"/") && unamedtype) { /* dump unamed type in root group */ - for (i = 0; i < type_table.nobjs; i++) - if (!type_table.objs[i].recorded) { - dset = H5Dopen (gid, type_table.objs[i].objname); + for (i = 0; i < type_table->nobjs; i++) + if (!type_table->objs[i].recorded) { + dset = H5Dopen (gid, type_table->objs[i].objname); type = H5Dget_type (dset); - sprintf(typename,"#%lu:%lu", type_table.objs[i].objno[0], - type_table.objs[i].objno[1]); + sprintf(typename,"#%lu:%lu", type_table->objs[i].objno[0], + type_table->objs[i].objno[1]); dump_named_datatype (type, typename); H5Tclose(type); H5Dclose(dset); @@ -875,15 +862,15 @@ int i; printf("h5dump error: internal error\n"); status = 1; - } else if (group_table.objs[i].displayed) { + } else if (group_table->objs[i].displayed) { indentation (indent); - printf("%s \"%s\"\n",HARDLINK, group_table.objs[i].objname); + printf("%s \"%s\"\n",HARDLINK, group_table->objs[i].objname); } else { - strcpy(group_table.objs[i].objname, prefix); - group_table.objs[i].displayed = 1; + strcpy(group_table->objs[i].objname, prefix); + group_table->objs[i].displayed = 1; H5Aiterate (gid, NULL, dump_attr, NULL); H5Giterate (gid, ".", NULL, dump_all, NULL); @@ -1003,30 +990,34 @@ hid_t type, space; static void init_table (void){ int i; + + group_table = malloc(sizeof(table_t)); + type_table = malloc(sizeof(table_t)); + dset_table = malloc(sizeof(table_t)); - group_table.size = dset_table.size = type_table.size = 20; - group_table.nobjs = dset_table.nobjs = type_table.nobjs = 0; + group_table->size = dset_table->size = type_table->size = 20; + group_table->nobjs = dset_table->nobjs = type_table->nobjs = 0; - group_table.objs = (shared_obj_t*) malloc(group_table.size*sizeof(shared_obj_t)); - dset_table.objs = (shared_obj_t*) malloc(dset_table.size*sizeof(shared_obj_t)); - type_table.objs = (shared_obj_t*) malloc(type_table.size*sizeof(shared_obj_t)); + group_table->objs = (obj_t*) malloc(group_table->size*sizeof(obj_t)); + dset_table->objs = (obj_t*) malloc(dset_table->size*sizeof(obj_t)); + type_table->objs = (obj_t*) malloc(type_table->size*sizeof(obj_t)); - for (i = 0; i < group_table.size; i++) { - group_table.objs[i].objno[0] = group_table.objs[i].objno[1] = 0; - group_table.objs[i].displayed = 0; - group_table.objs[i].recorded = 0; + for (i = 0; i < group_table->size; i++) { + group_table->objs[i].objno[0] = group_table->objs[i].objno[1] = 0; + group_table->objs[i].displayed = 0; + group_table->objs[i].recorded = 0; } - for (i = 0; i < dset_table.size; i++) { - dset_table.objs[i].objno[0] = dset_table.objs[i].objno[1] = 0; - dset_table.objs[i].displayed = 0; - dset_table.objs[i].recorded = 0; + for (i = 0; i < dset_table->size; i++) { + dset_table->objs[i].objno[0] = dset_table->objs[i].objno[1] = 0; + dset_table->objs[i].displayed = 0; + dset_table->objs[i].recorded = 0; } - for (i = 0; i < type_table.size; i++) { - type_table.objs[i].objno[0] = type_table.objs[i].objno[1] = 0; - type_table.objs[i].displayed = 0; - type_table.objs[i].recorded = 0; + for (i = 0; i < type_table->size; i++) { + type_table->objs[i].objno[0] = type_table->objs[i].objno[1] = 0; + type_table->objs[i].displayed = 0; + type_table->objs[i].recorded = 0; } prefix = (char *) malloc(prefix_len * sizeof (char)); @@ -1034,70 +1025,8 @@ int i; } -/*------------------------------------------------------------------------- - * Function: search_obj - * - * Purpose: search the object specified by objno in the table - * - * Return: an integer, the location of the object - * -1 if object is not found - * - * - * Programmer: Ruey-Hsia Li - * - * Modifications: - * - *-----------------------------------------------------------------------*/ -static int -search_obj (table_t table, unsigned long *objno) { -int i=0, found=0; - - while (i < table.nobjs && !found) - if (table.objs[i].objno[0] == *(objno) && - table.objs[i].objno[1] == *(objno+1) ) found = 1; - else i++; - - if (!found) return -1; - else return i; - -} - - -/*------------------------------------------------------------------------- - * Function: add_obj - * - * Purpose: add a shared object to the table - * realloc the table if necessary - * - * Return: void - * - * Programmer: Ruey-Hsia Li - * - * Modifications: - * - *-----------------------------------------------------------------------*/ -static void -add_obj (table_t *table, unsigned long *objno, char *objname) { -int i; - - if (table->nobjs == table->size) { - table->size *= 2; - table->objs = realloc (table->objs, table->size*sizeof(shared_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].recorded = 0; - } - } - - i = table->nobjs++; - table->objs[i].objno[0] = *objno; - table->objs[i].objno[1] = *(objno+1); - strcpy (table->objs[i].objname, objname); - -} - +#if H5DUMP_DEBUG /*------------------------------------------------------------------------- * Function: dump_tables * @@ -1110,136 +1039,38 @@ int i; * Modifications: * *-----------------------------------------------------------------------*/ -/* + static void dump_tables(void) { int i; - printf("group_table: # of entries = %d\n", group_table.nobjs); - for ( i = 0; i < group_table.nobjs; i++) - printf ("%ul %ul %s\n %d %d", group_table.objs[i].objno[0], - group_table.objs[i].objno[1], - group_table.objs[i].objname, - group_table.objs[i].displayed, - group_table.objs[i].recorded); - - printf("\ndset_table: # of entries = %d\n", dset_table.nobjs); - for ( i = 0; i < dset_table.nobjs; i++) - printf ("%ul %ul %s %d %d\n", dset_table.objs[i].objno[0], - dset_table.objs[i].objno[1], - dset_table.objs[i].objname, - dset_table.objs[i].displayed, - dset_table.objs[i].recorded); + printf("group_table: # of entries = %d\n", group_table->nobjs); + for ( i = 0; i < group_table->nobjs; i++) + printf ("%ul %ul %s %d %d\n", group_table->objs[i].objno[0], + group_table->objs[i].objno[1], + group_table->objs[i].objname, + group_table->objs[i].displayed, + group_table->objs[i].recorded); + + printf("\ndset_table: # of entries = %d\n", dset_table->nobjs); + for ( i = 0; i < dset_table->nobjs; i++) + printf ("%ul %ul %s %d %d\n", dset_table->objs[i].objno[0], + dset_table->objs[i].objno[1], + dset_table->objs[i].objname, + dset_table->objs[i].displayed, + dset_table->objs[i].recorded); - printf("\ntype_table: # of entries = %d\n", type_table.nobjs); - for ( i = 0; i < type_table.nobjs; i++) - printf ("%ul %ul %s %d %d\n", type_table.objs[i].objno[0], - type_table.objs[i].objno[1], - type_table.objs[i].objname, - type_table.objs[i].displayed, - type_table.objs[i].recorded); + printf("\ntype_table: # of entries = %d\n", type_table->nobjs); + for ( i = 0; i < type_table->nobjs; i++) + printf ("%ul %ul %s %d %d\n", type_table->objs[i].objno[0], + type_table->objs[i].objno[1], + type_table->objs[i].objname, + type_table->objs[i].displayed, + type_table->objs[i].recorded); } -*/ - - -/*------------------------------------------------------------------------- - * Function: Find_shared_objs - * - * Purpose: Find shared objects, committed types and store them in tables - * - * Return: Success: SUCCEED - * - * Failure: FAIL - * - * Programmer: Ruey-Hsia Li - * - * Modifications: - * - *-----------------------------------------------------------------------*/ -static herr_t -find_shared_objs(hid_t group, const char *name, void UNUSED *op_data) -{ -hid_t obj, type; -H5G_stat_t statbuf; -char *tmp; -int i; - H5Gget_objinfo(group, name, TRUE, &statbuf); +#endif - tmp = (char *) malloc ((strlen(prefix)+strlen(name)+2) * sizeof(char)); - - strcpy(tmp, prefix); - - switch (statbuf.type) { - - case H5G_GROUP: - if ((obj=H5Gopen (group, name))>=0) { - - if (prefix_len < (int)(strlen(prefix) + strlen(name) + 2)) { - prefix_len *= 2; - prefix = realloc (prefix, prefix_len * sizeof(char)); - } - strcat(strcat(prefix,"/"), name); - - if (statbuf.nlink > 1) { - if (search_obj (group_table, statbuf.objno) < 0) { - add_obj (&group_table, statbuf.objno, prefix); - H5Giterate (obj, ".", NULL, find_shared_objs, NULL); - } - } else - H5Giterate (obj, ".", NULL, find_shared_objs, NULL); - - strcpy(prefix, tmp); - H5Gclose (obj); - - } else - status = 1; - - break; - - case H5G_DATASET: - - strcat(tmp,"/"); - strcat(tmp,name); /* absolute name of the data set */ - if (statbuf.nlink > 1 && - search_obj (dset_table, statbuf.objno) < 0) - add_obj (&dset_table, statbuf.objno, tmp); - - if ((obj=H5Dopen (group, name))>=0) { - type = H5Dget_type (obj); - if (H5Tcommitted(type) > 0 ) { - H5Gget_objinfo(type, ".", TRUE, &statbuf); - if (search_obj (type_table, statbuf.objno) < 0) - add_obj (&type_table, statbuf.objno, tmp) ; - } - H5Tclose(type); - H5Dclose (obj); - } else - status = 1; - - break; - - case H5G_TYPE: - strcat(tmp,"/"); - strcat(tmp,name); /* absolute name of the type */ - i = search_obj (type_table, statbuf.objno); - if (i < 0) { - add_obj (&type_table, statbuf.objno, tmp) ; - type_table.objs[type_table.nobjs-1].recorded = 1; /* named data type */ - } else { - strcpy (type_table.objs[i].objname, tmp); - type_table.objs[i].recorded = 1; - } - break; - - default: - break; - } - - free (tmp); - - return SUCCEED; -} /*------------------------------------------------------------------------- @@ -1299,6 +1130,9 @@ main(int argc, char *argv[]) H5G_stat_t statbuf; void *edata; hid_t (*func)(void*); + find_objs_t *info = malloc(sizeof(find_objs_t)); + + /* Disable error reporting */ H5Eget_auto (&func, &edata); @@ -1412,21 +1246,34 @@ main(int argc, char *argv[]) /* allocate and initialize internal data structure */ init_table(); + + /*init the find_objs_t*/ + info->threshold = 0; + info->prefix_len = 1024; + info->prefix = malloc(sizeof(char)*info->prefix_len); + *(info->prefix) = '\0'; + info->group_table = group_table; + info->type_table = type_table; + info->dset_table = dset_table; + info->status = status; + + + /* find all shared objects */ - H5Giterate (fid, "/", NULL, find_shared_objs, NULL); + H5Giterate (fid, "/", NULL, find_objs, (void*)info); strcpy(prefix, ""); /* does there exist unamed committed data type */ - for ( i = 0; i < type_table.nobjs; i++) - if (type_table.objs[i].recorded == 0) unamedtype = 1; + for ( i = 0; i < type_table->nobjs; i++) + if (type_table->objs[i].recorded == 0) unamedtype = 1; + -/* #ifdef H5DUMP_DEBUG dump_tables(); #endif -*/ - if (status) { + + if (info->status) { printf("internal error! \n"); goto done; } @@ -1481,16 +1328,16 @@ main(int argc, char *argv[]) if (statbuf.nlink > 1) { index = search_obj (dset_table, statbuf.objno); if (index >= 0) { - if (dset_table.objs[index].displayed) { + if (dset_table->objs[index].displayed) { begin_obj(DATASET, argv[curr_arg]); indentation (indent+COL); printf("%s \"%s\"\n", HARDLINK, - dset_table.objs[index].objname); + dset_table->objs[index].objname); indentation (indent); end_obj(); } else { - strcpy(dset_table.objs[index].objname, argv[curr_arg]); - dset_table.objs[index].displayed = 1; + strcpy(dset_table->objs[index].objname, argv[curr_arg]); + dset_table->objs[index].displayed = 1; dump_dataset(dsetid, argv[curr_arg]); } } else status = 1; @@ -1572,12 +1419,12 @@ main(int argc, char *argv[]) /* check if argv[curr_arg] is unamed data type */ index = 0; - while (index < type_table.nobjs ) { - if (!type_table.objs[index].recorded) { /* unamed data type */ - sprintf(name,"#%lu:%lu\n", type_table.objs[index].objno[0], - type_table.objs[index].objno[1]); - sprintf(name1,"/#%lu:%lu\n", type_table.objs[index].objno[0], - type_table.objs[index].objno[1]); + while (index < type_table->nobjs ) { + if (!type_table->objs[index].recorded) { /* unamed data type */ + sprintf(name,"#%lu:%lu\n", type_table->objs[index].objno[0], + type_table->objs[index].objno[1]); + sprintf(name1,"/#%lu:%lu\n", type_table->objs[index].objno[0], + type_table->objs[index].objno[1]); if (!strncmp(name, argv[curr_arg], strlen(argv[curr_arg])) || !strncmp(name1, argv[curr_arg], strlen(argv[curr_arg]))) { break; @@ -1585,7 +1432,7 @@ main(int argc, char *argv[]) } index++; } - if (index == type_table.nobjs) { /* unknown type */ + if (index == type_table->nobjs) { /* unknown type */ begin_obj (DATATYPE, argv[curr_arg]); indentation (COL); fprintf (stdout, "h5dump error: unable to open %s\n", @@ -1593,7 +1440,7 @@ main(int argc, char *argv[]) end_obj(); status = 1; } else { - dsetid = H5Dopen (fid, type_table.objs[index].objname) ; + dsetid = H5Dopen (fid, type_table->objs[index].objname) ; typeid = H5Dget_type (dsetid); dump_named_datatype (typeid, argv[curr_arg]); H5Tclose(typeid); @@ -1616,11 +1463,12 @@ done: free(opts); if (H5Fclose (fid) < 0) status = 1; - free (group_table.objs); - free (dset_table.objs); - free (type_table.objs); + free (group_table->objs); + free (dset_table->objs); + free (type_table->objs); free (prefix); - + free (info->prefix); + free (info); return status; } diff --git a/tools/h5findshd.c b/tools/h5findshd.c index 088aa17..70672a1 100644 --- a/tools/h5findshd.c +++ b/tools/h5findshd.c @@ -103,7 +103,7 @@ free_table (void){ } } - +#if 0 /*------------------------------------------------------------------------- * Function: search_obj @@ -166,7 +166,7 @@ int i; strcpy (table->objs[i].objname, objname); } - +#endif /*------------------------------------------------------------------------- * Function: dump_tables @@ -206,7 +206,7 @@ int i; type_table.objs[i].objflag); } - +#if 0 /*------------------------------------------------------------------------- * Function: Find_shared_objs * @@ -311,6 +311,7 @@ int i; return status; } +#endif /*------------------------------------------------------------------------- * Function: H5findobj_once * diff --git a/tools/h5tools.c b/tools/h5tools.c index 1ecd067..80b300b 100644 --- a/tools/h5tools.c +++ b/tools/h5tools.c @@ -2480,3 +2480,167 @@ int h5dump_attr(hid_t oid, hid_t p_type){ } +/*------------------------------------------------------------------------- + * Function: search_obj + * + * Purpose: search the object specified by objno in the table + * + * Return: an integer, the location of the object + * -1 if object is not found + * + * + * Programmer: Ruey-Hsia Li + * + * Modifications: + * + *-----------------------------------------------------------------------*/ +int +search_obj (table_t *table, unsigned long *objno) { +int i=0, found=0; + + while (i < table->nobjs && !found) + if (table->objs[i].objno[0] == *(objno) && + table->objs[i].objno[1] == *(objno+1) ) found = 1; + else i++; + + if (!found) return -1; + else return i; + +} + + +/*------------------------------------------------------------------------- + * Function: add_obj + * + * Purpose: add a shared object to the table + * realloc the table if necessary + * + * Return: void + * + * Programmer: Ruey-Hsia Li + * + * Modifications: + * + *-----------------------------------------------------------------------*/ +void +add_obj (table_t *table, unsigned long *objno, char *objname) { +int i; + + if (table->nobjs == table->size) { + table->size *= 2; + table->objs = 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].recorded = 0; + } + } + + i = table->nobjs++; + table->objs[i].objno[0] = *objno; + table->objs[i].objno[1] = *(objno+1); + strcpy (table->objs[i].objname, objname); + +} +/*------------------------------------------------------------------------- + * Function: Find_objs + * + * Purpose: Find objects, committed types and store them in tables + * + * Return: Success: SUCCEED + * + * Failure: FAIL + * + * Programmer: Ruey-Hsia Li + * + * Modifications: + * + *-----------------------------------------------------------------------*/ +herr_t find_objs(hid_t group, const char *name, void *op_data) +{ + hid_t obj, type; + H5G_stat_t statbuf; + char *tmp; + int i; + find_objs_t *info = (find_objs_t*)op_data; + + if (info->threshold > 1) { /*will get an infinite loop if greater than 1*/ + return(FAIL); + } + + H5Gget_objinfo(group, name, TRUE, &statbuf); + + tmp = (char *) malloc ((strlen(info->prefix)+strlen(name)+2) * sizeof(char)); + + strcpy(tmp, info->prefix); + + switch (statbuf.type) { + + case H5G_GROUP: + if ((obj=H5Gopen (group, name))>=0) { + + if (info->prefix_len < (int)(strlen(info->prefix) + strlen(name) + 2)) { + info->prefix_len *= 2; + info->prefix = realloc (info->prefix, info->prefix_len * sizeof(char)); + } + strcat(strcat(info->prefix,"/"), name); + + if (statbuf.nlink > info->threshold) { + if (search_obj (info->group_table, statbuf.objno) < 0) { + add_obj (info->group_table, statbuf.objno, info->prefix); + H5Giterate (obj, ".", NULL, find_objs, (void*)info); + } + } else + H5Giterate (obj, ".", NULL, find_objs, (void*)info); + + strcpy(info->prefix, tmp); + H5Gclose (obj); + + } else + info->status = 1; + + break; + + case H5G_DATASET: + + strcat(tmp,"/"); + strcat(tmp,name); /* absolute name of the data set */ + if (statbuf.nlink > info->threshold && + search_obj (info->dset_table, statbuf.objno) < 0) + add_obj (info->dset_table, statbuf.objno, tmp); + + if ((obj=H5Dopen (group, name))>=0) { + type = H5Dget_type (obj); + if (H5Tcommitted(type) > 0 ) { + H5Gget_objinfo(type, ".", TRUE, &statbuf); + if (search_obj (info->type_table, statbuf.objno) < 0) + add_obj (info->type_table, statbuf.objno, tmp) ; + } + H5Tclose(type); + H5Dclose (obj); + } else + info->status = 1; + + break; + + case H5G_TYPE: + strcat(tmp,"/"); + strcat(tmp,name); /* absolute name of the type */ + i = search_obj (info->type_table, statbuf.objno); + if (i < 0) { + add_obj (info->type_table, statbuf.objno, tmp) ; + info->type_table->objs[info->type_table->nobjs-1].recorded = 1; /* named data type */ + } else { + strcpy (info->type_table->objs[i].objname, tmp); + info->type_table->objs[i].recorded = 1; + } + break; + + default: + break; + } + + free (tmp); + + return SUCCEED; +} diff --git a/tools/h5tools.h b/tools/h5tools.h index 5a85709..96b6ed6 100644 --- a/tools/h5tools.h +++ b/tools/h5tools.h @@ -15,6 +15,7 @@ #define ESCAPE_HTML 1 + /* * Information about how to format output. */ @@ -256,7 +257,6 @@ int h5dump_mem(FILE *stream, const h5dump_t *info, hid_t type, hid_t space, void *mem); int copy_atomic_char(char* output, char* input, int numchar, int freespace); - /*if we get a new program that needs to use the library add its name here*/ typedef enum { UNKNOWN, @@ -265,6 +265,40 @@ typedef enum { } ProgType; + +/*struct taken from the dumper. needed in table struct*/ +typedef struct obj_t{ +unsigned long objno[2]; +char objname[1024]; +int displayed; +int recorded; +} obj_t; + + +/*struct for the tables that the find_objs function uses*/ + +typedef struct table_t{ +int size; +int nobjs; +obj_t *objs; +} table_t; + + + +/*this struct stores the information that is passed to the find_objs function*/ +typedef struct find_objs_t { + int prefix_len; + char *prefix; + int threshold; /* should be 0 or 1 */ + table_t *group_table; + table_t *type_table; + table_t *dset_table; + int status; +} find_objs_t; + +herr_t find_objs(hid_t group, const char *name, void *op_data); +int search_obj (table_t *temp, unsigned long *); + /* taken from h5dump.h */ -- cgit v0.12