home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 9 / FreshFishVol9-CD2.bin / bbs / util / zoo-2.1.lha / zoo / zooext.c < prev    next >
C/C++ Source or Header  |  1991-08-03  |  20KB  |  661 lines
  1. #ifndef LINT
  2. /* derived from: zooext.c 2.21 88/08/24 02:39:04 */
  3. /*$Source: /usr/home/dhesi/zoo/RCS/zooext.c,v $*/
  4. /*$Id: zooext.c,v 1.9 91/07/09 01:54:13 dhesi Exp $*/
  5. static char sccsid[]="$Source: /usr/home/dhesi/zoo/RCS/zooext.c,v $\n\
  6. $Id: zooext.c,v 1.9 91/07/09 01:54:13 dhesi Exp $";
  7. #endif /* LINT */
  8.  
  9. /*
  10. Copyright (C) 1986, 1987 Rahul Dhesi -- All rights reserved
  11. (C) Copyright 1988 Rahul Dhesi -- All rights reserved
  12. (C) Copyright 1991 Rahul Dhesi -- All rights reserved
  13. */
  14. /* Extract file from archive.  Extracts files specified in parameter-list
  15.     from archive zoo_path.    If none specified, extracts all files from
  16.     archive. */
  17.  
  18. #include "options.h"
  19. #include "zoo.h"
  20. #include "parse.h"      /* defines struct for parse() */
  21.  
  22. #include "portable.h"   /* portable I/O definitions */
  23. #include "machine.h"    /* machine-specific declarations */
  24.  
  25. #include "zooio.h"
  26. #include "various.h"
  27.  
  28. #ifndef NOSIGNAL
  29. #include <signal.h>
  30. #endif
  31.  
  32. #include "zoofns.h"
  33.  
  34. #ifdef MODE_BIN        /* will need fileno() from stdio.h */
  35. # include <stdio.h>
  36. #endif
  37.  
  38. void makepath PARMS((char *));
  39. int needed PARMS((char *, struct direntry *, struct zoo_header *));
  40. void putstr PARMS((char *));
  41.  
  42. #ifdef FATTR
  43. int setfattr PARMS ((char *, unsigned long));
  44. #endif /* FATTR */
  45.  
  46. extern int quiet;
  47.  
  48. #include "errors.i"
  49.  
  50. /* Following two are used by ctrl_c() also, hence declared here */
  51. char extfname[LFNAMESIZE];                 /* filename of extracted file */
  52. char prtfname[LFNAMESIZE];                 /* name of extracted file on screen */
  53. static ZOOFILE this_file;                    /* file to extract */
  54.  
  55. static int tofile;                            /* true if not pipe or null device */
  56. extern unsigned int crccode;
  57. extern char *out_buf_adr;                    /* address of output buffer */
  58.  
  59. void zooext(zoo_path, option)
  60. char *zoo_path, *option;
  61. {
  62. char *whichname;                                    /* which name to extract */
  63. char matchname[PATHSIZE];                        /* for pattern matching only */
  64. #ifndef NOSIGNAL
  65. T_SIGNAL (*oldsignal) PARMS((int));       /* to save previous SIGINT handler */
  66. #endif
  67. ZOOFILE zoo_file;                                 /* open archive */
  68. long next_ptr;                                     /* pointer to within archive */
  69. struct zoo_header zoo_header;                 /* header for archive */
  70. int status;                                         /* error status */
  71. int exit_status = 0;                             /* exit status */
  72. int error_message;                                /* Whether to give error message */
  73. unsigned long disk_space;                        /* disk space left */
  74. int matched = 0;                                    /* Any files matched? */
  75. int overwrite = 0;                                /* force overwrite of files? */
  76. int supersede = 0;                                /* supersede newer files? */
  77. int needdel = 0;                                    /* extract deleted files too */
  78. int usepath = 2;                                    /* use path for extraction */
  79. int todot = 0;                                     /* extract relative to . */
  80. int badcrc_count = 0;                            /* how many files with bad CRC */
  81. int bad_header = 0;                                /* to avoid spurious messages later */
  82. long fiz_ofs = 0;                                 /* offset where to start */
  83. long dat_ofs = 0;                                 /* .. and offset of file data */
  84. int pipe = 0;                                        /* are we piping output? */
  85. int null_device = 0;                             /* are we sending to null device? */
  86. #ifdef FAST_EXT
  87. int fast_ext = 0;                                 /* fast extract as *.?Z? */
  88. #endif
  89. #ifndef PORTABLE
  90. int alloc_size;                                    /* disk allocation unit size */
  91. #endif
  92. struct direntry direntry;                        /* directory entry */
  93. int first_dir = 1;                                /* first dir entry seen? */
  94.  
  95. static char extract_ver[] = "Zoo %d.%d is needed to extract %s.\n";
  96. static char no_space[] = "Insufficient disk space to extract %s.\n";
  97.  
  98. while (*option) {
  99.     switch (*option) {
  100. #ifdef FAST_EXT
  101.         case 'z': fast_ext++; break;
  102. #endif
  103.         case 'x':
  104.         case 'e': break;
  105.         case 'N': null_device++; break;
  106.         case 'O': overwrite += 2; break;
  107.         case 'o': overwrite++; break;
  108.         case 'p': pipe++; break;
  109.         case 'S': supersede++; break;
  110.         case 'd': needdel++; break;
  111.         case 'q': quiet++; break;
  112.         case ':': usepath = 0; break;
  113.         case '/': usepath++; break;
  114.         case '.': todot++; break;
  115.         case '@':   /* if @m,n specified, fiz_ofs = m, dat_ofs = n */
  116.             {
  117.                 char *comma_pos;
  118.                 ++option;
  119.                 comma_pos = strchr(option, ',');
  120.                 if (comma_pos != NULL) {
  121.                     dat_ofs = calc_ofs (comma_pos + 1);
  122.                     *comma_pos = '\0';
  123.                 }
  124.                 fiz_ofs = calc_ofs(option);
  125.                 goto no_more;
  126.             }
  127.         default:
  128.             prterror ('f', inv_option, *option);
  129.             /* break; */
  130.     }
  131.     option++;
  132. }
  133.  
  134. no_more: /* come from exit in while loop above */
  135.  
  136.  
  137. if (overwrite == 1)                 /* must be at least 2 to begin with */
  138.     overwrite--;
  139.  
  140. if (null_device && pipe) {
  141.     prterror ('f', inv_option, 'p');
  142.     pipe = 0;
  143. }
  144.  
  145. if (overwrite && pipe)
  146.     prterror ('w', option_ignored, 'O');
  147.  
  148. #ifdef FAST_EXT
  149. if (null_device && fast_ext) {
  150.     prterror ('w', inv_option, 'N');
  151.     null_device = 0;
  152. }
  153. #endif
  154.  
  155. tofile = !pipe && !null_device;        /* sending to actual file */
  156.  
  157. zoo_file = zooopen(zoo_path, Z_READ);
  158.  
  159. if (zoo_file == NOFILE)
  160.     prterror ('f', could_not_open, zoo_path);
  161.  
  162. if (fiz_ofs != 0L) {                /* if offset specified, start there */
  163.     prterror ('m', start_ofs, fiz_ofs, dat_ofs);
  164.     zooseek (zoo_file, fiz_ofs, 0);
  165. } else {
  166.     /* read header */
  167.     frd_zooh (&zoo_header, zoo_file);
  168.     if ((zoo_header.zoo_start + zoo_header.zoo_minus) != 0L) {
  169.         prterror ('w', failed_consistency);
  170.         bad_header++;
  171.         exit_status = 1;
  172.     }
  173.     zooseek (zoo_file, zoo_header.zoo_start, 0); /* seek to where data begins */
  174. }
  175.  
  176. #ifndef PORTABLE
  177. disk_space = space (0, &alloc_size);         /* remember disk space left */
  178. #else
  179. disk_space = MAXLONG;                  /* infinite disk space */
  180. #endif
  181.  
  182. /* if piping output we open the output device just once */
  183. if (null_device) {
  184.     this_file = NULLFILE;
  185. } else if (pipe)
  186.     this_file = STDOUT;      /* standard output */
  187.  
  188. while (1) {
  189.     frd_dir (&direntry, zoo_file);
  190.     if (direntry.zoo_tag != ZOO_TAG) {
  191.         long currpos, zoolength;
  192.         prterror ('F', invalid_header);
  193.  
  194.         /* Note:  if header was bad, there's no point trying to find
  195.             how many more bytes aren't processed -- our seek position is
  196.             likely very wrong */
  197.  
  198.         if (!bad_header)
  199.             if ((currpos = zootell (zoo_file)) != -1L)
  200.                 if (zooseek (zoo_file, 0L, 2) != -1)
  201.                     if ((zoolength = zootell (zoo_file)) != -1L)
  202.                         printf (cant_process, zoolength - currpos);
  203.         zooexit (1);
  204.     }
  205.     if (direntry.next == 0L) {                /* END OF CHAIN */
  206.         break;                                            /* EXIT on end of chain */
  207.     }
  208.     /* when first direntry read, change dat_ofs from abs. pos. to rel. offset */
  209.     if (first_dir && dat_ofs != 0) {
  210.         dat_ofs -= direntry.offset;
  211.         first_dir = 0;
  212.     }
  213.     next_ptr = direntry.next + dat_ofs;         /* ptr to next dir entry */
  214.  
  215.     whichname = choosefname(&direntry);       /* which filename */
  216.     whichname = str_dup(whichname);           /* bug fix */
  217.     fixfname(whichname);                      /* fix syntax */
  218.     strcpy (matchname, fullpath (&direntry)); /* get full pathname */
  219.     if (zoo_header.vdata & VFL_ON)
  220.         add_version (matchname, &direntry);    /* add version suffix */
  221.  
  222. /* if extraction to subtree rooted at curr dir, modify pathname */
  223. #if 0
  224. #ifdef DIR_LBRACK
  225.     if (todot && direntry.dirname[0] == *DIR_LBRACK &&
  226.                      direntry.dirname[1] != *CUR_DIR)        {
  227.         char tmpstr[PATHSIZE];
  228.         strcpy (tmpstr, DIR_LBRACK);
  229.         strcat (tmpstr, CUR_DIR);
  230.         strcat (tmpstr, &direntry.dirname[1]);
  231.         strcpy (direntry.dirname, tmpstr);
  232.     }
  233. #endif
  234. #endif
  235.  
  236.     /* hard-coded '/' should be eventually removed */
  237.     if (todot && *direntry.dirname == '/') {
  238.         char tmpstr[PATHSIZE];
  239.         strcpy(tmpstr, direntry.dirname);
  240.         strcpy(direntry.dirname,CUR_DIR);
  241.         strcat(direntry.dirname, tmpstr);
  242.     }
  243.  
  244.     /* matchname now holds the full pathname for pattern matching */
  245.  
  246.     if ( ( (needdel && direntry.deleted) ||
  247.                 (needdel < 2 && !direntry.deleted)
  248.           ) && needed(matchname, &direntry, &zoo_header)) {
  249.         matched++;                /* update count of files extracted */
  250.  
  251.         if (direntry.major_ver > MAJOR_LZH_VER ||
  252.             (direntry.major_ver == MAJOR_LZH_VER &&
  253.                 direntry.minor_ver > MINOR_LZH_VER)) {
  254.                 prterror ('e', extract_ver, direntry.major_ver,
  255.                                     direntry.minor_ver, whichname);
  256.                 exit_status = 1;
  257.                 goto loop_again;
  258.         }
  259.  
  260.         /*
  261.         If extracting to null device, or if user requested extraction
  262.         of entire path, include any directory name in filename.
  263.         If extraction to current directory requested, and if extfname
  264.         begins with path separator, fix it */
  265.  
  266.         strcpy (extfname, whichname);
  267.         if ((usepath || null_device) && direntry.dirlen