home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 13 / CDA13.ISO / cdactual / demobin / share / program / C / ARC521_C.ZIP / PATCHES < prev    next >
Encoding:
Text File  |  1988-08-01  |  31.7 KB  |  1,364 lines
  1. diff -c /usr2/polymnia/hyc/News/arc/Make.tws arc/Make.tws
  2. *** /usr2/polymnia/hyc/News/arc/Make.tws    Wed Jul  6 02:26:14 1988
  3. --- arc/Make.tws    Sun Jul 31 18:29:28 1988
  4. ***************
  5. *** 22,33 ****
  6.   
  7.   libtws.a:    dtime.o dtimep.o lexstring.o
  8.           ar r libtws.a dtime.o dtimep.o lexstring.o
  9. ! # The following amusing bullshit makes sure that ranlib
  10. ! # gets executed if it is present, no matter which shell
  11. ! # make uses.  If there's a better way to do this, someone
  12. ! # please tell me!
  13. !         -if test -r /usr/bin/ranlib ; then ranlib libtws.a ; fi
  14. !         -if ( -r /usr/bin/ranlib ) ranlib libtws.a
  15.   
  16.   dtime.o:    dtime.c tws.h
  17.   
  18. --- 22,29 ----
  19.   
  20.   libtws.a:    dtime.o dtimep.o lexstring.o
  21.           ar r libtws.a dtime.o dtimep.o lexstring.o
  22. ! #Hope it goes, but no big deal if not. -- hyc
  23. !         -ranlib libtws.a
  24.   
  25.   dtime.o:    dtime.c tws.h
  26.   
  27. diff -c /usr2/polymnia/hyc/News/arc/arc.c arc/arc.c
  28. *** /usr2/polymnia/hyc/News/arc/arc.c    Wed Jul  6 02:26:55 1988
  29. --- arc/arc.c    Sun Jul 31 18:43:40 1988
  30. ***************
  31. *** 1,5 ****
  32.   /*
  33. !  * $Header: arc.c,v 1.10 88/06/17 15:22:48 hyc Locked $
  34.    */
  35.   
  36.   /*  ARC - Archive utility
  37. --- 1,5 ----
  38.   /*
  39. !  * $Header: arc.c,v 1.12 88/07/31 18:39:50 hyc Exp $
  40.    */
  41.   
  42.   /*  ARC - Archive utility
  43. ***************
  44. *** 73,88 ****
  45.   #include <stdio.h>
  46.   #include "arc.h"
  47.   
  48.   int        strlen();
  49.   void        addarc(), delarc(), extarc(), lstarc(), tstarc(), cvtarc(), runarc();
  50.   void        abort();
  51.   #if    MTS
  52.   void        etoa();
  53.   #endif
  54.   #if    GEMDOS
  55. ! long        _stksize = 24576;
  56.   #endif
  57.   char        *strcpy(), *strcat();
  58.   
  59.   static char   **lst;        /* files list */
  60.   static int    lnum;        /* length of files list */
  61. --- 73,95 ----
  62.   #include <stdio.h>
  63.   #include "arc.h"
  64.   
  65. + #if    UNIX
  66. + #include <sys/types.h>
  67. + #include <sys/stat.h>
  68. + #endif
  69. + 
  70.   int        strlen();
  71.   void        addarc(), delarc(), extarc(), lstarc(), tstarc(), cvtarc(), runarc();
  72.   void        abort();
  73. + static    void    expandlst();
  74.   #if    MTS
  75.   void        etoa();
  76.   #endif
  77.   #if    GEMDOS
  78. ! long        _stksize = 65536L;
  79.   #endif
  80.   char        *strcpy(), *strcat();
  81. + char        *makefnam();    /* filename fixup routine */
  82.   
  83.   static char   **lst;        /* files list */
  84.   static int    lnum;        /* length of files list */
  85. ***************
  86. *** 93,99 ****
  87.   {
  88.       char        opt = 0;/* selected action */
  89.       char           *a;    /* option pointer */
  90. -     char           *makefnam();    /* filename fixup routine */
  91.       void        upper();/* case conversion routine */
  92.       char           *index();/* string index utility */
  93.       char           *envfind();    /* environment searcher */
  94. --- 100,105 ----
  95. ***************
  96. *** 101,111 ****
  97. --- 107,121 ----
  98.       char           *arctemp2, *calloc(), *mktemp();
  99.   #if    GEMDOS
  100.       void        exitpause();
  101. +     int        append;
  102.   #endif
  103.   #if    MTS
  104.       fortran void    guinfo();
  105.       char        gotinf[4];
  106.   #endif
  107. + #if    UNIX
  108. +     struct    stat    sbuf;
  109. + #endif
  110.   
  111.       if (num < 3) {
  112.           printf("ARC - Archive utility, Version 5.21, created on 04/22/87 at 15:05:21\n");
  113. ***************
  114. *** 198,207 ****
  115.           if (arctemp[n - 1] != CUTOFF)
  116.               arctemp[n] = CUTOFF;
  117.       }
  118.   #if    !MSDOS
  119. !     strcat(arctemp, mktemp("AXXXXXX"));
  120.   #else
  121.       strcat(arctemp, "$ARCTEMP");
  122.   #endif
  123.   #else
  124.       guinfo("SHFSEP    ", gotinf);
  125. --- 208,224 ----
  126.           if (arctemp[n - 1] != CUTOFF)
  127.               arctemp[n] = CUTOFF;
  128.       }
  129. + #if    UNIX
  130. +     else    strcpy(arctemp, "/tmp/");
  131. + #endif
  132.   #if    !MSDOS
  133. !     {
  134. !         static char tempname[] = "AXXXXXX";
  135. !         strcat(arctemp, mktemp(tempname));
  136. !     }
  137.   #else
  138.       strcat(arctemp, "$ARCTEMP");
  139. +     arctemp2 = NULL;
  140.   #endif
  141.   #else
  142.       guinfo("SHFSEP    ", gotinf);
  143. ***************
  144. *** 223,229 ****
  145.   #endif
  146.   
  147.       /* create archive names, supplying defaults */
  148. !     makefnam(arg[2], ".arc", arcname);
  149.       /* makefnam(".$$$",arcname,newname); */
  150.       sprintf(newname, "%s.arc", arctemp);
  151.       makefnam(".BAK", arcname, bakname);
  152. --- 240,253 ----
  153.   #endif
  154.   
  155.       /* create archive names, supplying defaults */
  156. ! #if    UNIX
  157. !     if (!stat(arg[2],&sbuf))
  158. !         strcpy(arcname,arg[2]);
  159. !     else
  160. !         makefnam(arg[2],".arc",arcname);
  161. ! #else
  162. !     makefnam(arg[2], ".ARC", arcname);
  163. ! #endif
  164.       /* makefnam(".$$$",arcname,newname); */
  165.       sprintf(newname, "%s.arc", arctemp);
  166.       makefnam(".BAK", arcname, bakname);
  167. ***************
  168. *** 298,306 ****
  169. --- 322,346 ----
  170.       for (n = 0; n < lnum;) {/* expand indirect references */
  171.           if (*lst[n] == '@')
  172.               expandlst(n);
  173. + #if    GEMDOS        /* redirect stdout from the desktop...*/
  174. +         else if (*lst[n] == '>') {
  175. +             arctemp2 = (++lst[n]);
  176. +             lst[n] = lst[lnum-1];    /* delete this entry */
  177. +             lnum--;
  178. +             if (arctemp2[0] == '>') {
  179. +                 append = 1;
  180. +                 arctemp2++;
  181. +             }
  182. +             else    append = 0;
  183. +         }
  184. + #endif
  185.           else
  186.               n++;
  187.       }
  188. + #if    GEMDOS
  189. +     if (arctemp2)
  190. +         freopen(arctemp2,append ? "a" : "w",stdout);
  191. + #endif
  192.   
  193.       /* act on whatever action command was given */
  194.   
  195. ***************
  196. *** 349,355 ****
  197.   #endif
  198.       return nerrs;
  199.   }
  200. ! static
  201.   expandlst(n)            /* expand an indirect reference */
  202.       int        n;    /* number of entry to expand */
  203.   {
  204. --- 389,395 ----
  205.   #endif
  206.       return nerrs;
  207.   }
  208. ! static    void
  209.   expandlst(n)            /* expand an indirect reference */
  210.       int        n;    /* number of entry to expand */
  211.   {
  212. diff -c /usr2/polymnia/hyc/News/arc/arc.h arc/arc.h
  213. *** /usr2/polymnia/hyc/News/arc/arc.h    Wed Jul  6 02:26:56 1988
  214. --- arc/arc.h    Sun Jul 31 18:45:33 1988
  215. ***************
  216. *** 1,5 ****
  217.   /*
  218. !  * $Header: arc.h,v 1.7 88/06/01 17:51:06 hyc Locked $
  219.    */
  220.   
  221.   #undef    MSDOS
  222. --- 1,5 ----
  223.   /*
  224. !  * $Header: arc.h,v 1.9 88/07/31 18:43:18 hyc Exp $
  225.    */
  226.   
  227.   #undef    MSDOS
  228. ***************
  229. *** 27,32 ****
  230. --- 27,34 ----
  231.   #if    MSDOS || GEMDOS
  232.   #define    DOS    1
  233.   #define    CUTOFF    '\\'
  234. + #define    OPEN_R    "rb"
  235. + #define    OPEN_W    "wb"
  236.   #endif
  237.   
  238.   #if    !MSDOS
  239. ***************
  240. *** 37,53 ****
  241.   #if    BSD || SYSV
  242.   #define    UNIX    1
  243.   #define    CUTOFF    '/'
  244.   #include <ctype.h>
  245.   #endif
  246.   
  247.   #if    MTS
  248. ! #define rindex strrchr
  249. ! #define index strchr
  250. ! #undef  USEGFINFO        /* define this to use GFINFO for directory */
  251. ! #define USECATSCAN        /* scanning, else use CATSCAN/FILEINFO... */
  252.   #define    CUTOFF    sepchr[0]
  253.   #endif
  254.   
  255.   /*  ARC - Archive utility - ARC Header
  256.     
  257.       Version 2.17, created on 04/22/87 at 13:09:43
  258. --- 39,60 ----
  259.   #if    BSD || SYSV
  260.   #define    UNIX    1
  261.   #define    CUTOFF    '/'
  262. + #define    OPEN_R    "r"
  263. + #define    OPEN_W    "w"
  264.   #include <ctype.h>
  265.   #endif
  266.   
  267.   #if    MTS
  268. ! #define    USEGFINFO    0    /* define this to use GFINFO for directory */
  269. ! #define    USECATSCAN    1    /* scanning, else use CATSCAN/FILEINFO... */
  270.   #define    CUTOFF    sepchr[0]
  271.   #endif
  272.   
  273. + #if    MTS || SYSV
  274. + #define    rindex    strrchr
  275. + #define    index    strchr
  276. + #endif
  277. + 
  278.   /*  ARC - Archive utility - ARC Header
  279.     
  280.       Version 2.17, created on 04/22/87 at 13:09:43
  281. ***************
  282. *** 69,75 ****
  283.   #define ARCVER 9        /* archive header version code   */
  284.   #define STRLEN 100        /* system standard string length */
  285.   #define FNLEN 13        /* file name length              */
  286. ! #define MAXARG 25        /* maximum number of arguments   */
  287.   
  288.   #ifndef DONT_DEFINE        /* Defined by arcdata.c */
  289.   #include "arcs.h"
  290. --- 76,82 ----
  291.   #define ARCVER 9        /* archive header version code   */
  292.   #define STRLEN 100        /* system standard string length */
  293.   #define FNLEN 13        /* file name length              */
  294. ! #define MAXARG 400        /* maximum number of arguments   */
  295.   
  296.   #ifndef DONT_DEFINE        /* Defined by arcdata.c */
  297.   #include "arcs.h"
  298. diff -c /usr2/polymnia/hyc/News/arc/arcadd.c arc/arcadd.c
  299. *** /usr2/polymnia/hyc/News/arc/arcadd.c    Wed Jul  6 02:26:57 1988
  300. --- arc/arcadd.c    Sun Jul 31 18:47:27 1988
  301. ***************
  302. *** 1,5 ****
  303.   /*
  304. !  * $Header: arcadd.c,v 1.8 88/06/13 00:31:15 hyc Locked $
  305.    */
  306.   
  307.   /*
  308. --- 1,5 ----
  309.   /*
  310. !  * $Header: arcadd.c,v 1.9 88/07/31 18:45:14 hyc Exp $
  311.    */
  312.   
  313.   /*
  314. ***************
  315. *** 231,237 ****
  316.       int             upd = 0;/* true if replacing an entry */
  317.   
  318.   #if    !MTS
  319. !     if (!(f = fopen(path, "rb")))
  320.   #else
  321.       if (image)
  322.           f = fopen(path, "rb");
  323. --- 231,237 ----
  324.       int             upd = 0;/* true if replacing an entry */
  325.   
  326.   #if    !MTS
  327. !     if (!(f = fopen(path, OPEN_R)))
  328.   #else
  329.       if (image)
  330.           f = fopen(path, "rb");
  331. ***************
  332. *** 246,251 ****
  333. --- 246,280 ----
  334.           }
  335.           return;
  336.       }
  337. + #if    !DOS
  338. +     if (strlen(name) >= FNLEN) {
  339. +         if (warn) {
  340. +             char    buf[STRLEN];
  341. +             printf("WARNING: File %s name too long!\n", name);
  342. +             name[FNLEN-1]='\0';
  343. +             while(1) {
  344. +                 printf("  Truncate to %s (y/n)? ", name);
  345. +                 fflush(stdout);
  346. +                 fgets(buf, STRLEN, stdin);
  347. +                 *buf = toupper(*buf);
  348. +                 if (*buf == 'Y' || *buf == 'N')
  349. +                     break;
  350. +             }
  351. +             if (*buf == 'N') {
  352. +                 printf("Skipping...\n");
  353. +                 fclose(f);
  354. +                 return;
  355. +             }
  356. +         }
  357. +         else {
  358. +             if (note)
  359. +                 printf("Skipping file: %s - name too long.\n",
  360. +                     name);
  361. +             fclose(f);
  362. +             return;
  363. +         }
  364. +     }
  365. + #endif
  366.       strcpy(nhdr.name, name);/* save name */
  367.       nhdr.size = 0;        /* clear out size storage */
  368.       nhdr.crc = 0;        /* clear out CRC check storage */
  369. ***************
  370. *** 257,269 ****
  371.       int    inlen;
  372.       struct    GDDSECT    *region;
  373.   
  374. !     region=gdinfo(f->_fd);
  375.       inlen=region->GDINLEN;
  376. !     buffer=malloc(inlen);   /* maximum line length */
  377.       setbuf(f,buffer);        
  378.       f->_bufsiz=inlen;        
  379. !     f->_mods|=0x00040000;   /* Don't do "$continue with" */
  380. !     f->_mods&=0xfff7ffff;   /* turn it off, if set... */
  381.       }
  382.       getstamp(path, &nhdr.date, &nhdr.time);
  383.   #endif
  384. --- 286,298 ----
  385.       int    inlen;
  386.       struct    GDDSECT    *region;
  387.   
  388. !     region=gdinfo(f->_fd._fdub);
  389.       inlen=region->GDINLEN;
  390. !     buffer=malloc(inlen);    /* maximum line length */
  391.       setbuf(f,buffer);        
  392.       f->_bufsiz=inlen;        
  393. !     f->_mods|=_NOIC;    /* Don't do "$continue with" */
  394. !     f->_mods&=~_IC;        /* turn it off, if set... */
  395.       }
  396.       getstamp(path, &nhdr.date, &nhdr.time);
  397.   #endif
  398. ***************
  399. *** 325,331 ****
  400.       hdrver = ARCVER;        /* anything but end marker */
  401.       writehdr(&nhdr, new);    /* write out header skeleton */
  402.       pack(f, new, &nhdr);    /* pack file into archive */
  403. -     strcpy(nhdr.name, name);
  404.       fseek(new, starts, 0);    /* move back to header skeleton */
  405.       writehdr(&nhdr, new);    /* write out real header */
  406.       fseek(new, nhdr.size, 1);    /* skip over data to next header */
  407. --- 354,359 ----
  408. diff -c /usr2/polymnia/hyc/News/arc/arcdata.c arc/arcdata.c
  409. *** /usr2/polymnia/hyc/News/arc/arcdata.c    Wed Jul  6 02:26:59 1988
  410. --- arc/arcdata.c    Sun Jul 31 18:48:38 1988
  411. ***************
  412. *** 1,5 ****
  413.   /*
  414. !  * $Header: arcdata.c,v 1.6 88/06/01 19:17:58 hyc Locked $
  415.    */
  416.   
  417.   /*  ARC - Archive utility - ARCDATA
  418. --- 1,5 ----
  419.   /*
  420. !  * $Header: arcdata.c,v 1.7 88/07/31 18:47:22 hyc Exp $
  421.    */
  422.   
  423.   /*  ARC - Archive utility - ARCDATA
  424. diff -c /usr2/polymnia/hyc/News/arc/arcdos.c arc/arcdos.c
  425. *** /usr2/polymnia/hyc/News/arc/arcdos.c    Wed Jul  6 02:27:00 1988
  426. --- arc/arcdos.c    Sun Jul 31 18:49:42 1988
  427. ***************
  428. *** 1,5 ****
  429.   /*
  430. !  * $Header: arcdos.c,v 1.5 88/06/13 00:40:49 hyc Locked $
  431.    */
  432.   
  433.   /*
  434. --- 1,5 ----
  435.   /*
  436. !  * $Header: arcdos.c,v 1.6 88/07/31 18:48:09 hyc Exp $
  437.    */
  438.   
  439.   /*
  440. ***************
  441. *** 35,40 ****
  442. --- 35,41 ----
  443.   #endif
  444.   
  445.   #if    SYSV
  446. + #include <sys/times.h>
  447.   struct timeval {
  448.       long tv_sec;
  449.       long tv_usec;
  450. ***************
  451. *** 78,100 ****
  452.       *time = ret[0];
  453.   #endif
  454.   #if    UNIX
  455. !     char           *ctime();
  456. !     struct stat    *buf;
  457. !     int             day, hr, min, sec, yr, imon;
  458. !     static char     mon[4], *mons[12] = {
  459. !                    "Jan", "Feb", "Mar", "Apr", "May", "Jun",
  460. !                     "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"
  461. !     };
  462.   
  463. !     buf = (struct stat *) malloc(sizeof(struct stat));
  464. !     fstat(fileno(f), buf);
  465. ! 
  466. !     sscanf(ctime(&(buf->st_mtime)), "%*4s%3s%d%d:%d:%d%d", mon, &day, &hr, &min,
  467. !            &sec, &yr);
  468. !     for (imon = 0; imon < 12 && strcmp(mon, mons[imon]); imon++);
  469. ! 
  470. !     *date = (unsigned short) (((yr - 1980) << 9) + ((imon + 1) << 5) + day);
  471. !     *time = (unsigned short) ((hr << 11) + (min << 5) + sec / 2);
  472.   #endif
  473.   #if    MTS
  474.       fortran         timein(),
  475. --- 79,93 ----
  476.       *time = ret[0];
  477.   #endif
  478.   #if    UNIX
  479. !     struct stat    buf;
  480. !     struct tm    *localtime(), *t;
  481.   
  482. !     fstat(fileno(f), &buf);
  483. !     t=localtime(&(buf.st_mtime));
  484. !     *date = (unsigned short) (((t->tm_year - 80) << 9) +
  485. !                 ((t->tm_mon + 1) << 5) + t->tm_mday);
  486. !     *time = (unsigned short) ((t->tm_hour << 11) +
  487. !                 (t->tm_min << 5) + t->tm_sec / 2);
  488.   #endif
  489.   #if    MTS
  490.       fortran         timein(),
  491. diff -c /usr2/polymnia/hyc/News/arc/arcext.c arc/arcext.c
  492. *** /usr2/polymnia/hyc/News/arc/arcext.c    Wed Jul  6 02:27:01 1988
  493. --- arc/arcext.c    Fri Jul 22 14:53:29 1988
  494. ***************
  495. *** 155,161 ****
  496.           }
  497.       }
  498.   #if    !MTS
  499. !     if (!(f = fopen(fix, "wb")))
  500.   #else
  501.       {
  502.           fortran         create();
  503. --- 155,161 ----
  504.           }
  505.       }
  506.   #if    !MTS
  507. !     if (!(f = fopen(fix, OPEN_W)))
  508.   #else
  509.       {
  510.           fortran         create();
  511. diff -c /usr2/polymnia/hyc/News/arc/arcio.c arc/arcio.c
  512. *** /usr2/polymnia/hyc/News/arc/arcio.c    Wed Jul  6 02:27:02 1988
  513. --- arc/arcio.c    Sun Jul 31 18:50:20 1988
  514. ***************
  515. *** 1,5 ****
  516.   /*
  517. !  * $Header: arcio.c,v 1.7 88/06/02 16:27:32 hyc Locked $
  518.    */
  519.   
  520.   /*  ARC - Archive utility - ARCIO
  521. --- 1,5 ----
  522.   /*
  523. !  * $Header: arcio.c,v 1.9 88/07/31 18:49:19 hyc Exp $
  524.    */
  525.   
  526.   /*  ARC - Archive utility - ARCIO
  527. ***************
  528. *** 102,112 ****
  529.   #if    MTS
  530.       (void) atoe(hdr->name, strlen(hdr->name));
  531.   #endif
  532. !     for (i = 0; i<4; hdr->size<<=8, hdr->size += dummy[16-i], i++);
  533.       hdr->date = (short) ((dummy[18] << 8) + dummy[17]);
  534.       hdr->time = (short) ((dummy[20] << 8) + dummy[19]);
  535.       hdr->crc = (short) ((dummy[22] << 8) + dummy[21]);
  536. !     for (i = 0; i<4; hdr->length<<=8, hdr->length += dummy[26-i], i++);
  537.   #endif
  538.   
  539.       if (hdr->date > olddate
  540. --- 102,112 ----
  541.   #if    MTS
  542.       (void) atoe(hdr->name, strlen(hdr->name));
  543.   #endif
  544. !     for (i = 0, hdr->size=0; i<4; hdr->size<<=8, hdr->size += dummy[16-i], i++);
  545.       hdr->date = (short) ((dummy[18] << 8) + dummy[17]);
  546.       hdr->time = (short) ((dummy[20] << 8) + dummy[19]);
  547.       hdr->crc = (short) ((dummy[22] << 8) + dummy[21]);
  548. !     for (i = 0, hdr->length=0; i<4; hdr->length<<=8, hdr->length += dummy[26-i], i++);
  549.   #endif
  550.   
  551.       if (hdr->date > olddate
  552. ***************
  553. *** 175,187 ****
  554.       FILE           *t;    /* file to write to */
  555.   {
  556.       c &= 0xff;
  557. !     if (t)
  558.   #if    UNIX
  559.           fputc(c, t);
  560.   #else
  561.           if (fputc(c, t) == EOF)
  562.               abort("Write fail (disk full?)");
  563.   #endif
  564.   }
  565.   
  566.   /*
  567. --- 175,190 ----
  568.       FILE           *t;    /* file to write to */
  569.   {
  570.       c &= 0xff;
  571. !     if (t) {
  572.   #if    UNIX
  573.           fputc(c, t);
  574. +         if (ferror(t))
  575. +             abort("Write failed");
  576.   #else
  577.           if (fputc(c, t) == EOF)
  578.               abort("Write fail (disk full?)");
  579.   #endif
  580. +     }
  581.   }
  582.   
  583.   /*
  584. diff -c /usr2/polymnia/hyc/News/arc/arclzw.c arc/arclzw.c
  585. *** /usr2/polymnia/hyc/News/arc/arclzw.c    Wed Jul  6 02:27:19 1988
  586. --- arc/arclzw.c    Sun Jul 31 18:50:49 1988
  587. ***************
  588. *** 1,5 ****
  589.   /*
  590. !  * $Header: arclzw.c,v 1.4 88/06/01 16:27:59 hyc Locked $
  591.    */
  592.   
  593.   /*
  594. --- 1,5 ----
  595.   /*
  596. !  * $Header: arclzw.c,v 1.6 88/07/31 18:49:49 hyc Exp $
  597.    */
  598.   
  599.   /*
  600. ***************
  601. *** 59,65 ****
  602.       unsigned char   follower;    /* char following string */
  603.       unsigned short  next;    /* ptr to next in collision list */
  604.       unsigned short  predecessor;    /* code for preceeding string */
  605. ! };            /* string_tab[TABSIZE];    /* the code string table */
  606.   
  607.   
  608.   /* definitions for the new dynamic Lempel-Zev crunching */
  609. --- 59,65 ----
  610.       unsigned char   follower;    /* char following string */
  611.       unsigned short  next;    /* ptr to next in collision list */
  612.       unsigned short  predecessor;    /* code for preceeding string */
  613. ! };            /* string_tab[TABSIZE];       the code string table */
  614.   
  615.   
  616.   /* definitions for the new dynamic Lempel-Zev crunching */
  617. diff -c /usr2/polymnia/hyc/News/arc/arcmatch.c arc/arcmatch.c
  618. *** /usr2/polymnia/hyc/News/arc/arcmatch.c    Wed Jul  6 02:27:20 1988
  619. --- arc/arcmatch.c    Sun Jul 31 18:51:22 1988
  620. ***************
  621. *** 1,5 ****
  622.   /*
  623. !  * $Header: arcmatch.c,v 1.5 88/06/01 19:41:08 hyc Locked $
  624.    */
  625.   
  626.   /*
  627. --- 1,5 ----
  628.   /*
  629. !  * $Header: arcmatch.c,v 1.6 88/07/31 18:50:18 hyc Exp $
  630.    */
  631.   
  632.   /*
  633. ***************
  634. *** 67,72 ****
  635. --- 67,77 ----
  636.       upper(t);        /* avoid case problems */
  637.   #endif    /* UNIX */
  638.   #if    GEMDOS
  639. +     char *strstr(), *i;    /* allow "*.*" to mean '*' */
  640. +     if (i=strstr(t,"*.*")) {
  641. +         i++;
  642. +         *i='\0';
  643. +     }
  644.       return(pnmatch(n, t, 0));
  645.   #else
  646.       /* first match name part */
  647. diff -c /usr2/polymnia/hyc/News/arc/arcmisc.c arc/arcmisc.c
  648. *** /usr2/polymnia/hyc/News/arc/arcmisc.c    Wed Jul  6 02:27:21 1988
  649. --- arc/arcmisc.c    Sun Jul 31 18:52:44 1988
  650. ***************
  651. *** 1,6 ****
  652.   /*
  653.    * Miscellaneous routines to get ARC running on non-MSDOS systems...
  654. !  * $Header: arcmisc.c,v 1.7 88/06/12 19:23:13 hyc Locked $ 
  655.    */
  656.   
  657.   #include <stdio.h>
  658. --- 1,6 ----
  659.   /*
  660.    * Miscellaneous routines to get ARC running on non-MSDOS systems...
  661. !  * $Header: arcmisc.c,v 1.8 88/07/31 18:50:56 hyc Exp $ 
  662.    */
  663.   
  664.   #include <stdio.h>
  665. ***************
  666. *** 55,61 ****
  667.   #include <sys/types.h>
  668.   #include <sys/dir.h>
  669.   #include <sys/stat.h>
  670. !     int    rename();
  671.   #endif
  672.   
  673.   #if    SYSV
  674. --- 55,61 ----
  675.   #include <sys/types.h>
  676.   #include <sys/dir.h>
  677.   #include <sys/stat.h>
  678. !     int    rename(), unlink();
  679.   #endif
  680.   
  681.   #if    SYSV
  682. ***************
  683. *** 65,72 ****
  684.   #define DIRECT direct
  685.   #endif
  686.   
  687.   char           *strcpy(), *strcat(), *malloc();
  688. ! int             strlen();
  689.   
  690.   int
  691.   move(oldnam, newnam)
  692. --- 65,85 ----
  693.   #define DIRECT direct
  694.   #endif
  695.   
  696. + #if    BSD
  697. + char    *
  698. + memset(s, c, n)        /* oops. Thought it was standard BSD, but my Sun */
  699. +     char    *s;    /* fooled me again. -- hyc */
  700. +     int    c, n;
  701. + {
  702. +     register int i;
  703. +     for(i=0;i<n;i++)
  704. +         s[i]=c;
  705. +     return(s);
  706. + }
  707. + #endif
  708. + 
  709.   char           *strcpy(), *strcat(), *malloc();
  710. ! int             strlen(), strcmp(), match();
  711.   
  712.   int
  713.   move(oldnam, newnam)
  714. ***************
  715. *** 73,79 ****
  716. --- 86,94 ----
  717.       char           *oldnam, *newnam;
  718.   {
  719.       FILE           *fopen(), *old, *new;
  720. + #if    !MTS
  721.       struct stat     oldstat;
  722. + #endif
  723.       char           *strcpy();
  724.       void        filecopy();
  725.   #if    GEMDOS
  726. ***************
  727. *** 81,99 ****
  728.   #else
  729.       if (rename(oldnam, newnam))
  730.   #endif
  731.       {
  732.           if (stat(oldnam, &oldstat))    /* different partition? */
  733.               return (-1);
  734. !         old = fopen(oldnam, "rb");
  735.           if (old == NULL)
  736.               return (-1);
  737. !         new = fopen(newnam, "wb");
  738.           if (new == NULL)
  739.               return (-1);
  740.           filecopy(old, new, oldstat.st_size);
  741. !         unlink(oldnam);
  742.       }
  743.       return 0;
  744.   }
  745.   
  746.   static void
  747. --- 96,118 ----
  748.   #else
  749.       if (rename(oldnam, newnam))
  750.   #endif
  751. + #if    !MTS
  752.       {
  753.           if (stat(oldnam, &oldstat))    /* different partition? */
  754.               return (-1);
  755. !         old = fopen(oldnam, OPEN_R);
  756.           if (old == NULL)
  757.               return (-1);
  758. !         new = fopen(newnam, OPEN_W);
  759.           if (new == NULL)
  760.               return (-1);
  761.           filecopy(old, new, oldstat.st_size);
  762. !         return(unlink(oldnam));
  763.       }
  764.       return 0;
  765. + #else
  766. +     return(-1);
  767. + #endif
  768.   }
  769.   
  770.   static void
  771. ***************
  772. *** 270,276 ****
  773.       int             alphasort();
  774.       int             scandir();
  775.   #endif                /* UNIX */
  776. !     int             fmatch();
  777.       static int      Nnum = 0, ii;
  778.       char        *rindex();
  779.   
  780. --- 289,295 ----
  781.       int             alphasort();
  782.       int             scandir();
  783.   #endif                /* UNIX */
  784. !     int             fmatch(), free();
  785.       static int      Nnum = 0, ii;
  786.       char        *rindex();
  787.   
  788. diff -c /usr2/polymnia/hyc/News/arc/arcpack.c arc/arcpack.c
  789. *** /usr2/polymnia/hyc/News/arc/arcpack.c    Wed Jul  6 02:27:22 1988
  790. --- arc/arcpack.c    Sun Jul 31 18:53:25 1988
  791. ***************
  792. *** 1,5 ****
  793.   /*
  794. !  * $Header: arcpack.c,v 1.9 88/06/02 16:27:36 hyc Locked $
  795.    */
  796.   
  797.   /*  ARC - Archive utility - ARCPACK
  798. --- 1,5 ----
  799.   /*
  800. !  * $Header: arcpack.c,v 1.11 88/07/31 18:52:08 hyc Exp $
  801.    */
  802.   
  803.   /*  ARC - Archive utility - ARCPACK
  804. ***************
  805. *** 24,30 ****
  806.   #endif
  807.   
  808.   void    setcode(), sqinit_cm(), sqputc_cm(), init_cm(), putc_cm();
  809. ! void    filecopy(), abort(), putc_tst();
  810.   int    getch(), addcrc();
  811.   
  812.   /* stuff for non-repeat packing */
  813. --- 24,30 ----
  814.   #endif
  815.   
  816.   void    setcode(), sqinit_cm(), sqputc_cm(), init_cm(), putc_cm();
  817. ! void    filecopy(), abort(), putc_tst(), init_sq(), scan_sq();
  818.   int    getch(), addcrc();
  819.   
  820.   /* stuff for non-repeat packing */
  821. ***************
  822. *** 155,161 ****
  823.       /* standard cleanups common to all methods */
  824.   
  825.       if (note)
  826. !         printf("done. (%ld%%)\n",100L - (100L*hdr->size)/hdr->length);
  827.   }
  828.   
  829.   /*
  830. --- 155,162 ----
  831.       /* standard cleanups common to all methods */
  832.   
  833.       if (note)
  834. !         printf("done. (%ld%%)\n",hdr->length == 0 ?
  835. !                 0L : 100L - (100L*hdr->size)/hdr->length);
  836.   }
  837.   
  838.   /*
  839. diff -c /usr2/polymnia/hyc/News/arc/arcrun.c arc/arcrun.c
  840. *** /usr2/polymnia/hyc/News/arc/arcrun.c    Wed Jul  6 02:27:22 1988
  841. --- arc/arcrun.c    Sun Jul 31 18:53:59 1988
  842. ***************
  843. *** 1,5 ****
  844.   /*
  845. !  * $Header: arcrun.c,v 1.3 88/06/01 19:57:16 hyc Locked $
  846.    */
  847.   
  848.   /*
  849. --- 1,5 ----
  850.   /*
  851. !  * $Header: arcrun.c,v 1.4 88/07/31 18:52:50 hyc Exp $
  852.    */
  853.   
  854.   /*
  855. ***************
  856. *** 22,27 ****
  857. --- 22,29 ----
  858.   #include "arc.h"
  859.   
  860.   void    rempath(), openarc(), closearc(), abort();
  861. + int    readhdr(), match(), unpack();
  862. + static    void    runfile();
  863.   char    *strcat();
  864.   
  865.   void
  866. ***************
  867. *** 33,39 ****
  868.       char           *makefnam();    /* filename fixer */
  869.       char            buf[STRLEN];    /* filename buffer */
  870.       FILE           *fopen();/* file opener */
  871. -     int             runfile();
  872.       char           *dummy[2];
  873.   
  874.       dummy[0]="dummy";
  875. --- 35,40 ----
  876. ***************
  877. *** 56,62 ****
  878.       closearc(0);        /* close archive after changes */
  879.   }
  880.   
  881. ! static          int
  882.   runfile(hdr, num, arg)        /* run a file */
  883.       struct heads   *hdr;    /* pointer to header data */
  884.       int             num;    /* number of arguments */
  885. --- 57,63 ----
  886.       closearc(0);        /* close archive after changes */
  887.   }
  888.   
  889. ! static  void
  890.   runfile(hdr, num, arg)        /* run a file */
  891.       struct heads   *hdr;    /* pointer to header data */
  892.       int             num;    /* number of arguments */
  893. ***************
  894. *** 120,126 ****
  895.       if (warn)
  896.           if (tmp = fopen(buf, "r"))
  897.               abort("Temporary file %s already exists", buf);
  898. !     if (!(tmp = fopen(buf, "wb")))
  899.           abort("Unable to create temporary file %s", buf);
  900.   
  901.       if (note)
  902. --- 121,127 ----
  903.       if (warn)
  904.           if (tmp = fopen(buf, "r"))
  905.               abort("Temporary file %s already exists", buf);
  906. !     if (!(tmp = fopen(buf, OPEN_W)))
  907.           abort("Unable to create temporary file %s", buf);
  908.   
  909.       if (note)
  910. diff -c /usr2/polymnia/hyc/News/arc/arcsq.c arc/arcsq.c
  911. *** /usr2/polymnia/hyc/News/arc/arcsq.c    Wed Jul  6 02:27:24 1988
  912. --- arc/arcsq.c    Sun Jul 31 18:54:48 1988
  913. ***************
  914. *** 1,5 ****
  915.   /*
  916. !  * $Header: arcsq.c,v 1.2 88/06/02 16:27:38 hyc Locked $
  917.    */
  918.   
  919.   /*
  920. --- 1,5 ----
  921.   /*
  922. !  * $Header: arcsq.c,v 1.3 88/07/31 18:53:32 hyc Exp $
  923.    */
  924.   
  925.   /*
  926. ***************
  927. *** 65,71 ****
  928.   static int      cbitsrem;    /* # of code string bits left */
  929.   static unsigned short ccode;    /* current code right justified */
  930.   
  931. ! int 
  932.   init_sq()
  933.   {                /* prepare for scanning pass */
  934.       int             i;    /* node index */
  935. --- 65,73 ----
  936.   static int      cbitsrem;    /* # of code string bits left */
  937.   static unsigned short ccode;    /* current code right justified */
  938.   
  939. ! static    void    scale(), heap(), adjust(), bld_tree(), init_enc(), put_int();
  940. ! static    int    cmptrees(), buildenc(), maxchar();
  941. ! void 
  942.   init_sq()
  943.   {                /* prepare for scanning pass */
  944.       int             i;    /* node index */
  945. ***************
  946. *** 86,92 ****
  947.           valcount[i] = 0;
  948.   }
  949.   
  950. ! int 
  951.   scan_sq(c)            /* add a byte to the tables */
  952.       int             c;    /* byte to add */
  953.   {
  954. --- 88,94 ----
  955.           valcount[i] = 0;
  956.   }
  957.   
  958. ! void 
  959.   scan_sq(c)            /* add a byte to the tables */
  960.       int             c;    /* byte to add */
  961.   {
  962. ***************
  963. *** 113,123 ****
  964.       unsigned short    ceiling;/* limit for scaling */
  965.       long            size = 0;    /* predicted size */
  966.       int             numnodes;    /* # of nodes in simplified tree */
  967. -     int             scale();
  968. -     int             heap();
  969. -     int             bld_tree();
  970. -     int             buildenc();
  971. -     int             init_enc();
  972.   
  973.       scan_sq(EOF);        /* signal end of input */
  974.   
  975. --- 115,120 ----
  976. ***************
  977. *** 188,194 ****
  978.    * integer. Rescaling is used if necessary to limit the code length. 
  979.    */
  980.   
  981. ! static int 
  982.   scale(ceil)
  983.       unsigned short    ceil;    /* upper limit on total weight */
  984.   {
  985. --- 185,191 ----
  986.    * integer. Rescaling is used if necessary to limit the code length. 
  987.    */
  988.   
  989. ! static    void
  990.   scale(ceil)
  991.       unsigned short    ceil;    /* upper limit on total weight */
  992.   {
  993. ***************
  994. *** 236,247 ****
  995.    * rescaling. 
  996.    */
  997.   
  998. ! static int 
  999.   heap(list, length)
  1000.       int             list[], length;
  1001.   {
  1002.       register int    i;
  1003. -     int             adjust();
  1004.   
  1005.       for (i = (length - 2) / 2; i >= 0; --i)
  1006.           adjust(list, i, length - 1);
  1007. --- 233,243 ----
  1008.    * rescaling. 
  1009.    */
  1010.   
  1011. ! static    void
  1012.   heap(list, length)
  1013.       int             list[], length;
  1014.   {
  1015.       register int    i;
  1016.   
  1017.       for (i = (length - 2) / 2; i >= 0; --i)
  1018.           adjust(list, i, length - 1);
  1019. ***************
  1020. *** 249,260 ****
  1021.   
  1022.   /* Make a heap from a heap with a new top */
  1023.   
  1024. ! static int 
  1025.   adjust(list, top, bottom)
  1026.       int             list[], top, bottom;
  1027.   {
  1028.       register int    k, temp;
  1029. -     int             cmptrees();
  1030.   
  1031.       k = 2 * top + 1;    /* left child of top */
  1032.       temp = list[top];    /* remember root node of top tree */
  1033. --- 245,255 ----
  1034.   
  1035.   /* Make a heap from a heap with a new top */
  1036.   
  1037. ! static    void
  1038.   adjust(list, top, bottom)
  1039.       int             list[], top, bottom;
  1040.   {
  1041.       register int    k, temp;
  1042.   
  1043.       k = 2 * top + 1;    /* left child of top */
  1044.       temp = list[top];    /* remember root node of top tree */
  1045. ***************
  1046. *** 282,288 ****
  1047.    * comparison rules in previous comments. 
  1048.    */
  1049.   
  1050. ! static int 
  1051.   cmptrees(a, b)
  1052.       int             a, b;    /* root nodes of trees */
  1053.   {
  1054. --- 277,283 ----
  1055.    * comparison rules in previous comments. 
  1056.    */
  1057.   
  1058. ! static    int 
  1059.   cmptrees(a, b)
  1060.       int             a, b;    /* root nodes of trees */
  1061.   {
  1062. ***************
  1063. *** 308,314 ****
  1064.    * element and reheaping the shorter list. 
  1065.    */
  1066.   
  1067. ! static int 
  1068.   bld_tree(list, len)
  1069.       int             list[];
  1070.   int             len;
  1071. --- 303,309 ----
  1072.    * element and reheaping the shorter list. 
  1073.    */
  1074.   
  1075. ! static    void
  1076.   bld_tree(list, len)
  1077.       int             list[];
  1078.   int             len;
  1079. ***************
  1080. *** 316,322 ****
  1081.       register int    freenode;    /* next free node in tree */
  1082.       register struct nd *frnp;    /* free node pointer */
  1083.       int             lch, rch;    /* temps for left, right children */
  1084. -     int             maxchar();
  1085.   
  1086.       /*
  1087.        * Initialize index to next available (non-leaf) node. Lower numbered
  1088. --- 311,316 ----
  1089. ***************
  1090. *** 365,371 ****
  1091.       return a > b ? a : b;
  1092.   }
  1093.   
  1094. ! static int 
  1095.   init_enc()
  1096.   {
  1097.       register int    i;
  1098. --- 359,365 ----
  1099.       return a > b ? a : b;
  1100.   }
  1101.   
  1102. ! static    void
  1103.   init_enc()
  1104.   {
  1105.       register int    i;
  1106. ***************
  1107. *** 421,431 ****
  1108.       return NULL;        /* it worked if we reach here */
  1109.   }
  1110.   
  1111. ! static int 
  1112.   put_int(n, f)            /* output an integer */
  1113.       short        n;    /* integer to output */
  1114.       FILE           *f;    /* file to put it to */
  1115.   {
  1116.       putc_pak(n & 0xff, f);    /* first the low byte */
  1117.       putc_pak(n >> 8, f);    /* then the high byte */
  1118.   }
  1119. --- 415,427 ----
  1120.       return NULL;        /* it worked if we reach here */
  1121.   }
  1122.   
  1123. ! static    void
  1124.   put_int(n, f)            /* output an integer */
  1125.       short        n;    /* integer to output */
  1126.       FILE           *f;    /* file to put it to */
  1127.   {
  1128. +     void        putc_pak();
  1129. + 
  1130.       putc_pak(n & 0xff, f);    /* first the low byte */
  1131.       putc_pak(n >> 8, f);    /* then the high byte */
  1132.   }
  1133. ***************
  1134. *** 481,486 ****
  1135. --- 477,483 ----
  1136.   {
  1137.       int             rbyte;    /* Result byte value */
  1138.       int             need;    /* number of bits */
  1139. +     int        getc_ncr();
  1140.   
  1141.       rbyte = 0;
  1142.       need = 8;        /* build one byte per call */
  1143. diff -c /usr2/polymnia/hyc/News/arc/arcsqs.c arc/arcsqs.c
  1144. *** /usr2/polymnia/hyc/News/arc/arcsqs.c    Wed Jul  6 02:27:43 1988
  1145. --- arc/arcsqs.c    Sun Jul 31 18:55:21 1988
  1146. ***************
  1147. *** 1,5 ****
  1148.   /*
  1149. !  * $Header: arcsqs.c,v 1.2 88/06/01 16:31:39 hyc Locked $
  1150.    */
  1151.   
  1152.   /*  ARC - Archive utility - SQUASH
  1153. --- 1,5 ----
  1154.   /*
  1155. !  * $Header: arcsqs.c,v 1.3 88/07/31 18:54:14 hyc Exp $
  1156.    */
  1157.   
  1158.   /*  ARC - Archive utility - SQUASH
  1159. ***************
  1160. *** 12,18 ****
  1161.   */
  1162.   
  1163.   /*
  1164. !  * $Header: arcsqs.c,v 1.2 88/06/01 16:31:39 hyc Locked $
  1165.    */
  1166.   
  1167.   #include <stdio.h>
  1168. --- 12,18 ----
  1169.   */
  1170.   
  1171.   /*
  1172. !  * $Header: arcsqs.c,v 1.3 88/07/31 18:54:14 hyc Exp $
  1173.    */
  1174.   
  1175.   #include <stdio.h>
  1176. diff -c /usr2/polymnia/hyc/News/arc/arcsvc.c arc/arcsvc.c
  1177. *** /usr2/polymnia/hyc/News/arc/arcsvc.c    Wed Jul  6 02:27:44 1988
  1178. --- arc/arcsvc.c    Sun Jul 31 18:55:55 1988
  1179. ***************
  1180. *** 1,5 ****
  1181.   /*
  1182. !  * $Header: arcsvc.c,v 1.8 88/06/13 00:42:59 hyc Locked $
  1183.    */
  1184.   
  1185.   /*  ARC - Archive utility - ARCSVC
  1186. --- 1,5 ----
  1187.   /*
  1188. !  * $Header: arcsvc.c,v 1.9 88/07/31 18:54:55 hyc Exp $
  1189.    */
  1190.   
  1191.   /*  ARC - Archive utility - ARCSVC
  1192. ***************
  1193. *** 31,37 ****
  1194.   {
  1195.       FILE           *fopen();/* file opener */
  1196.   
  1197. !     if (!(arc = fopen(arcname, "rb"))) {
  1198.           if (chg) {
  1199.               if (note)
  1200.                   printf("Creating new archive: %s\n", arcname);
  1201. --- 31,37 ----
  1202.   {
  1203.       FILE           *fopen();/* file opener */
  1204.   
  1205. !     if (!(arc = fopen(arcname, OPEN_R))) {
  1206.           if (chg) {
  1207.               if (note)
  1208.                   printf("Creating new archive: %s\n", arcname);
  1209. ***************
  1210. *** 45,51 ****
  1211.           int inlen;
  1212.           struct GDDSECT *region;
  1213.   
  1214. !         region=gdinfo(arc->_fd);
  1215.           inlen=region->GDINLEN;
  1216.           buffer=malloc(inlen);
  1217.           setbuf(arc, buffer);
  1218. --- 45,51 ----
  1219.           int inlen;
  1220.           struct GDDSECT *region;
  1221.   
  1222. !         region=gdinfo(arc->_fd._fdub);
  1223.           inlen=region->GDINLEN;
  1224.           buffer=malloc(inlen);
  1225.           setbuf(arc, buffer);
  1226. ***************
  1227. *** 53,59 ****
  1228.       }
  1229.   #endif
  1230.       if (chg) {        /* if opening for changes */
  1231. !         if (!(new = fopen(newname, "wb")))
  1232.               abort("Cannot create archive copy: %s", newname);
  1233.   
  1234.       changing = chg;        /* note if open for changes */
  1235. --- 53,59 ----
  1236.       }
  1237.   #endif
  1238.       if (chg) {        /* if opening for changes */
  1239. !         if (!(new = fopen(newname, OPEN_W)))
  1240.               abort("Cannot create archive copy: %s", newname);
  1241.   
  1242.       changing = chg;        /* note if open for changes */
  1243. ***************
  1244. *** 66,73 ****
  1245.   {
  1246.       if (arc) {        /* if we had an initial archive */
  1247.           fclose(arc);
  1248. -         if (kludge)    /* kludge to update timestamp */
  1249.   #if    !MTS
  1250.               setstamp(arcname, olddate, oldtime);
  1251.   #endif
  1252.       }
  1253. --- 66,73 ----
  1254.   {
  1255.       if (arc) {        /* if we had an initial archive */
  1256.           fclose(arc);
  1257.   #if    !MTS
  1258. +         if (kludge)    /* kludge to update timestamp */
  1259.               setstamp(arcname, olddate, oldtime);
  1260.   #endif
  1261.       }
  1262. diff -c /usr2/polymnia/hyc/News/arc/marc.c arc/marc.c
  1263. *** /usr2/polymnia/hyc/News/arc/marc.c    Wed Jul  6 02:27:53 1988
  1264. --- arc/marc.c    Fri Jul 22 14:59:11 1988
  1265. ***************
  1266. *** 25,30 ****
  1267. --- 25,35 ----
  1268.   #include <stdio.h>
  1269.   #include "arc.h"
  1270.   
  1271. + #if    UNIX
  1272. + #include <sys/types.h>
  1273. + #include <sys/stat.h>
  1274. + #endif
  1275. + 
  1276.   FILE *src;                   /* source archive */
  1277.   char srcname[STRLEN];               /* source archive name */
  1278.   
  1279. ***************
  1280. *** 46,52 ****
  1281. --- 51,61 ----
  1282.       void exitpause();
  1283.   #endif
  1284.       int n;                   /* index */
  1285. + #if    UNIX
  1286. +     struct    stat    sbuf;
  1287. + #endif
  1288.   
  1289. + 
  1290.       if(nargs<3)
  1291.       {     printf("MARC - Archive merger, Version 5.21, created on 04/22/87 at 15:05:10\n");
  1292.   /*     printf("(C) COPYRIGHT 1985,86,87 by System Enhancement Associates;");
  1293. ***************
  1294. *** 96,102 ****
  1295.               arctemp[n] = CUTOFF;
  1296.       }
  1297.   #if    !MSDOS
  1298. !     strcat(arctemp, mktemp("AXXXXXX"));
  1299.   #else
  1300.       strcat(arctemp, "$ARCTEMP");
  1301.   #endif
  1302. --- 105,117 ----
  1303.               arctemp[n] = CUTOFF;
  1304.       }
  1305.   #if    !MSDOS
  1306. !     {
  1307. !         static char tempname[] = "AXXXXXX";
  1308. ! #if     UNIX
  1309. !         strcpy(arctemp, "/tmp/");
  1310. ! #endif  /*UNIX*/
  1311. !         strcat(arctemp, mktemp(tempname));
  1312. !     }
  1313.   #else
  1314.       strcat(arctemp, "$ARCTEMP");
  1315.   #endif
  1316. ***************
  1317. *** 109,127 ****
  1318.       arctemp[0] = tmpchr[0];
  1319.   #endif
  1320.   
  1321. !     makefnam(arg[1],".arc",arcname);   /* fix up archive names */
  1322. !     makefnam(arg[2],".arc",srcname);
  1323.   /*    makefnam(".$$$",arcname,newname);*/
  1324.       sprintf(newname,"%s.arc",arctemp);
  1325. - 
  1326. - #if    !UNIX
  1327. -     upper(arcname); upper(srcname); upper(newname);
  1328.   #endif
  1329.   
  1330. !     arc = fopen(arcname,"rb");           /* open the archives */
  1331. !     if(!(src=fopen(srcname,"rb")))
  1332.        abort("Cannot read source archive %s",srcname);
  1333. !     if(!(new=fopen(newname,"wb")))
  1334.        abort("Cannot create new archive %s",newname);
  1335.   
  1336.       if(!arc)
  1337. --- 124,149 ----
  1338.       arctemp[0] = tmpchr[0];
  1339.   #endif
  1340.   
  1341. ! #if    UNIX
  1342. !     if (!stat(arg[1],&sbuf))
  1343. !         strcpy(arcname,arg[1]);
  1344. !     else
  1345. !         makefnam(arg[1],".arc",arcname);
  1346. !     if (!stat(arg[2],&sbuf))
  1347. !         strcpy(srcname,arg[2]);
  1348. !     else
  1349. !         makefnam(arg[2],".arc",srcname);
  1350. ! #else
  1351. !     makefnam(arg[1],".ARC",arcname);   /* fix up archive names */
  1352. !     makefnam(arg[2],".ARC",srcname);
  1353.   /*    makefnam(".$$$",arcname,newname);*/
  1354.       sprintf(newname,"%s.arc",arctemp);
  1355.   #endif
  1356.   
  1357. !     arc = fopen(arcname,OPEN_R);           /* open the archives */
  1358. !     if(!(src=fopen(srcname,OPEN_R)))
  1359.        abort("Cannot read source archive %s",srcname);
  1360. !     if(!(new=fopen(newname,OPEN_W)))
  1361.        abort("Cannot create new archive %s",newname);
  1362.   
  1363.       if(!arc)
  1364.