]>
Dogcows Code - chaz/tar/blob - src/tar.c
7f27988481f79039bc0e1a8a47e2420dd3e6ea11
1 /* Tar -- a tape archiver.
2 Copyright (C) 1988, 1992 Free Software Foundation
4 This file is part of GNU Tar.
6 GNU Tar is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU Tar is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Tar; see the file COPYING. If not, write to
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
21 * A tar (tape archiver) program.
23 * Written by John Gilmore, ihnp4!hoptoad!gnu, starting 25 Aug 85.
27 #include <sys/types.h> /* Needed for typedefs in tar.h */
33 * The following causes "tar.h" to produce definitions of all the
34 * global variables, rather than just "extern" declarations of them.
36 #define TAR_EXTERN /**/
41 #if defined(_POSIX_VERSION) || defined(DIRENT)
47 #define DP_NAMELEN(x) strlen((x)->d_name)
48 #endif /* _POSIX_VERSION or DIRENT */
49 #if !defined(_POSIX_VERSION) && !defined(DIRENT) && defined(BSD42)
51 #define DP_NAMELEN(x) (x)->d_namlen
52 #endif /* not _POSIX_VERSION and BSD42 */
55 #define DP_NAMELEN(x) (x)->d_namlen
58 #if defined(USG) && !defined(_POSIX_VERSION) && !defined(DIRENT)
60 #define DP_NAMELEN(x) strlen((x)->d_name)
61 #endif /* USG and not _POSIX_VERSION and not DIRENT */
64 * We should use a conversion routine that does reasonable error
65 * checking -- atoi doesn't. For now, punt. FIXME.
70 extern int getoldopt();
71 extern void read_and();
72 extern void list_archive();
73 extern void extract_archive();
74 extern void diff_archive();
75 extern void create_archive();
76 extern void update_archive();
77 extern void junk_archive();
80 extern time_t get_date();
84 static FILE *namef
; /* File to read names from */
85 static char **n_argv
; /* Argv used by name routines */
86 static int n_argc
; /* Argc used by name routines */
87 static char **n_ind
; /* Store an array of names */
88 static int n_indalloc
; /* How big is the array? */
89 static int n_indused
; /* How many entries does it have? */
90 static int n_indscan
; /* How many of the entries have we scanned? */
93 extern FILE *msg_file
;
97 void add_exclude_file();
106 char *un_quote_string();
113 #define DEFBLOCKING 20
117 #define DEF_AR_FILE "tar.out"
120 /* For long options that unconditionally set a single flag, we have getopt
121 do it. For the others, we share the code for the equivalent short
122 named option, the name of which is stored in the otherwise-unused `val'
123 field of the `struct option'; for long options that have no equivalent
124 short option, we use nongraphic characters as pseudo short option
125 characters, starting (for no particular reason) with character 10. */
127 struct option long_options
[] =
129 {"create", 0, 0, 'c'},
130 {"append", 0, 0, 'r'},
131 {"extract", 0, 0, 'x'},
134 {"update", 0, 0, 'u'},
135 {"catenate", 0, 0, 'A'},
136 {"concatenate", 0, 0, 'A'},
137 {"compare", 0, 0, 'd'},
139 {"delete", 0, 0, 14},
143 {"directory", 1, 0, 'C'},
144 {"record-number", 0, &f_sayblock
, 1},
145 {"files-from", 1, 0, 'T'},
146 {"label", 1, 0, 'V'},
147 {"exclude-from", 1, 0, 'X'},
148 {"exclude", 1, 0, 15},
150 {"block-size", 1, 0, 'b'},
151 {"version", 0, 0, 11},
152 {"verbose", 0, 0, 'v'},
153 {"totals", 0, &f_totals
, 1},
155 {"read-full-blocks", 0, &f_reblock
, 1},
156 {"starting-file", 1, 0, 'K'},
157 {"to-stdout", 0, &f_exstdout
, 1},
158 {"ignore-zeros", 0, &f_ignorez
, 1},
159 {"keep-old-files", 0, 0, 'k'},
160 {"uncompress", 0, &f_compress
, 1},
161 {"same-permissions", 0, &f_use_protection
, 1},
162 {"preserve-permissions",0, &f_use_protection
, 1},
163 {"modification-time", 0, &f_modified
, 1},
164 {"preserve", 0, 0, 10},
165 {"same-order", 0, &f_sorted_names
, 1},
166 {"same-owner", 0, &f_do_chown
, 1},
167 {"preserve-order", 0, &f_sorted_names
, 1},
169 {"newer", 1, 0, 'N'},
170 {"after-date", 1, 0, 'N'},
171 {"newer-mtime", 1, 0, 13},
172 {"incremental", 0, 0, 'G'},
173 {"listed-incremental", 1, 0, 'g'},
174 {"multi-volume", 0, &f_multivol
, 1},
175 {"info-script", 1, 0, 'F'},
176 {"absolute-paths", 0, &f_absolute_paths
, 1},
177 {"interactive", 0, &f_confirm
, 1},
178 {"confirmation", 0, &f_confirm
, 1},
180 {"verify", 0, &f_verify
, 1},
181 {"dereference", 0, &f_follow_links
, 1},
182 {"one-file-system", 0, &f_local_filesys
, 1},
183 {"old-archive", 0, 0, 'o'},
184 {"portability", 0, 0, 'o'},
185 {"compress", 0, &f_compress
, 1},
186 {"compress-block", 0, &f_compress
, 2},
187 {"sparse", 0, &f_sparse_files
, 1},
188 {"tape-length", 1, 0, 'L'},
189 {"remove-files", 0, &f_remove_files
, 1},
190 {"ignore-failed-read", 0, &f_ignore_failed_read
, 1},
191 {"checkpoint", 0, &f_checkpoint
, 1},
192 {"show-omitted-dirs", 0, &f_show_omitted_dirs
, 1},
193 {"volno-file", 1, 0, 17},
194 {"force-local", 0, &f_force_local
, 1},
195 {"atime-preserve", 0, &f_atime_preserve
, 1},
201 * Main routine for tar.
208 extern char version_string
[];
210 tar
= argv
[0]; /* JF: was "tar" Set program name */
211 filename_terminator
= '\n';
217 name_init(argc
, argv
);
220 init_volume_number ();
234 fprintf (stderr
, "Total bytes written: %d\n", tot_written
);
239 label_pattern
= (struct re_pattern_buffer
*)
240 ck_malloc (sizeof *label_pattern
);
241 err
= re_compile_pattern (f_volhdr
, strlen (f_volhdr
),
244 fprintf (stderr
,"Bad regular expression: %s\n",
252 read_and(extract_archive
);
257 label_pattern
= (struct re_pattern_buffer
*)
258 ck_malloc (sizeof *label_pattern
);
259 err
= re_compile_pattern (f_volhdr
, strlen (f_volhdr
),
262 fprintf (stderr
,"Bad regular expression: %s\n",
268 read_and(list_archive
);
276 read_and(diff_archive
);
279 fprintf(stderr
,"%s\n",version_string
);
282 msg("you must specify exactly one of the r, c, t, x, or d options\n");
283 fprintf(stderr
,"For more information, type ``%s --help''.\n",tar
);
287 closeout_volume_number ();
294 * Parse the options for tar.
301 register int c
; /* Option letter */
304 /* Set default option values */
305 blocking
= DEFBLOCKING
; /* From Makefile */
306 ar_files
= (char **) malloc (sizeof (char *) * 10);
312 while ((c
= getoldopt(argc
, argv
,
313 "-01234567Ab:BcC:df:F:g:GhikK:lL:mMN:oOpPrRsStT:uvV:wWxX:zZ",
314 long_options
, &ind
)) != EOF
) {
316 case 0: /* long options that set a single flag */
319 /* File name or non-parsed option */
326 case 10: /* preserve */
327 f_use_protection
= f_sorted_names
= 1;
330 if(cmd_mode
!=CMD_NONE
)
332 cmd_mode
=CMD_VERSION
;
335 printf("This is GNU tar, the tape archiving program.\n");
342 case 14: /* Delete in the archive */
343 if(cmd_mode
!=CMD_NONE
)
353 case 16: /* -T reads null terminated filenames. */
354 filename_terminator
= '\0';
358 f_volno_file
= optarg
;
361 case 'g': /* We are making a GNU dump; save
362 directories at the beginning of
363 the archive, and include in each
364 directory its contents */
381 /* JF this'll have to be modified for other
382 systems, of course! */
386 d
=getoldopt(argc
,argv
,"lmh");
388 sprintf(buf
,"/dev/rmt/%d%c",c
,d
);
395 if(d
=='l') add
=LOW_NUM
;
396 else if(d
=='m') add
=MID_NUM
;
397 else if(d
=='h') add
=HGH_NUM
;
400 sprintf(buf
,"/dev/rmt%d",add
+c
-'0');
402 if (n_ar_files
== ar_files_len
)
405 ck_malloc (sizeof (char *)
406 * (ar_files_len
*= 2));
407 ar_files
[n_ar_files
++]=buf
;
411 case 'A': /* Arguments are tar files,
412 just cat them onto the end
414 if(cmd_mode
!=CMD_NONE
)
419 case 'b': /* Set blocking factor */
420 blocking
= intconv(optarg
);
423 case 'B': /* Try to reblock input */
424 f_reblock
++; /* For reading 4.2BSD pipes */
427 case 'c': /* Create an archive */
428 if(cmd_mode
!=CMD_NONE
)
436 msg_perror("Can't change directory to %d",optarg
);
440 case 'd': /* Find difference tape/disk */
441 if(cmd_mode
!=CMD_NONE
)
446 case 'f': /* Use ar_file for the archive */
447 if (n_ar_files
== ar_files_len
)
449 = (char **) ck_malloc (sizeof (char *)
450 * (ar_files_len
*= 2));
452 ar_files
[n_ar_files
++] = optarg
;
456 /* Since -F is only useful with -M , make it implied */
457 f_run_script_at_end
++; /* run this script at the end */
458 info_script
= optarg
; /* of each tape */
462 case 'G': /* We are making a GNU dump; save
463 directories at the beginning of
464 the archive, and include in each
465 directory its contents */
473 f_follow_links
++; /* follow symbolic links */
477 f_ignorez
++; /* Ignore zero records (eofs) */
479 * This can't be the default, because Unix tar
480 * writes two records of zeros, then pads out the
481 * block with garbage.
485 case 'k': /* Don't overwrite files */
487 msg("can't keep old files on this system");
499 case 'l': /* When dumping directories, don't
500 dump files/subdirectories that are
501 on other filesystems. */
506 tape_length
= intconv (optarg
);
513 case 'M': /* Make Multivolume archive:
514 When we can't write any more
515 into the archive, re-open it,
516 and continue writing */
520 case 'N': /* Only write files newer than X */
523 new_time
=get_date(optarg
, (PTR
) 0);
524 if (new_time
== (time_t) -1) {
525 msg("invalid date format `%s'", optarg
);
530 case 'o': /* Generate old archive */
531 if(f_gnudump
/* || f_dironly */)
548 case 'r': /* Append files to the archive */
549 if(cmd_mode
!=CMD_NONE
)
555 f_sayblock
++; /* Print block #s for debug */
556 break; /* of bad tar archives */
559 f_sorted_names
++; /* Names to extr are sorted */
562 case 'S': /* deal with sparse files */
566 if(cmd_mode
!=CMD_NONE
)
569 f_verbose
++; /* "t" output == "cv" or "xv" */
577 case 'u': /* Append files to the archive that
578 aren't there, or are newer than the
579 copy in the archive */
580 if(cmd_mode
!=CMD_NONE
)
601 case 'x': /* Extract files from the archive */
602 if(cmd_mode
!=CMD_NONE
)
604 cmd_mode
=CMD_EXTRACT
;
609 add_exclude_file(optarg
);
612 case 'z': /* Easy to type */
613 case 'Z': /* Like the filename extension .Z */
619 msg("Unknown option. Use '%s --help' for a complete list of options.", tar
);
625 blocksize
= blocking
* RECORDSIZE
;
629 ar_files
[0] = getenv("TAPE"); /* From environment, or */
630 if (ar_files
[0] == 0)
631 ar_files
[0] = DEF_AR_FILE
; /* From Makefile */
633 if (n_ar_files
> 1 && !f_multivol
)
635 msg ("Multiple archive files requires --multi-volume\n");
642 * Print as much help as the user's gonna get.
644 * We have to sprinkle in the KLUDGE lines because too many compilers
645 * cannot handle character strings longer than about 512 bytes. Yuk!
646 * In particular, MS-DOS and Xenix MSC and PDP-11 V7 Unix have this
652 puts("choose one of the following:");
655 --concatenate append tar files to an archive\n\
656 -c, --create create a new archive\n\
658 --compare find differences between archive and file system\n\
659 --delete delete from the archive (not for use on mag tapes!)\n\
660 -r, --append append files to the end of an archive\n\
661 -t, --list list the contents of an archive\n\
662 -u, --update only append files that are newer than copy in archive\n\
664 --get extract files from an archive\n",stdout
);
668 --atime-preserve don't change access times on dumped files\n\
669 -b, --block-size N block size of Nx512 bytes (default N=%d)\n", DEFBLOCKING
);
671 -B, --read-full-blocks reblock as we read (for reading 4.2BSD pipes)\n\
672 -C, --directory DIR change to directory DIR\n\
673 --checkpoint print directory names while reading the archive\n\
674 ", stdout
); /* KLUDGE */ fprintf(stdout
, "\
675 -f, --file [HOSTNAME:]F use archive file or device F (default %s)\n",
676 DEF_AR_FILE
); fputs("\
677 --force-local archive file is local even if has a colon\n\
678 -F, --info-script F run script at end of each tape (implies -M)\n\
679 -G, --incremental create/list/extract old GNU-format incremental backup\n\
680 -g, --listed-incremental F create/list/extract new GNU-format incremental backup\n\
681 -h, --dereference don't dump symlinks; dump the files they point to\n\
682 -i, --ignore-zeros ignore blocks of zeros in archive (normally mean EOF)\n\
683 --ignore-failed-read don't exit with non-zero status on unreadable files\n\
684 -k, --keep-old-files keep existing files; don't overwrite them from archive\n\
685 -K, --starting-file FILE begin at FILE in the archive\n\
686 -l, --one-file-system stay in local file system when creating an archive\n\
687 -L, --tape-length LENGTH change tapes after writing LENGTH\n\
688 ", stdout
); /* KLUDGE */ fputs("\
689 -m, --modification-time don't extract file modified time\n\
690 -M, --multi-volume create/list/extract multi-volume archive\n\
691 -N, --after-date DATE,\n\
692 --newer DATE only store files newer than DATE\n\
693 -o, --old-archive,\n\
694 --portability write a V7 format archive, rather than ANSI format\n\
695 -O, --to-stdout extract files to standard output\n\
696 -p, --same-permissions,\n\
697 --preserve-permissions extract all protection information\n\
698 -P, --absolute-paths don't strip leading `/'s from file names\n\
699 --preserve like -p -s\n\
700 ", stdout
); /* KLUDGE */ fputs("\
701 -R, --record-number show record number within archive with each message\n\
702 --remove-files remove files after adding them to the archive\n\
704 --preserve-order list of names to extract is sorted to match archive\n\
705 --same-owner create extracted files with the same ownership \n\
706 -S, --sparse handle sparse files efficiently\n\
707 -T, --files-from F get names to extract or create from file F\n\
708 --null -T reads null-terminated names, disable -C\n\
709 --totals print total bytes written with --create\n\
710 -v, --verbose verbosely list files processed\n\
711 -V, --label NAME create archive with volume name NAME\n\
712 --version print tar program version number\n\
713 -w, --interactive,\n\
714 --confirmation ask for confirmation for every action\n\
715 ", stdout
); /* KLUDGE */ fputs("\
716 -W, --verify attempt to verify the archive after writing it\n\
717 --exclude FILE exclude file FILE\n\
718 -X, --exclude-from FILE exclude files listed in FILE\n\
719 -z, -Z, --compress,\n\
720 --uncompress filter the archive through compress\n\
721 -[0-7][lmh] specify drive and density\n\
729 if(n_indalloc
==n_indused
) {
731 n_ind
=(char **)(n_indused
? ck_realloc(n_ind
,n_indalloc
*sizeof(char *)) : ck_malloc(n_indalloc
*sizeof(char *)));
733 n_ind
[n_indused
++]=name
;
737 * Set up to gather file names for tar.
739 * They can either come from stdin or from argv.
742 name_init(argc
, argv
)
749 msg("too many args with -T option");
752 if (!strcmp(name_file
, "-")) {
755 namef
= fopen(name_file
, "r");
757 msg_perror("can't open file %s",name_file
);
762 /* Get file names from argv, after options. */
768 /* Read the next filename read from STREAM and null-terminate it.
769 Put it into BUFFER, reallocating and adjusting *PBUFFER_SIZE if necessary.
770 Return the new value for BUFFER, or NULL at end of file. */
773 read_name_from_file (buffer
, pbuffer_size
, stream
)
775 size_t *pbuffer_size
;
779 register int indx
= 0;
780 register size_t buffer_size
= *pbuffer_size
;
782 while ((c
= getc (stream
)) != EOF
&& c
!= filename_terminator
)
784 if (indx
== buffer_size
)
786 buffer_size
+= NAMSIZ
;
787 buffer
= ck_realloc (buffer
, buffer_size
+ 2);
791 if (indx
== 0 && c
== EOF
)
793 if (indx
== buffer_size
)
795 buffer_size
+= NAMSIZ
;
796 buffer
= ck_realloc (buffer
, buffer_size
+ 2);
799 *pbuffer_size
= buffer_size
;
804 * Get the next name from argv or the name file.
806 * Result is in static storage and can't be relied upon across two calls.
808 * If CHANGE_DIRS is non-zero, treat a filename of the form "-C" as
809 * meaning that the next filename is the name of a directory to change to.
810 * If `filename_terminator' is '\0', CHANGE_DIRS is effectively always 0.
814 name_next(change_dirs
)
817 static char *buffer
; /* Holding pattern */
818 static int buffer_siz
;
820 register char *q
= 0;
821 register int next_name_is_dir
= 0;
822 extern char *un_quote_string();
825 buffer
=ck_malloc(NAMSIZ
+2);
828 if (filename_terminator
== '\0')
832 if(n_indscan
<n_indused
)
833 p
=n_ind
[n_indscan
++];
834 else if (optind
< n_argc
)
835 /* Names come from argv, after options */
839 msg("Missing filename after -C");
843 /* JF trivial support for -C option. I don't know if
844 chdir'ing at this point is dangerous or not.
845 It seems to work, which is all I ask. */
846 if(change_dirs
&& !q
&& p
[0]=='-' && p
[1]=='C' && p
[2]=='\0') {
852 msg_perror("Can't chdir to %s",p
);
856 /* End of JF quick -C hack */
858 if(f_exclude
&& check_exclude(p
))
860 return un_quote_string(p
);
862 while (p
= read_name_from_file (buffer
, &buffer_siz
, namef
)) {
865 continue; /* Ignore empty lines. */
866 q
= p
+ strlen (p
) - 1;
867 while (q
> p
&& *q
== '/') /* Zap trailing "/"s. */
869 if (change_dirs
&& next_name_is_dir
== 0
870 && p
[0] == '-' && p
[1] == 'C' && p
[2] == '\0') {
871 next_name_is_dir
= 1;
874 if (next_name_is_dir
) {
876 msg_perror ("Can't change to directory %s", p
);
877 next_name_is_dir
= 0;
880 if(f_exclude
&& check_exclude(p
))
882 return un_quote_string(p
);
889 * Close the name file, if any.
895 if (namef
!= NULL
&& namef
!= stdin
) fclose(namef
);
900 * Gather names in a list for scanning.
901 * Could hash them later if we really care.
903 * If the names are already sorted to match the archive, we just
904 * read them one by one. name_gather reads the first one, and it
905 * is called by name_match as appropriate to read the next ones.
906 * At EOF, the last name read is just left in the buffer.
907 * This option lets users of small machines extract an arbitrary
908 * number of files by doing "tar t" and editing down the list of files.
914 static struct name
*namebuf
; /* One-name buffer */
916 static char *chdir_name
;
918 if (f_sorted_names
) {
921 namebuf
=(struct name
*)ck_malloc(sizeof(struct name
)+NAMSIZ
);
925 if(*p
=='-' && p
[1]=='C' && p
[2]=='\0') {
926 chdir_name
=name_next(0);
929 msg("Missing file name after -C");
932 namebuf
->change_dir
=chdir_name
;
934 namebuf
->length
= strlen(p
);
935 if (namebuf
->length
>= namelen
) {
936 namebuf
=(struct name
*)ck_realloc(namebuf
,sizeof(struct name
)+namebuf
->length
);
937 namelen
=namebuf
->length
;
939 strncpy(namebuf
->name
, p
, namebuf
->length
);
940 namebuf
->name
[ namebuf
->length
] = 0;
941 namebuf
->next
= (struct name
*)NULL
;
949 /* Non sorted names -- read them all in */
950 while (p
= name_next(0))
955 * Add a name to the namelist.
959 char *name
; /* pointer to name */
961 register int i
; /* Length of string */
962 register struct name
*p
; /* Current struct pointer */
963 static char *chdir_name
;
966 if(name
[0]=='-' && name
[1]=='C' && name
[2]=='\0') {
967 chdir_name
=name_next(0);
970 msg("Missing file name after -C");
973 if(chdir_name
[0]!='/') {
974 char *path
= ck_malloc(PATH_MAX
);
975 #if defined(__MSDOS__) || defined(USG) || defined(_POSIX_VERSION)
976 if(!getcwd(path
,PATH_MAX
)) {
977 msg("Couldn't get current directory.");
984 msg("Couldn't get current directory: %s",path
);
988 chdir_name
=new_name(path
,chdir_name
);
997 p
= (struct name
*)malloc((unsigned)(sizeof(struct name
) + i
));
1000 p
= (struct name
*)malloc ((unsigned)(sizeof (struct name
)));
1003 msg("cannot allocate mem for name '%s'.",name
);
1005 msg("cannot allocate mem for chdir record.");
1008 p
->next
= (struct name
*)NULL
;
1013 strncpy(p
->name
, name
, i
);
1014 p
->name
[i
] = '\0'; /* Null term */
1019 p
->regexp
= 0; /* Assume not a regular expression */
1020 p
->firstch
= 1; /* Assume first char is literal */
1021 p
->change_dir
=chdir_name
;
1022 p
->dir_contents
= 0; /* JF */
1025 if (index(name
, '*') || index(name
, '[') || index(name
, '?')) {
1026 p
->regexp
= 1; /* No, it's a regexp */
1027 if (name
[0] == '*' || name
[0] == '[' || name
[0] == '?')
1028 p
->firstch
= 0; /* Not even 1st char literal */
1032 if (namelast
) namelast
->next
= p
;
1034 if (!namelist
) namelist
= p
;
1038 * Return nonzero if name P (from an archive) matches any name from
1039 * the namelist, zero if not.
1045 register struct name
*nlp
;
1049 if (0 == (nlp
= namelist
)) /* Empty namelist is easy */
1053 if (nlp
->change_dir
&& chdir (nlp
->change_dir
))
1054 msg_perror ("Can't change to directory %d", nlp
->change_dir
);
1059 for (; nlp
!= 0; nlp
= nlp
->next
) {
1060 /* If first chars don't match, quick skip */
1061 if (nlp
->firstch
&& nlp
->name
[0] != p
[0])
1064 /* Regular expressions (shell globbing, actually). */
1066 if (fnmatch(nlp
->name
, p
, FNM_TARPATH
) == 0) {
1067 nlp
->found
= 1; /* Remember it matched */
1069 free((void *)namelist
);
1072 if(nlp
->change_dir
&& chdir(nlp
->change_dir
))
1073 msg_perror("Can't change to directory %s",nlp
->change_dir
);
1074 return 1; /* We got a match */
1079 /* Plain Old Strings */
1080 if (nlp
->length
<= len
/* Archive len >= specified */
1081 && (p
[nlp
->length
] == '\0' || p
[nlp
->length
] == '/')
1082 /* Full match on file/dirname */
1083 && strncmp(p
, nlp
->name
, nlp
->length
) == 0) /* Name compare */
1085 nlp
->found
= 1; /* Remember it matched */
1087 free((void *)namelist
);
1090 if(nlp
->change_dir
&& chdir(nlp
->change_dir
))
1091 msg_perror("Can't change to directory %s",nlp
->change_dir
);
1092 return 1; /* We got a match */
1097 * Filename from archive not found in namelist.
1098 * If we have the whole namelist here, just return 0.
1099 * Otherwise, read the next name in and compare it.
1100 * If this was the last name, namelist->found will remain on.
1101 * If not, we loop to compare the newly read name.
1103 if (f_sorted_names
&& namelist
->found
) {
1104 name_gather(); /* Read one more */
1105 if (!namelist
->found
) goto again
;
1112 * Print the names of things in the namelist that were not matched.
1117 register struct name
*nlp
,*next
;
1120 for (nlp
= namelist
; nlp
!= 0; nlp
= next
) {
1123 msg("%s not found in archive",nlp
->name
);
1126 * We could free() the list, but the process is about
1127 * to die anyway, so save some CPU time. Amigas and
1128 * other similarly broken software will need to waste
1132 if (!f_sorted_names
)
1136 namelist
= (struct name
*)NULL
;
1137 namelast
= (struct name
*)NULL
;
1139 if (f_sorted_names
) {
1140 while (0 != (p
= name_next(1)))
1141 msg("%s not found in archive", p
);
1145 /* These next routines were created by JF */
1153 /* This is like name_match(), except that it returns a pointer to the name
1154 it matched, and doesn't set ->found The caller will have to do that
1155 if it wants to. Oh, and if the namelist is empty, it returns 0, unlike
1156 name_match(), which returns TRUE */
1162 register struct name
*nlp
;
1166 if (0 == (nlp
= namelist
)) /* Empty namelist is easy */
1169 for (; nlp
!= 0; nlp
= nlp
->next
) {
1170 /* If first chars don't match, quick skip */
1171 if (nlp
->firstch
&& nlp
->name
[0] != p
[0])
1174 /* Regular expressions */
1176 if (fnmatch(nlp
->name
, p
, FNM_TARPATH
) == 0)
1177 return nlp
; /* We got a match */
1181 /* Plain Old Strings */
1182 if (nlp
->length
<= len
/* Archive len >= specified */
1183 && (p
[nlp
->length
] == '\0' || p
[nlp
->length
] == '/')
1184 /* Full match on file/dirname */
1185 && strncmp(p
, nlp
->name
, nlp
->length
) == 0) /* Name compare */
1186 return nlp
; /* We got a match */
1190 * Filename from archive not found in namelist.
1191 * If we have the whole namelist here, just return 0.
1192 * Otherwise, read the next name in and compare it.
1193 * If this was the last name, namelist->found will remain on.
1194 * If not, we loop to compare the newly read name.
1196 if (f_sorted_names
&& namelist
->found
) {
1197 name_gather(); /* Read one more */
1198 if (!namelist
->found
) goto again
;
1200 return (struct name
*) 0;
1203 /* This returns a name from the namelist which doesn't have ->found set.
1204 It sets ->found before returning, so successive calls will find and return
1205 all the non-found names in the namelist */
1207 struct name
*gnu_list_name
;
1213 gnu_list_name
= namelist
;
1214 while(gnu_list_name
&& gnu_list_name
->found
)
1215 gnu_list_name
=gnu_list_name
->next
;
1217 gnu_list_name
->found
++;
1218 if(gnu_list_name
->change_dir
)
1219 if(chdir(gnu_list_name
->change_dir
)<0)
1220 msg_perror("can't chdir to %s",gnu_list_name
->change_dir
);
1221 return gnu_list_name
->name
;
1232 for(n
=namelist
;n
;n
=n
->next
)
1242 path_buf
=(char *)malloc(strlen(path
)+strlen(name
)+2);
1244 msg("Can't allocate memory for name '%s/%s",path
,name
);
1247 (void) sprintf(path_buf
,"%s/%s",path
,name
);
1251 /* returns non-zero if the luser typed 'y' or 'Y', zero otherwise. */
1254 confirm(action
,file
)
1255 char *action
, *file
;
1258 static FILE *confirm_file
= 0;
1259 extern FILE *msg_file
;
1260 extern char TTY_NAME
[];
1262 fprintf(msg_file
,"%s %s?", action
, file
);
1265 confirm_file
= (archive
== 0) ? fopen(TTY_NAME
, "r") : stdin
;
1267 msg("Can't read confirmation from user");
1271 c
=getc(confirm_file
);
1272 for(nl
= c
; nl
!= '\n' && nl
!= EOF
; nl
= getc(confirm_file
))
1274 return (c
=='y' || c
=='Y');
1282 int size_exclude
= 0;
1283 int free_exclude
= 0;
1285 char **re_exclude
= 0;
1286 int size_re_exclude
= 0;
1287 int free_re_exclude
= 0;
1294 /* char **tmp_ptr;*/
1297 un_quote_string(name
);
1298 size_buf
= strlen(name
);
1301 x_buffer
= (char *)ck_malloc(size_buf
+1024);
1303 } else if(free_x_buffer
<=size_buf
) {
1307 old_x_buffer
= x_buffer
;
1308 x_buffer
= (char *)ck_realloc(x_buffer
,size_x_buffer
+1024);
1309 free_x_buffer
= 1024;
1310 for(tmp_ptr
=exclude
;tmp_ptr
<exclude
+size_exclude
;tmp_ptr
++)
1311 *tmp_ptr
= x_buffer
+ ((*tmp_ptr
) - old_x_buffer
);
1312 for(tmp_ptr
=re_exclude
;tmp_ptr
<re_exclude
+size_re_exclude
;tmp_ptr
++)
1313 *tmp_ptr
= x_buffer
+ ((*tmp_ptr
) - old_x_buffer
);
1316 if(is_regex(name
)) {
1317 if(free_re_exclude
==0) {
1318 re_exclude
= (char **)(re_exclude
? ck_realloc(re_exclude
,(size_re_exclude
+32)*sizeof(char *)) : ck_malloc(sizeof(char *)*32));
1319 free_re_exclude
+=32;
1321 re_exclude
[size_re_exclude
]=x_buffer
+size_x_buffer
;
1325 if(free_exclude
==0) {
1326 exclude
=(char **)(exclude
? ck_realloc(exclude
,(size_exclude
+32)*sizeof(char *)) : ck_malloc(sizeof(char *)*32));
1329 exclude
[size_exclude
]=x_buffer
+size_x_buffer
;
1333 strcpy(x_buffer
+size_x_buffer
,name
);
1334 size_x_buffer
+=size_buf
+1;
1335 free_x_buffer
-=size_buf
+1;
1339 add_exclude_file(file
)
1345 if(strcmp(file
, "-"))
1348 /* Let's hope the person knows what they're doing. */
1349 /* Using -X - -T - -f - will get you *REALLY* strange
1354 msg_perror("can't open %s",file
);
1357 while(fgets(buf
,1024,fp
)) {
1361 end_str
=rindex(buf
,'\n');
1374 return index(str
,'*') || index(str
,'[') || index(str
,'?');
1377 /* Returns non-zero if the file 'name' should not be added/extracted */
1384 extern char *strstr();
1386 for(n
=0;n
<size_re_exclude
;n
++) {
1387 if(fnmatch(re_exclude
[n
], name
, FNM_TARPATH
) == 0)
1390 for(n
=0;n
<size_exclude
;n
++) {
1391 /* Accept the output from strstr only if it is the last
1392 part of the string. There is certainly a faster way to
1394 if( (str
=strstr(name
,exclude
[n
]))
1395 && (str
==name
|| str
[-1]=='/')
1396 && str
[strlen(exclude
[n
])]=='\0')
This page took 0.096435 seconds and 3 git commands to generate.