home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / util / unix / macutil2.sha / macutil / macunpack / cpt.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-05  |  17.2 KB  |  715 lines
  1. #include "macunpack.h"
  2. #ifdef DD
  3. #ifndef CPT
  4. #define CPT
  5. #endif /* CPT */
  6. #endif /* DD */
  7. #ifdef CPT
  8. #include "globals.h"
  9. #include "cpt.h"
  10. #include "crc.h"
  11. #include "../util/util.h"
  12. #include "../fileio/machdr.h"
  13. #include "../fileio/wrfile.h"
  14. #include "../fileio/kind.h"
  15. #include "../util/masks.h"
  16. #include "huffman.h"
  17.  
  18. #define    ESC1        0x81
  19. #define    ESC2        0x82
  20. #define NONESEEN    0
  21. #define ESC1SEEN    1
  22. #define ESC2SEEN    2
  23.  
  24. extern char *malloc();
  25. extern char *realloc();
  26. extern int free();
  27.  
  28. static void cpt_uncompact();
  29. static unsigned char *cpt_data;
  30. static unsigned long cpt_datamax;
  31. static unsigned long cpt_datasize;
  32. static unsigned char cpt_LZbuff[CIRCSIZE];
  33. static unsigned int cpt_LZptr;
  34. static unsigned char *cpt_char;
  35. static unsigned long cpt_crc;
  36. static unsigned long cpt_inlength;
  37. static unsigned long cpt_outlength;
  38. static int cpt_outstat;
  39. static unsigned char cpt_savechar;
  40. static unsigned long cpt_newbits;
  41. static int cpt_bitsavail;
  42. static int cpt_blocksize;
  43. /* Lengths is twice the max number of entries, and include slack. */
  44. #define SLACK    6
  45. static node cpt_Hufftree[512 + SLACK], cpt_LZlength[128 + SLACK],
  46.         cpt_LZoffs[256 + SLACK];
  47.  
  48. static int readcpthdr();
  49. static int cpt_filehdr();
  50. static void cpt_folder();
  51. static void cpt_uncompact();
  52. static void cpt_wrfile();
  53. void cpt_wrfile1();
  54. static void cpt_outch();
  55. static void cpt_rle();
  56. static void cpt_rle_lzh();
  57. static void cpt_readHuff();
  58. static int cpt_get6bits();
  59. static int cpt_getbit();
  60.  
  61. void cpt()
  62. {
  63.     struct cptHdr cpthdr;
  64.     struct fileHdr filehdr;
  65.     char *cptindex;
  66.     char *cptptr;
  67.     int i;
  68.  
  69.     updcrc = zip_updcrc;
  70.     crcinit = zip_crcinit;
  71.     cpt_crc = INIT_CRC;
  72.     if(readcpthdr(&cpthdr) == 0) {
  73.     (void)fprintf(stderr, "Can't read archive header\n");
  74. #ifdef SCAN
  75.     do_error("macunpack: Can't read archive header");
  76. #endif /* SCAN */
  77.     exit(1);
  78.     }
  79.  
  80.     cptindex = malloc((unsigned)(cpthdr.entries * FILEHDRSIZE));
  81.     if(cptindex == NULL) {
  82.     (void)fprintf(stderr, "Insufficient memory, aborting\n");
  83.     exit(1);
  84.     }
  85.     cptptr = cptindex;
  86.     if(fread(cptptr, 1, (int)cpthdr.commentsize, infp) != cpthdr.commentsize) {
  87.     (void)fprintf(stderr, "Can't read comment.\n");
  88. #ifdef SCAN
  89.     do_error("macunpack: Can't read comment");
  90. #endif /* SCAN */
  91.     exit(1);
  92.     }
  93.     cpt_crc = (*updcrc)(cpt_crc, cptptr, cpthdr.commentsize);
  94.  
  95.     for(i = 0; i < cpthdr.entries; i++) {
  96.     *cptptr = getc(infp);
  97.     cpt_crc = (*updcrc)(cpt_crc, cptptr, 1);
  98.     if(*cptptr & 0x80) {
  99.         cptptr[F_FOLDER] = 1;
  100.         *cptptr &= 0x3f;
  101.     } else {
  102.         cptptr[F_FOLDER] = 0;
  103.     }
  104.     if(fread(cptptr + 1, 1, *cptptr, infp) != *cptptr) {
  105.         (void)fprintf(stderr, "Can't read file header #%d\n", i+1);
  106. #ifdef SCAN
  107.         do_error("macunpack: Can't read file header");
  108. #endif /* SCAN */
  109.         exit(1);
  110.     }
  111.     cpt_crc = (*updcrc)(cpt_crc, cptptr + 1, *cptptr);
  112.     if(cptptr[F_FOLDER]) {
  113.         if(fread(cptptr + F_FOLDERSIZE, 1, 2, infp) != 2) {
  114.         (void)fprintf(stderr, "Can't read file header #%d\n", i+1);
  115. #ifdef SCAN
  116.         do_error("macunpack: Can't read file header");
  117. #endif /* SCAN */
  118.         exit(1);
  119.         }
  120.         cpt_crc = (*updcrc)(cpt_crc, cptptr + F_FOLDERSIZE, 2);
  121.     } else {
  122.         if(fread(cptptr + F_VOLUME, 1, FILEHDRSIZE - F_VOLUME, infp) !=
  123.         FILEHDRSIZE - F_VOLUME) {
  124.         (void)fprintf(stderr, "Can't read file header #%d\n", i+1);
  125. #ifdef SCAN
  126.         do_error("macunpack: Can't read file header");
  127. #endif /* SCAN */
  128.         exit(1);
  129.         }
  130.         cpt_crc = (*updcrc)(cpt_crc, cptptr + F_VOLUME,
  131.                 FILEHDRSIZE - F_VOLUME);
  132.     }
  133.     cptptr += FILEHDRSIZE;
  134.     }
  135.     if(cpt_crc != cpthdr.hdrcrc) {
  136.     (void)fprintf(stderr, "Header CRC mismatch: got 0x%08x, need 0x%08x\n",
  137.         (int)cpthdr.hdrcrc, (int)cpt_crc);
  138. #ifdef SCAN
  139.     do_error("macunpack: Header CRC mismatch");
  140. #endif /* SCAN */
  141.     exit(1);
  142.     }
  143.  
  144.     cptptr = cptindex;
  145.     for(i = 0; i < cpthdr.entries; i++) {
  146.     if(cpt_filehdr(&filehdr, cptptr) == -1) {
  147.         (void)fprintf(stderr, "Can't read file header #%d\n", i+1);
  148. #ifdef SCAN
  149.         do_error("macunpack: Can't read file header");
  150. #endif /* SCAN */
  151.         exit(1);
  152.     }
  153.     if(filehdr.folder) {
  154.         cpt_folder(text, filehdr, cptptr);
  155.         i += filehdr.foldersize;
  156.         cptptr += filehdr.foldersize * FILEHDRSIZE;
  157.     } else {
  158.         cpt_uncompact(filehdr);
  159.     }
  160.     cptptr += FILEHDRSIZE;
  161.     }
  162.     (void)free(cptindex);
  163. }
  164.  
  165. static int readcpthdr(s)
  166. struct cptHdr *s;
  167. {
  168.     char temp[CHDRSIZE];
  169.  
  170.     if(fread(temp, 1, CPTHDRSIZE, infp) != CPTHDRSIZE) {
  171.     return 0;
  172.     }
  173.  
  174.     if(temp[C_SIGNATURE] != 1) {
  175.     (void)fprintf(stderr, "Not a Compactor file\n");
  176.     return 0;
  177.     }
  178.  
  179.     cpt_datasize = get4(temp + C_IOFFSET);
  180.     s->offset = cpt_datasize;
  181.     if(cpt_datasize > cpt_datamax) {
  182.     if(cpt_datamax == 0) {
  183.         cpt_data = (unsigned char *)malloc((unsigned)cpt_datasize);
  184.     } else {
  185.         cpt_data = (unsigned char *)realloc((char *)cpt_data,
  186.                         (unsigned)cpt_datasize);
  187.     }
  188.     cpt_datamax = cpt_datasize;
  189.     }
  190.     if(cpt_data == NULL) {
  191.     (void)fprintf(stderr, "Insufficient memory, aborting\n");
  192.     exit(1);
  193.     }
  194.  
  195.     if(fread((char *)(cpt_data + CPTHDRSIZE), 1,
  196.     (int)s->offset - CPTHDRSIZE, infp) != s->offset - CPTHDRSIZE) {
  197.     return 0;
  198.     }
  199.  
  200.     if(fread(temp + CPTHDRSIZE, 1, CPTHDR2SIZE, infp) != CPTHDR2SIZE) {
  201.     return 0;
  202.     }
  203.  
  204.     cpt_crc = (*updcrc)(cpt_crc, temp + CPTHDRSIZE + C_ENTRIES, 3);
  205.     s->hdrcrc = get4(temp + CPTHDRSIZE + C_HDRCRC);
  206.     s->entries = get2(temp + CPTHDRSIZE + C_ENTRIES);
  207.     s->commentsize = temp[CPTHDRSIZE + C_COMMENT];
  208.  
  209.     return 1;
  210. }
  211.  
  212. static int cpt_filehdr(f, hdr)
  213. struct fileHdr *f;
  214. char *hdr;
  215. {
  216.     register int i;
  217.     int n;
  218.     char ftype[5], fauth[5];
  219.  
  220.     for(i = 0; i < INFOBYTES; i++) {
  221.     info[i] = '\0';
  222.     }
  223.  
  224.     n = hdr[F_FNAME] & BYTEMASK;
  225.     if(n > F_NAMELEN) {
  226.     n = F_NAMELEN;
  227.     }
  228.     info[I_NAMEOFF] = n;
  229.     copy(info + I_NAMEOFF + 1, hdr + F_FNAME + 1, n);
  230.     transname(hdr + F_FNAME + 1, text, n);
  231.  
  232.     f->folder = hdr[F_FOLDER];
  233.     if(f->folder) {
  234.     f->foldersize = get2(hdr + F_FOLDERSIZE);
  235.     } else {
  236.     f->cptFlag = get2(hdr + F_CPTFLAG);
  237.     f->rsrcLength = get4(hdr + F_RSRCLENGTH);
  238.     f->dataLength = get4(hdr + F_DATALENGTH);
  239.     f->compRLength = get4(hdr + F_COMPRLENGTH);
  240.     f->compDLength = get4(hdr + F_COMPDLENGTH);
  241.     f->fileCRC = get4(hdr + F_FILECRC);
  242.     f->FndrFlags = get2(hdr + F_FNDRFLAGS);
  243.     f->filepos = get4(hdr + F_FILEPOS);
  244.     f->volume = hdr[F_VOLUME];
  245.     }
  246.  
  247.     write_it = 1;
  248.     if(list) {
  249.     do_indent(indent);
  250.     if(f->folder) {
  251.         (void)fprintf(stderr, "folder=\"%s\"", text);
  252.     } else {
  253.         transname(hdr + F_FTYPE, ftype, 4);
  254.         transname(hdr + F_CREATOR, fauth, 4);
  255.         (void)fprintf(stderr,
  256.             "name=\"%s\", type=%4.4s, author=%4.4s, data=%ld, rsrc=%ld",
  257.             text, ftype, fauth,
  258.             (long)f->dataLength, (long)f->rsrcLength);
  259.     }
  260.     if(info_only) {
  261.         write_it = 0;
  262.     }
  263.     if(query) {
  264.         write_it = do_query();
  265.     } else {
  266.         (void)fputc('\n', stderr);
  267.     }
  268.     }
  269.  
  270.  
  271.     if(write_it) {
  272.     define_name(text);
  273.  
  274.     if(!f->folder) {
  275.         copy(info + I_TYPEOFF, hdr + F_FTYPE, 4);
  276.         copy(info + I_AUTHOFF, hdr + F_CREATOR, 4);
  277.         copy(info + I_FLAGOFF, hdr + F_FNDRFLAGS, 2);
  278.         copy(info + I_DLENOFF, hdr + F_DATALENGTH, 4);
  279.         copy(info + I_RLENOFF, hdr + F_RSRCLENGTH, 4);
  280.         copy(info + I_CTIMOFF, hdr + F_CREATIONDATE, 4);
  281.         copy(info + I_MTIMOFF, hdr + F_MODDATE, 4);
  282.     }
  283.     }
  284.     return 1;
  285. }
  286.  
  287. static void cpt_folder(name, fileh, cptptr)
  288. char *name;
  289. struct fileHdr fileh;
  290. char *cptptr;
  291. {
  292.     int i, nfiles;
  293.     char loc_name[64];
  294.     struct fileHdr filehdr;
  295.  
  296.     for(i = 0; i < 64; i++) {
  297.     loc_name[i] = name[i];
  298.     }
  299.     if(write_it || info_only) {
  300.     cptptr += FILEHDRSIZE;
  301.     nfiles = fileh.foldersize;
  302.     if(write_it) {
  303.         do_mkdir(text, info);
  304.     }
  305.     indent++;
  306.     for(i = 0; i < nfiles; i++) {
  307.         if(cpt_filehdr(&filehdr, cptptr) == -1) {
  308.         (void)fprintf(stderr, "Can't read file header #%d\n", i+1);
  309. #ifdef SCAN
  310.         do_error("macunpack: Can't read file header");
  311. #endif /* SCAN */
  312.         exit(1);
  313.         }
  314.         if(filehdr.folder) {
  315.         cpt_folder(text, filehdr, cptptr);
  316.         i += filehdr.foldersize;
  317.         cptptr += filehdr.foldersize * FILEHDRSIZE;
  318.         } else {
  319.         cpt_uncompact(filehdr);
  320.         }
  321.         cptptr += FILEHDRSIZE;
  322.     }
  323.     if(write_it) {
  324.         enddir();
  325.     }
  326.     indent--;
  327.     if(list) {
  328.         do_indent(indent);
  329.         (void)fprintf(stderr, "leaving folder \"%s\"\n", loc_name);
  330.     }
  331.     }
  332. }
  333.  
  334. static void cpt_uncompact(filehdr)
  335. struct fileHdr filehdr;
  336. {
  337.     if(filehdr.cptFlag & 1) {
  338.     (void)fprintf(stderr, "\tFile is password protected, skipping file\n");
  339. #ifdef SCAN
  340.     do_idf("", PROTECTED);
  341. #endif /* SCAN */
  342.     return;
  343.     }
  344.     if(write_it) {
  345.     start_info(info, filehdr.rsrcLength, filehdr.dataLength);
  346.     cpt_crc = INIT_CRC;
  347.     cpt_char = cpt_data + filehdr.filepos;
  348.     }
  349.     if(verbose) {
  350.     (void)fprintf(stderr, "\tRsrc: ");
  351.     if(filehdr.compRLength == 0) {
  352.         (void)fprintf(stderr, "empty");
  353.     } else if(filehdr.cptFlag & 2) {
  354.         (void)fprintf(stderr, "RLE/LZH compressed (%4.1f%%)",
  355.             100.0 * filehdr.compRLength / filehdr.rsrcLength);
  356.     } else {
  357.         (void)fprintf(stderr, "RLE compressed (%4.1f%%)",
  358.             100.0 * filehdr.compRLength / filehdr.rsrcLength);
  359.     }
  360.     }
  361.     if(write_it) {
  362.     start_rsrc();
  363.     cpt_wrfile(filehdr.compRLength, filehdr.rsrcLength,
  364.            filehdr.cptFlag & 2);
  365.     cpt_char = cpt_data + filehdr.filepos + filehdr.compRLength;
  366.     }
  367.     if(verbose) {
  368.     (void)fprintf(stderr, ", Data: ");
  369.     if(filehdr.compDLength == 0) {
  370.         (void)fprintf(stderr, "empty");
  371.     } else if(filehdr.cptFlag & 4) {
  372.         (void)fprintf(stderr, "RLE/LZH compressed (%4.1f%%)",
  373.             100.0 * filehdr.compDLength / filehdr.dataLength);
  374.     } else {
  375.         (void)fprintf(stderr, "RLE compressed (%4.1f%%)",
  376.             100.0 * filehdr.compDLength / filehdr.dataLength);
  377.     }
  378.     }
  379.     if(write_it) {
  380.     start_data();
  381.     cpt_wrfile(filehdr.compDLength, filehdr.dataLength,
  382.            filehdr.cptFlag & 4);
  383.     if(filehdr.fileCRC != cpt_crc) {
  384.         (void)fprintf(stderr,
  385.         "CRC error on file: need 0x%08lx, got 0x%08lx\n",
  386.         (long)filehdr.fileCRC, (long)cpt_crc);
  387. #ifdef SCAN
  388.         do_error("macunpack: CRC error on file");
  389. #endif /* SCAN */
  390.         exit(1);
  391.     }
  392.     end_file();
  393.     }
  394.     if(verbose) {
  395.     (void)fprintf(stderr, ".\n");
  396.     }
  397. }
  398.  
  399. static void cpt_wrfile(ibytes, obytes, type)
  400. unsigned long ibytes, obytes;
  401. unsigned short type;
  402. {
  403.     if(ibytes == 0) {
  404.     return;
  405.     }
  406.     cpt_outstat = NONESEEN;
  407.     cpt_inlength = ibytes;
  408.     cpt_outlength = obytes;
  409.     cpt_LZptr = 0;
  410.     cpt_blocksize = 0x1fff0;
  411.     if(type == 0) {
  412.     cpt_rle();
  413.     } else {
  414.     cpt_rle_lzh();
  415.     }
  416.     cpt_crc = (*updcrc)(cpt_crc, out_buffer, obytes);
  417. }
  418.  
  419. void cpt_wrfile1(in_char, ibytes, obytes, type, blocksize)
  420. unsigned char *in_char;
  421. unsigned long ibytes, obytes, blocksize;
  422. int type;
  423. {
  424.     cpt_char = in_char;
  425.     if(ibytes == 0) {
  426.     return;
  427.     }
  428.     cpt_outstat = NONESEEN;
  429.     cpt_inlength = ibytes;
  430.     cpt_outlength = obytes;
  431.     cpt_LZptr = 0;
  432.     cpt_blocksize = blocksize;
  433.     if(type == 0) {
  434.     cpt_rle();
  435.     } else {
  436.     cpt_rle_lzh();
  437.     }
  438. }
  439.  
  440. static void cpt_outch(ch)
  441. unsigned char ch;
  442. {
  443.     cpt_LZbuff[cpt_LZptr++ & (CIRCSIZE - 1)] = ch;
  444.     switch(cpt_outstat) {
  445.     case NONESEEN:
  446.     if(ch == ESC1 && cpt_outlength != 1) {
  447.         cpt_outstat = ESC1SEEN;
  448.     } else {
  449.         cpt_savechar = ch;
  450.         *out_ptr++ = ch;
  451.         cpt_outlength--;
  452.     }
  453.     break;
  454.     case ESC1SEEN:
  455.     if(ch == ESC2) {
  456.         cpt_outstat = ESC2SEEN;
  457.     } else {
  458.         cpt_savechar = ESC1;
  459.         *out_ptr++ = ESC1;
  460.         cpt_outlength--;
  461.         if(cpt_outlength == 0) {
  462.         return;
  463.         }
  464.         if(ch == ESC1 && cpt_outlength != 1) {
  465.         return;
  466.         }
  467.         cpt_outstat = NONESEEN;
  468.         cpt_savechar = ch;
  469.         *out_ptr++ = ch;
  470.         cpt_outlength--;
  471.     }
  472.     break;
  473.     case ESC2SEEN:
  474.     cpt_outstat = NONESEEN;
  475.     if(ch != 0) {
  476.         while(--ch != 0) {
  477.         *out_ptr++ = cpt_savechar;
  478.         cpt_outlength--;
  479.         if(cpt_outlength == 0) {
  480.             return;
  481.         }
  482.         }
  483.     } else {
  484.         *out_ptr++ = ESC1;
  485.         cpt_outlength--;
  486.         if(cpt_outlength == 0) {
  487.         return;
  488.         }
  489.         cpt_savechar = ESC2;
  490.         *out_ptr++ = cpt_savechar;
  491.         cpt_outlength--;
  492.     }
  493.     }
  494. }
  495.  
  496. /*---------------------------------------------------------------------------*/
  497. /*    Run length encoding                             */
  498. /*---------------------------------------------------------------------------*/
  499. static void cpt_rle()
  500. {
  501.     while(cpt_inlength-- > 0) {
  502.     cpt_outch(*cpt_char++);
  503.     }
  504. }
  505.  
  506. /*---------------------------------------------------------------------------*/
  507. /*    Run length encoding plus LZ compression plus Huffman encoding         */
  508. /*---------------------------------------------------------------------------*/
  509. static void cpt_rle_lzh()
  510. {
  511.     int block_count;
  512.     unsigned int bptr;
  513.     int Huffchar, LZlength, LZoffs;
  514.  
  515.     get_bit = cpt_getbit;
  516.     cpt_LZbuff[CIRCSIZE - 3] = 0;
  517.     cpt_LZbuff[CIRCSIZE - 2] = 0;
  518.     cpt_LZbuff[CIRCSIZE - 1] = 0;
  519.     cpt_LZptr = 0;
  520.     while(cpt_outlength != 0) {
  521.     cpt_readHuff(256, cpt_Hufftree);
  522.     cpt_readHuff(64, cpt_LZlength);
  523.     cpt_readHuff(128, cpt_LZoffs);
  524.     block_count = 0;
  525.     cpt_newbits = (*cpt_char++ << 8);
  526.     cpt_newbits = cpt_newbits | *cpt_char++;
  527.     cpt_newbits = cpt_newbits << 16;
  528.     cpt_bitsavail = 16;
  529.     while(block_count < cpt_blocksize && cpt_outlength != 0) {
  530.         if(cpt_getbit()) {
  531.         Huffchar = gethuffbyte(cpt_Hufftree);
  532.         cpt_outch((unsigned char)Huffchar);
  533.         block_count += 2;
  534.         } else {
  535.         LZlength = gethuffbyte(cpt_LZlength);
  536.         LZoffs = gethuffbyte(cpt_LZoffs);
  537.         LZoffs = (LZoffs << 6) | cpt_get6bits();
  538.         bptr = cpt_LZptr - LZoffs;
  539.         while(LZlength-- > 0) {
  540.             cpt_outch(cpt_LZbuff[bptr++ & (CIRCSIZE - 1)]);
  541.         }
  542.         block_count += 3;
  543.         }
  544.     }
  545.     }
  546. }
  547.  
  548. /* Based on unimplod from unzip; difference are noted below. */
  549. typedef struct sf_entry {
  550.     int Value;
  551.     int BitLength;
  552. } sf_entry;
  553.  
  554. /* See routine LoadTree.  The parameter tree (actually an array and
  555.    two integers) are only used locally in this version and hence locally
  556.    declared.  The parameter nodes has been renamed Hufftree.... */
  557. static void cpt_readHuff(size, Hufftree)
  558. int size;
  559. struct node *Hufftree;
  560. {
  561.     sf_entry tree_entry[256 + SLACK]; /* maximal number of elements */
  562.     int tree_entries;
  563.     int tree_MaxLength; /* finishes local declaration of tree */
  564.  
  565.     int treeBytes, i, len;  /* declarations from ReadLengths */
  566.  
  567.     /* declarations from SortLengths */
  568.     sf_entry *ejm1;
  569.     int j;
  570.     sf_entry *entry;
  571. /*  int i already above */
  572.     sf_entry tmp;
  573.     int entries;
  574.     unsigned a, b;
  575.  
  576.     /* declarations from GenerateTrees */
  577.     int codelen, lvlstart, next, parents;
  578. /*  int i, j already above */
  579.  
  580.     /* for Compactor */
  581.     int tree_count[32];
  582.     /* end declarations */
  583.  
  584.     /* next paraphrased from ReadLengths with adaption for Compactor. */
  585.     treeBytes = *cpt_char++;
  586.     if(size < treeBytes * 2) { /* too many entries, something is wrong! */
  587.     (void)fprintf(stderr, "Bytes is: %d, expected: %d\n", treeBytes,
  588.         size / 2);
  589. #ifdef SCAN
  590.     do_error("macunpack: error in coding tree");
  591. #endif /* SCAN */
  592.     exit(1);
  593.     }
  594.     for(i = 0; i < 32; i++) {
  595.     tree_count[i] = 0;
  596.     }
  597.     i = 0;
  598.     tree_MaxLength = 0;
  599.     tree_entries = 0;
  600.     while(treeBytes-- > 0) { /* adaption for Compactor */
  601.     len = (*cpt_char) >> 4;
  602.     if(len != 0) { /* only if length unequal zero */
  603.         if(len > tree_MaxLength) {
  604.         tree_MaxLength = len;
  605.         }
  606.         tree_count[len]++;
  607.         tree_entry[tree_entries].Value = i;
  608.         tree_entry[tree_entries++].BitLength = len;
  609.     }
  610.     i++;
  611.     len = *cpt_char++ & NIBBLEMASK;
  612.     if(len != 0) { /* only if length unequal zero */
  613.         if(len > tree_MaxLength) {
  614.         tree_MaxLength = len;
  615.         }
  616.         tree_count[len]++;
  617.         tree_entry[tree_entries].Value = i;
  618.         tree_entry[tree_entries++].BitLength = len;
  619.     }
  620.     i++;
  621.     }
  622.  
  623.     /* Compactor allows unused trailing codes in its Huffman tree! */
  624.     j = 0;
  625.     for(i = 0; i <= tree_MaxLength; i++) {
  626.     j = (j << 1) + tree_count[i];
  627.     }
  628.     j = (1 <<tree_MaxLength) - j;
  629.     /* Insert the unused entries for sorting purposes. */
  630.     for(i = 0; i < j; i++) {
  631.     tree_entry[tree_entries].Value = size;
  632.     tree_entry[tree_entries++].BitLength = tree_MaxLength;
  633.     }
  634.  
  635.     /* adaption from SortLengths */
  636.     entry = &(tree_entry[0]);
  637.     entries = tree_entries;
  638.     for(i = 0; ++i < entries;) {
  639.     tmp = entry[i];
  640.     b = tmp.BitLength;
  641.     j = i;
  642.     while((j > 0) && ((a = (ejm1 = &(entry[j - 1]))->BitLength) >= b)) {
  643.         if((a == b) && (ejm1->Value <= tmp.Value)) {
  644.         break;
  645.         }
  646.         *(ejm1 + 1) = *ejm1;
  647.         --j;
  648.     }
  649.     entry[j] = tmp;
  650.     }
  651.  
  652.     /* Adapted from GenerateTrees */
  653.     i = tree_entries - 1;
  654.     /* starting at the upper end (and reversing loop) because of Compactor */
  655.     lvlstart = next = size * 2 + SLACK - 1;
  656.     /* slight adaption because of different node format used */
  657.     for(codelen = tree_MaxLength; codelen >= 1; --codelen) {
  658.     while((i >= 0) && (tree_entry[i].BitLength == codelen)) {
  659.         Hufftree[next].byte = tree_entry[i].Value;
  660.         Hufftree[next].flag = 1;
  661.         next--;
  662.         i--;
  663.     }
  664.     parents = next;
  665.     if(codelen > 1) {
  666.         /* reversed loop */
  667.         for(j = lvlstart; j > parents + 1; j-= 2) {
  668.         Hufftree[next].one = &(Hufftree[j]);
  669.         Hufftree[next].zero = &(Hufftree[j - 1]);
  670.         Hufftree[next].flag = 0;
  671.         next--;
  672.         }
  673.     }
  674.     lvlstart = parents;
  675.     }
  676.     Hufftree[0].one = &(Hufftree[next + 2]);
  677.     Hufftree[0].zero = &(Hufftree[next + 1]);
  678.     Hufftree[0].flag = 0;
  679. }
  680.  
  681. static int cpt_get6bits()
  682. {
  683. int b = 0, cn;
  684.  
  685.     b = (cpt_newbits >> 26) & 0x3f;
  686.     cpt_bitsavail -= 6;
  687.     cpt_newbits <<= 6;
  688.     if(cpt_bitsavail < 16) {
  689.     cn = (*cpt_char++ << 8);
  690.     cn |= *cpt_char++;
  691.     cpt_newbits |= (cn << (16 - cpt_bitsavail));
  692.     cpt_bitsavail += 16;
  693.     }
  694.     return b;
  695. }
  696.  
  697. static int cpt_getbit()
  698. {
  699. int b;
  700.  
  701.     b = (cpt_newbits >> 31) & 1;
  702.     cpt_bitsavail--;
  703.     if(cpt_bitsavail < 16) {
  704.     cpt_newbits |= (*cpt_char++ << 8);
  705.     cpt_newbits |= *cpt_char++;
  706.     cpt_bitsavail += 16;
  707.     }
  708.     cpt_newbits <<= 1;
  709.     return b;
  710. }
  711. #else /* CPT */
  712. int cpt; /* keep lint and some compilers happy */
  713. #endif /* CPT */
  714.  
  715.