home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume28 / freeze / patch02 next >
Text File  |  1992-02-02  |  24KB  |  1,013 lines
  1. Newsgroups: comp.sources.misc
  2. From: leo@s514.ipmce.su (Leonid A. Broukhis)
  3. Subject:  v28i011:  freeze - Freeze/melt compression program, Patch02
  4. Message-ID: <1992Feb2.051701.29115@sparky.imd.sterling.com>
  5. X-Md4-Signature: cfc18df459d0b08eeab2739a010776e4
  6. Date: Sun, 2 Feb 1992 05:17:01 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: leo@s514.ipmce.su (Leonid A. Broukhis)
  10. Posting-number: Volume 28, Issue 11
  11. Archive-name: freeze/patch02
  12. Environment: ISC, Xenix, SunOS, MS-DOS
  13. Patch-To: freeze: Volume 25, Issue 12-13
  14.  
  15. Here is the patchlevel 2 for Freeze. Modifications done:
  16.  
  17.  - UTIMES handling;
  18.  - TOS support (I don't know what is this, maybe yet another MSDOS-like
  19. system), hence BIN_DEFAULT replaced with TEXT_DEFAULT;
  20.  - unfreeze now means the same as melt (for non-English speakers and
  21. to make freeze's interface similar to compress' one).
  22.  - melting progress indicator frequency changed.
  23.  
  24. --- cut here ---
  25.  
  26. *** ../distribution/README    Fri Jan 31 21:07:17 1992
  27. --- README    Fri Jan 31 21:22:02 1992
  28. ***************
  29. *** 5,12 ****
  30.   The following preprocessor symbols control the compilation of Freeze
  31.   package:
  32.   
  33. !     o BITS                  The size of hash table (default is 18,
  34. !                 reducing to 14 gives a 50% speeddown).
  35.       o COMPAT                Turns on backwards compatibility
  36.                   with Freeze 1.0
  37.       o M_XENIX & M_I286      Makes arrays < 65536 bytes each
  38. --- 5,12 ----
  39.   The following preprocessor symbols control the compilation of Freeze
  40.   package:
  41.   
  42. !     o BITS                  The size of hash table (default is 16,
  43. !                 reducing to 14 gives some speeddown).
  44.       o COMPAT                Turns on backwards compatibility
  45.                   with Freeze 1.0
  46.       o M_XENIX & M_I286      Makes arrays < 65536 bytes each
  47. ***************
  48. *** 28,36 ****
  49.       o __i386__              When compiling under GNU C causes
  50.                   some fixed register allocations,
  51.                   which give better code.
  52. !     o BIN_DEFAULT           (For MS-DOS only!) Define, if you
  53. !                 forget to use -i option when freezing
  54. !                 binary files.
  55.   
  56.   Please! If your computer supports the string operations, try to write
  57.   "asm" instructions (GNU style) which realize the right-to-left memory
  58. --- 28,41 ----
  59.       o __i386__              When compiling under GNU C causes
  60.                   some fixed register allocations,
  61.                   which give better code.
  62. !     o TEXT_DEFAULT          (For MS-DOS only!) Define, if you
  63. !                 freeze text files more often than binary
  64. !                 ones. In this case don't forget to use "-i"
  65. !                 to freeze binary files!!
  66. !         o UTIMES        For using the utimes() function
  67. !                 instead of utime(), which is obsolete
  68. !                 on some systems (most notably BSD
  69. !                 4.3).
  70.   
  71.   Please! If your computer supports the string operations, try to write
  72.   "asm" instructions (GNU style) which realize the right-to-left memory
  73. ***************
  74. *** 158,163 ****
  75. --- 163,169 ----
  76.   
  77.   When using 18 bits table (about 600K) and gcc, the speed of freeze is more
  78.   than the same of ARJ 1.00, but is less than of LHA 2.05.
  79. + On SPARCs freeze works faster than ZIP 1.0.
  80.   
  81.   Note: the percents mean 'relatively to compressed size', if you want
  82.   to have them relatively to original size, divide them to 2-2.5.
  83. ***************
  84. *** 168,174 ****
  85.   
  86.   Note: if you see Compress works nearly as Freeze (on some files), this
  87.   means the maximum is gained, so LHA and ARJ won't better more than
  88. ! 1-1.5%.
  89.   
  90.   --------------- POSSIBLE IMPROVEMENTS ---------------
  91.   
  92. --- 174,181 ----
  93.   
  94.   Note: if you see Compress works nearly as Freeze (on some files), this
  95.   means the maximum is gained, so LHA and ARJ won't better more than
  96. ! 1-1.5%. There are some files (I have one) that freeze compresses better
  97. ! than ARJ 2.20.
  98.   
  99.   --------------- POSSIBLE IMPROVEMENTS ---------------
  100.   
  101. *** ../distribution/freeze.1    Fri Jan 31 21:07:22 1992
  102. --- freeze.1    Fri Dec  6 00:30:51 1991
  103. ***************
  104. *** 1,7 ****
  105.   .PU
  106.   .TH FREEZE 1 local
  107.   .SH NAME
  108. ! freeze, melt, fcat  \-  compress and uncompress files
  109.   .SH SYNOPSIS
  110.   .ll +8
  111.   .B freeze
  112. --- 1,7 ----
  113.   .PU
  114.   .TH FREEZE 1 local
  115.   .SH NAME
  116. ! freeze, unfreeze, melt, fcat  \-  compress and uncompress files
  117.   .SH SYNOPSIS
  118.   .ll +8
  119.   .B freeze
  120. ***************
  121. *** 12,17 ****
  122. --- 12,24 ----
  123.   ]
  124.   .ll -8
  125.   .br
  126. + .B unfreeze
  127. + [
  128. + .B \-cfvV
  129. + ] [
  130. + .I "filename \&..."
  131. + ]
  132. + .br
  133.   .B melt
  134.   [
  135.   .B \-cfvV
  136. ***************
  137. *** 34,40 ****
  138.   .B \-d
  139.   option, or by running
  140.   .I melt
  141. ! (linked to
  142.   .IR freeze ),
  143.   on the 
  144.   .B "\&.F"
  145. --- 41,49 ----
  146.   .B \-d
  147.   option, or by running
  148.   .I melt
  149. ! or
  150. ! .I unfreeze
  151. ! (both linked to
  152.   .IR freeze ),
  153.   on the 
  154.   .B "\&.F"
  155. *** ../distribution/freeze.c    Fri Jan 31 21:07:24 1992
  156. --- freeze.c    Fri Jan 31 21:27:35 1992
  157. ***************
  158. *** 33,38 ****
  159. --- 33,40 ----
  160.    * (pa@verano.sba.ca.us, clewis@ferret.ocunix.on.ca (Chris Lewis)),
  161.    * "chain threshold" euristic used for speedup (in "greedy" mode) -
  162.    * a la ZIP (Jean-Loup Gailly). Max. hash bits reduced to 16.
  163. +  * Version 2.3.2: Adaptation to TOS 1.04 (fifi@hiss.han.de), UTIMES
  164. +  * handling (jik@athena.mit.edu).
  165.    */
  166.   
  167.   static char ident[] = "@(#) freeze.c 2.3.%d %s leo@s514.ipmce.su\n";
  168. ***************
  169. *** 42,60 ****
  170.   void Usage() {
  171.   #ifdef DEBUG
  172.   
  173. ! # ifdef MSDOS
  174.       fprintf(stderr,"Usage: freeze [-cdDfitvVg] [file | +type ...]\n");
  175.   # else
  176.       fprintf(stderr,"Usage: freeze [-cdDfvVg] [file | +type ...]\n");
  177. ! # endif /* MSDOS */
  178.   
  179.   #else
  180.   
  181. ! # ifdef MSDOS
  182.       fprintf(stderr,"Usage: freeze [-cdfitvVg] [file | +type ...]\n");
  183.   # else
  184.       fprintf(stderr,"Usage: freeze [-cdfvVg] [file | +type ...]\n");
  185. ! # endif /* MSDOS */
  186.   
  187.   #endif /* DEBUG */
  188.   }
  189. --- 44,62 ----
  190.   void Usage() {
  191.   #ifdef DEBUG
  192.   
  193. ! # ifdef DOS
  194.       fprintf(stderr,"Usage: freeze [-cdDfitvVg] [file | +type ...]\n");
  195.   # else
  196.       fprintf(stderr,"Usage: freeze [-cdDfvVg] [file | +type ...]\n");
  197. ! # endif /* DOS */
  198.   
  199.   #else
  200.   
  201. ! # ifdef DOS
  202.       fprintf(stderr,"Usage: freeze [-cdfitvVg] [file | +type ...]\n");
  203.   # else
  204.       fprintf(stderr,"Usage: freeze [-cdfvVg] [file | +type ...]\n");
  205. ! # endif /* DOS */
  206.   
  207.   #endif /* DEBUG */
  208.   }
  209. ***************
  210. *** 71,83 ****
  211.   char ofname [MAXNAMLEN];
  212.   struct stat statbuf;    /* Used by 'main' and 'copystat' routines */
  213.   
  214. ! #ifdef MSDOS
  215.      char *last_sep();    /* last slash, backslash, or colon */
  216.      char tail[2];        /* 2nd and 3rd chars of file extension */
  217. ! # ifdef BIN_DEFAULT
  218. !     short image = O_BINARY;
  219. ! # else
  220.       short image = O_TEXT;
  221.   # endif
  222.   #else
  223.   #  define last_sep(s) strrchr((s), '/')  /* Unix always uses slashes */
  224. --- 73,87 ----
  225.   char ofname [MAXNAMLEN];
  226.   struct stat statbuf;    /* Used by 'main' and 'copystat' routines */
  227.   
  228. ! char inbuf[BUFSIZ * 4], outbuf[BUFSIZ * 4];
  229. ! 
  230. ! #ifdef DOS
  231.      char *last_sep();    /* last slash, backslash, or colon */
  232.      char tail[2];        /* 2nd and 3rd chars of file extension */
  233. ! # ifdef TEXT_DEFAULT
  234.       short image = O_TEXT;
  235. + # else
  236. +     short image = O_BINARY;
  237.   # endif
  238.   #else
  239.   #  define last_sep(s) strrchr((s), '/')  /* Unix always uses slashes */
  240. ***************
  241. *** 166,172 ****
  242.       char **filelist, **fileptr;
  243.       char *cp;
  244.   
  245. ! #ifndef MSDOS
  246.       char *malloc();
  247.   #endif
  248.   
  249. --- 170,182 ----
  250.       char **filelist, **fileptr;
  251.       char *cp;
  252.   
  253. ! #ifdef TOS
  254. ! 
  255. !     char *argv0 = "freeze.ttp"; /* argv[0] is not defined :-( */
  256. ! 
  257. ! #endif
  258. ! 
  259. ! #ifndef DOS
  260.       char *malloc();
  261.   #endif
  262.   
  263. ***************
  264. *** 176,182 ****
  265.       extern onintr();
  266.   #endif
  267.   
  268. ! #ifdef MSDOS
  269.       char *sufp;
  270.   #else
  271.   #ifdef INT_SIG
  272. --- 186,192 ----
  273.       extern onintr();
  274.   #endif
  275.   
  276. ! #ifdef DOS
  277.       char *sufp;
  278.   #else
  279.   #ifdef INT_SIG
  280. ***************
  281. *** 186,200 ****
  282.   #endif
  283.   #endif
  284.   
  285. ! #ifndef MSDOS
  286.       if ( (bgnd_flag = signal ( SIGINT, SIG_IGN )) != SIG_IGN )
  287.   #endif
  288.       {
  289.       (void) signal ( SIGINT, onintr );
  290.   #ifdef __TURBOC__
  291.       setcbrk(1);
  292.   #endif
  293. ! #ifndef MSDOS
  294.       (void) signal ( SIGSEGV, oops );
  295.   #endif
  296.       }
  297. --- 196,214 ----
  298.   #endif
  299.   #endif
  300.   
  301. ! #ifndef DOS
  302.       if ( (bgnd_flag = signal ( SIGINT, SIG_IGN )) != SIG_IGN )
  303.   #endif
  304.       {
  305.       (void) signal ( SIGINT, onintr );
  306.   #ifdef __TURBOC__
  307. + 
  308. + #ifndef TOS
  309.       setcbrk(1);
  310. + 
  311. + #endif
  312.   #endif
  313. ! #ifndef DOS
  314.       (void) signal ( SIGSEGV, oops );
  315.   #endif
  316.       }
  317. ***************
  318. *** 205,225 ****
  319.       if((cp = last_sep(argv[0])) != 0) {
  320.       cp++;
  321.       } else {
  322.       cp = argv[0];
  323. -     }
  324.   
  325. ! #ifdef MSDOS
  326.   
  327.   /* use case-insensitive match: parent may not be command.com */
  328. !     if(stricmp(cp, "melt.exe") == 0) {
  329.   #else
  330. !     if(strcmp(cp, "melt") == 0) {
  331.   #endif
  332.   
  333.       do_melt = 1;
  334. !     
  335.   #ifdef MSDOS
  336.       } else if(stricmp(cp, "fcat.exe") == 0) {
  337.   #else
  338.       } else if(strcmp(cp, "fcat") == 0) {
  339.   #endif
  340. --- 219,254 ----
  341.       if((cp = last_sep(argv[0])) != 0) {
  342.       cp++;
  343.       } else {
  344. + 
  345. + #ifdef TOS
  346. + 
  347. +     cp = argv0;
  348. + 
  349. + #else
  350.       cp = argv[0];
  351.   
  352. ! #endif
  353. !     }
  354.   
  355. + #ifdef DOS
  356.   /* use case-insensitive match: parent may not be command.com */
  357. ! #ifdef MSDOS
  358. !     if (!stricmp(cp, "unfreeze.exe") || !stricmp(cp, "melt.exe")) {
  359. ! #else /* TOS */
  360. !     if (!stricmp(cp, "unfreeze.ttp") || !stricmp(cp, "melt.ttp")) {
  361. ! #endif
  362.   #else
  363. !     if (!strcmp(cp, "unfreeze") || !strcmp(cp, "melt")) {
  364.   #endif
  365.   
  366.       do_melt = 1;
  367. ! 
  368. ! #ifdef DOS    
  369.   #ifdef MSDOS
  370.       } else if(stricmp(cp, "fcat.exe") == 0) {
  371. + #else /* TOS */
  372. +     } else if(stricmp(cp, "fcat.ttp") == 0) {
  373. + #endif
  374.   #else
  375.       } else if(strcmp(cp, "fcat") == 0) {
  376.   #endif
  377. ***************
  378. *** 229,235 ****
  379.   
  380.       } else {
  381.       /* Freezing */
  382. ! #ifndef MSDOS
  383.       (void) defopen(deffile);
  384.   #else
  385.       cp = strrchr(cp, '.');
  386. --- 258,265 ----
  387.   
  388.       } else {
  389.       /* Freezing */
  390. ! 
  391. ! #ifndef DOS
  392.       (void) defopen(deffile);
  393.   #else
  394.       cp = strrchr(cp, '.');
  395. ***************
  396. *** 237,244 ****
  397.       *++cp = 'N';
  398.       *++cp = 'F';
  399.       *++cp = '\0';
  400.       (void) defopen(argv[0]);
  401. ! #endif
  402.       }
  403.   #ifdef BSD4_2
  404.       /* 4.2BSD dependent - take it out if not */
  405. --- 267,280 ----
  406.       *++cp = 'N';
  407.       *++cp = 'F';
  408.       *++cp = '\0';
  409. + 
  410. + #ifdef TOS
  411. +     (void) defopen(argv0);
  412. + #else
  413.       (void) defopen(argv[0]);
  414. ! #endif  /* TOS */
  415. ! #endif  /* DOS */
  416. ! 
  417.       }
  418.   #ifdef BSD4_2
  419.       /* 4.2BSD dependent - take it out if not */
  420. ***************
  421. *** 271,277 ****
  422.               version();
  423.   #endif /* DEBUG */
  424.               break;
  425. ! #ifdef MSDOS
  426.               case 'i':
  427.               case 'b':
  428.               image = O_BINARY;    /* binary (aka image) mode */
  429. --- 307,313 ----
  430.               version();
  431.   #endif /* DEBUG */
  432.               break;
  433. ! #ifdef DOS
  434.               case 'i':
  435.               case 'b':
  436.               image = O_BINARY;    /* binary (aka image) mode */
  437. ***************
  438. *** 331,337 ****
  439.           exit_stat = 0;
  440.           if (do_melt != 0) {               /* MELTING */
  441.   
  442. ! #ifdef MSDOS
  443.           /* Check for .F or XF suffix; add one if necessary */
  444.           cp = *fileptr + strlen(*fileptr) - 2;
  445.           if ((*cp != '.' && *cp != 'X' && *cp != 'x') ||
  446. --- 367,373 ----
  447.           exit_stat = 0;
  448.           if (do_melt != 0) {               /* MELTING */
  449.   
  450. ! #ifdef DOS
  451.           /* Check for .F or XF suffix; add one if necessary */
  452.           cp = *fileptr + strlen(*fileptr) - 2;
  453.           if ((*cp != '.' && *cp != 'X' && *cp != 'x') ||
  454. ***************
  455. *** 360,366 ****
  456.               (void) strcat(tempname, ".F");
  457.               *fileptr = tempname;
  458.           }
  459. ! #endif /*MSDOS */
  460.   
  461.           /* Open input file for melting */
  462.   
  463. --- 396,402 ----
  464.               (void) strcat(tempname, ".F");
  465.               *fileptr = tempname;
  466.           }
  467. ! #endif /*DOS */
  468.   
  469.           /* Open input file for melting */
  470.   
  471. ***************
  472. *** 367,373 ****
  473.           if (checkstat(*fileptr))
  474.               continue;
  475.   
  476. ! #ifdef MSDOS
  477.           if ((freopen(*fileptr, "rb", stdin)) == NULL)
  478.   #else
  479.           if ((freopen(*fileptr, "r", stdin)) == NULL)
  480. --- 403,409 ----
  481.           if (checkstat(*fileptr))
  482.               continue;
  483.   
  484. ! #ifdef DOS
  485.           if ((freopen(*fileptr, "rb", stdin)) == NULL)
  486.   #else
  487.           if ((freopen(*fileptr, "r", stdin)) == NULL)
  488. ***************
  489. *** 398,410 ****
  490.           precious = 1;
  491.           (void) strcpy(ofname, *fileptr);
  492.           ofname[strlen(*fileptr) - 2] = '\0';  /* Strip off .F */
  493. ! #ifdef MSDOS
  494.           (void) strcat(ofname, tail);
  495.   #endif
  496.           } else {
  497.   
  498.               /* FREEZING */
  499. ! #ifdef MSDOS
  500.           cp = *fileptr + strlen(*fileptr) - 2;
  501.           if ((*cp == '.' || *cp == 'X' || *cp == 'x') &&
  502.               (*(++cp) == 'F' || *cp == 'f')) {
  503. --- 434,446 ----
  504.           precious = 1;
  505.           (void) strcpy(ofname, *fileptr);
  506.           ofname[strlen(*fileptr) - 2] = '\0';  /* Strip off .F */
  507. ! #ifdef DOS
  508.           (void) strcat(ofname, tail);
  509.   #endif
  510.           } else {
  511.   
  512.               /* FREEZING */
  513. ! #ifdef DOS
  514.           cp = *fileptr + strlen(*fileptr) - 2;
  515.           if ((*cp == '.' || *cp == 'X' || *cp == 'x') &&
  516.               (*(++cp) == 'F' || *cp == 'f')) {
  517. ***************
  518. *** 414,420 ****
  519.           if (strcmp(*fileptr + strlen(*fileptr) - 2, ".F") == 0) {
  520.               fprintf(stderr, "%s: already has .F suffix -- no change\n",
  521.               *fileptr);
  522. ! #endif /* MSDOS */
  523.   
  524.               continue;
  525.           }
  526. --- 450,456 ----
  527.           if (strcmp(*fileptr + strlen(*fileptr) - 2, ".F") == 0) {
  528.               fprintf(stderr, "%s: already has .F suffix -- no change\n",
  529.               *fileptr);
  530. ! #endif /* DOS */
  531.   
  532.               continue;
  533.           }
  534. ***************
  535. *** 423,429 ****
  536.           if (checkstat(*fileptr))
  537.               continue;
  538.   
  539. ! #ifdef MSDOS
  540.           if ((freopen(*fileptr, image == O_TEXT ? "rt" : "rb", stdin))
  541.               == NULL)
  542.   #else
  543. --- 459,465 ----
  544.           if (checkstat(*fileptr))
  545.               continue;
  546.   
  547. ! #ifdef DOS
  548.           if ((freopen(*fileptr, image == O_TEXT ? "rt" : "rb", stdin))
  549.               == NULL)
  550.   #else
  551. ***************
  552. *** 438,444 ****
  553.   #ifndef BSD4_2        /* Short filenames */
  554.           if ((cp = last_sep(ofname)) != NULL) cp++;
  555.           else cp = ofname;
  556. ! # ifdef MSDOS
  557.           if (topipe == 0 && (sufp = strrchr(cp, '.')) != NULL &&
  558.               strlen(sufp) > 2) fprintf(stderr,
  559.               "%s: part of filename extension will be replaced by XF\n",
  560. --- 474,480 ----
  561.   #ifndef BSD4_2        /* Short filenames */
  562.           if ((cp = last_sep(ofname)) != NULL) cp++;
  563.           else cp = ofname;
  564. ! # ifdef DOS
  565.           if (topipe == 0 && (sufp = strrchr(cp, '.')) != NULL &&
  566.               strlen(sufp) > 2) fprintf(stderr,
  567.               "%s: part of filename extension will be replaced by XF\n",
  568. ***************
  569. *** 448,457 ****
  570.               fprintf(stderr,"%s: filename too long to tack on .F\n",cp);
  571.               continue;
  572.           }
  573. ! # endif /* MSDOS */
  574.   #endif    /* BSD4_2        Long filenames allowed */
  575.                                
  576. ! #ifdef MSDOS
  577.           /* There is no difference between FOOBAR and FOOBAR. names */
  578.           if ((cp = strrchr(ofname, '.')) == NULL)
  579.               (void) strcat(ofname, ".F");
  580. --- 484,493 ----
  581.               fprintf(stderr,"%s: filename too long to tack on .F\n",cp);
  582.               continue;
  583.           }
  584. ! # endif /* DOS */
  585.   #endif    /* BSD4_2        Long filenames allowed */
  586.                                
  587. ! #ifdef DOS
  588.           /* There is no difference between FOOBAR and FOOBAR. names */
  589.           if ((cp = strrchr(ofname, '.')) == NULL)
  590.               (void) strcat(ofname, ".F");
  591. ***************
  592. *** 464,470 ****
  593.           }
  594.   #else
  595.           (void) strcat(ofname, ".F");
  596. ! #endif /* MSDOS */
  597.   
  598.           }
  599.           /* Check for overwrite of existing file */
  600. --- 500,506 ----
  601.           }
  602.   #else
  603.           (void) strcat(ofname, ".F");
  604. ! #endif /* DOS */
  605.   
  606.           }
  607.           /* Check for overwrite of existing file */
  608. ***************
  609. *** 473,479 ****
  610.               char response[2];
  611.               response[0] = 'n';
  612.               fprintf(stderr, "%s already exists;", ofname);
  613. ! #ifndef MSDOS
  614.               if (foreground()) {
  615.   #endif
  616.               fprintf(stderr,
  617. --- 509,515 ----
  618.               char response[2];
  619.               response[0] = 'n';
  620.               fprintf(stderr, "%s already exists;", ofname);
  621. ! #ifndef DOS
  622.               if (foreground()) {
  623.   #endif
  624.               fprintf(stderr,
  625. ***************
  626. *** 485,491 ****
  627.                   perror("stderr"); break;
  628.                   }
  629.               }
  630. ! #ifndef MSDOS
  631.               }
  632.   #endif
  633.               if (response[0] != 'y') {
  634. --- 521,527 ----
  635.                   perror("stderr"); break;
  636.                   }
  637.               }
  638. ! #ifndef DOS
  639.               }
  640.   #endif
  641.               if (response[0] != 'y') {
  642. ***************
  643. *** 499,505 ****
  644.   #ifdef DEBUG
  645.           if (do_melt == 0 || debug == 0) {
  646.   #endif
  647. ! #ifdef MSDOS
  648.           if (freopen(ofname, do_melt && image == O_TEXT ? "wt" : "wb",
  649.               stdout) == NULL)
  650.   #else         
  651. --- 535,541 ----
  652.   #ifdef DEBUG
  653.           if (do_melt == 0 || debug == 0) {
  654.   #endif
  655. ! #ifdef DOS
  656.           if (freopen(ofname, do_melt && image == O_TEXT ? "wt" : "wb",
  657.               stdout) == NULL)
  658.   #else         
  659. ***************
  660. *** 558,563 ****
  661. --- 594,601 ----
  662.       indc_threshold = file_length / 100;
  663.       if (indc_threshold < 4096)
  664.           indc_threshold = 4096;
  665. +     if (do_melt)
  666. +         indc_threshold *= 3;
  667.   
  668.       topipe = 1;
  669.       if (do_melt == 0) {
  670. ***************
  671. *** 671,678 ****
  672. --- 709,720 ----
  673.   #ifdef __TURBOC__
  674.   struct ftime utimbuf;
  675.   #else
  676. + #ifdef UTIMES
  677. + struct timeval timep[2];
  678. + #else
  679.   struct utimbuf timep;
  680.   #endif
  681. + #endif
  682.   
  683.       int mode;
  684.   
  685. ***************
  686. *** 696,706 ****
  687.       }
  688.   
  689.       exit_stat = 0;
  690.       mode = statbuf.st_mode & 07777;
  691.       if (chmod(ofname, mode))        /* Copy modes */
  692.           perror(ofname);
  693. ! 
  694. ! #ifndef MSDOS
  695.       /* Copy ownership */
  696.       (void) chown(ofname, (int) statbuf.st_uid, (int) statbuf.st_gid);
  697.   #endif
  698. --- 738,754 ----
  699.       }
  700.   
  701.       exit_stat = 0;
  702. + 
  703. + #ifdef TOS
  704. + 
  705. +     Fattrib(ofname,1,Fattrib(ifname,0,0));
  706. + 
  707. + #else
  708.       mode = statbuf.st_mode & 07777;
  709.       if (chmod(ofname, mode))        /* Copy modes */
  710.           perror(ofname);
  711. ! #endif
  712. ! #ifndef DOS
  713.       /* Copy ownership */
  714.       (void) chown(ofname, (int) statbuf.st_uid, (int) statbuf.st_gid);
  715.   #endif
  716. ***************
  717. *** 711,716 ****
  718. --- 759,770 ----
  719.           setftime(fileno(stdout),&utimbuf);
  720.       (void) fclose(stdout);
  721.   #else
  722. + #ifdef UTIMES
  723. +     timep[0].tv_sec = statbuf.st_atime;
  724. +     timep[1].tv_sec = statbuf.st_mtime;
  725. +     timep[0].tv_usec = timep[1].tv_usec = 0;
  726. +     (void) utimes(ofname, timep);
  727. + #else
  728.       timep.actime = statbuf.st_atime;
  729.       timep.modtime = statbuf.st_mtime;
  730.   
  731. ***************
  732. *** 721,727 ****
  733.   
  734.       /* Update last accessed and modified times */
  735.       (void) utime(ofname, &timep);
  736. ! #endif
  737.       if (unlink(ifname))    /* Remove input file */
  738.           perror(ifname);
  739.       if(quiet != 1)
  740. --- 775,782 ----
  741.   
  742.       /* Update last accessed and modified times */
  743.       (void) utime(ofname, &timep);
  744. ! #endif /* UTIMES */
  745. ! #endif /* __TURBOC__ */
  746.       if (unlink(ifname))    /* Remove input file */
  747.           perror(ifname);
  748.       if(quiet != 1)
  749. ***************
  750. *** 745,763 ****
  751.           return exit_stat = 1;
  752.       }
  753.   
  754. !     /* Do NOT try to freeze /dev/null or /dev/tty ... */
  755. ! 
  756. ! #ifndef MSDOS
  757. !     if ((statbuf.st_mode & S_IFMT) != S_IFREG) {
  758. !         fprintf(stderr, "%s: ", ifname);
  759. !         fprintf(stderr, " not a regular file -- unchanged\n");
  760. !         return exit_stat = 1;
  761.   
  762. !     } else if (statbuf.st_nlink > 1) {
  763. !         fprintf(stderr, "%s: ", ifname);
  764. !         fprintf(stderr, " has %d other links -- unchanged\n",
  765. !         statbuf.st_nlink - 1);
  766. !         return exit_stat = 1;
  767.       }
  768.   #endif /* MSDOS */
  769.   
  770. --- 800,821 ----
  771.           return exit_stat = 1;
  772.       }
  773.   
  774. !     /* Do NOT try to freeze /dev/null or /dev/tty...   */
  775. !     /* but you may freeze or melt everything to stdout */
  776.   
  777. ! #ifndef DOS
  778. !     if (!topipe) {
  779. !         if ((statbuf.st_mode & S_IFMT) != S_IFREG) {
  780. !             fprintf(stderr, "%s: ", ifname);
  781. !             fprintf(stderr, " not a regular file -- unchanged\n");
  782. !             return exit_stat = 1;
  783. ! 
  784. !         } else if (statbuf.st_nlink > 1) {
  785. !             fprintf(stderr, "%s: ", ifname);
  786. !             fprintf(stderr, " has %d other links -- unchanged\n",
  787. !             statbuf.st_nlink - 1);
  788. !             return exit_stat = 1;
  789. !         }
  790.       }
  791.   #endif /* MSDOS */
  792.   
  793. ***************
  794. *** 766,776 ****
  795.       indc_threshold = file_length / 100;
  796.       if (indc_threshold < 4096)
  797.           indc_threshold = 4096;
  798.   
  799.       return exit_stat = 0;
  800.   }
  801.   
  802. ! #ifndef MSDOS
  803.   /*
  804.    * This routine returns 1 if we are running in the foreground and stderr
  805.    * is a tty. (as in compress(1))
  806. --- 824,836 ----
  807.       indc_threshold = file_length / 100;
  808.       if (indc_threshold < 4096)
  809.           indc_threshold = 4096;
  810. +     if (do_melt)
  811. +         indc_threshold *= 3;
  812.   
  813.       return exit_stat = 0;
  814.   }
  815.   
  816. ! #ifndef DOS
  817.   /*
  818.    * This routine returns 1 if we are running in the foreground and stderr
  819.    * is a tty. (as in compress(1))
  820. ***************
  821. *** 844,850 ****
  822.       fprintf(stderr, "Static Huffman table: %d %d %d %d %d %d %d %d\n",
  823.           Table2[1], Table2[2], Table2[3], Table2[4],
  824.           Table2[5], Table2[6], Table2[7], Table2[8]);
  825. ! #ifdef MSDOS
  826.       fprintf(stderr, "Default melted mode: %s\n",
  827.               image == O_BINARY ? "binary" : "text");
  828.   #endif
  829. --- 904,910 ----
  830.       fprintf(stderr, "Static Huffman table: %d %d %d %d %d %d %d %d\n",
  831.           Table2[1], Table2[2], Table2[3], Table2[4],
  832.           Table2[5], Table2[6], Table2[7], Table2[8]);
  833. ! #ifdef DOS
  834.       fprintf(stderr, "Default melted mode: %s\n",
  835.               image == O_BINARY ? "binary" : "text");
  836.   #endif
  837. ***************
  838. *** 898,904 ****
  839.       }
  840.   }
  841.   
  842. ! #ifdef MSDOS
  843.   
  844.   /* MSDOS typically has ':' and '\\' separators, but some command
  845.     processors (and the int 21h function handler) support '/' too.
  846. --- 958,964 ----
  847.       }
  848.   }
  849.   
  850. ! #ifdef DOS
  851.   
  852.   /* MSDOS typically has ':' and '\\' separators, but some command
  853.     processors (and the int 21h function handler) support '/' too.
  854. ***************
  855. *** 915,918 ****
  856.       return(p);
  857.   }
  858.   
  859. ! #endif    /* MSDOS */
  860. --- 975,978 ----
  861.       return(p);
  862.   }
  863.   
  864. ! #endif    /* DOS */
  865. *** ../distribution/freeze.h    Fri Jan 31 21:07:24 1992
  866. --- freeze.h    Fri Dec  6 15:21:23 1991
  867. ***************
  868. *** 11,23 ****
  869. --- 11,48 ----
  870.   # endif
  871.   #endif  /* SUN4 */
  872.   
  873. + #if !defined(MSDOS) && defined(__MSDOS__)
  874. + #define MSDOS
  875. + #endif
  876. + 
  877. + #ifdef MSDOS
  878. + #define DOS
  879. + # include <fcntl.h>
  880. + #endif  /* MSDOS */
  881. + 
  882. + #ifdef TOS
  883. + #define DOS
  884. + #define O_TEXT        0x01
  885. + #define O_BINARY    0x02
  886. + #endif
  887. + 
  888.   #include <ctype.h>
  889.   #include <signal.h>
  890. + 
  891. + #ifndef TOS
  892.   #include <sys/types.h>
  893.   #include <sys/stat.h>
  894. + #else
  895. + #include <tos.h>
  896. + #include <types.h>
  897. + #endif
  898.   
  899.   #ifndef __TURBOC__
  900. + #ifdef UTIMES
  901. + #include <sys/time.h>
  902. + #else
  903.   #include <utime.h>      /* Some systems have sys/utime.h instead of this */
  904. + #endif /* UTIMES */
  905.   #endif
  906.   
  907.   #if defined(BSD42) && !defined(BSD4_2)
  908. ***************
  909. *** 46,61 ****
  910.   #include <assert.h>
  911.   #endif  /* DEBUG */
  912.   
  913. ! #ifdef __TURBOC__
  914. ! #define MSDOS
  915. ! #include <io.h>
  916. ! #include <alloc.h>
  917. ! #endif  /* __TURBOC__ */
  918.   
  919. ! #ifdef MSDOS
  920. ! #include <stdlib.h>
  921. ! #include <fcntl.h>
  922. ! #endif  /* MSDOS */
  923.   
  924.   typedef unsigned short us_t;
  925.   typedef unsigned char uc_t;
  926. --- 71,88 ----
  927.   #include <assert.h>
  928.   #endif  /* DEBUG */
  929.   
  930. ! #ifdef DOS
  931. ! # include <stdlib.h>
  932. ! #endif  /* DOS */
  933.   
  934. ! #ifdef __TURBOC__
  935. ! # ifdef MSDOS
  936. ! #  include <io.h>
  937. ! #  include <alloc.h>
  938. ! # else /* TOS */
  939. ! #  include <ext.h>
  940. ! # endif  /* MSDOS */
  941. ! #endif /* __TURBOC__ */
  942.   
  943.   typedef unsigned short us_t;
  944.   typedef unsigned char uc_t;
  945. *** ../distribution/makefile    Fri Jan 31 21:07:27 1992
  946. --- makefile    Thu Jan 30 19:50:51 1992
  947. ***************
  948. *** 9,19 ****
  949.           lz.h\
  950.           patchlevel.h
  951.   LDFLAGS       =
  952. ! LIBS          = -lc_s   # shared library
  953.   
  954. ! CC            = gcc
  955.   
  956. ! CFLAGS        = -DBITS=16 -O -DCOMPAT -DFAST -fstrength-reduce #-DBSD42 -DSUN4
  957.   
  958.   LINTFLAGS     = -DBITS=15 -DCOMPAT -DDEBUG -DGATHER_STAT -x -DFAST
  959.   
  960. --- 9,20 ----
  961.           lz.h\
  962.           patchlevel.h
  963.   LDFLAGS       =
  964. ! LIBS          = -lc_s   # shared library, if it's SysV
  965.   
  966. ! CC            = gcc -fstrength-reduce
  967. ! # or proprietary compiler, if it's better than that
  968.   
  969. ! CFLAGS        = -DBITS=16 -O -DCOMPAT -DFAST  # -DBSD42 -DSUN4
  970.   
  971.   LINTFLAGS     = -DBITS=15 -DCOMPAT -DDEBUG -DGATHER_STAT -x -DFAST
  972.   
  973. *** ../distribution/patchlevel.h    Fri Jan 31 21:07:28 1992
  974. --- patchlevel.h    Thu Jan 30 19:29:53 1992
  975. ***************
  976. *** 1,2 ****
  977. ! #define PATCHLEVEL 1
  978. ! #define PATCHDATE "11/20/91"
  979. --- 1,2 ----
  980. ! #define PATCHLEVEL 2
  981. ! #define PATCHDATE "1/30/92"
  982. *** ../distribution/statist.c    Fri Jan 31 21:07:30 1992
  983. --- statist.c    Fri Dec  6 00:30:53 1991
  984. ***************
  985. *** 51,59 ****
  986.       }
  987.       signal(SIGINT, giveres);
  988.   
  989. ! #ifdef MSDOS
  990.       setmode(fileno(stdin), O_BINARY);       /* Oh this MS-DOS ... */
  991. ! #endif  /* MSDOS */
  992.   
  993.       freeze();
  994.       giveres();
  995. --- 51,59 ----
  996.       }
  997.       signal(SIGINT, giveres);
  998.   
  999. ! #ifdef DOS
  1000.       setmode(fileno(stdin), O_BINARY);       /* Oh this MS-DOS ... */
  1001. ! #endif  /* DOS */
  1002.   
  1003.       freeze();
  1004.       giveres();
  1005.  
  1006. --- cut here ---
  1007. -- 
  1008. Leonid A. Broukhis | 89-1-95 Liberty St. | "BROUKHIS" is Hebrew for
  1009. +7 095 494 6241 (h)| Moscow 123481 Russia|       "BENEDICTAE"
  1010. +7 095 132 9475 (o)| (leo@s514.ipmce.su) |    { Age: 9025 days }
  1011.  
  1012. exit 0 # Just in case...
  1013.