]>
Dogcows Code - chaz/tar/blob - src/tar.c
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 */
32 * The following causes "tar.h" to produce definitions of all the
33 * global variables, rather than just "extern" declarations of them.
35 #define TAR_EXTERN /**/
40 #if defined(_POSIX_VERSION) || defined(DIRENT)
46 #define DP_NAMELEN(x) strlen((x)->d_name)
47 #endif /* _POSIX_VERSION or DIRENT */
48 #if !defined(_POSIX_VERSION) && !defined(DIRENT) && defined(BSD42)
50 #define DP_NAMELEN(x) (x)->d_namlen
51 #endif /* not _POSIX_VERSION and BSD42 */
54 #define DP_NAMELEN(x) (x)->d_namlen
57 #if defined(USG) && !defined(_POSIX_VERSION) && !defined(DIRENT)
59 #define DP_NAMELEN(x) strlen((x)->d_name)
60 #endif /* USG and not _POSIX_VERSION and not DIRENT */
63 * We should use a conversion routine that does reasonable error
64 * checking -- atoi doesn't. For now, punt. FIXME.
69 extern int getoldopt();
70 extern void read_and();
71 extern void list_archive();
72 extern void extract_archive();
73 extern void diff_archive();
74 extern void create_archive();
75 extern void update_archive();
76 extern void junk_archive();
79 extern time_t get_date();
83 static FILE *namef
; /* File to read names from */
84 static char **n_argv
; /* Argv used by name routines */
85 static int n_argc
; /* Argc used by name routines */
86 static char **n_ind
; /* Store an array of names */
87 static int n_indalloc
; /* How big is the array? */
88 static int n_indused
; /* How many entries does it have? */
89 static int n_indscan
; /* How many of the entries have we scanned? */
92 extern FILE *msg_file
;
96 void add_exclude_file();
105 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'},
194 * Main routine for tar.
201 extern char version_string
[];
203 tar
= argv
[0]; /* JF: was "tar" Set program name */
204 filename_terminator
= '\n';
210 name_init(argc
, argv
);
224 fprintf (stderr
, "Total bytes written: %d\n", tot_written
);
229 label_pattern
= (struct re_pattern_buffer
*)
230 ck_malloc (sizeof *label_pattern
);
231 err
= re_compile_pattern (f_volhdr
, strlen (f_volhdr
),
234 fprintf (stderr
,"Bad regular expression: %s\n",
242 read_and(extract_archive
);
247 label_pattern
= (struct re_pattern_buffer
*)
248 ck_malloc (sizeof *label_pattern
);
249 err
= re_compile_pattern (f_volhdr
, strlen (f_volhdr
),
252 fprintf (stderr
,"Bad regular expression: %s\n",
258 read_and(list_archive
);
266 read_and(diff_archive
);
269 fprintf(stderr
,"%s\n",version_string
);
272 msg("you must specify exactly one of the r, c, t, x, or d options\n");
273 fprintf(stderr
,"For more information, type ``%s +help''.\n",tar
);
282 * Parse the options for tar.
289 register int c
; /* Option letter */
292 /* Set default option values */
293 blocking
= DEFBLOCKING
; /* From Makefile */
294 ar_file
= getenv("TAPE"); /* From environment, or */
296 ar_file
= DEF_AR_FILE
; /* From Makefile */
299 while ((c
= getoldopt(argc
, argv
,
300 "-01234567Ab:BcC:df:F:g:GhikK:lL:mMN:oOpPrRsStT:uvV:wWxX:zZ",
301 long_options
, &ind
)) != EOF
) {
303 case 0: /* long options that set a single flag */
306 /* File name or non-parsed option */
313 case 10: /* preserve */
314 f_use_protection
= f_sorted_names
= 1;
317 if(cmd_mode
!=CMD_NONE
)
319 cmd_mode
=CMD_VERSION
;
322 printf("This is GNU tar, the tape archiving program.\n");
329 case 14: /* Delete in the archive */
330 if(cmd_mode
!=CMD_NONE
)
340 case 16: /* -T reads null terminated filenames. */
341 filename_terminator
= '\0';
344 case 'g': /* We are making a GNU dump; save
345 directories at the beginning of
346 the archive, and include in each
347 directory its contents */
364 /* JF this'll have to be modified for other
365 systems, of course! */
369 d
=getoldopt(argc
,argv
,"lmh");
371 sprintf(buf
,"/dev/rmt/%d%c",c
,d
);
378 if(d
=='l') add
=LOW_NUM
;
379 else if(d
=='m') add
=MID_NUM
;
380 else if(d
=='h') add
=HGH_NUM
;
383 sprintf(buf
,"/dev/rmt%d",add
+c
-'0');
389 case 'A': /* Arguments are tar files,
390 just cat them onto the end
392 if(cmd_mode
!=CMD_NONE
)
397 case 'b': /* Set blocking factor */
398 blocking
= intconv(optarg
);
401 case 'B': /* Try to reblock input */
402 f_reblock
++; /* For reading 4.2BSD pipes */
405 case 'c': /* Create an archive */
406 if(cmd_mode
!=CMD_NONE
)
414 msg_perror("Can't change directory to %d",optarg
);
418 case 'd': /* Find difference tape/disk */
419 if(cmd_mode
!=CMD_NONE
)
424 case 'f': /* Use ar_file for the archive */
429 /* Since -F is only useful with -M , make it implied */
430 f_run_script_at_end
++; /* run this script at the end */
431 info_script
= optarg
; /* of each tape */
435 case 'G': /* We are making a GNU dump; save
436 directories at the beginning of
437 the archive, and include in each
438 directory its contents */
446 f_follow_links
++; /* follow symbolic links */
450 f_ignorez
++; /* Ignore zero records (eofs) */
452 * This can't be the default, because Unix tar
453 * writes two records of zeros, then pads out the
454 * block with garbage.
458 case 'k': /* Don't overwrite files */
460 msg("can't keep old files on this system");
472 case 'l': /* When dumping directories, don't
473 dump files/subdirectories that are
474 on other filesystems. */
479 tape_length
= intconv (optarg
);
486 case 'M': /* Make Multivolume archive:
487 When we can't write any more
488 into the archive, re-open it,
489 and continue writing */
493 case 'N': /* Only write files newer than X */
496 new_time
=get_date(optarg
, (PTR
) 0);
497 if (new_time
== (time_t) -1) {
498 msg("invalid date format `%s'", optarg
);
503 case 'o': /* Generate old archive */
504 if(f_gnudump
/* || f_dironly */)
521 case 'r': /* Append files to the archive */
522 if(cmd_mode
!=CMD_NONE
)
528 f_sayblock
++; /* Print block #s for debug */
529 break; /* of bad tar archives */
532 f_sorted_names
++; /* Names to extr are sorted */
535 case 'S': /* deal with sparse files */
539 if(cmd_mode
!=CMD_NONE
)
542 f_verbose
++; /* "t" output == "cv" or "xv" */
550 case 'u': /* Append files to the archive that
551 aren't there, or are newer than the
552 copy in the archive */
553 if(cmd_mode
!=CMD_NONE
)
574 case 'x': /* Extract files from the archive */
575 if(cmd_mode
!=CMD_NONE
)
577 cmd_mode
=CMD_EXTRACT
;
582 add_exclude_file(optarg
);
585 case 'z': /* Easy to type */
586 case 'Z': /* Like the filename extension .Z */
592 msg("Unknown option. Use '%s +help' for a complete list of options.", tar
);
598 blocksize
= blocking
* RECORDSIZE
;
603 * Print as much help as the user's gonna get.
605 * We have to sprinkle in the KLUDGE lines because too many compilers
606 * cannot handle character strings longer than about 512 bytes. Yuk!
607 * In particular, MS-DOS and Xenix MSC and PDP-11 V7 Unix have this
613 puts("choose one of the following:");
616 --concatenate append tar files to an archive\n\
617 -c, --create create a new archive\n\
619 --compare find differences between archive and file system\n\
620 --delete delete from the archive (not for use on mag tapes!)\n\
621 -r, --append append files to the end of an archive\n\
622 -t, --list list the contents of an archive\n\
623 -u, --update only append files that are newer than copy in archive\n\
625 --get extract files from an archive\n",stdout
);
629 -b, --block-size N block size of Nx512 bytes (default N=%d)\n", DEFBLOCKING
);
631 -B, --read-full-blocks reblock as we read (for reading 4.2BSD pipes)\n\
632 -C, --directory DIR change to directory DIR\n\
633 ", stdout
); /* KLUDGE */ fprintf(stdout
, "\
634 -f, --file [HOSTNAME:]F use archive file or device F (default %s)\n",
635 DEF_AR_FILE
); fputs("\
636 -F, --info-script F run script at end of each tape (implies -M)\n\
637 -G, --incremental create/list/extract old GNU-format incremental backup\n\
638 -g, --listed-incremental F create/list/extract new GNU-format incremental backup\n\
639 -h, --dereference don't dump symlinks; dump the files they point to\n\
640 -i, --ignore-zeros ignore blocks of zeros in archive (normally mean EOF)\n\
641 -k, --keep-old-files keep existing files; don't overwrite them from archive\n\
642 -K, --starting-file FILE begin at FILE in the archive\n\
643 -l, --one-file-system stay in local file system when creating an archive\n\
644 -L, --tape-length LENGTH change tapes after writing LENGTH\n\
645 ", stdout
); /* KLUDGE */ fputs("\
646 -m, --modification-time don't extract file modified time\n\
647 -M, --multi-volume create/list/extract multi-volume archive\n\
648 -N, --after-date DATE,\n\
649 --newer DATE only store files newer than DATE\n\
650 -o, --old-archive,\n\
651 --portability write a V7 format archive, rather than ANSI format\n\
652 -O, --to-stdout extract files to standard output\n\
653 -p, --same-permissions,\n\
654 --preserve-permissions extract all protection information\n\
655 -P, --absolute-paths don't strip leading `/'s from file names\n\
656 --preserve like -p -s\n\
657 ", stdout
); /* KLUDGE */ fputs("\
658 -R, --record-number show record number within archive with each message\n\
660 --preserve-order list of names to extract is sorted to match archive\n\
661 --same-order create extracted files with the same ownership \n\
662 -S, --sparse handle sparse files efficiently\n\
663 -T, --files-from F get names to extract or create from file F\n\
664 --null -T reads null-terminated names, disable -C\n\
665 --totals print total bytes written with --create\n\
666 -v, --verbose verbosely list files processed\n\
667 -V, --label NAME create archive with volume name NAME\n\
668 --version print tar program version number\n\
669 -w, --interactive,\n\
670 --confirmation ask for confirmation for every action\n\
671 ", stdout
); /* KLUDGE */ fputs("\
672 -W, --verify attempt to verify the archive after writing it\n\
673 --exclude FILE exclude file FILE\n\
674 -X, --exclude-from FILE exclude files listed in FILE\n\
675 -z, -Z, --compress,\n\
676 --uncompress filter the archive through compress\n\
677 -[0-7][lmh] specify drive and density\n\
685 if(n_indalloc
==n_indused
) {
687 n_ind
=(char **)(n_indused
? ck_realloc(n_ind
,n_indalloc
*sizeof(char *)) : ck_malloc(n_indalloc
*sizeof(char *)));
689 n_ind
[n_indused
++]=name
;
693 * Set up to gather file names for tar.
695 * They can either come from stdin or from argv.
698 name_init(argc
, argv
)
705 msg("too many args with -T option");
708 if (!strcmp(name_file
, "-")) {
711 namef
= fopen(name_file
, "r");
713 msg_perror("can't open file %s",name_file
);
718 /* Get file names from argv, after options. */
724 /* Read the next filename read from STREAM and null-terminate it.
725 Put it into BUFFER, reallocating and adjusting *PBUFFER_SIZE if necessary.
726 Return the new value for BUFFER, or NULL at end of file. */
729 read_name_from_file (buffer
, pbuffer_size
, stream
)
731 size_t *pbuffer_size
;
735 register int indx
= 0;
736 register size_t buffer_size
= *pbuffer_size
;
738 while ((c
= getc (stream
)) != EOF
&& c
!= filename_terminator
)
740 if (indx
== buffer_size
)
742 buffer_size
+= NAMSIZ
;
743 buffer
= ck_realloc (buffer
, buffer_size
+ 2);
747 if (indx
== 0 && c
== EOF
)
749 if (indx
== buffer_size
)
751 buffer_size
+= NAMSIZ
;
752 buffer
= ck_realloc (buffer
, buffer_size
+ 2);
755 *pbuffer_size
= buffer_size
;
760 * Get the next name from argv or the name file.
762 * Result is in static storage and can't be relied upon across two calls.
764 * If CHANGE_DIRS is non-zero, treat a filename of the form "-C" as
765 * meaning that the next filename is the name of a directory to change to.
766 * If `filename_terminator' is '\0', CHANGE_DIRS is effectively always 0.
770 name_next(change_dirs
)
773 static char *buffer
; /* Holding pattern */
774 static int buffer_siz
;
776 register char *q
= 0;
777 register int next_name_is_dir
= 0;
778 extern char *un_quote_string();
781 buffer
=ck_malloc(NAMSIZ
+2);
784 if (filename_terminator
== '\0')
788 if(n_indscan
<n_indused
)
789 p
=n_ind
[n_indscan
++];
790 else if (optind
< n_argc
)
791 /* Names come from argv, after options */
795 msg("Missing filename after -C");
799 /* JF trivial support for -C option. I don't know if
800 chdir'ing at this point is dangerous or not.
801 It seems to work, which is all I ask. */
802 if(change_dirs
&& !q
&& p
[0]=='-' && p
[1]=='C' && p
[2]=='\0') {
808 msg_perror("Can't chdir to %s",p
);
812 /* End of JF quick -C hack */
814 if(f_exclude
&& check_exclude(p
))
816 return un_quote_string(p
);
818 while (p
= read_name_from_file (buffer
, &buffer_siz
, namef
)) {
821 continue; /* Ignore empty lines. */
822 q
= p
+ strlen (p
) - 1;
823 while (q
> p
&& *q
== '/') /* Zap trailing "/"s. */
825 if (change_dirs
&& next_name_is_dir
== 0
826 && p
[0] == '-' && p
[1] == 'C' && p
[2] == '\0') {
827 next_name_is_dir
= 1;
830 if (next_name_is_dir
) {
832 msg_perror ("Can't change to directory %s", p
);
833 next_name_is_dir
= 0;
836 if(f_exclude
&& check_exclude(p
))
838 return un_quote_string(p
);
845 * Close the name file, if any.
851 if (namef
!= NULL
&& namef
!= stdin
) fclose(namef
);
856 * Gather names in a list for scanning.
857 * Could hash them later if we really care.
859 * If the names are already sorted to match the archive, we just
860 * read them one by one. name_gather reads the first one, and it
861 * is called by name_match as appropriate to read the next ones.
862 * At EOF, the last name read is just left in the buffer.
863 * This option lets users of small machines extract an arbitrary
864 * number of files by doing "tar t" and editing down the list of files.
870 static struct name
*namebuf
; /* One-name buffer */
872 static char *chdir_name
;
874 if (f_sorted_names
) {
877 namebuf
=(struct name
*)ck_malloc(sizeof(struct name
)+NAMSIZ
);
881 if(*p
=='-' && p
[1]=='C' && p
[2]=='\0') {
882 chdir_name
=name_next(0);
885 msg("Missing file name after -C");
888 namebuf
->change_dir
=chdir_name
;
890 namebuf
->length
= strlen(p
);
891 if (namebuf
->length
>= namelen
) {
892 namebuf
=(struct name
*)ck_realloc(namebuf
,sizeof(struct name
)+namebuf
->length
);
893 namelen
=namebuf
->length
;
895 strncpy(namebuf
->name
, p
, namebuf
->length
);
896 namebuf
->name
[ namebuf
->length
] = 0;
897 namebuf
->next
= (struct name
*)NULL
;
905 /* Non sorted names -- read them all in */
906 while (p
= name_next(0))
911 * Add a name to the namelist.
915 char *name
; /* pointer to name */
917 register int i
; /* Length of string */
918 register struct name
*p
; /* Current struct pointer */
919 static char *chdir_name
;
922 if(name
[0]=='-' && name
[1]=='C' && name
[2]=='\0') {
923 chdir_name
=name_next(0);
926 msg("Missing file name after -C");
929 if(chdir_name
[0]!='/') {
930 char *path
= ck_malloc(PATH_MAX
);
931 #if defined(__MSDOS__) || defined(USG) || defined(_POSIX_VERSION)
932 if(!getcwd(path
,PATH_MAX
))
933 msg("Couldn't get current directory.");
939 msg("Couldn't get current directory: %s",path
);
943 chdir_name
=new_name(path
,chdir_name
);
952 p
= (struct name
*)malloc((unsigned)(sizeof(struct name
) + i
));
955 p
= (struct name
*)malloc ((unsigned)(sizeof (struct name
)));
958 msg("cannot allocate mem for name '%s'.",name
);
960 msg("cannot allocate mem for chdir record.");
963 p
->next
= (struct name
*)NULL
;
968 strncpy(p
->name
, name
, i
);
969 p
->name
[i
] = '\0'; /* Null term */
974 p
->regexp
= 0; /* Assume not a regular expression */
975 p
->firstch
= 1; /* Assume first char is literal */
976 p
->change_dir
=chdir_name
;
977 p
->dir_contents
= 0; /* JF */
980 if (index(name
, '*') || index(name
, '[') || index(name
, '?')) {
981 p
->regexp
= 1; /* No, it's a regexp */
982 if (name
[0] == '*' || name
[0] == '[' || name
[0] == '?')
983 p
->firstch
= 0; /* Not even 1st char literal */
987 if (namelast
) namelast
->next
= p
;
989 if (!namelist
) namelist
= p
;
993 * Return nonzero if name P (from an archive) matches any name from
994 * the namelist, zero if not.
1000 register struct name
*nlp
;
1004 if (0 == (nlp
= namelist
)) /* Empty namelist is easy */
1008 if (nlp
->change_dir
&& chdir (nlp
->change_dir
))
1009 msg_perror ("Can't change to directory %d", nlp
->change_dir
);
1014 for (; nlp
!= 0; nlp
= nlp
->next
) {
1015 /* If first chars don't match, quick skip */
1016 if (nlp
->firstch
&& nlp
->name
[0] != p
[0])
1019 /* Regular expressions (shell globbing, actually). */
1021 if (wildmat(p
, nlp
->name
)) {
1022 nlp
->found
= 1; /* Remember it matched */
1024 free((void *)namelist
);
1027 if(nlp
->change_dir
&& chdir(nlp
->change_dir
))
1028 msg_perror("Can't change to directory %s",nlp
->change_dir
);
1029 return 1; /* We got a match */
1034 /* Plain Old Strings */
1035 if (nlp
->length
<= len
/* Archive len >= specified */
1036 && (p
[nlp
->length
] == '\0' || p
[nlp
->length
] == '/')
1037 /* Full match on file/dirname */
1038 && strncmp(p
, nlp
->name
, nlp
->length
) == 0) /* Name compare */
1040 nlp
->found
= 1; /* Remember it matched */
1042 free((void *)namelist
);
1045 if(nlp
->change_dir
&& chdir(nlp
->change_dir
))
1046 msg_perror("Can't change to directory %s",nlp
->change_dir
);
1047 return 1; /* We got a match */
1052 * Filename from archive not found in namelist.
1053 * If we have the whole namelist here, just return 0.
1054 * Otherwise, read the next name in and compare it.
1055 * If this was the last name, namelist->found will remain on.
1056 * If not, we loop to compare the newly read name.
1058 if (f_sorted_names
&& namelist
->found
) {
1059 name_gather(); /* Read one more */
1060 if (!namelist
->found
) goto again
;
1067 * Print the names of things in the namelist that were not matched.
1072 register struct name
*nlp
,*next
;
1075 for (nlp
= namelist
; nlp
!= 0; nlp
= next
) {
1078 msg("%s not found in archive",nlp
->name
);
1081 * We could free() the list, but the process is about
1082 * to die anyway, so save some CPU time. Amigas and
1083 * other similarly broken software will need to waste
1087 if (!f_sorted_names
)
1091 namelist
= (struct name
*)NULL
;
1092 namelast
= (struct name
*)NULL
;
1094 if (f_sorted_names
) {
1095 while (0 != (p
= name_next(1)))
1096 msg("%s not found in archive", p
);
1100 /* These next routines were created by JF */
1108 /* This is like name_match(), except that it returns a pointer to the name
1109 it matched, and doesn't set ->found The caller will have to do that
1110 if it wants to. Oh, and if the namelist is empty, it returns 0, unlike
1111 name_match(), which returns TRUE */
1117 register struct name
*nlp
;
1121 if (0 == (nlp
= namelist
)) /* Empty namelist is easy */
1124 for (; nlp
!= 0; nlp
= nlp
->next
) {
1125 /* If first chars don't match, quick skip */
1126 if (nlp
->firstch
&& nlp
->name
[0] != p
[0])
1129 /* Regular expressions */
1131 if (wildmat(p
, nlp
->name
))
1132 return nlp
; /* We got a match */
1136 /* Plain Old Strings */
1137 if (nlp
->length
<= len
/* Archive len >= specified */
1138 && (p
[nlp
->length
] == '\0' || p
[nlp
->length
] == '/')
1139 /* Full match on file/dirname */
1140 && strncmp(p
, nlp
->name
, nlp
->length
) == 0) /* Name compare */
1141 return nlp
; /* We got a match */
1145 * Filename from archive not found in namelist.
1146 * If we have the whole namelist here, just return 0.
1147 * Otherwise, read the next name in and compare it.
1148 * If this was the last name, namelist->found will remain on.
1149 * If not, we loop to compare the newly read name.
1151 if (f_sorted_names
&& namelist
->found
) {
1152 name_gather(); /* Read one more */
1153 if (!namelist
->found
) goto again
;
1155 return (struct name
*) 0;
1158 /* This returns a name from the namelist which doesn't have ->found set.
1159 It sets ->found before returning, so successive calls will find and return
1160 all the non-found names in the namelist */
1162 struct name
*gnu_list_name
;
1168 gnu_list_name
= namelist
;
1169 while(gnu_list_name
&& gnu_list_name
->found
)
1170 gnu_list_name
=gnu_list_name
->next
;
1172 gnu_list_name
->found
++;
1173 if(gnu_list_name
->change_dir
)
1174 if(chdir(gnu_list_name
->change_dir
)<0)
1175 msg_perror("can't chdir to %s",gnu_list_name
->change_dir
);
1176 return gnu_list_name
->name
;
1187 for(n
=namelist
;n
;n
=n
->next
)
1197 path_buf
=(char *)malloc(strlen(path
)+strlen(name
)+2);
1199 msg("Can't allocate memory for name '%s/%s",path
,name
);
1202 (void) sprintf(path_buf
,"%s/%s",path
,name
);
1206 /* returns non-zero if the luser typed 'y' or 'Y', zero otherwise. */
1209 confirm(action
,file
)
1210 char *action
, *file
;
1213 static FILE *confirm_file
= 0;
1214 extern FILE *msg_file
;
1215 extern char TTY_NAME
[];
1217 fprintf(msg_file
,"%s %s?", action
, file
);
1220 confirm_file
= (archive
== 0) ? fopen(TTY_NAME
, "r") : stdin
;
1222 msg("Can't read confirmation from user");
1226 c
=getc(confirm_file
);
1227 for(nl
= c
; nl
!= '\n' && nl
!= EOF
; nl
= getc(confirm_file
))
1229 return (c
=='y' || c
=='Y');
1237 int size_exclude
= 0;
1238 int free_exclude
= 0;
1240 char **re_exclude
= 0;
1241 int size_re_exclude
= 0;
1242 int free_re_exclude
= 0;
1249 /* char **tmp_ptr;*/
1252 un_quote_string(name
);
1253 size_buf
= strlen(name
);
1256 x_buffer
= (char *)ck_malloc(size_buf
+1024);
1258 } else if(free_x_buffer
<=size_buf
) {
1262 old_x_buffer
= x_buffer
;
1263 x_buffer
= (char *)ck_realloc(x_buffer
,size_x_buffer
+1024);
1264 free_x_buffer
= 1024;
1265 for(tmp_ptr
=exclude
;tmp_ptr
<exclude
+size_exclude
;tmp_ptr
++)
1266 *tmp_ptr
= x_buffer
+ ((*tmp_ptr
) - old_x_buffer
);
1267 for(tmp_ptr
=re_exclude
;tmp_ptr
<re_exclude
+size_re_exclude
;tmp_ptr
++)
1268 *tmp_ptr
= x_buffer
+ ((*tmp_ptr
) - old_x_buffer
);
1271 if(is_regex(name
)) {
1272 if(free_re_exclude
==0) {
1273 re_exclude
= (char **)(re_exclude
? ck_realloc(re_exclude
,(size_re_exclude
+32)*sizeof(char *)) : ck_malloc(sizeof(char *)*32));
1274 free_re_exclude
+=32;
1276 re_exclude
[size_re_exclude
]=x_buffer
+size_x_buffer
;
1280 if(free_exclude
==0) {
1281 exclude
=(char **)(exclude
? ck_realloc(exclude
,(size_exclude
+32)*sizeof(char *)) : ck_malloc(sizeof(char *)*32));
1284 exclude
[size_exclude
]=x_buffer
+size_x_buffer
;
1288 strcpy(x_buffer
+size_x_buffer
,name
);
1289 size_x_buffer
+=size_buf
+1;
1290 free_x_buffer
-=size_buf
+1;
1294 add_exclude_file(file
)
1299 extern char *rindex();
1301 if(strcmp(file
, "-"))
1304 /* Let's hope the person knows what they're doing. */
1305 /* Using -X - -T - -f - will get you *REALLY* strange
1310 msg_perror("can't open %s",file
);
1313 while(fgets(buf
,1024,fp
)) {
1317 end_str
=rindex(buf
,'\n');
1330 return index(str
,'*') || index(str
,'[') || index(str
,'?');
1333 /* Returns non-zero if the file 'name' should not be added/extracted */
1340 extern char *strstr();
1342 for(n
=0;n
<size_re_exclude
;n
++) {
1343 if(wildmat(name
,re_exclude
[n
]))
1346 for(n
=0;n
<size_exclude
;n
++) {
1347 /* Accept the output from strstr only if it is the last
1348 part of the string. There is certainly a faster way to
1350 if( (str
=strstr(name
,exclude
[n
]))
1351 && (str
==name
|| str
[-1]=='/')
1352 && str
[strlen(exclude
[n
])]=='\0')
This page took 0.10871 seconds and 4 git commands to generate.