home *** CD-ROM | disk | FTP | other *** search
/ Altsys Virtuoso 2.0K / virtuoso_20k.iso / DemoApps / Graphics / Viewers / cdcomp / cdcomp.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-09-02  |  38.8 KB  |  1,085 lines
  1. /*
  2.  *    This is a slightly (just changed the args to fopen) modified version
  3.  *    of cdcomp.c to work with NeXT computers.
  4.  *    9-1-92   Robert Elder
  5.  */
  6.  
  7. /********************************************************************/
  8. /*  Voyager Image Decompression Program - C Version for PC, VAX,    */
  9. /*  and UNIX systems.                                               */
  10. /*                                                                  */
  11. /*  Decompresses images using Kris Becker's subroutine DECOMP.C     */
  12. /*  which is included in this program in a shortened version.       */
  13. /*                                                                  */
  14. /*  Reads a variable length compressed VOYAGER image and outputs a  */
  15. /*  fixed length uncompressed image file in PDS format with         */
  16. /*  labels, image histogram, engineering table and 800 lines of     */
  17. /*  836 bytes (800 samples, 36 engineering bytes); or an 800 by     */
  18. /*  800 array with FITS, VICAR or no labels.  If used on a non-     */
  19. /*  byte-swapped machine the image histogram is un-swapped.         */
  20. /*                                                                  */
  21. /*  Use the following commands to compile and link to produce an    */
  22. /*  executable file:                                                */
  23. /*                                                                  */
  24. /*  On an IBM PC (using Microsoft C Version 5.x)                    */
  25. /*                                                                  */
  26. /*    cl /c cdcomp.c                                                */
  27. /*    link  cdcomp/stack:10000;                                     */
  28. /*                                                                  */
  29. /*  On a VAX:                                                       */
  30. /*                                                                  */
  31. /*    cc   cdcomp                                                   */
  32. /*    link cdcomp                                                   */
  33. /*                                                                  */
  34. /*  On a Unix host (Sun, Masscomp, NeXT)                            */
  35. /*                                                                  */
  36. /*    cc -o cdcomp cdcomp.c                                         */
  37. /*                                                                  */
  38. /* LIMS                                                             */
  39. /*  This program has been tested on a VAX 780 (VMS 4.6), SUN        */
  40. /*  Workstation (UNIX 4.2, release 3.4), and an IBM PC              */
  41. /*  (MICROSOFT 5.1 compiler).  When converting to other             */
  42. /*  systems, check for portability conflicts.                       */
  43. /*                                                                  */
  44. /* HIST                                                             */
  45. /*  JUL88 C driver to decompress standard Voyager Compressed images */
  46. /*  by Mike Martin 1988/07/30                                       */
  47. /*                                                                  */
  48. /*  Inputs   - Input file to be decompressed.                       */
  49. /*                                                                  */
  50. /*  Outputs  - Output file containing decompressed image.           */
  51. /*                                                                  */
  52. /********************************************************************/
  53.  
  54. #include <libc.h>
  55.  
  56. #define TRUE                  1
  57. #define FALSE                 0
  58. #define RECORD_BYTES        836
  59.  
  60.                                     /* pc i/o defines               */
  61. #define O_RDONLY         0x0000     /* open for reading only        */
  62. #define O_BINARY         0x8000     /* file mode is binary          */
  63.  
  64.                                     /* vax i/o defines              */
  65. #define RECORD_TYPE      "rfm=fix"  /* VAX fixed length output      */
  66. #define CTX              "ctx=bin"  /* no translation of \n         */
  67. #define FOP          "fop=cif,sup"  /* file processing ops          */
  68.  
  69. typedef struct leaf
  70.   {
  71.    struct leaf *right;
  72.    short int dn;
  73.    struct leaf *left;
  74.   } NODE;
  75.  
  76. /*************************************************************************
  77.  Declare the tree pointer. This pointer will hold the root of the tree
  78.  once the tree is created by the accompanying routine huff_tree.
  79. **************************************************************************/
  80.  
  81.   NODE *tree;
  82.  
  83. /* subroutine definitions */
  84.  
  85. void               pds_labels();
  86. void               fits_labels();
  87. void               vicar_labels();
  88. void               no_labels();
  89. int                check_host();
  90. int                get_files();
  91. long               swap_long();
  92. void               decompress();
  93. void               decmpinit();
  94.  
  95. /* global variables */
  96.  
  97. int                infile;
  98. FILE               *outfile;
  99. int                output_format;
  100.  
  101. main()
  102.  
  103. {
  104.   char          ibuf[2048],obuf[2048];
  105.   unsigned char blank=32;
  106.   short         host,length,total_bytes,line,i;
  107.   long          long_length,hist[511];
  108.   int           out_bytes = RECORD_BYTES;
  109.   int           count;
  110.  
  111.   /*********************************************************************/
  112.   /*                                                                   */
  113.   /* get host information and input and output files                   */
  114.   /*                                                                   */
  115.   /*********************************************************************/
  116.   
  117.   host = check_host();
  118.   host = get_files(host); /* may change host if VAX */
  119.   
  120.   /*********************************************************************/
  121.   /*                                                                   */
  122.   /* read and edit compressed file labels                              */
  123.   /*                                                                   */
  124.   /*********************************************************************/
  125.   
  126.   switch (output_format)
  127.   {
  128.   case 1: pds_labels(host);
  129.     break;
  130.   case 2: fits_labels(host);
  131.     break;
  132.   case 3: vicar_labels(host);
  133.     break;
  134.   case 4: no_labels(host);
  135.   }
  136.   /*********************************************************************/
  137.   /*                                                                   */
  138.   /* process the image histogram                                       */
  139.   /*                                                                   */
  140.   /*********************************************************************/
  141.   
  142.   /* need to know record_bytes,hist_count,hist_item_type,item_count.*/
  143.   total_bytes = 0;
  144.   length = read_var((char *)hist,host);
  145.   total_bytes = total_bytes + length;
  146.   length = read_var((char *)hist+836,host);
  147.   total_bytes = total_bytes + length;
  148.   
  149.   if (host == 2 || host == 5)             /* If non-byte swapped    */
  150.     for (i=0;i<256;i++)                   /* host, swap bytes in    */
  151.       hist[i] = swap_long(hist[i]);       /* the output histogram   */
  152.   
  153.   if (output_format == 1)
  154.   {
  155.     fwrite((char *)hist,    836,1,outfile);
  156.     fwrite((char *)hist+836,length,1,outfile);
  157.     
  158.     /*  pad out the histogram to a multiple of RECORD_BYTES */
  159.     for (i=total_bytes;i<RECORD_BYTES*2;i++) fputc(blank,outfile);
  160.   }
  161.   /*********************************************************************/
  162.   /*                                                                   */
  163.   /* process the encoding histogram                                    */
  164.   /* don't have to byte-swap because DECOMP.C does it for us           */
  165.   /*                                                                   */
  166.   /*********************************************************************/
  167.   
  168.   length = read_var((char *)hist,host);
  169.   length = read_var((char *)hist+836,host);
  170.   length = read_var((char *)hist+1672,host);
  171.   
  172.   /*********************************************************************/
  173.   /*                                                                   */
  174.   /* process the engineering summary                                   */
  175.   /*                                                                   */
  176.   /*********************************************************************/
  177.   
  178.   total_bytes = 0;
  179.   length = read_var(ibuf,host);
  180.   
  181.   if (output_format == 1)
  182.   {
  183.     fwrite(ibuf,length,1,outfile);
  184.     total_bytes = total_bytes + length;
  185.     
  186.     /*  pad out engineering to multiple of 836 */
  187.     for (i=total_bytes;i<RECORD_BYTES;i++) fputc(blank,outfile);
  188.   }
  189.   /*********************************************************************/
  190.   /*                                                                   */
  191.   /* initialize the decompression                                      */
  192.   /*                                                                   */
  193.   /*********************************************************************/
  194.   
  195.   printf("\nInitializing decompression routine...");
  196.   decmpinit(hist);
  197.   
  198.   /*********************************************************************/
  199.   /*                                                                   */
  200.   /* decompress the image                                              */
  201.   /*                                                                   */
  202.   /*********************************************************************/
  203.   
  204.   printf("\nDecompressing data...");
  205.   line=0;
  206.   do
  207.   {
  208.     length = read_var(ibuf,host);
  209.     if (length <= 0) break;
  210.     long_length = (long)length;
  211.     line += 1;
  212.     decompress(ibuf, obuf,&long_length, &out_bytes);
  213.     if (output_format == 1)
  214.     {
  215.       count = fwrite(obuf,RECORD_BYTES,1,outfile);
  216.       if (count != 1)
  217.       {
  218.     printf("\nError writing output file.  Aborting program.");
  219.     printf("\nCheck disk space or for duplicate file name on VAX.");
  220.     exit(1);
  221.       }
  222.     }
  223.     else fwrite(obuf,800,1,outfile);
  224.     
  225.     if (line % 100 == 0) printf("\n line %d",line);
  226.   } while (length > 0 && line < 800);
  227.   
  228.   /*  pad out FITS file to a multiple of 2880 */
  229.   if (output_format == 2)
  230.     for (i=0;i<2240;i++) fputc(blank,outfile);
  231.   
  232.   printf("\n");
  233.   close(infile);
  234.   fclose(outfile);
  235. }
  236.  
  237. /*********************************************************************/
  238. /*                                                                   */
  239. /* subroutine get_files - get input filenames and open               */
  240. /*                                                                   */
  241. /*********************************************************************/
  242.  
  243. int get_files(host)
  244.      int host;
  245.      
  246. {
  247.   char    inname[80],outname[80];
  248.   short   shortint;
  249.   
  250.   printf("\nEnter name of file to be decompressed: ");
  251.   gets (inname);
  252.   if (host == 1)
  253.   {
  254.     if ((infile = open(inname,O_RDONLY | O_BINARY)) <= 0)
  255.     {
  256.       printf("\ncan't open input file: %s\n",inname);
  257.       exit(1);
  258.     }
  259.   }
  260.   else if (host == 2 | host == 3 | host == 5)
  261.   {
  262.     if ((infile = open(inname,O_RDONLY)) <= 0)
  263.     {
  264.       printf("\ncan't open input file: %s\n",inname);
  265.       exit(1);
  266.     }
  267.     
  268.     /****************************************************************/
  269.     /* If we are on a vax see if the file is in var length format.  */
  270.     /* This logic is in here in case the vax file has been stored   */
  271.     /* in fixed or undefined format.  This might be necessary since */
  272.     /* vax variable length files can't be moved to other computer   */
  273.     /* systems with standard comm programs (kermit, for example).   */
  274.     /****************************************************************/
  275.     
  276.     if (host == 3)
  277.     {
  278.       read(infile,&shortint,2);
  279.       if (shortint > 0 && shortint < 80)
  280.       {
  281.     host = 4;              /* change host to 4                */
  282.     printf("This is not a VAX variable length file.");
  283.       }
  284.       else printf("This is a VAX variable length file.");
  285.       lseek(infile,0,0);        /* reposition to beginning of file */
  286.     }
  287.   }
  288.   
  289.   output_format = 0;
  290.   do
  291.   {
  292.     printf("\nEnter a number for the output format desired:\n");
  293.     printf("\n  1.  SFDU/PDS format.");
  294.     printf("\n  2.  FITS format.");
  295.     printf("\n  3.  VICAR format.");
  296.     printf("\n  4.  Unlabelled binary array.\n");
  297.     printf("\n  Enter format number:");
  298.     gets(inname);
  299.     output_format = atoi(inname);
  300.   } while (output_format < 1 || output_format > 4);
  301.   
  302.   printf("\nEnter name of uncompressed output file: ");
  303.   gets (outname);
  304.   
  305.   if (host == 1 || host == 2 || host == 5)
  306.   {
  307.     if ((outfile = fopen(outname,"wb"))==NULL)
  308.     {
  309.       printf("\ncan't open output file: %s\n",outname);
  310.       exit(1);
  311.     }
  312.   }
  313.   else if (host == 3 || host == 4)
  314.   {
  315.     if (output_format == 1)      /* write PDS format blocks */
  316.     {
  317.       if ((outfile=fopen(outname,"w"))==NULL)
  318.       {
  319.     printf("\ncan't open output file: %s\n",outname);
  320.     exit(1);
  321.       }
  322.     }
  323.     else if (output_format == 2) /* write FITS format blocks */
  324.     {
  325.       if ((outfile=fopen(outname,"w"))==NULL)
  326.       {
  327.     printf("\ncan't open output file: %s\n",outname);
  328.     exit(1);
  329.       }
  330.     }
  331.     else                         /* write 800 byte records */
  332.     {
  333.       if ((outfile=fopen(outname,"w"))==NULL)
  334.       {
  335.     printf("\ncan't open output file: %s\n",outname);
  336.     exit(1);
  337.       }
  338.     }
  339.   }
  340.   
  341.   return(host);  /* In case its been updated */
  342. }
  343.  
  344. /*********************************************************************/
  345. /*                                                                   */
  346. /* subroutine pds_labels - edit PDS labels and write to output file */
  347. /*                                                                   */
  348. /*********************************************************************/
  349.  
  350. void pds_labels(host)
  351.      int host;
  352.      
  353. {
  354.   char          outstring[80],ibuf[2048];
  355.   unsigned char cr=13,lf=10,blank=32;
  356.   short         length,nlen,total_bytes,line,i;
  357.   
  358.   
  359.   total_bytes = 0;
  360.   do
  361.   {
  362.     length = read_var(ibuf,host);
  363.     ibuf[length]=NULL;
  364.     
  365.     /******************************************************************/
  366.     /*  edit labels which need to be changed                          */
  367.     /******************************************************************/
  368.     
  369.     if      ((i = strncmp(ibuf,"NJPL1I00PDS1",12)) == 0)
  370.       /*****************************************************************/
  371.       /* add the output file length to the sfdu label                  */
  372.       /*****************************************************************/
  373.     {
  374.       strcpy(outstring,ibuf);
  375.       strcpy(outstring+12,"00673816");
  376.       strcpy(outstring+20,ibuf+20);
  377.       fwrite(outstring,length,1,outfile);
  378.       fprintf(outfile,"%c%c",cr,lf);
  379.       total_bytes = total_bytes + length + 2;
  380.     }
  381.     else if ((i = strncmp(ibuf,"RECORD_TYPE",11)) == 0)
  382.       /*****************************************************************/
  383.       /* change the record_type value from variable to fixed           */
  384.       /*****************************************************************/
  385.     {
  386.       strcpy(ibuf+35,"FIXED_LENGTH");
  387.       length = length - 3;
  388.       fwrite(ibuf,length,1,outfile);
  389.       fprintf(outfile,"%c%c",cr,lf);
  390.       total_bytes = total_bytes + length + 2;
  391.     }
  392.     else if ((i = strncmp(ibuf,"FILE_RECORDS",12)) == 0)
  393.       /*****************************************************************/
  394.       /* change the file_records count to 806                          */
  395.       /*****************************************************************/
  396.     {
  397.       strcpy(ibuf+35,"806");
  398.       fwrite(ibuf,length,1,outfile);
  399.       fprintf(outfile,"%c%c",cr,lf);
  400.       total_bytes = total_bytes + length + 2;
  401.     }
  402.     else if ((i = strncmp(ibuf,"LABEL_RECORDS",13)) == 0)
  403.       /*****************************************************************/
  404.       /* change the label_records count from 56 to 3                    */
  405.       /*****************************************************************/
  406.     {
  407.       strcpy(ibuf+35,"3");
  408.       length -= 1;
  409.       fwrite(ibuf,length,1,outfile);
  410.       fprintf(outfile,"%c%c",cr,lf);
  411.       total_bytes = total_bytes + length + 2;
  412.     }
  413.     else if ((i = strncmp(ibuf,"^IMAGE_HISTOGRAM",16)) == 0)
  414.       /*****************************************************************/
  415.       /* change the location pointer of image_histogram to record 4    */
  416.       /*****************************************************************/
  417.     {
  418.       strcpy(ibuf+35,"4");
  419.       length -= 1;
  420.       fwrite(ibuf,length,1,outfile);
  421.       fprintf(outfile,"%c%c",cr,lf);
  422.       total_bytes = total_bytes + length + 2;
  423.     }
  424.     else if ((i = strncmp(ibuf,"^ENCODING_HISTOGRAM)",19)) == 0);
  425.     /*****************************************************************/
  426.     /* delete the encoding_histogram location pointer                */
  427.     /*****************************************************************/
  428.     else if ((i = strncmp(ibuf,"^ENGINEERING_TABLE",18)) == 0)
  429.       /*****************************************************************/
  430.       /* change the location pointer of engineering_summary to record 6*/
  431.       /*****************************************************************/
  432.     {
  433.       strcpy(ibuf+35,"6");
  434.       length -= 1;
  435.       fwrite(ibuf,length,1,outfile);
  436.       fprintf(outfile,"%c%c",cr,lf);
  437.       total_bytes = total_bytes + length + 2;
  438.     }
  439.     else if ((i = strncmp(ibuf,"^IMAGE",6)) == 0)
  440.       /*****************************************************************/
  441.       /* change the location pointer of image to record 7              */
  442.       /*****************************************************************/
  443.     {
  444.       strcpy(ibuf+35,"7");
  445.       length = length -1;
  446.       fwrite(ibuf,length,1,outfile);
  447.       fprintf(outfile,"%c%c",cr,lf);
  448.       total_bytes = total_bytes + length + 2;
  449.     }
  450.     else if ((i = strncmp(ibuf,
  451.               "OBJECT                           = ENCODING",43)) == 0)
  452.       /*****************************************************************/
  453.       /* delete the 4 encoding histogram labels                        */
  454.       /*****************************************************************/
  455.     {
  456.       for (i=0;i<4;i++)   /* ignore these labels */
  457.       {
  458.     length = read_var(ibuf,host);
  459.       }
  460.     }
  461.     else if ((i = strncmp(ibuf," ENCODING",9)) == 0);
  462.     /*****************************************************************/
  463.     /* delete the encoding type label in the image object            */
  464.     /*****************************************************************/
  465.     else if ((host == 2 || host == 5) && (i = strncmp(ibuf,
  466.                               " ITEM_TYPE                       = VAX_INTEGER",46)) == 0)
  467.       /*****************************************************************/
  468.       /* change the record_type value from variable to fixed           */
  469.       /*****************************************************************/
  470.     {
  471.       strcpy(ibuf+35,"INTEGER");
  472.       length = length - 4;
  473.       fwrite(ibuf,length,1,outfile);
  474.       fprintf(outfile,"%c%c",cr,lf);
  475.       total_bytes = total_bytes + length + 2;
  476.     }
  477.     
  478.     
  479.     
  480.     /*****************************************************************/
  481.     /* if none of above write out the label to the output file       */
  482.     /*****************************************************************/
  483.     else
  484.     {
  485.       fwrite(ibuf,length,1,outfile);
  486.       fprintf(outfile,"%c%c",cr,lf);
  487.       total_bytes = total_bytes + length + 2;
  488.     }
  489.     /*****************************************************************/
  490.     /* test for the end of the PDS labels                            */
  491.     /*****************************************************************/
  492.     if ((i = strncmp(ibuf,"END",3)) == 0 && length == 3) break;
  493.   } while (length > 0);
  494.   
  495.   /* pad out the labels with blanks to multiple of RECORD_BYTES */
  496.   for (i=total_bytes;i<RECORD_BYTES*3;i++) fputc(blank,outfile);
  497. }
  498.  
  499. /*********************************************************************/
  500. /*                                                                   */
  501. /* subroutine fits_labels - write FITS header to output file */
  502. /*                                                                   */
  503. /*********************************************************************/
  504.  
  505. void fits_labels(host)
  506.      int host;
  507.      
  508. {
  509.   char          ibuf[2048],outstring[80];
  510.   unsigned char cr=13,lf=10,blank=32;
  511.   short         length,nlen,total_bytes,line,i;
  512.   
  513.   do
  514.   {
  515.     length = read_var(ibuf,host);
  516.     /*****************************************************************/
  517.     /* read to the end of the PDS labels                             */
  518.     /*****************************************************************/
  519.     if ((i = strncmp(ibuf,"END",3)) == 0 && length == 3) break;
  520.   } while (length > 0);
  521.   
  522.   total_bytes = 0;
  523.   
  524.   strcpy(outstring,
  525.      "SIMPLE  =                    T                                                ");
  526.   fwrite(outstring,78,1,outfile);
  527.   fprintf(outfile,"%c%c",cr,lf);
  528.   total_bytes = total_bytes + 80;
  529.   
  530.   strcpy(outstring,
  531.      "BITPIX  =                    8                                                ");
  532.   fwrite(outstring,78,1,outfile);
  533.   fprintf(outfile,"%c%c",cr,lf);
  534.   total_bytes = total_bytes + 80;
  535.   
  536.   strcpy(outstring,
  537.      "NAXIS   =                    2                                                ");
  538.   fwrite(outstring,78,1,outfile);
  539.   fprintf(outfile,"%c%c",cr,lf);
  540.   total_bytes = total_bytes + 80;
  541.   
  542.   strcpy(outstring,
  543.      "NAXIS1  =                  800                                                ");
  544.   fwrite(outstring,78,1,outfile);
  545.   fprintf(outfile,"%c%c",cr,lf);
  546.   total_bytes = total_bytes + 80;
  547.   
  548.   strcpy(outstring,
  549.      "NAXIS2  =                  800                                                ");
  550.   fwrite(outstring,78,1,outfile);
  551.   fprintf(outfile,"%c%c",cr,lf);
  552.   total_bytes = total_bytes + 80;
  553.   
  554.   strcpy(outstring,
  555.      "END                                                                           ");
  556.   fwrite(outstring,78,1,outfile);
  557.   fprintf(outfile,"%c%c",cr,lf);
  558.   total_bytes = total_bytes + 80;
  559.   
  560.   /* pad out the labels with blanks to multiple of RECORD_BYTES */
  561.   for (i=total_bytes;i<2880;i++) fputc(blank,outfile);
  562. }
  563.  
  564. /*********************************************************************/
  565. /*                                                                   */
  566. /* subroutine vicar_labels - write vicar labels to output file       */
  567. /*                                                                   */
  568. /*********************************************************************/
  569.  
  570. void vicar_labels(host)
  571.      int host;
  572.      
  573. {
  574.   char          ibuf[2048],outstring[80];
  575.   unsigned char cr=13,lf=10,blank=32;
  576.   short         length,nlen,total_bytes,line,i;
  577.   
  578.   do
  579.   {
  580.     length = read_var(ibuf,host);
  581.     /*****************************************************************/
  582.     /* read to the end of the PDS labels                             */
  583.     /*****************************************************************/
  584.     if ((i = strncmp(ibuf,"END",3)) == 0 && length == 3) break;
  585.   } while (length > 0);
  586.   
  587.   total_bytes = 0;
  588.   
  589.   strcpy(outstring,
  590.      "LBLSIZE=800             FORMAT='BYTE'  TYPE='IMAGE'  BUFSIZ=800  DIM=2  ");
  591.   fwrite(outstring,72,1,outfile);
  592.   total_bytes = total_bytes + 72;
  593.   strcpy(outstring,
  594.      "EOL=0  RECSIZE=800  ORG='BSQ'  NL=800  NS=800  NB=1  N1=0  N2=0  N3=0  ");
  595.   total_bytes = total_bytes + 71;
  596.   fwrite(outstring,71,1,outfile);
  597.   strcpy(outstring,
  598.      "N4=0  NBB=0  NLB=0");
  599.   fwrite(outstring,18,1,outfile);
  600.   fprintf(outfile,"%c%c",cr,lf);
  601.   total_bytes = total_bytes + 20;
  602.   
  603.   /* pad out the labels with blanks to multiple of RECORD_BYTES */
  604.   for (i=total_bytes;i<800;i++) fputc(blank,outfile);
  605. }
  606.  
  607. /*********************************************************************/
  608. /*                                                                   */
  609. /* subroutine no_labels - read past the pds labels                   */
  610. /*                                                                   */
  611. /*********************************************************************/
  612.  
  613. void no_labels(host)
  614.      int host;
  615.      
  616. {
  617.   char          ibuf[2048],outstring[80];
  618.   unsigned char cr=13,lf=10,blank=32;
  619.   short         length,nlen,total_bytes,line,i;
  620.   
  621.   do
  622.   {
  623.     length = read_var(ibuf,host);
  624.     /*****************************************************************/
  625.     /* read to the end of the PDS labels                             */
  626.     /*****************************************************************/
  627.     if ((i = strncmp(ibuf,"END",3)) == 0 && length == 3) break;
  628.   } while (length > 0);
  629.   
  630. }
  631.  
  632.  
  633. /*********************************************************************/
  634. /*                                                                   */
  635. /* subroutine read_var - read variable length records from input file*/
  636. /*                                                                   */
  637. /*********************************************************************/
  638.  
  639. read_var(ibuf,host)
  640.      char  *ibuf;
  641.      int   host;
  642. {
  643.   int   length,result,nlen;
  644.   char  temp;
  645.   union /* this union is used to swap 16 and 32 bit integers          */
  646.   {
  647.     char  ichar[4];
  648.     short slen;
  649.     long  llen;
  650.   } onion;
  651.   
  652.   switch (host)
  653.   {
  654.   case 1: /*******************************************************/
  655.     /* IBM PC host                                         */
  656.     /*******************************************************/
  657.     length = 0;
  658.     result = read(infile,&length,2);
  659.     nlen =   read(infile,ibuf,length+(1*length%2));
  660.     return (length);
  661.     break;
  662.     
  663.   case 2: /*******************************************************/
  664.     /* non byte swapped 16 bit host                        */
  665.     /*******************************************************/
  666.     length = 0;
  667.     result = read(infile,onion.ichar,2);
  668.     /*     byte swap the length field                            */
  669.     temp   = onion.ichar[0];
  670.     onion.ichar[0]=onion.ichar[1];
  671.     onion.ichar[1]=temp;
  672.     /* printf("length=%04x,result=%d\n",length,result);          */
  673.     nlen =   read(infile,ibuf,length+(1*length%2));
  674.     return (length);
  675.     break;
  676.     
  677.   case 3: /*******************************************************/
  678.     /* VAX host with variable length support               */
  679.     /*******************************************************/
  680.     length = read(infile,ibuf,RECORD_BYTES);
  681.     return (length);
  682.     
  683.   case 4: /*******************************************************/
  684.     /* VAX host, but not a variable length file            */
  685.     /*******************************************************/
  686.     length = 0;
  687.     result = read(infile,&length,2);
  688.     nlen =   read(infile,ibuf,length+(1*length%2));
  689.     
  690.     /* check to see if we crossed a vax record boundary          */
  691.     while (nlen < length)
  692.       nlen += read(infile,ibuf+nlen,length+(1*length%2)-nlen);
  693.     return (length);
  694.     break;
  695.     
  696.   case 5: /*******************************************************/
  697.     /* non byte swapped 32 bit host without var support    */
  698.     /*******************************************************/
  699.     length = 0;
  700.     result = read(infile,onion.ichar,2);
  701.     /*     byte swap the length field                            */
  702.     temp   = onion.ichar[0];
  703.     onion.ichar[0]=onion.ichar[1];
  704.     onion.ichar[1]=temp;
  705.     length = onion.slen;
  706.     /* printf("length=%04x,result=%d\n",length,result); */
  707.     nlen =   read(infile,ibuf,length+(1*length%2));
  708.     return (length);
  709.     break;
  710.   }
  711. }
  712.  
  713. /*********************************************************************/
  714. /*                                                                   */
  715. /* subroutine check_host - find out what kind of machine we are on   */
  716. /*                                                                   */
  717. /*********************************************************************/
  718.  
  719. int check_host()
  720. {
  721.   /*  This subroutine checks the attributes of the host computer and
  722.       returns a host code number.
  723.       */
  724.   char hostname[80];
  725.   
  726.   int swap,host,bits,var;
  727.   union
  728.   {
  729.     char  ichar[2];
  730.     short ilen;
  731.   } onion;
  732.   
  733.   if (sizeof(var) == 4) bits = 32;
  734.   else bits = 16;
  735.   
  736.   onion.ichar[0] = 1;
  737.   onion.ichar[1] = 0;
  738.   
  739.   if (onion.ilen == 1) swap = TRUE;
  740.   else                 swap = FALSE;
  741.   
  742.   if (bits == 16 && swap == TRUE)
  743.   {
  744.     host = 1; /* IBM PC host  */
  745.     strcpy(hostname,
  746.        "Type 1 - 16 bit integers with swapping, no var len support.");
  747.   }
  748.   
  749.   if (bits == 16 && swap == FALSE)
  750.   {
  751.     host = 2; /* Non byte swapped 16 bit host  */
  752.     strcpy(hostname,
  753.        "Type 2 - 16 bit integers without swapping, no var len support.");
  754.   }
  755.   
  756.   if (bits == 32 && swap == TRUE)
  757.   { host = 3; /* VAX host with var length support */
  758.     strcpy(hostname,
  759.        "Type 3,4 - 32 bit integers with swapping.");
  760.   }
  761.   
  762.   if (bits == 32 && swap == FALSE)
  763.   {
  764.     host = 5; /* OTHER 32-bit host  */
  765.     strcpy(hostname,
  766.        "Type 5 - 32 bit integers without swapping, no var len support.");
  767.   }
  768.   
  769.   printf("%s\n",hostname);
  770.   return(host);
  771. }
  772.  
  773. long swap_long(inval)  /* swap 4 byte integer                       */
  774.      long inval;
  775. {
  776.   union /* this union is used to swap 16 and 32 bit integers          */
  777.   {
  778.     char  ichar[4];
  779.     short slen;
  780.     long  llen;
  781.   } onion;
  782.   char   temp;
  783.   
  784.   /* byte swap the input field                                      */
  785.   onion.llen   = inval;
  786.   temp   = onion.ichar[0];
  787.   onion.ichar[0]=onion.ichar[3];
  788.   onion.ichar[3]=temp;
  789.   temp   = onion.ichar[1];
  790.   onion.ichar[1]=onion.ichar[2];
  791.   onion.ichar[2]=temp;
  792.   return (onion.llen);
  793. }
  794.  
  795. void decompress(ibuf,obuf,nin,nout)
  796.      /****************************************************************************
  797.       *_TITLE decompress - decompresses image lines stored in compressed format   *
  798.       *_ARGS  TYPE       NAME      I/O        DESCRIPTION                         */
  799.      char       *ibuf;  /* I         Compressed data buffer              */
  800.      char       *obuf;  /* O         Decompressed image line             */
  801.      long int   *nin;   /* I         Number of bytes on input buffer     */
  802.      long int   *nout;  /* I         Number of bytes in output buffer    */
  803.      
  804. {
  805.   /* The external root pointer to tree */
  806.   extern NODE *tree;
  807.   
  808.   /* Declare functions called from this routine */
  809.   void dcmprs();
  810.   
  811.   /*************************************************************************
  812.     This routine is fairly simple as it's only function is to call the
  813.     routine dcmprs.
  814.     **************************************************************************/
  815.   
  816.   dcmprs(ibuf,obuf,nin,nout,tree);
  817.   
  818.   return;
  819. }
  820.  
  821. void decmpinit(hist)
  822.      /***************************************************************************
  823.       *_TITLE decmpinit - initializes the Huffman tree                           *
  824.       *_ARGS  TYPE       NAME      I/O        DESCRIPTION                        */
  825.      long int   *hist;  /* I         First-difference histogram.        */
  826.      
  827. {
  828.   extern NODE *tree;          /* Huffman tree root pointer */
  829.   
  830.   /* Specify the calling function to initialize the tree */
  831.   NODE *huff_tree();
  832.   
  833.   /****************************************************************************
  834.     Simply call the huff_tree routine and return.
  835.     *****************************************************************************/
  836.   
  837.   tree = huff_tree(hist);
  838.   
  839.   return;
  840. }
  841.  
  842. NODE *huff_tree(hist)
  843.      /****************************************************************************
  844.       *_TITLE huff_tree - constructs the Huffman tree; returns pointer to root    *
  845.       *_ARGS  TYPE          NAME        I/O   DESCRIPTION                         */
  846.      long int     *hist;     /* I    First difference histogram          */
  847.      
  848. {
  849.   /*  Local variables used */
  850.   long int freq_list[512];      /* Histogram frequency list */
  851.   NODE **node_list;             /* DN pointer array list */
  852.   
  853.   register long int *fp;        /* Frequency list pointer */
  854.   register NODE **np;           /* Node list pointer */
  855.   
  856.   register long int num_freq;   /* Number non-zero frequencies in histogram */
  857.   long int sum;                 /* Sum of all frequencies */
  858.   
  859.   register short int num_nodes; /* Counter for DN initialization */
  860.   register short int cnt;       /* Miscellaneous counter */
  861.   
  862.   short int znull = -1;         /* Null node value */
  863.   
  864.   register NODE *temp;          /* Temporary node pointer */
  865.   
  866.   /* Functions called */
  867.   void sort_freq();
  868.   NODE *new_node();
  869.   char *malloc();
  870.   
  871.   /***************************************************************************
  872.     Allocate the array of nodes from memory and initialize these with numbers
  873.     corresponding with the frequency list.  There are only 511 possible
  874.     permutations of first difference histograms.  There are 512 allocated
  875.     here to adhere to the FORTRAN version.
  876.     ****************************************************************************/
  877.   
  878.   fp = freq_list;
  879.   node_list = (NODE **) malloc(sizeof(temp)*512);
  880.   if (node_list == NULL)
  881.   {
  882.     printf("\nOut of memory in huff_tree!\n");
  883.     exit(1);
  884.   }
  885.   np = node_list;
  886.   
  887.   for (num_nodes=1, cnt=512 ; cnt-- ; num_nodes++)
  888.   {
  889.     /**************************************************************************
  890.       The following code has been added to standardize the VAX byte order
  891.       for the "long int" type.  This code is intended to make the routine
  892.       as machine independant as possible.
  893.       ***************************************************************************/
  894.     unsigned char *cp = (unsigned char *) hist++;
  895.     unsigned long int j;
  896.     short int i;
  897.     for (i=4 ; --i >= 0 ; j = (j << 8) | *(cp+i));
  898.     
  899.     /* Now make the assignment */
  900.     *fp++ = j;
  901.     temp = new_node(num_nodes);
  902.     *np++ = temp;
  903.   }
  904.   
  905.   (*--fp) = 0;         /* Ensure the last element is zeroed out.  */
  906.   
  907.   /***************************************************************************
  908.     Now, sort the frequency list and eliminate all frequencies of zero.
  909.     ****************************************************************************/
  910.   
  911.   num_freq = 512;
  912.   sort_freq(freq_list,node_list,num_freq);
  913.   
  914.   fp = freq_list;
  915.   np = node_list;
  916.   
  917.   for (num_freq=512 ; (*fp) == 0 && (num_freq) ; fp++, np++, num_freq--);
  918.   
  919.   
  920.   /***************************************************************************
  921.     Now create the tree.  Note that if there is only one difference value,
  922.     it is returned as the root.  On each interation, a new node is created
  923.     and the least frequently occurring difference is assigned to the right
  924.     pointer and the next least frequency to the left pointer.  The node
  925.     assigned to the left pointer now becomes the combination of the two
  926.     nodes and it's frequency is the sum of the two combining nodes.
  927.     ****************************************************************************/
  928.   
  929.   for (temp=(*np) ; (num_freq--) > 1 ; )
  930.   {
  931.     temp = new_node(znull);
  932.     temp->right = (*np++);
  933.     temp->left = (*np);
  934.     *np = temp;
  935.     *(fp+1) = *(fp+1) + *fp;
  936.     *fp++ = 0;
  937.     sort_freq(fp,np,num_freq);
  938.   }
  939.   
  940.   return temp;
  941. }
  942.  
  943. NODE *new_node(value)
  944.      /****************************************************************************
  945.       *_TITLE new_node - allocates a NODE structure and returns a pointer to it   *
  946.       *_ARGS  TYPE        NAME        I/O     DESCRIPTION                         */
  947.      short int   value;    /* I      Value to assign to DN field         */
  948.      
  949. {
  950.   NODE *temp;         /* Pointer to the memory block */
  951.   
  952.   char *malloc();     /* Memory allocation function */
  953.   
  954.   /***************************************************************************
  955.     Allocate the memory and intialize the fields.
  956.     ****************************************************************************/
  957.   
  958.   temp = (NODE *) malloc(sizeof(NODE));
  959.   
  960.   if (temp != NULL)
  961.   {
  962.     temp->right = NULL;
  963.     temp->dn = value;
  964.     temp->left = NULL;
  965.   }
  966.   else
  967.   {
  968.     printf("\nOut of memory in new_node!\n");
  969.     exit(1);
  970.   }
  971.   
  972.   return temp;
  973. }
  974.  
  975. void sort_freq(freq_list,node_list,num_freq)
  976.      /****************************************************************************
  977.       *_TITLE sort_freq - sorts frequency and node lists in increasing freq. order*
  978.       *_ARGS  TYPE       NAME            I/O  DESCRIPTION                         */
  979.      long int   *freq_list;   /* I   Pointer to frequency list           */
  980.      NODE       **node_list;  /* I   Pointer to array of node pointers   */
  981.      long int   num_freq;     /* I   Number of values in freq list       */
  982.      
  983. {
  984.   /* Local Variables */
  985.   register long int *i;       /* primary pointer into freq_list */
  986.   register long int *j;       /* secondary pointer into freq_list */
  987.   
  988.   register NODE **k;          /* primary pointer to node_list */
  989.   register NODE **l;          /* secondary pointer into node_list */
  990.   
  991.   long int temp1;             /* temporary storage for freq_list */
  992.   NODE *temp2;                /* temporary storage for node_list */
  993.   
  994.   register long int cnt;      /* count of list elements */
  995.   
  996.   
  997.   /************************************************************************
  998.     Save the current element - starting with the second - in temporary
  999.     storage.  Compare with all elements in first part of list moving
  1000.     each up one element until the element is larger.  Insert current
  1001.     element at this point in list.
  1002.     *************************************************************************/
  1003.   
  1004.   if (num_freq <= 0) return;      /* If no elements or invalid, return */
  1005.   
  1006.   for (i=freq_list, k=node_list, cnt=num_freq ; --cnt ; *j=temp1, *l=temp2)
  1007.   {
  1008.     temp1 = *(++i);
  1009.     temp2 = *(++k);
  1010.     
  1011.     for (j = i, l = k ;  *(j-1) > temp1 ; )
  1012.     {
  1013.       *j = *(j-1);
  1014.       *l = *(l-1);
  1015.       j--;
  1016.       l--;
  1017.       if ( j <= freq_list) break;
  1018.     }
  1019.     
  1020.   }
  1021.   return;
  1022. }
  1023.  
  1024. void dcmprs(ibuf,obuf,nin,nout,root)
  1025.      /****************************************************************************
  1026.       *_TITLE dcmprs - decompresses Huffman coded compressed image lines          *
  1027.       *_ARGS  TYPE       NAME       I/O       DESCRIPTION                         */
  1028.      char       *ibuf;   /* I        Compressed data buffer              */
  1029.      char       *obuf;   /* O        Decompressed image line             */
  1030.      long int   *nin;    /* I        Number of bytes on input buffer     */
  1031.      long int   *nout;   /* I        Number of bytes in output buffer    */
  1032.      NODE       *root;   /* I        Huffman coded tree                  */
  1033.      
  1034. {
  1035.   /* Local Variables */
  1036.   register NODE *ptr = root;        /* pointer to position in tree */
  1037.   register unsigned char test;      /* test byte for bit set */
  1038.   register unsigned char idn;       /* input compressed byte */
  1039.   
  1040.   register char odn;                /* last dn value decompressed */
  1041.   
  1042.   char *ilim = ibuf + *nin;         /* end of compressed bytes */
  1043.   char *olim = obuf + *nout;        /* end of output buffer */
  1044.   
  1045.   /**************************************************************************
  1046.     Check for valid input values for nin, nout and make initial assignments.
  1047.     ***************************************************************************/
  1048.   
  1049.   if (ilim > ibuf && olim > obuf)
  1050.     odn = *obuf++ = *ibuf++;
  1051.   else
  1052.   {
  1053.     printf("\nInvalid byte count in dcmprs!\n");
  1054.     exit(1);
  1055.   }
  1056.   
  1057.   /**************************************************************************
  1058.     Decompress the input buffer.  Assign the first byte to the working
  1059.     variable, idn.  An arithmatic and (&) is performed using the variable
  1060.     'test' that is bit shifted to the right.  If the result is 0, then
  1061.     go to right else go to left.
  1062.     ***************************************************************************/
  1063.   
  1064.   for (idn=(*ibuf) ; ibuf < ilim  ; idn =(*++ibuf))
  1065.   {
  1066.     for (test=0x80 ; test ; test >>= 1)
  1067.     {
  1068.       ptr = (test & idn) ? ptr->left : ptr->right;
  1069.       
  1070.       if (ptr->dn != -1)
  1071.       {
  1072.     if (obuf >= olim) return;
  1073.     odn -= ptr->dn + 256;
  1074.     *obuf++ = odn;
  1075.     ptr = root;
  1076.       }
  1077.     }
  1078.   }
  1079.   return;
  1080. }
  1081.  
  1082.  
  1083.  
  1084.  
  1085.