PSI sics-cvs-psi_pre-ansto

2003-06-13 00:00:00 +00:00
parent 2e3ddfb6c6
commit 3ffd0d8af4
1099 changed files with 318432 additions and 0 deletions
--- a/nxdump.c
+++ b/nxdump.c
@@ -0,0 +1,133 @@
+
+/*
+ *  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);
+}
+