home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 580a.lha / hdf_utilities / src.LZH / src / hdfcomp.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-11-11  |  3.8 KB  |  117 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.1 $";
  24. #endif
  25. /*
  26. $Header: /pita/work/HDF/dev/RCS/src/hdfcomp.c,v 3.1 90/07/02 10:11:49 clow beta $
  27.  
  28. $Log:    hdfcomp.c,v $
  29.  * Revision 3.1  90/07/02  10:11:49  clow
  30.  * some cosmetic modifications
  31.  * 
  32. */
  33.  
  34. /*
  35. *  hdfcomp.c
  36. *  Re-compress Raster-8 HDF file
  37. */
  38.  
  39. #include <hdf/df.h>
  40.  
  41. char *space;
  42. char palette[768];
  43. int32 xdim,ydim, ispal;
  44.  
  45. main(argc,argv) 
  46.     int argc;
  47.     char *argv[];
  48.     {
  49.     int i, ret;
  50.     char *outfile;
  51.     int image=1,compress=0;
  52.     uint16 prevref, writeref=200;
  53.  
  54.     if (argc < 3) { 
  55.         printf("%s,  version: 1.0   date: December 1, 1988\n",argv[0]);
  56.         printf("  This utility will read in raster-8 images from an\n");
  57.         printf("  HDF file and create a new HDF containing the\n");
  58.         printf("  images in a compressed format.  Images will be\n");
  59.         printf("  appended to outfile, if it exists.\n\n");
  60.         puts("Usage:");
  61.         puts(" hdfcomp outfile {[-c],[-r],[-i]} imagefile ...\n");
  62.                 puts("                 {[-c],[-r],[-i]} imagefile\n");
  63.         puts("         -r: Store without compression (default)");
  64.         puts("         -c: Store using RLE compression");
  65.                 puts("         -i: Store using IMCOMP compression");
  66.         exit(1);
  67.     }
  68.  
  69.     outfile = argv[1];
  70.  
  71.     for (i=2; i<argc; i++) {
  72.         if (*argv[i]=='-') {
  73.             switch (argv[i][1]) {
  74.                 case 'r':               /* raster */
  75.                     image=1;
  76.                     compress=0;
  77.                     break;
  78.                 case 'c':               /* RLE */
  79.                     image = 1;
  80.                     compress = DFTAG_RLE;
  81.                     break;
  82.                 case 'i':               /* IMCOMP */
  83.                     image=1;
  84.                     compress=DFTAG_IMC;
  85.                     break;
  86.                 default:
  87.                     printf("Illegal option: %s, skipping....\n",argv[i]);   
  88.                     break;
  89.             }
  90.         }
  91.         else { /* file name */
  92.             while (DFR8getdims(argv[i], &xdim, &ydim, &ispal)>=0) {
  93.                 prevref = DFR8lastref();
  94.                 if (NULL == (space = malloc(xdim*ydim))) {
  95.                     puts("Not enough memory to convert image");
  96.                     exit(1);
  97.                 }
  98.                 if (DFR8getimage(argv[i], space, xdim, ydim, palette)<0) {
  99.                     printf("Error reading image from file %s\n",argv[i]);
  100.                     exit(1);
  101.                 }
  102.                 if (ispal) DFR8setpalette(palette);
  103.                 ret = DFR8writeref(outfile, writeref++);
  104.                 if (DFR8addimage(outfile, space, xdim, ydim, compress)<0) {
  105.                     printf("Error writing image to file %s\n",outfile);
  106.                     exit(1);
  107.                 }
  108.                 ret = DFR8readref(argv[i], prevref);
  109.                         /* sequence past this image */
  110.                 ret = DFR8getdims(argv[i], &xdim, &ydim, &ispal);
  111.             }
  112.         }
  113.     }
  114.  
  115.     return(0);
  116. }
  117.