134 lines
3.3 KiB
C
134 lines
3.3 KiB
C
|
|
/*
|
|
* NXdump: Dump contents of HDF (hierarchical data format)
|
|
* file using the NEXUS API
|
|
*
|
|
* Author: N. Maliszewskyj, NIST Center for Neutron Research, June 1997
|
|
*/
|
|
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#include <mfhdf.h>
|
|
#include "napi.h"
|
|
|
|
#define INDENT_AMOUNT " "
|
|
|
|
char *
|
|
type2s(uint type){
|
|
static char unknownType[40];
|
|
|
|
switch (type){
|
|
case DFNT_NONE: return "DFNT_NONE";
|
|
case DFNT_FLOAT32: return "DFNT_FLOAT32";
|
|
case DFNT_FLOAT64: return "DFNT_FLOAT64";
|
|
case DFNT_INT8: return "DFNT_INT8";
|
|
case DFNT_UINT8: return "DFNT_UINT8";
|
|
case DFNT_INT16: return "DFNT_INT16";
|
|
case DFNT_UINT16: return "DFNT_UINT16";
|
|
case DFNT_INT32: return "DFNT_INT32";
|
|
case DFNT_UINT32: return "DFNT_UINT32";
|
|
}
|
|
|
|
return "Unsupported!";
|
|
}
|
|
|
|
|
|
int dumpAttr(NXhandle NXdat, char * parent, char * indent) {
|
|
int length, itype;
|
|
char name[VGNAMELENMAX], *data;
|
|
NXstatus NXstat;
|
|
|
|
while((NXstat = NXgetnextattr(NXdat, name, &length, &itype)) != NX_EOD) {
|
|
data = (char *) malloc(length + 1);
|
|
NXstat = NXgetattr(NXdat, name, data, length);
|
|
data[length] = 0;
|
|
printf("%s%s:%s=%s\n",indent,parent,name,data);
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
int dumpSDS(NXhandle NXdat, char * name, char * indent) {
|
|
char new_indent[80];
|
|
int rank, dims[MAX_VAR_DIMS], datatype,i;
|
|
NXstatus NXstat;
|
|
|
|
strcpy(new_indent,indent); strcat(new_indent,INDENT_AMOUNT);
|
|
NXstat = NXopendata(NXdat, name);
|
|
NXstat = NXgetinfo(NXdat, &rank, dims, &datatype);
|
|
|
|
printf("%sSD %s (datatype=%s, rank=%d, dimensions=%d",new_indent,
|
|
name, type2s(datatype), rank, dims[0]);
|
|
if (rank > 1) {
|
|
for (i=1;i<rank;i++) printf("X%d",dims[i]);
|
|
}
|
|
printf(")\n");
|
|
|
|
NXstat = dumpAttr(NXdat, name, new_indent);
|
|
NXstat = NXclosedata(NXdat);
|
|
return 0;
|
|
}
|
|
|
|
|
|
int dumpVG(NXhandle NXdat, char * indent) {
|
|
char name[VGNAMELENMAX],class[VGNAMELENMAX],new_indent[80];
|
|
int datatype;
|
|
NXstatus NXstat;
|
|
|
|
strcpy(new_indent,indent); strcat(new_indent,INDENT_AMOUNT);
|
|
|
|
while((NXstat = NXgetnextentry(NXdat, name, class, &datatype)) != NX_EOD){
|
|
switch(datatype){
|
|
case DFTAG_VG:
|
|
/* Do not display HDF internal Vgroups */
|
|
if (!((strcmp(class,"Dim0.0")==0) || (strcmp(class,"CDF0.0") ==0))) {
|
|
printf("%sV %s->%s\n",indent,class,name);
|
|
if ((NXstat = NXopengroup(NXdat,name,class)) == NX_ERROR) {
|
|
fprintf(stderr,"Error opening V group %s!",name);
|
|
return -1;
|
|
}
|
|
dumpVG(NXdat,new_indent);
|
|
NXstat = NXclosegroup(NXdat);
|
|
printf("%sv %s->%s\n",indent,class,name);
|
|
}
|
|
break;
|
|
default:
|
|
dumpSDS(NXdat,name,new_indent);
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
|
|
void
|
|
main(int argc, char ** argv) {
|
|
char name[VGNAMELENMAX], class[VGNAMELENMAX], indent[80] = "";
|
|
int datatype;
|
|
char filename[80];
|
|
NXhandle NXdat;
|
|
NXstatus NXstat;
|
|
|
|
if (argc < 2) {
|
|
fprintf(stderr,"Usage: nxdump <filename>\n");
|
|
exit(1);
|
|
}
|
|
strcpy(filename,argv[1]);
|
|
|
|
if ((NXdat = NXopen(filename,DFACC_RDWR)) == NULL) {
|
|
fprintf(stderr,"Unable to access file %s! Exiting...\n",filename);
|
|
exit(1);
|
|
}
|
|
|
|
/* Read and display global attributes */
|
|
dumpAttr(NXdat, "", indent);
|
|
|
|
/* Read anything else and recurse through V groups */
|
|
dumpVG(NXdat, indent);
|
|
|
|
NXclose(NXdat);
|
|
}
|
|
|