home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 28 / amigaformatcd28.iso / -seriously_amiga- / archivers / zooppc / src / zooadd.c < prev    next >
C/C++ Source or Header  |  1998-04-23  |  25KB  |  745 lines
  1. #ifndef LINT
  2. /* derived from: zooadd.c 2.34 88/08/15 10:53:11 */
  3. static char sccsid[]="$Source: /usr/home/dhesi/zoo/RCS/zooadd.c,v $\n\
  4. $Id: zooadd.c,v 1.10 91/07/08 23:48:39 dhesi Exp $";
  5. #endif /* LINT */
  6.  
  7. /*
  8. Copyright (C) 1986, 1987 Rahul Dhesi -- All rights reserved
  9. (C) Copyright 1988 Rahul Dhesi -- All rights reserved
  10. (C) Copyright 1991 Rahul Dhesi -- All rights reserved
  11. */
  12. #include "options.h"
  13. /* Adds files specified in parameter-list to archive zoo_path. */
  14.  
  15. #define LONGEST    20                 /* assumed length of longest filename */
  16. #include "zoomem.h"             /* to define MAXADD */
  17. #include "zoo.h"
  18. #include "zooio.h"
  19. #include "various.h"
  20. #include "parse.h"
  21. #include "debug.h"
  22.  
  23. #include "portable.h"
  24.  
  25. #include "zoofns.h"
  26. #include "errors.i"
  27. extern int break_hit;
  28. extern int quiet;
  29.  
  30. void show_comment PARMS ((struct direntry *, ZOOFILE, int, char *));
  31. void dosname PARMS ((char *, char *));
  32. void modpath PARMS ((char *));
  33. void opts_add PARMS ((char *, int *, int *, int *, int *, int *, int *,
  34.                     int *, int *, int *, int *, int *, int *, int *, int *));
  35. int ver_too_high PARMS ((struct zoo_header *));
  36. void get_comment PARMS ((struct direntry *, ZOOFILE, char *));
  37. void copyfields PARMS ((struct direntry *, struct tiny_header *));
  38. void storefname PARMS ((struct direntry *, char *, int));
  39. char *choosefname PARMS ((struct direntry *));
  40.  
  41. extern struct zoo_header zoo_header;
  42.  
  43. extern char file_leader[];
  44. extern unsigned int crccode;
  45.  
  46. void zooadd(zoo_path, argc, argv, option)
  47. char *zoo_path;        /* pathname of zoo archive to add to */
  48. int argc;                /* how many filespecs supplied */
  49. char **argv;            /* array of pointers to filespecs */
  50. char *option;            /* option string */
  51. {
  52. char *whichname;                                    /* which name to show user */
  53. char **flist;                                        /* list of ptrs to input fnames */
  54. int fptr;                                            /* will point to within flist */
  55. ZOOFILE this_file;                                /* file to add */
  56. char zoo_fname[LFNAMESIZE];                    /* basename of archive itself */
  57. char zoo_bak[LFNAMESIZE];                        /* name of archive's backup */
  58. char this_fname[LFNAMESIZE];                    /* just filename of file to add */
  59. char latest_name[LFNAMESIZE];                 /* latest name in archive */
  60. long last_old = 0L;                                /* last direntry in old chain */
  61. ZOOFILE zoo_file;                                 /* stream for open archive */
  62. char *this_path;                                    /* pathname of file to add */
  63.  
  64. #ifdef NOENUM
  65. #define NEW_ZOO 1
  66. #define OLD_ZOO 2
  67. int zoo_status;
  68. #else
  69. enum {NEW_ZOO, OLD_ZOO} zoo_status;         /* newly created or not */
  70. #endif
  71.  
  72. long this_dir_offset;                            /* pointers to within archive */
  73. long save_position;                                /* pointer to within archive */
  74. long prev_pos;                                     /* posn of prev file of same name */
  75. struct direntry direntry;                        /* directory entry */
  76. struct direntry dir2entry;                     /* spare */
  77. int status;                                         /* error status */
  78. int success;                                        /* successful addition of file? */
  79. int addcount = 0;                                 /* number added */
  80. int update=0;                                        /* only files already in archive */
  81. int suppress=0;                                    /* suppress compression */
  82. int new=0;                                            /* add only files not in archive */
  83. int zootime = 0;                                    /* just set archive time */
  84. int add_comment = 0;                             /* add comment */
  85. int add_global_comment = 0;                    /* archive comment */
  86. int pack = 0;                                        /* pack after adding */
  87. int need_dir = 1;                                 /* store directories too */
  88. int delcount = 0;                                 /* count of deleted entries */
  89. int exit_status = 0;                             /* exit status to set */
  90.  
  91. unsigned int latest_date = 0;                 /* to set time on archive itself */
  92. unsigned int latest_time = 0;                 /* .. same */
  93. int move = 0;                                        /* delete after adding to archive */
  94. int longest;                                        /* length of longest pathname added */
  95. int firstfile = 1;                                /* first file being added? */
  96. int z_fmt = 0;                                     /* look for Z format files? */
  97. int inargs = 0;                                    /* read filenames from stdin? */
  98.  
  99. #ifdef FAST_EXT
  100. struct tiny_header tiny_header;                /* for Z format archives */
  101. #endif
  102.  
  103. unsigned this_version_no;                            /* version no. of old file */
  104. unsigned  high_vflag;                                /* version flag of old file */
  105. unsigned high_version_no;                            /* highest version no of this file */
  106. long high_pos;                                     /* offset of file w/highest ver no */
  107. unsigned int fgens;                                /* gens. to preserve -- file */
  108. unsigned int zgens;                                /* gens. to preserve -- archive */
  109. long oldcmtpos;                                    /* to save old comment */
  110. unsigned int oldcmtsiz;                         /* to save old comment */
  111. int genson = 0;                                    /* whether to turn generations on */
  112.  
  113. int use_lzh = 1;                                    /* whether to use lzh compression OIS*/
  114.  
  115. /* on entry option points to first letter */
  116.  
  117. opts_add (option, &zootime, &quiet, &suppress, &move, &new, &pack,
  118.              &update, &add_comment, &z_fmt, &need_dir, &inargs, &genson,
  119.              &use_lzh, &add_global_comment);
  120.  
  121. /* POSSIBLE RACE CONDITION BETWEEN TESTING EXISTENCE AND CREATING FILE */
  122. if (exists (zoo_path)) {
  123.     zoo_file = zooopen (zoo_path, Z_RDWR);
  124.     zoo_status = OLD_ZOO;
  125. } else {
  126.     if (!zootime)
  127.         zoo_file = zoocreate (zoo_path);
  128.     else
  129.         zoo_file = NOFILE;      /* don't create if just setting time */
  130.     zoo_status = NEW_ZOO;
  131. }
  132.  
  133. if (zoo_file == NOFILE)
  134.     prterror ('f', could_not_open, zoo_path);
  135. basename(zoo_path, zoo_fname);      /* get basename of archive */
  136. rootname (zoo_path, zoo_bak);       /* name without extension */
  137. strcat (zoo_bak, BACKUP_EXT);       /* name of backup of this archive */
  138.  
  139. /* Now we prepare the archive for adding one or more files.  If the archive
  140. has just been created, we write the archive header */
  141.  
  142. addfname ("",0L,0,0,0,0); /* initialize table of files already in archive */
  143. if (zoo_status == NEW_ZOO) {                 /* newly-created archive */
  144.     if (genson)                               /* if no generations needed */
  145.         zoo_header.vdata = (VFL_ON|GEN_DEFAULT); /* generations on */
  146.     fwr_zooh (&zoo_header, zoo_file);
  147.     zgens = GEN_DEFAULT;
  148.     zooseek (zoo_file, zoo_header.zoo_start, 0); /* seek to where data begins */
  149. } else {
  150.     /* read header and rewrite with updated version numbers, preserving
  151.         header type */
  152.     rwheader (&zoo_header, zoo_file, 1);
  153.     zgens = zoo_header.vdata & VFL_GEN;         /* get archive generations */
  154.     /* initialize latest_name to null string */
  155.     /* NOTE:  latest_name is not currently used for anything, but
  156.         may be used in the future for inserting files into the
  157.         archive in alphabetic order. */
  158.     *latest_name = '\0';
  159.  
  160.     /* Skip existing files but add them to a list.    The variable last_old
  161.     gets the tail of the old chain of directory entries */
  162.     skip_files (zoo_file, &latest_date, &latest_time, &delcount,
  163.                     latest_name, &last_old);
  164. }
  165. /* The file pointer is now positioned correctly to add a file to archive,
  166. unless the null directory entry is too short.  This will be fixed below. */
  167.  
  168. /* If we are just setting time, do it and run. */
  169. if (zootime) {
  170. #ifdef NIXTIME
  171.     zooclose (zoo_file);
  172.     setutime (zoo_path, latest_date, latest_time);
  173. #else
  174.     settime (zoo_file, latest_date, latest_time);
  175.     zooclose (zoo_file);
  176. #endif
  177.     prterror ('m', "Archive time adjusted.\n");
  178.     zooexit (0);
  179. }
  180.  
  181. /* make list of files, excluding archive and its backup */
  182. longest = LONGEST;
  183. flist = (char **) ealloc(MAXADD * sizeof(char *));
  184. if (!inargs) {
  185.     makelist(argc, argv, flist, MAXADD-2, zoo_fname, zoo_bak, ".", &longest);
  186.     /*                                               ^^             ^^         ^^ exclude */
  187. }
  188.  
  189. fptr = 0;    /* ready to get filename (if makelist() was called) or to
  190.                     begin adding filenames (if reading them from stdin) */
  191.  
  192. while (1) {
  193.     unsigned int this_date, this_time;
  194.     int INLIST; /* boolean */
  195.     int RECENT; /* boolean */
  196.     int danger; /* if update requested and disk copy is out of date */
  197.     if (inargs) {
  198.     again: /* loop back if filename was same as archive name or its backup */
  199.         this_path = getstdin();       /* pathname from stdin, in static area */
  200.         if (this_path != NULL) {
  201.             if (samefile (nameptr(zoo_fname),nameptr(this_path)) ||
  202.                         samefile (nameptr(zoo_bak),nameptr(this_path)))
  203.                 goto again;                 /* don't add archive to itself */
  204.             modpath (this_path);
  205.         /* if moving files, add to list for later deletion;  if list overflows,
  206.             terminate addition loop and give warning message */
  207.             if (move) {
  208.                 if (fptr >= MAXADD-2) {
  209.                     prterror ('w', too_many_files, MAXADD-2);
  210.                     this_path = NULL;
  211.                 } else
  212.                     flist[fptr++] = str_dup (this_path);
  213.             }
  214.         }
  215.     } else  {
  216.         this_path = flist[fptr++];
  217.     }
  218.     /* exit the addition loop when no more pathnames are left */
  219.     if (this_path == NULL) {
  220.         /* in case stdin was being read, make sure flist is NULL-terminated */
  221.         flist[fptr] = NULL;
  222.         break;
  223.     }
  224.  
  225.     basename (this_path, this_fname);   /* get just filename for later */
  226.  
  227.     this_file = zooopen(this_path, Z_READ);
  228.     if (this_file == NOFILE) {
  229.         prterror ('e', could_not_open, this_path);
  230.         exit_status++;
  231.         continue;
  232.     }
  233.  
  234. #ifdef FAST_EXT
  235.     /* Test to see if this is a Z format file.  We assume the file is Z format
  236.         if (a) tag is correct and (b) type is 1 and (c) embedded filename
  237.         is not longer than FNAMESIZE.
  238.     */
  239.     if (z_fmt) {
  240.         zooread (this_file, (char *) &tiny_header, sizeof(tiny_header));
  241.         if (tiny_header.tinytag == TINYTAG && tiny_header.type == 1 &&
  242.                                 strlen (tiny_header.fname) <= FNAMESIZE)
  243.              /* ok */ ;
  244.         else {
  245.             zooclose (this_file);
  246.             prterror ('e', "File %s does not have Z format.\n", this_fname);
  247.             exit_status++;
  248.             continue;
  249.         }
  250.     }
  251. #endif
  252.  
  253.     /* get file time;  also fix name */
  254. #ifdef FAST_EXT
  255.     if (z_fmt) {
  256.         direntry.date = tiny_header.date;
  257.         direntry.time = tiny_header.time;
  258.         strcpy (direntry.fname, tiny_header.fname);
  259.         direntry.dirlen = direntry.namlen = 0;
  260.     } else {
  261. #endif
  262.  
  263.         /* Get timstamp of file being added */
  264. #ifdef GETUTIME
  265.         getutime (this_path, &direntry.date, &direntry.time);
  266. #else
  267.         gettime (this_file, &direntry.date, &direntry.time);
  268. #endif
  269.  
  270.         /* save file attributes */
  271. #ifdef FATTR
  272.         /* we expect getfattr() to set all attr. bits;  currently
  273.             only the portable format is recognized */
  274.         {
  275. # ifdef FATTR_FNAME
  276.             unsigned long getfattr PARMS ((char *);
  277.             direntry.fattr = getfattr (this_path);
  278. # else
  279.             unsigned long getfattr PARMS ((ZOOFILE));
  280.             direntry.fattr = getfattr (this_file);
  281. # endif /* FATTR_FNAME */
  282.         }
  283. #else
  284.             direntry.fattr = NO_FATTR; /* none */
  285. #endif /* FATTR */
  286.  
  287. #ifdef FOLD
  288.         str_lwr(this_fname);
  289. #endif
  290.         dosname (this_fname, direntry.fname);  /* MSDOS filename */
  291.  
  292.     /*
  293.     Store long filename into direntry.lfname iff it is different from MSDOS
  294.     filename.  Also store directory name if need_dir is true.  Moved out of
  295.     zooadd() so zooadd() doesn't get too big for optimization.
  296.     */
  297.     storefname (&direntry, this_path, need_dir);
  298.  
  299. #ifdef FAST_EXT
  300.     }
  301. #endif
  302.  
  303. #ifdef DEBUG
  304. printf ("zooadd:  direntry.lfname = [%s]  direntry.dirname = [%s]\n",
  305.                         direntry.lfname, direntry.dirname);
  306. #endif
  307.  
  308.     /* if update option, then we add file if it is already in the archive
  309.         AND the archived file is older */
  310.  
  311.     /* The following logic was derived from a Karnaugh map so it may
  312.         be hard to understand.    Essentially, if U=update requested,
  313.         N=new files requested, I=file is already in archive, and
  314.         R=file being archived is more recent than file already in
  315.         archive, then the boolean equation is:
  316.  
  317.         add = U' (N' + I') + U (IR  + I'N)
  318.     */
  319.  
  320.     /* Get the filename to use for this addition.  */
  321.     whichname = choosefname(&direntry);
  322.  
  323.     /* Get position in archive of any old file of same name, ignoring
  324.         any directory prefix if need_dir is not true.  Also get its
  325.         date, time, version flag, and version number. */
  326.     prev_pos = inlist (fullpath (&direntry), &this_date, &this_time,
  327.                 &this_version_no, &high_vflag, &high_version_no,
  328.                 &high_pos, !need_dir);
  329.  
  330. /* define DBG_INLIST for debugging by printing values returned by inlist() */
  331. #ifdef DBG_INLIST
  332.     printf ("FROM inlist(): prev_pos=%ld, high_pos=%ld\n", prev_pos, high_pos);
  333.     printf ("this_version_no=%u, high_vflag=%4x, high_version_no=%u\n",
  334.                 this_version_no,      high_vflag,        high_version_no);
  335. #endif
  336.  
  337.     INLIST = prev_pos > 0;    /* already in archive if positive value */
  338.     if (INLIST) {
  339.         int result;
  340.         result = cmpnum (direntry.date, direntry.time, this_date, this_time);
  341.         RECENT = result > 0;
  342.         danger = result < 0;
  343.     } else
  344.         danger = 0; /* And RECENT is undefined and should not be used */
  345.  
  346.     if (
  347.             !update && (!new || !INLIST) ||
  348.             update && (INLIST && RECENT || !INLIST && new)
  349.         )
  350.             ;    /* then continue and add file */
  351.     else {
  352.         if (update && danger)
  353.             prterror ('w', "Archived copy of %s is newer.\n", whichname);
  354.         zooclose (this_file);
  355.         continue;    /* cycle back, skip this file */
  356.     }
  357.  
  358. #ifdef CHEKDIR
  359.     /* Don't add if this is a directory */
  360.     if (isadir (this_file)) {
  361.         zooclose (this_file);
  362.         continue;
  363.     }
  364. #else
  365. # ifdef CHEKUDIR
  366.     /* Don't add if this is a directory */
  367.     if (isuadir (this_path)) {
  368.         zooclose (this_file);
  369.         continue;
  370.     }
  371. # endif /* CHEKUDIR */
  372. #endif /* CHEKDIR */
  373.  
  374.     /* Create directory entry for new file (but don't add just yet) */
  375.     /* NOTE:  we already got file date and time above for update option */
  376.     /* add tag, type, timezone, struc, system_id, and var_dir_len */
  377.     newdir (&direntry);
  378.  
  379.     if (!genson && zoo_status == NEW_ZOO ||
  380.                 (zoo_header.vdata & VFL_ON) == 0) {
  381.         direntry.vflag = 0;
  382.         direntry.version_no = 0;
  383.     }
  384.  
  385.     /*
  386.     Write a null direntry entry.    Thus, if an error occurs or the program
  387.     is interrupted, the end of the archive will still be meaningful.
  388.     Special check needed for first one written.
  389.     */
  390.  
  391.     direntry.next = direntry.offset = 0L;        /* trailing null entry */
  392.     this_dir_offset = zootell (zoo_file);
  393.     if (!firstfile) {
  394.         writedir (&direntry, zoo_file);
  395.     } else {
  396.         /*
  397.         Before adding the first file to the archive, we must make sure that
  398.         the previous directory chain (if any) is properly terminated with a
  399.         null entry of the right size.  If this is a new archive, we simply
  400.         write a new null entry of the right size.  If this is an existing
  401.         archive, we must check the size of the previous trailing null entry.
  402.         If it is too small, we will back up to the most recent real directory
  403.         entry and change its .next field to point to end of file.
  404.         */
  405.  
  406.         if (zoo_status == NEW_ZOO) {
  407.             writedir (&direntry, zoo_file);        /* write null dir entry */
  408.         } else {
  409.             struct direntry tmpentry;
  410.             long tmppos;
  411.             int oldlen, newlen;
  412.             tmppos = zootell (zoo_file);
  413.             frd_dir (&tmpentry, zoo_file);
  414. #define    DIRLEN(x)   ((x.type<2) ? SIZ_DIR : (SIZ_DIRL+x.var_dir_len))
  415.             oldlen = DIRLEN(tmpentry);             /* get length of direntry */
  416.             newlen = DIRLEN(direntry);             /* ditto */
  417.  
  418.             if (newlen > oldlen) {                 /* trouble */
  419. #if 1 /* OIS*/
  420.                 long eofpos;
  421.  
  422.                 zooseek (zoo_file, 0L, 2);          /* get EOF position */
  423.                 eofpos = zootell (zoo_file);
  424.                 if (tmppos + oldlen < eofpos) {
  425.                     /* direntry too short and not at eof: real trouble */
  426.                     zooseek (zoo_file, last_old, 0);    /* back to previous entry */
  427.                     frd_dir (&tmpentry, zoo_file);
  428.                     tmpentry.next = eofpos;                 /* point to EOF */
  429.                     zooseek (zoo_file, last_old, 0);    /* back to previous entry */
  430.                     writedir (&tmpentry, zoo_file);     /* update it */
  431.                     this_dir_offset = eofpos;
  432.                 }
  433.                 /*
  434.                  * else: the short entry was at the end of the file,
  435.                  * so we just overwrite it to make it longer.
  436.                  */
  437.                 zooseek (zoo_file, this_dir_offset, 0); /* back to null entry */
  438.                 writedir (&direntry, zoo_file);     /* ...write null dir entry */
  439. #else
  440.                 zooseek (zoo_file, last_old, 0);    /* back to previous entry */
  441.                 frd_dir (&tmpentry, zoo_file);
  442.                 zooseek (zoo_file, 0L, 2);          /* get EOF position */
  443.                 tmpentry.next = zootell (zoo_file);    /* point to EOF */
  444.                 zooseek (zoo_file, last_old, 0);    /* back to previous entry */
  445.                 writedir (&tmpentry, zoo_file);     /* update it */
  446.                 zooseek (zoo_file, 0L, 2);          /* to EOF ... */
  447.                 this_dir_offset = zootell (zoo_file);
  448.                 writedir (&direntry, zoo_file);     /* ...write null dir entry */
  449. #endif
  450.             } else
  451.                 zooseek (zoo_file, tmppos, 0);      /* long enough -- let it be */
  452.         } /* if (zoo_status == NEW_ZOO) ... */
  453.     } /* if (!firstfile) ... */
  454.  
  455.     /* Now `this_dir_offset' is where the next directory entry will go */
  456.  
  457.     /* first file added goes at EOF to avoid overwriting comments */
  458.     if (firstfile) {
  459.         zooseek (zoo_file, 0L, 2);                   /* EOF */
  460.         direntry.offset = zootell (zoo_file) + SIZ_FLDR;
  461.     } else {
  462.         direntry.offset = this_dir_offset + SIZ_DIRL +
  463.             direntry.var_dir_len + SIZ_FLDR;
  464.     }
  465.  
  466.     if (use_lzh) {
  467.         direntry.major_ver = MAJOR_LZH_VER;     /* minimum version number needed */
  468.         direntry.minor_ver = MINOR_LZH_VER;     /* .. to extract */
  469.     } else {
  470.         direntry.major_ver = MAJOR_EXT_VER;     /* minimum version number needed */
  471.         direntry.minor_ver = MINOR_EXT_VER;     /* .. to extract */
  472.     }
  473.     direntry.deleted = 0;                    /* not deleted, naturally */
  474.     direntry.comment = 0L;                    /* no comment (yet) */
  475.     direntry.cmt_size = 0;              /* .. so no size either */
  476.  
  477.     save_position = direntry.offset;             /* save position in case of error */
  478.  
  479.     (void) zooseek (zoo_file, direntry.offset - SIZ_FLDR, 0);
  480.     (void) zoowrite (zoo_file, file_leader, SIZ_FLDR);
  481.  
  482. #ifdef FAST_EXT
  483.     prterror ('m', "%-*s -- ", longest, this_path);
  484. #else
  485.     if (z_fmt)
  486.         prterror ('m', "%-12s <== %-*s -- ",
  487.             direntry.fname, longest, this_path);
  488.     else
  489.         prterror ('m', "%-*s -- ", longest, this_path);
  490.  
  491. #endif /* FAST_EXT */
  492.  
  493.     crccode = 0;
  494. #ifdef FAST_EXT
  495.     if (z_fmt)
  496.     {
  497.         direntry.packing_method = tiny_header.packing_method;
  498.         zooseek (this_file, (long) (sizeof(tiny_header)+tiny_header.cmt_size), 0);
  499.         status = getfile (this_file, zoo_file, tiny_header.size_now, 1);
  500.     } else
  501. #endif
  502.     if (suppress) {                    /* suppress compression */
  503.         direntry.packing_method = 0;                /* no compression */
  504.         status = getfile (this_file, zoo_file, -1L, 1);
  505.     } else {
  506. #ifdef UNBUF_IO    /* unbuffered I/O */
  507.         long lseek PARMS ((int, long, int));
  508.         long tell PARMS ((int));
  509.         int this_fd, zoo_fd;
  510. #endif
  511.         if (use_lzh)
  512.             direntry.packing_method = 2;
  513.         else
  514.             direntry.packing_method = 1;
  515. #ifdef UNBUF_IO
  516. #include "UNBUF_IO not currently supported"
  517.         this_fd = fileno (this_file);                /* get ..               */
  518.         zoo_fd = fileno (zoo_file);                  /* ... file descriptors */
  519.         zooseek (zoo_file, zootell (zoo_file), 0);   /* synch */
  520.         zooseek (this_file, zootell (this_file), 0); /* synch */
  521.         status = lzc(this_fd, zoo_fd);               /* add with compression */
  522.         zooseek (zoo_file, tell (zoo_fd), 0);        /* resynch  */
  523.         zooseek (this_file, tell (this_fd), 0);      /* resynch  */
  524. #else
  525.         if (use_lzh)
  526.             status = lzh_encode(this_file, zoo_file);
  527.         else
  528.             status = lzc(this_file, zoo_file);
  529. #endif /* UNBUF_IO */
  530.  
  531.     }
  532.     if (status != 0) { /* if I */
  533.         ++exit_status;                                 /* remember error */
  534.         if (status == 1)
  535.             prterror ('F', no_memory);
  536.         else if (status == 2)
  537.             prterror ('F', disk_full);
  538.         else if (status == 3)
  539.             prterror ('F', "Read error.\n");
  540.         else
  541.             prterror ('F', internal_error);
  542.         success = 0;
  543.     } else {
  544.         direntry.next    = zootell (zoo_file);
  545.         direntry.size_now = direntry.next - direntry.offset;
  546.  
  547.         /* find and store original size of file just compressed */
  548. /*DEBUG VMS*/ zooseek (this_file, 0L, 2); /* seek to EOF */
  549.  
  550.         direntry.org_size = zootell (this_file);  /* should be EOF already */
  551.  
  552.         /* If the compressed one is bigger, just copy */
  553.  
  554.         if (direntry.size_now >= direntry.org_size &&   /* if II */
  555.                 direntry.packing_method != 0) {
  556.             zooseek (zoo_file, save_position, 0);  /* ..restore file pointer */
  557.             zootrunc (zoo_file);                   /* ..truncate file */
  558.             direntry.packing_method = 0;                /* ..and just copy */
  559.             zooseek (this_file, 0L, 0);            /* (but rewind first!) */
  560.             crccode = 0;                                    /* re-start crc from 0 */
  561.             status = getfile (this_file, zoo_file, -1L, 1);
  562.             if (status != 0) {  /* if III */
  563.                 success = 0;
  564.                 printf (disk_full);
  565.                 exit_status++;
  566.             } else {
  567.                 success = 1;
  568.                 direntry.next    = zootell (zoo_file);
  569.                 direntry.size_now = direntry.next - direntry.offset;
  570.             } /* end if III */
  571.         } else {
  572.             success = 1;
  573.         } /* end if II */
  574.  
  575.     } /* end if I */
  576.  
  577.     if (success) {                               /* file successfully added */
  578.         addcount++;                                         /* how many added */
  579.         direntry.file_crc = crccode;
  580.  
  581.         /* remember most recent date and time */
  582.         if (cmpnum (direntry.date,direntry.time,latest_date,latest_time) > 0) {
  583.                 latest_date = direntry.date;
  584.                 latest_time = direntry.time;
  585.         }
  586.  
  587. #if 0
  588.         /* mark any previous version of this file in archive as deleted */
  589.         dir2entry.comment = 0L;         /* for later use assigning to direntry */
  590.         dir2entry.cmt_size = 0;
  591. #endif
  592.  
  593.         if (!z_fmt)
  594.             prterror ('M', " (%2d%%) ", cfactor (direntry.org_size, direntry.size_now));
  595.  
  596.         oldcmtsiz = 0;                             /* assume no old comment */
  597.         oldcmtpos = 0L;
  598.  
  599.         if (prev_pos > 0) {                             /* in archive */
  600.             int delold = 0;                                        /* delete old? */
  601.             /* if versions active both archive-wide and for file */
  602.             if ((zoo_header.vdata & VFL_ON) && (high_vflag & VFL_ON)) {
  603.                 /* next test is optimization, to avoid redundant I/O */
  604.                 if (high_pos != prev_pos || this_version_no == 1) {
  605.                     /* prev highest is no longer highest so adjust vflag */
  606.                     long save_pos = zootell (zoo_file);       /*DEBUG*/
  607.                     zooseek (zoo_file, high_pos, 0);
  608.                     readdir (&dir2entry, zoo_file, 1);
  609.                     oldcmtpos = dir2entry.comment;
  610.                     oldcmtsiz = dir2entry.cmt_size;
  611.                     dir2entry.vflag &= (~VFL_LAST);           /* no longer highest */
  612.                     zooseek (zoo_file, high_pos, 0);
  613.                     writedir (&dir2entry, zoo_file);
  614.                     zooseek (zoo_file, save_pos, 0);          /*DEBUG*/
  615.                 }
  616.  
  617.                 direntry.version_no = high_version_no + 1; /* ..one higher */
  618.                 direntry.vflag = high_vflag;
  619.                 /* now see if we need to delete older version */
  620.                 fgens = high_vflag & VFL_GEN;
  621.                 if (fgens == 0)
  622.                     fgens = zgens;
  623.                 if (zgens != 0 && zgens < fgens)
  624.                     fgens = zgens;
  625.                 if (fgens != 0 && direntry.version_no - this_version_no >= fgens) {
  626.                     delold = 1;
  627.                     prterror ('M', "replaced+\n");
  628.                 } else
  629.                     prterror ('M', "added+\n");
  630.             } else {
  631.                 prterror ('M', "replaced\n");
  632.                 delold = 1;
  633.             }
  634.  
  635.             if (delold) {                                /* deleting old file */
  636.                 long save_pos = zootell (zoo_file);       /*DEBUG*/
  637.                 ++delcount;                                         /* remember to pack */
  638.                 zooseek (zoo_file, prev_pos, 0);
  639.                 readdir (&dir2entry, zoo_file, 1);
  640.                 if (dir2entry.cmt_size != 0) {      /* propagate latest comment */
  641.                     oldcmtpos = dir2entry.comment;
  642.                     oldcmtsiz = dir2entry.cmt_size;
  643.                 }
  644.                 dir2entry.deleted = 1;                            /* mark as deleted */
  645.                 /* following line is optimization if only 1 generation */
  646.                 dir2entry.vflag &= (~VFL_LAST);           /* no longer highest */
  647.                 zooseek (zoo_file, prev_pos, 0);
  648.                 writedir (&dir2entry, zoo_file);
  649.                 zooseek (zoo_file, save_pos, 0);          /*DEBUG*/
  650.             }
  651.         } else                                                        /* not in archive */
  652.             prterror ('M', "added\n");
  653.  
  654.         /* Preserve any old comment if we replaced or superseded the file */
  655.         direntry.comment = oldcmtpos;
  656.         direntry.cmt_size = oldcmtsiz;
  657.  
  658. #ifdef FAST_EXT
  659.         /* Copy comment if any from Z format file */
  660.         if (z_fmt && tiny_header.cmt_size != 0) {
  661.             zooseek (this_file, (long) sizeof(tiny_header), 0); /* to comment */
  662.             direntry.comment = zootell (zoo_file);
  663.             direntry.cmt_size = tiny_header.cmt_size;
  664.             /* 4th param is 0 for no CRC */
  665.             getfile (this_file, zoo_file, (long) tiny_header.cmt_size, 0);
  666.             direntry.next = zootell (zoo_file);
  667.         }
  668. #endif
  669.  
  670.         /* if user requested comments, any previous comment in a Z format
  671.             file may now be manually overwritten */
  672.         if (add_comment && !feof (stdin)) {
  673.             show_comment (&direntry, zoo_file, 1, whichname);
  674.             get_comment (&direntry, zoo_file, this_path);
  675.             direntry.next = zootell (zoo_file);    /* update .next ptr */
  676.         } /* end if */
  677.  
  678. #ifdef FAST_EXT
  679.         /* if adding Z format archive, copy relevant fields from its header */
  680.         if (z_fmt) {   /* moved out to shorten code & allow optimizer to work */
  681.             copyfields (&direntry, &tiny_header);
  682.         }
  683. #endif
  684.  
  685.         debug((printf ("zooadd:  our new .next = [%lx].\n", direntry.next)))
  686.  
  687.         {
  688.             long savepos = zootell (zoo_file);    /* save position */
  689.             zooseek (zoo_file, this_dir_offset, 0);
  690.             writedir (&direntry, zoo_file);
  691.             zooseek (zoo_file, savepos, 0);    /* restore position */
  692.         }
  693.  
  694.     } else {                                         /* file was not properly added */
  695.         zooseek (zoo_file, save_position, 0);  /* ..restore file pointer */
  696.         zootrunc (zoo_file);                   /* ..truncate file */
  697.     } /* end if */
  698.     zooclose (this_file);
  699. if (!success)
  700.     break;
  701. firstfile = 0;
  702. } /* end for */
  703.  
  704. save_position = zootell (zoo_file);
  705.  
  706. /* Write a null direntry entry */
  707. zooseek (zoo_file, save_position, 0);
  708. writenull (zoo_file, 0);
  709. zootrunc (zoo_file);  /* truncate */
  710.  
  711. #ifdef NIXTIME
  712. zooclose (zoo_file);
  713. setutime (zoo_path, latest_date, latest_time);
  714. #else
  715. settime (zoo_file, latest_date, latest_time);
  716. zooclose (zoo_file);
  717. #endif
  718.  
  719. if (!addcount) {                    /* no files added */
  720.     prterror ('m', "No files added.\n");
  721.     if (zoo_status == NEW_ZOO)
  722.         unlink (zoo_path);
  723. } else {
  724.     if (delcount && pack) { /* pack if user asked and found deleted entries */
  725.         prterror ('M', "-----\nPacking...");
  726.         zoopack (zoo_path, "PP");
  727.         prterror ('M', "done\n");
  728.     }
  729.  
  730.     /* If files to move & we added some and no error so far, delete originals */
  731.     if (move && !exit_status)
  732.         if (kill_files (flist, longest) != 0)
  733.             exit_status++;
  734. }
  735.  
  736. /* right here we handle archive comment */
  737. if (add_global_comment) {
  738.     comment(zoo_path, "_A");
  739.     add_global_comment = 0;
  740. }
  741.  
  742. if (exit_status)
  743.     zooexit (1);
  744. } /* end zoo_add */
  745.