home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 580a.lha / hdf_utilities / src.LZH / src / hdfls.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-11-11  |  6.7 KB  |  201 lines
  1. /*****************************************************************************
  2. * 
  3. *              NCSA HDF version 3.10r3
  4. *                Dec 6, 1990
  5. *
  6. * NCSA HDF Version 3.10r3 source code and documentation are in the public
  7. * domain.  Specifically, we give to the public domain all rights for future
  8. * licensing of the source code, all resale rights, and all publishing rights.
  9. * 
  10. * We ask, but do not require, that the following message be included in all
  11. * derived works:
  12. * 
  13. * Portions developed at the National Center for Supercomputing Applications at
  14. * the University of Illinois at Urbana-Champaign.
  15. * 
  16. * THE UNIVERSITY OF ILLINOIS GIVES NO WARRANTY, EXPRESSED OR IMPLIED, FOR THE
  17. * SOFTWARE AND/OR DOCUMENTATION PROVIDED, INCLUDING, WITHOUT LIMITATION,
  18. * WARRANTY OF MERCHANTABILITY AND WARRANTY OF FITNESS FOR A PARTICULAR PURPOSE
  19. * 
  20. *****************************************************************************/
  21.  
  22. #ifdef RCSID
  23. static char RcsId[] = "@(#)$Revision: 3.2 $";
  24. #endif
  25. /*
  26. $Header: /pita/work/HDF/dev/RCS/src/hdfls.c,v 3.2 90/07/02 10:11:46 clow beta $
  27.  
  28. $Log:    hdfls.c,v $
  29.  * Revision 3.2  90/07/02  10:11:46  clow
  30.  * some cosmetic modifications
  31.  * 
  32. */
  33. #include <hdf/df.h>
  34.  
  35. #define MAXBUFF 2000
  36.  
  37. DFdesc desc[MAXBUFF];
  38.  
  39. int
  40.     debug=0,        /* Debugging is off by default */
  41.     xsort=1,         /* Sorting is on by default */
  42.     longout=0;      /* short output by default */
  43.  
  44. struct des {
  45.     int num;
  46.     char name[50];
  47. }   tagdes[]={
  48.         {DFTAG_NULL, "Empty               (Utility)   "},
  49.         {DFTAG_FID,  "File Identifier     (Utility)   "},
  50.         {DFTAG_FD,   "File Description    (Utility)   "},
  51.         {DFTAG_TID,  "Tag Identifier      (Utility)   "},
  52.         {DFTAG_TD,   "Tag Description     (Utility)   "},
  53.         {DFTAG_DIL,  "Data Id Label       (Utility)   "},
  54.         {DFTAG_DIA,  "Data Id Annotation  (Utility)   "},
  55.         {DFTAG_NT,   "Number type         (Utility)   "},
  56.         {DFTAG_MT,   "Machine type        (Utility)   "},
  57.         {DFTAG_ID8,  "Image Dimensions-8  (Raster-8)  "},
  58.         {DFTAG_IP8,  "Image Palette-8     (Raster-8)  "},
  59.         {DFTAG_RI8,  "Raster Image-8      (Raster-8)  "},
  60.         {DFTAG_CI8,  "Compressed Image-8  (Raster-8)  "},
  61.         {DFTAG_II8,  "Imcomp Image-8      (Raster-8)  "},
  62.         {DFTAG_ID,   "Image Dimensions    (Raster)    "},
  63.         {DFTAG_LUT,  "Image Palette       (Raster)    "},
  64.         {DFTAG_RI,   "Raster Image        (Raster)    "},
  65.         {DFTAG_CI,   "Compressed Image    (Raster)    "},
  66.         {DFTAG_RIG,  "Raster Image Group  (Raster)    "},
  67.         {DFTAG_LD,   "Palette Dimension   (Raster)    "},
  68.         {DFTAG_MD,   "Matte Dimension     (Raster)    "},
  69.         {DFTAG_MA,   "Matte Data          (Raster)    "},
  70.         {DFTAG_CCN,  "Color Correction    (Raster)    "},
  71.         {DFTAG_CFM,  "Color Format        (Raster)    "},
  72.         {DFTAG_AR,   "Aspect Ratio        (Raster)    "},
  73.         {DFTAG_DRAW, "Draw                (Composite) "},
  74.         {DFTAG_RUN,  "Run                 (Composite) "},
  75.         {DFTAG_XYP,  "X-Y position        (Composite) "},
  76.         {DFTAG_MTO,  "M/c-Type override   (Composite)"},
  77.         {DFTAG_T14,  "TEK 4014 Data       (Tektronix) "},
  78.         {DFTAG_T105, "TEK 4105 data       (Tektronix) "},
  79.         {DFTAG_RLE,  "Run Length Encoding (Raster)    "},
  80.         {DFTAG_IMC,  "IMCOMP Encoding     (Raster)    "},
  81.         {DFTAG_SDG,  "Scientific Data Group (SciData) "},
  82.         {DFTAG_SD,   "Scientific Data     (SciData)   "},
  83.         {DFTAG_SDD,  "SciData description (SciData)   "},
  84.         {DFTAG_SDL,  "SciData labels      (SciData)   "},
  85.         {DFTAG_SDU,  "SciData units       (SciData)   "},
  86.         {DFTAG_SDF,  "SciData formats     (SciData)   "},
  87.         {DFTAG_SDS,  "SciData scales      (SciData)   "},
  88.         {DFTAG_SDM,  "SciData max/min     (SciData)   "},
  89.         {DFTAG_SDC,  "SciData coordsys    (SciData)   "},
  90.         {-1,         "Unknown Tag                     "}
  91.     };
  92.  
  93. int compare( a,b)
  94. DFdesc *a,*b;
  95. {
  96.     if (a->tag>b->tag) return(1);
  97.     if (a->tag<b->tag) return(-1);
  98.     if (a->ref>b->ref) return(1);
  99.     if (a->ref<b->ref) return(-1);
  100.     return(0);
  101. }
  102.  
  103. main(argc, argv)
  104. int argc;
  105. char *argv[];
  106. {
  107.     DF *df;
  108.     int i=1, j, n;
  109.  
  110.     if (argc <2) {
  111.         printf("%s,  version: 1.0   date: December 1, 1988\n",argv[0]);
  112.         printf("hdfls [-o][-l] fn ....\n");
  113.         printf("        This program displays information about the");
  114.         printf(" data elements in\n");
  115.         printf("        HDF file.\n");
  116.         printf("    -o: Ordered - display in reference number order\n");
  117.         printf("    -l: Long format - display more information\n");
  118.         exit (1);
  119.         }
  120.     
  121.     if (argv[1][0]=='-') {
  122.         switch( argv[1][1]) {
  123.             case 'o':
  124.                 xsort=0;
  125.                 break;
  126.             case 'd':
  127.                 debug=1;
  128.                 break;
  129.             case 'l':
  130.                 longout = 1;
  131.                 break;
  132.             default:    
  133.                 printf("Unknown option :%c\n", argv[1][1]);
  134.                 break;
  135.             }
  136.         i++;
  137.         }
  138.     while (i<argc) {
  139.         df=DFopen( argv[i], DFACC_READ, -1);
  140.         printf( "%s:", argv[i]);
  141.         if (!df) {
  142.             if (DFerror==DFE_NOTDFFILE) 
  143.                     printf(" not an NCSA Format Data File.\n");
  144.             else printf(" Error opening file.\n");
  145.             i++;
  146.             continue;
  147.             }
  148.  
  149.         n = DFdescriptors(df, desc, 0, MAXBUFF);
  150.  
  151.         for (j=0; j<n; j++) {
  152.             if (debug) printf("%d) %d[%d]",j,desc[j].tag,desc[j].ref);
  153.             if (debug) printf(" off %d len %d\n",
  154.                     desc[j].offset,desc[j].length);
  155.             }
  156.  
  157.         if (xsort) qsort( (char *) desc, n, sizeof(DFdesc), compare);
  158.  
  159.         lprint(desc, n);
  160.  
  161.         if (DFclose(df)<0) printf("Error %d @ close\n", DFerror);
  162.         i++;
  163.         printf("\n");
  164.     }
  165.     return(0);              /* success */
  166. }
  167.  
  168. lprint( desc, num)
  169. DFdesc  *desc;
  170. int num;
  171. {
  172.     
  173.     int i=0,j=0;
  174.     int prev=0, empty=0;
  175.  
  176.     while (j <num) {
  177.         if (desc[j].tag==DFTAG_NULL) {
  178.             empty++;
  179.             j++;
  180.             continue;               /* don't print anything now */
  181.         }
  182.         i=0;
  183.         while (tagdes[i].num!=desc[j].tag  && tagdes[i].num>0) i++;
  184.         printf("\n%s:", tagdes[i].name);
  185.         printf(" (tag %d)\n",desc[j].tag);
  186.         if (!longout) printf("\tRef nos:");
  187.         prev=desc[j].tag;
  188.         while (desc[j].tag==prev && j<num) {
  189.             if (longout)
  190.                 printf("\t\tRef no %6d   %8d bytes\n", desc[j].ref,
  191.                                                             desc[j].length);
  192.             else {
  193.                 printf(" %d",desc[j].ref);
  194.             }
  195.             j++;
  196.         }
  197.     }
  198.     printf("\nEmpty (tag %d): %d slots\n",DFTAG_NULL, empty);
  199.     return(0);
  200. }
  201.