/*
 *  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);
}