mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r4892] ./hdf5-devel/tools/h5ls/h5ls.c

Browse Source 
2002-01-31 15:22:24 Robb Matzke  <matzke@arborea.spizella.com>
	*: Displays array data type information instead of saying `4-byte
	   class-10 unknown'.
This commit is contained in:
Robb Matzke 2002-01-31 14:47:06 -05:00
parent e0177ee0f3
commit 378df38955
1 changed files with 59 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

59
tools/h5ls/h5ls.c
View File

@ -1056,6 +1056,64 @@ display_vlen_type(hid_t type, int ind)
return TRUE;
}
/*---------------------------------------------------------------------------
* Purpose: Print information about an array type
*
* Return: Success: TRUE
*
* Failure: FALSE
*
* Programmer: Robb Matzke
* Thursday, January 31, 2002
*
* Modifications:
*---------------------------------------------------------------------------
*/
static hbool_t
display_array_type(hid_t type, int ind)
{
hid_t super;
int ndims, i, *perm=NULL, identity;
hsize_t *dims=NULL;
if (H5T_ARRAY!=H5Tget_class(type)) return FALSE;
ndims = H5Tget_array_ndims(type);
if (ndims) {
dims = malloc(ndims*sizeof(dims[0]));
perm = malloc(ndims*sizeof(perm[0]));
H5Tget_array_dims(type, dims, perm);
/* Print dimensions */
for (i=0; i<ndims; i++)
HDfprintf(stdout, "%s%Hu" , i?",":"[", dims[i]);
putchar(']');
/* Print permutation vector if not identity */
for (i=0, identity=TRUE; identity && i<ndims; i++) {
if (i!=perm[i]) identity = FALSE;
}
if (!identity) {
fputs(" perm=[", stdout);
for (i=0; i<ndims; i++)
HDfprintf(stdout, "%s%d", i?",":"", perm[i]);
putchar(']');
}
free(dims);
free(perm);
} else {
fputs(" [SCALAR]", stdout);
}
/* Print parent type */
putchar(' ');
super = H5Tget_super(type);
display_type(super, ind+4);
H5Tclose(super);
return TRUE;
}
/*-------------------------------------------------------------------------
* Function: display_type
@ -1110,6 +1168,7 @@ display_type(hid_t type, int ind)
display_string_type(type, ind) ||
display_reference_type(type, ind) ||
display_vlen_type(type, ind) ||
display_array_type(type, ind) ||
display_opaque_type(type, ind)) {
return;
}