Algorithm 版 (精华区)

发信人: lofe ()感激生活(), 信区: Algorithm
标  题: Huf -- dhuff.c
发信站: 哈工大紫丁香 (Sun Sep  3 16:04:20 2000), 转信


/**************************************************************************
 *                                                                        *
 *  DHUFF.C:    Huffman Decompression Program.                            *
 *              14-August-1990    Bill Demas          Version 1.0         *
 *                         *
 *   This program decompresses a file previously compressed with the      *
 *   HUFF1 program.                                                       *
 *                                                                        *
 *           USAGE:   DHUFF <input file> <output file>                    *
 *                         *
 *   (DISK to DISK:  Input direct from disk, output direct to disk)       *
 **************************************************************************/


#include <stdio.h>
#include <stdlib.h>

#define    VERBOSE                          /* If defined, prints verbose
                                               program progress when it's
                                               running...                   */

short           decomp_tree[512];
unsigned short  code[256];
unsigned long   file_size;
unsigned char   code_length[256];

FILE            *ifile, *ofile;



/**************************************************************************

 MAIN ()

 This is the main program. It performs the Huffman decoding procedure in
 2 separate steps.

 I know that this program can be made more compact & faster, but I was more
 interested in UNDERSTANDABILITY !!!

 **************************************************************************/

void main (argc, argv)
int   argc;
char  *argv[];
{
   void  build_decomp_tree (), decompress_image ();


   if (argc == 3)
   {
      printf ("\nDHUFF:  Huffman Code Decompression Program.");
      printf ("\n        14-Aug-90  Bill Demas.  Version 1.0\n\n");


      if ((ifile = fopen (argv[1], "rb")) != NULL)
      {
         fread (&file_size, sizeof (file_size), 1, ifile);
         fread (code, 2, 256, ifile);
         fread (code_length, 1, 256, ifile);

         #ifdef VERBOSE
            printf ("(1) Building the tree.\n");
         #endif

         build_decomp_tree ();

         #ifdef VERBOSE
            printf ("(2) Decompressing & Creating the Output File.\n");
         #endif

         if ((ofile = fopen (argv[2], "wb")) != NULL)
         {
            decompress_image();
            fclose (ofile);
         }
         else
            printf ("\nERROR:  Couldn't create output file %s\n", argv[2]);

         fclose (ifile);
      }
      else
         printf ("\nERROR:  %s -- File not found!\n", argv[1]);
   }
   else
      printf ("Usage:  DHUFF <input filename> <output filename>\n\n");
}


/**************************************************************************

 BUILD_DECOMP_TREE ()

 This function builds the decompression tree.
 **************************************************************************/

void  build_decomp_tree ()
{
   register unsigned short  loop1;
   register unsigned short  current_index;

   unsigned short  loop;
   unsigned short  current_node = 1;


   decomp_tree[1] = 1;

   for (loop = 0; loop < 256; loop++)
   {
      if (code_length[loop])
      {
  current_index = 1;
  for (loop1 = code_length[loop] - 1; loop1 > 0; loop1--)
  {
     current_index = (decomp_tree[current_index] << 1) +
       ((code[loop] >> loop1) & 1);
     if (!(decomp_tree[current_index]))
        decomp_tree[current_index] = ++current_node;
  }
  decomp_tree[(decomp_tree[current_index] << 1) +
    (code[loop] & 1)] = -loop;
      }
   }
}


/**************************************************************************

 DECOMPRESS_IMAGE ()

 This function decompresses the compressed image.
 **************************************************************************/

void  decompress_image ()
{
   register unsigned short  cindex = 1;
   register char            curchar;
   register short           bitshift;

   unsigned long  charcount = 0L;


   while (charcount < file_size)
   {
      curchar = (char) getc (ifile);

      for (bitshift = 7; bitshift >= 0; --bitshift)
      {
  cindex = (cindex << 1) + ((curchar >> bitshift) & 1);

  if (decomp_tree[cindex] <= 0)
  {
     putc ((int) (-decomp_tree[cindex]), ofile);

     if ((++charcount) == file_size)
               bitshift = 0;
            else
               cindex = 1;
  }
  else
     cindex = decomp_tree[cindex];
      }
   }
}


--
     ┌─                           ─┐
        Every problem has a solution.
     └─                           ─┘
                             infosite@263.net

最好别去 http://infosite.topcool.net 否则……
※ 修改:．haojs 于 Sep  3 16:01:52 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: bbs.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: haojs.bbs@bbs.whnet.]
※ 修改:·lofe 於 09月03日16:07:50 修改本文·[FROM: 202.118.226.15]