home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / utils / squsq / squprt33.ark / SQ.C < prev    next >
C/C++ Source or Header  |  1986-11-08  |  6KB  |  212 lines
  1. /* This program compresses a file without losing information.
  2.  * The "usq" program is required to unsqueeze the file
  3.  * before it can be used.
  4.  *
  5.  * Typical compression rates are between 30 and 50 percent for text files.
  6.  *
  7.  * Squeezing a really big file takes a few minutes.
  8.  *
  9.  * Useage:
  10.  *    sq [file1] [file2] ... [filen]
  11.  *
  12.  * where file1 through filen are the names of the files to be squeezed.
  13.  * The file type (under CP/M or MS-DOS) is changed to ".SQ"; under UN*X,
  14.  * ".SQ" is appended to the file name. The original file name is stored
  15.  * in the squeezed file.
  16.  *
  17.  * If no file name is given on the command line you will be
  18.  * prompted for commands (one at a time). An empty command
  19.  * terminates the program.
  20.  *
  21.  * The transformations compress strings of identical bytes and
  22.  * then encode each resulting byte value and EOF as bit strings
  23.  * having lengths in inverse proportion to their frequency of
  24.  * occurrance in the intermediate input stream. The latter uses
  25.  * the Huffman algorithm. Decoding information is included in
  26.  * the squeezed file, so squeezing short files or files with
  27.  * uniformly distributed byte values will actually increase size.
  28.  */
  29.  
  30. /* CHANGE HISTORY:
  31.  * 1.3    Close files properly in case of error exit.
  32.  * 1.4    Break up long introductory lines.
  33.  * 1.4    Send introduction only to console.
  34.  * 1.4    Send errors only to console.
  35.  * 1.5  Fix BUG that caused a rare few squeezed files
  36.  *    to be incorrect and fail the USQ crc check.
  37.  *    The problem was that some 17 bit codes were
  38.  *    generated but are not supported by other code.
  39.  *    THIS IS A MAJOR CHANGE affecting TR2.C and SQ.H and
  40.  *    requires recompilation of all files which are part
  41.  *    of SQ. Two basic changes were made: tree depth is now
  42.  *    used as a tie breaker when weights are equal. This
  43.  *    makes the tree shallower. Although that may always be
  44.  *    sufficient, an error trap was added to cause rescaling
  45.  *    of the counts if any code > 16 bits long is generated.
  46.  * 1.5    Add debugging displays option '-'.
  47.  * 1.6  Fixed to work correctly under MP/M II.  Also shortened
  48.  *      signon message.
  49.  * 2.0    New version for use with CI-C86 compiler (CP/M-86 and MS-DOS)
  50.  * 2.1  Converted for use in MLINK
  51.  * 2.2  Converted for use with optimizing CI-C86 compiler (MS-DOS)
  52.  * 3.0  Generalized for UN*X use, changed output file naming convention
  53.  * 3.3  Modified to work with ULTRIX, as per Tom Reid.
  54.  */
  55.  
  56. /* eject eject */
  57.  
  58. /*
  59.  * The following define MUST be set to the maximum length of a file name
  60.  * on the system "sq" is being compiled for.  If not, "sq" will not be
  61.  * able to check for whether the output file name it creates is valid
  62.  * or not.
  63.  */
  64.  
  65. #define FNM_LEN 14
  66. #define UNIX            /* comment out for CP/M, MS-DOS versions */
  67. /*#define ULTRIX         comment out for non-ULTRIX versions */
  68. #define SQMAIN
  69.  
  70. #define VERSION "3.3   10/29/86"
  71.  
  72. #include <stdio.h>
  73. #include "sqcom.h"
  74. #include "sq.h"
  75. #define FALSE 0
  76.  
  77. main(argc, argv)
  78. int argc;
  79. char *argv[];
  80. {
  81.     int i,c;
  82.     char inparg[128];    /* parameter from input */
  83.  
  84.     debug = FALSE;
  85.     printf("File squeezer version %s (original author: R. Greenlaw)\n\n", VERSION);
  86.  
  87.     /* Process the parameters in order */
  88.     for(i = 1; i < argc; ++i)
  89.         obey(argv[i]);
  90.  
  91.     if(argc < 2) {
  92.         printf("Enter file names, one line at a time, or type <RETURN> to quit.");
  93.         do {
  94.             printf("\n*");
  95.             for(i = 0; i < 16; ++i) {
  96.                 if((c = getchar()) == EOF)
  97.                     c = '\n';    /* fake empty (exit) command */
  98.                 if((inparg[i] = c) == '\n') {
  99.                     inparg[i] = '\0';
  100.                     break;
  101.                 }
  102.             }
  103.             if(inparg[0] != '\0')
  104.                 obey(inparg);
  105.         } while(inparg[0] != '\0');
  106.     }
  107. }
  108.  
  109. /* eject eject */
  110.  
  111. obey(p)
  112. char *p;
  113. {
  114.     char *q;
  115.     char outfile[128];    /* output file spec. */
  116.  
  117.     if(*p == '-') {
  118.         /* toggle debug option */
  119.         debug = !debug;
  120.         return;
  121.     }
  122.  
  123.     /* Check for ambiguous (wild-card) name */
  124.     for(q = p; *q != '\0'; ++q)
  125.         if(*q == '*' || *q == '?') {
  126.             printf("\nAmbiguous name %s ignored", p);
  127.             return;
  128.     }
  129.     /* First build output file name */
  130.     strcpy(outfile, p);        /* copy input name to output */
  131.  
  132.     /* Find and change output file suffix */
  133.  
  134.     if (strlen(outfile) + 3 > FNM_LEN) {    /* check for long file name */
  135.         q = outfile + FNM_LEN - 3;
  136.         *q = '\0';        /* make room for suffix */
  137.     }
  138.     else {
  139.         q = outfile + strlen(outfile);
  140. #ifndef UNIX
  141.         for(; --q >= outfile;)
  142.             if (*q == '.') {
  143.                 *q = '\0';    /* delete file type */
  144.                 break;
  145.             }
  146. #else
  147.         --q;
  148. #endif
  149.     }
  150.  
  151.     strcat(outfile, ".SQ");
  152.  
  153.     squeeze(p, outfile);
  154. }
  155.  
  156. /* eject eject */
  157.  
  158. squeeze(infile, outfile)
  159. char *infile, *outfile;
  160. {
  161.     int i, c,c2;
  162.     FILE *inbuff, *outbuff;        /* file buffers */
  163.  
  164.     printf("%s -> %s: ", infile, outfile);
  165.  
  166. #ifdef ULTRIX
  167.     if(!(inbuff=fopen(infile, "r"))) {
  168. #else
  169.     if(!(inbuff=fopen(infile, "rb"))) {
  170. #endif
  171.         printf("Can't open %s for input pass 1\n", infile);
  172.         return;
  173.     }
  174. #ifdef ULTRIX
  175.     if(!(outbuff=fopen(outfile, "w"))) {
  176. #else
  177.     if(!(outbuff=fopen(outfile, "wb"))) {
  178. #endif
  179.         printf("Can't create %s\n", outfile);
  180.         fclose(inbuff);
  181.         return;
  182.     }
  183.  
  184.     /* First pass - get properties of file */
  185.     crc = 0;    /* initialize checksum */
  186.     printf("analyzing, ");
  187.     init_ncr();
  188.     init_huff(inbuff);   
  189.     fclose(inbuff);
  190.  
  191.     /* Write output file header with decoding info */
  192.     wrt_head(outbuff, infile);
  193.  
  194.     /* Second pass - encode the file */
  195.     printf("squeezing,");
  196.     if(!(inbuff=fopen(infile, "rb"))) {
  197.         printf("Can't open %s for input pass 2\n", infile);
  198.         goto closeout;
  199.     }
  200.     init_ncr();    /* For second pass */
  201.  
  202.     /* Translate the input file into the output file */
  203.     while((c = gethuff(inbuff)) != EOF)
  204.         putce(c, outbuff);
  205.     oflush(outbuff);
  206.     printf(" done.\n");
  207. closeall:
  208.     fclose(inbuff);
  209. closeout:
  210.     fclose(outbuff);
  211. }
  212.