This is tar.c in view mode; [Download] [Up]
/* Tar -- a tape archiver.
Copyright (C) 1988, 1992, 1993 Free Software Foundation
This file is part of GNU Tar.
GNU Tar is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
GNU Tar is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GNU Tar; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
/*
* A tar (tape archiver) program.
*
* Written by John Gilmore, ihnp4!hoptoad!gnu, starting 25 Aug 85.
*/
#include <stdio.h>
#include <sys/types.h> /* Needed for typedefs in tar.h */
#include "getopt.h"
#include "regex.h"
/*
* The following causes "tar.h" to produce definitions of all the
* global variables, rather than just "extern" declarations of them.
*/
#define TAR_EXTERN /**/
#include "tar.h"
#include "port.h"
#include "fnmatch.h"
/*
* We should use a conversion routine that does reasonable error
* checking -- atoi doesn't. For now, punt. FIXME.
*/
#define intconv atoi
PTR ck_malloc ();
PTR ck_realloc ();
extern int getoldopt ();
extern void read_and ();
extern void list_archive ();
extern void extract_archive ();
extern void diff_archive ();
extern void create_archive ();
extern void update_archive ();
extern void junk_archive ();
extern void init_volume_number ();
extern void closeout_volume_number ();
/* JF */
extern time_t get_date ();
time_t new_time;
static FILE *namef; /* File to read names from */
static char **n_argv; /* Argv used by name routines */
static int n_argc; /* Argc used by name routines */
static char **n_ind; /* Store an array of names */
static int n_indalloc; /* How big is the array? */
static int n_indused; /* How many entries does it have? */
static int n_indscan; /* How many of the entries have we scanned? */
extern FILE *msg_file;
int check_exclude ();
void add_exclude ();
void add_exclude_file ();
void addname ();
void describe ();
void diff_init ();
void extr_init ();
int is_regex ();
void name_add ();
void name_init ();
void options ();
char *un_quote_string ();
#ifndef S_ISLNK
#define lstat stat
#endif
#ifndef DEFBLOCKING
#define DEFBLOCKING 20
#endif
#ifndef DEF_AR_FILE
#define DEF_AR_FILE "tar.out"
#endif
/* For long options that unconditionally set a single flag, we have getopt
do it. For the others, we share the code for the equivalent short
named option, the name of which is stored in the otherwise-unused `val'
field of the `struct option'; for long options that have no equivalent
short option, we use nongraphic characters as pseudo short option
characters, starting (for no particular reason) with character 10. */
struct option long_options[] =
{
{"create", 0, 0, 'c'},
{"append", 0, 0, 'r'},
{"extract", 0, 0, 'x'},
{"get", 0, 0, 'x'},
{"list", 0, 0, 't'},
{"update", 0, 0, 'u'},
{"catenate", 0, 0, 'A'},
{"concatenate", 0, 0, 'A'},
{"compare", 0, 0, 'd'},
{"diff", 0, 0, 'd'},
{"delete", 0, 0, 14},
{"help", 0, 0, 12},
{"null", 0, 0, 16},
{"directory", 1, 0, 'C'},
{"record-number", 0, &f_sayblock, 1},
{"files-from", 1, 0, 'T'},
{"label", 1, 0, 'V'},
{"exclude-from", 1, 0, 'X'},
{"exclude", 1, 0, 15},
{"file", 1, 0, 'f'},
{"block-size", 1, 0, 'b'},
{"version", 0, 0, 11},
{"verbose", 0, 0, 'v'},
{"totals", 0, &f_totals, 1},
{"read-full-blocks", 0, &f_reblock, 1},
{"starting-file", 1, 0, 'K'},
{"to-stdout", 0, &f_exstdout, 1},
{"ignore-zeros", 0, &f_ignorez, 1},
{"keep-old-files", 0, 0, 'k'},
{"same-permissions", 0, &f_use_protection, 1},
{"preserve-permissions", 0, &f_use_protection, 1},
{"modification-time", 0, &f_modified, 1},
{"preserve", 0, 0, 10},
{"same-order", 0, &f_sorted_names, 1},
{"same-owner", 0, &f_do_chown, 1},
{"preserve-order", 0, &f_sorted_names, 1},
{"newer", 1, 0, 'N'},
{"after-date", 1, 0, 'N'},
{"newer-mtime", 1, 0, 13},
{"incremental", 0, 0, 'G'},
{"listed-incremental", 1, 0, 'g'},
{"multi-volume", 0, &f_multivol, 1},
{"info-script", 1, 0, 'F'},
{"new-volume-script", 1, 0, 'F'},
{"absolute-paths", 0, &f_absolute_paths, 1},
{"interactive", 0, &f_confirm, 1},
{"confirmation", 0, &f_confirm, 1},
{"verify", 0, &f_verify, 1},
{"dereference", 0, &f_follow_links, 1},
{"one-file-system", 0, &f_local_filesys, 1},
{"old-archive", 0, 0, 'o'},
{"portability", 0, 0, 'o'},
{"compress", 0, 0, 'Z'},
{"uncompress", 0, 0, 'Z'},
{"block-compress", 0, &f_compress_block, 1},
{"gzip", 0, 0, 'z'},
{"ungzip", 0, 0, 'z'},
{"use-compress-program", 1, 0, 18},
{"same-permissions", 0, &f_use_protection, 1},
{"sparse", 0, &f_sparse_files, 1},
{"tape-length", 1, 0, 'L'},
{"remove-files", 0, &f_remove_files, 1},
{"ignore-failed-read", 0, &f_ignore_failed_read, 1},
{"checkpoint", 0, &f_checkpoint, 1},
{"show-omitted-dirs", 0, &f_show_omitted_dirs, 1},
{"volno-file", 1, 0, 17},
{"force-local", 0, &f_force_local, 1},
{"atime-preserve", 0, &f_atime_preserve, 1},
{0, 0, 0, 0}
};
/*
* Main routine for tar.
*/
void
main (argc, argv)
int argc;
char **argv;
{
extern char version_string[];
tar = argv[0]; /* JF: was "tar" Set program name */
filename_terminator = '\n';
errors = 0;
options (argc, argv);
if (!n_argv)
name_init (argc, argv);
if (f_volno_file)
init_volume_number ();
switch (cmd_mode)
{
case CMD_CAT:
case CMD_UPDATE:
case CMD_APPEND:
update_archive ();
break;
case CMD_DELETE:
junk_archive ();
break;
case CMD_CREATE:
create_archive ();
if (f_totals)
fprintf (stderr, "Total bytes written: %d\n", tot_written);
break;
case CMD_EXTRACT:
if (f_volhdr)
{
const char *err;
label_pattern = (struct re_pattern_buffer *)
ck_malloc (sizeof *label_pattern);
err = re_compile_pattern (f_volhdr, strlen (f_volhdr),
label_pattern);
if (err)
{
fprintf (stderr, "Bad regular expression: %s\n",
err);
errors++;
break;
}
}
extr_init ();
read_and (extract_archive);
break;
case CMD_LIST:
if (f_volhdr)
{
const char *err;
label_pattern = (struct re_pattern_buffer *)
ck_malloc (sizeof *label_pattern);
err = re_compile_pattern (f_volhdr, strlen (f_volhdr),
label_pattern);
if (err)
{
fprintf (stderr, "Bad regular expression: %s\n",
err);
errors++;
break;
}
}
read_and (list_archive);
#if 0
if (!errors)
errors = different;
#endif
break;
case CMD_DIFF:
diff_init ();
read_and (diff_archive);
break;
case CMD_VERSION:
fprintf (stderr, "%s\n", version_string);
break;
case CMD_NONE:
msg ("you must specify exactly one of the r, c, t, x, or d options\n");
fprintf (stderr, "For more information, type ``%s --help''.\n", tar);
exit (EX_ARGSBAD);
}
if (f_volno_file)
closeout_volume_number ();
exit (errors);
/* NOTREACHED */
}
/*
* Parse the options for tar.
*/
void
options (argc, argv)
int argc;
char **argv;
{
register int c; /* Option letter */
int ind = -1;
/* Set default option values */
blocking = DEFBLOCKING; /* From Makefile */
ar_files = (char **) ck_malloc (sizeof (char *) * 10);
ar_files_len = 10;
n_ar_files = 0;
cur_ar_file = 0;
/* Parse options */
while ((c = getoldopt (argc, argv,
"-01234567Ab:BcC:df:F:g:GhikK:lL:mMN:oOpPrRsStT:uvV:wWxX:zZ",
long_options, &ind)) != EOF)
{
switch (c)
{
case 0: /* long options that set a single flag */
break;
case 1:
/* File name or non-parsed option */
name_add (optarg);
break;
case 'C':
name_add ("-C");
name_add (optarg);
break;
case 10: /* preserve */
f_use_protection = f_sorted_names = 1;
break;
case 11:
if (cmd_mode != CMD_NONE)
goto badopt;
cmd_mode = CMD_VERSION;
break;
case 12: /* help */
printf ("This is GNU tar, the tape archiving program.\n");
describe ();
exit (1);
case 13:
f_new_files++;
goto get_newer;
case 14: /* Delete in the archive */
if (cmd_mode != CMD_NONE)
goto badopt;
cmd_mode = CMD_DELETE;
break;
case 15:
f_exclude++;
add_exclude (optarg);
break;
case 16: /* -T reads null terminated filenames. */
filename_terminator = '\0';
break;
case 17:
f_volno_file = optarg;
break;
case 18:
if (f_compressprog)
{
msg ("Only one compression option permitted\n");
exit (EX_ARGSBAD);
}
f_compressprog = optarg;
break;
case 'g': /* We are making a GNU dump; save
directories at the beginning of
the archive, and include in each
directory its contents */
if (f_oldarch)
goto badopt;
f_gnudump++;
gnu_dumpfile = optarg;
break;
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
{
/* JF this'll have to be modified for other
systems, of course! */
int d, add;
static char buf[50];
d = getoldopt (argc, argv, "lmh");
#ifdef MAYBEDEF
sprintf (buf, "/dev/rmt/%d%c", c, d);
#else
#ifndef LOW_NUM
#define LOW_NUM 0
#define MID_NUM 8
#define HGH_NUM 16
#endif
if (d == 'l')
add = LOW_NUM;
else if (d == 'm')
add = MID_NUM;
else if (d == 'h')
add = HGH_NUM;
else
goto badopt;
sprintf (buf, "/dev/rmt%d", add + c - '0');
#endif
if (n_ar_files == ar_files_len)
ar_files
= (char **)
ck_malloc (sizeof (char *)
* (ar_files_len *= 2));
ar_files[n_ar_files++] = buf;
}
break;
case 'A': /* Arguments are tar files,
just cat them onto the end
of the archive. */
if (cmd_mode != CMD_NONE)
goto badopt;
cmd_mode = CMD_CAT;
break;
case 'b': /* Set blocking factor */
blocking = intconv (optarg);
break;
case 'B': /* Try to reblock input */
f_reblock++; /* For reading 4.2BSD pipes */
break;
case 'c': /* Create an archive */
if (cmd_mode != CMD_NONE)
goto badopt;
cmd_mode = CMD_CREATE;
break;
#if 0
case 'C':
if (chdir (optarg) < 0)
msg_perror ("Can't change directory to %d", optarg);
break;
#endif
case 'd': /* Find difference tape/disk */
if (cmd_mode != CMD_NONE)
goto badopt;
cmd_mode = CMD_DIFF;
break;
case 'f': /* Use ar_file for the archive */
if (n_ar_files == ar_files_len)
ar_files
= (char **) ck_malloc (sizeof (char *)
* (ar_files_len *= 2));
ar_files[n_ar_files++] = optarg;
break;
case 'F':
/* Since -F is only useful with -M , make it implied */
f_run_script_at_end++;/* run this script at the end */
info_script = optarg; /* of each tape */
f_multivol++;
break;
case 'G': /* We are making a GNU dump; save
directories at the beginning of
the archive, and include in each
directory its contents */
if (f_oldarch)
goto badopt;
f_gnudump++;
gnu_dumpfile = 0;
break;
case 'h':
f_follow_links++; /* follow symbolic links */
break;
case 'i':
f_ignorez++; /* Ignore zero records (eofs) */
/*
* This can't be the default, because Unix tar
* writes two records of zeros, then pads out the
* block with garbage.
*/
break;
case 'k': /* Don't overwrite files */
#ifdef NO_OPEN3
msg ("can't keep old files on this system");
exit (EX_ARGSBAD);
#else
f_keep++;
#endif
break;
case 'K':
f_startfile++;
addname (optarg);
break;
case 'l': /* When dumping directories, don't
dump files/subdirectories that are
on other filesystems. */
f_local_filesys++;
break;
case 'L':
tape_length = intconv (optarg);
f_multivol++;
break;
case 'm':
f_modified++;
break;
case 'M': /* Make Multivolume archive:
When we can't write any more
into the archive, re-open it,
and continue writing */
f_multivol++;
break;
case 'N': /* Only write files newer than X */
get_newer:
f_new_files++;
new_time = get_date (optarg, (PTR) 0);
if (new_time == (time_t) - 1)
{
msg ("invalid date format `%s'", optarg);
exit (EX_ARGSBAD);
}
break;
case 'o': /* Generate old archive */
if (f_gnudump /* || f_dironly */ )
goto badopt;
f_oldarch++;
break;
case 'O':
f_exstdout++;
break;
case 'p':
f_use_protection++;
break;
case 'P':
f_absolute_paths++;
break;
case 'r': /* Append files to the archive */
if (cmd_mode != CMD_NONE)
goto badopt;
cmd_mode = CMD_APPEND;
break;
case 'R':
f_sayblock++; /* Print block #s for debug */
break; /* of bad tar archives */
case 's':
f_sorted_names++; /* Names to extr are sorted */
break;
case 'S': /* deal with sparse files */
f_sparse_files++;
break;
case 't':
if (cmd_mode != CMD_NONE)
goto badopt;
cmd_mode = CMD_LIST;
f_verbose++; /* "t" output == "cv" or "xv" */
break;
case 'T':
name_file = optarg;
f_namefile++;
break;
case 'u': /* Append files to the archive that
aren't there, or are newer than the
copy in the archive */
if (cmd_mode != CMD_NONE)
goto badopt;
cmd_mode = CMD_UPDATE;
break;
case 'v':
f_verbose++;
break;
case 'V':
f_volhdr = optarg;
break;
case 'w':
f_confirm++;
break;
case 'W':
f_verify++;
break;
case 'x': /* Extract files from the archive */
if (cmd_mode != CMD_NONE)
goto badopt;
cmd_mode = CMD_EXTRACT;
break;
case 'X':
f_exclude++;
add_exclude_file (optarg);
break;
case 'z':
if (f_compressprog)
{
msg ("Only one compression option permitted\n");
exit (EX_ARGSBAD);
}
f_compressprog = "gzip";
break;
case 'Z':
if (f_compressprog)
{
msg ("Only one compression option permitted\n");
exit (EX_ARGSBAD);
}
f_compressprog = "compress";
break;
case '?':
badopt:
msg ("Unknown option. Use '%s --help' for a complete list of options.", tar);
exit (EX_ARGSBAD);
}
}
blocksize = blocking * RECORDSIZE;
if (n_ar_files == 0)
{
n_ar_files = 1;
ar_files[0] = getenv ("TAPE"); /* From environment, or */
if (ar_files[0] == 0)
ar_files[0] = DEF_AR_FILE; /* From Makefile */
}
if (n_ar_files > 1 && !f_multivol)
{
msg ("Multiple archive files requires --multi-volume\n");
exit (EX_ARGSBAD);
}
if (f_compress_block && !f_compressprog)
{
msg ("You must use a compression option (--gzip, --compress\n\
or --use-compress-program) with --block-compress.\n");
exit (EX_ARGSBAD);
}
}
/*
* Print as much help as the user's gonna get.
*
* We have to sprinkle in the KLUDGE lines because too many compilers
* cannot handle character strings longer than about 512 bytes. Yuk!
* In particular, MS-DOS and Xenix MSC and PDP-11 V7 Unix have this
* problem.
*/
void
describe ()
{
puts ("choose one of the following:");
fputs ("\
-A, --catenate,\n\
--concatenate append tar files to an archive\n\
-c, --create create a new archive\n\
-d, --diff,\n\
--compare find differences between archive and file system\n\
--delete delete from the archive (not for use on mag tapes!)\n\
-r, --append append files to the end of an archive\n\
-t, --list list the contents of an archive\n\
-u, --update only append files that are newer than copy in archive\n\
-x, --extract,\n\
--get extract files from an archive\n", stdout);
fprintf (stdout, "\
Other options:\n\
--atime-preserve don't change access times on dumped files\n\
-b, --block-size N block size of Nx512 bytes (default N=%d)\n", DEFBLOCKING);
fputs ("\
-B, --read-full-blocks reblock as we read (for reading 4.2BSD pipes)\n\
-C, --directory DIR change to directory DIR\n\
--checkpoint print directory names while reading the archive\n\
", stdout); /* KLUDGE */
fprintf (stdout, "\
-f, --file [HOSTNAME:]F use archive file or device F (default %s)\n",
DEF_AR_FILE);
fputs ("\
--force-local archive file is local even if has a colon\n\
-F, --info-script F\n\
--new-volume-script F run script at end of each tape (implies -M)\n\
-G, --incremental create/list/extract old GNU-format incremental backup\n\
-g, --listed-incremental F create/list/extract new GNU-format incremental backup\n\
-h, --dereference don't dump symlinks; dump the files they point to\n\
-i, --ignore-zeros ignore blocks of zeros in archive (normally mean EOF)\n\
--ignore-failed-read don't exit with non-zero status on unreadable files\n\
-k, --keep-old-files keep existing files; don't overwrite them from archive\n\
-K, --starting-file F begin at file F in the archive\n\
-l, --one-file-system stay in local file system when creating an archive\n\
-L, --tape-length N change tapes after writing N*1024 bytes\n\
", stdout); /* KLUDGE */
fputs ("\
-m, --modification-time don't extract file modified time\n\
-M, --multi-volume create/list/extract multi-volume archive\n\
-N, --after-date DATE,\n\
--newer DATE only store files newer than DATE\n\
-o, --old-archive,\n\
--portability write a V7 format archive, rather than ANSI format\n\
-O, --to-stdout extract files to standard output\n\
-p, --same-permissions,\n\
--preserve-permissions extract all protection information\n\
-P, --absolute-paths don't strip leading `/'s from file names\n\
--preserve like -p -s\n\
", stdout); /* KLUDGE */
fputs ("\
-R, --record-number show record number within archive with each message\n\
--remove-files remove files after adding them to the archive\n\
-s, --same-order,\n\
--preserve-order list of names to extract is sorted to match archive\n\
--same-owner create extracted files with the same ownership \n\
-S, --sparse handle sparse files efficiently\n\
-T, --files-from F get names to extract or create from file F\n\
--null -T reads null-terminated names, disable -C\n\
--totals print total bytes written with --create\n\
-v, --verbose verbosely list files processed\n\
-V, --label NAME create archive with volume name NAME\n\
--version print tar program version number\n\
-w, --interactive,\n\
--confirmation ask for confirmation for every action\n\
", stdout); /* KLUDGE */
fputs ("\
-W, --verify attempt to verify the archive after writing it\n\
--exclude FILE exclude file FILE\n\
-X, --exclude-from FILE exclude files listed in FILE\n\
-Z, --compress,\n\
--uncompress filter the archive through compress\n\
-z, --gzip,\n\
--ungzip filter the archive through gzip\n\
--use-compress-program PROG\n\
filter the archive through PROG (which must accept -d)\n\
--block-compress block the output of compression program for tapes\n\
-[0-7][lmh] specify drive and density\n\
", stdout);
}
void
name_add (name)
char *name;
{
if (n_indalloc == n_indused)
{
n_indalloc += 10;
n_ind = (char **) (n_indused ? ck_realloc (n_ind, n_indalloc * sizeof (char *)): ck_malloc (n_indalloc * sizeof (char *)));
}
n_ind[n_indused++] = name;
}
/*
* Set up to gather file names for tar.
*
* They can either come from stdin or from argv.
*/
void
name_init (argc, argv)
int argc;
char **argv;
{
if (f_namefile)
{
if (optind < argc)
{
msg ("too many args with -T option");
exit (EX_ARGSBAD);
}
if (!strcmp (name_file, "-"))
{
namef = stdin;
}
else
{
namef = fopen (name_file, "r");
if (namef == NULL)
{
msg_perror ("can't open file %s", name_file);
exit (EX_BADFILE);
}
}
}
else
{
/* Get file names from argv, after options. */
n_argc = argc;
n_argv = argv;
}
}
/* Read the next filename read from STREAM and null-terminate it.
Put it into BUFFER, reallocating and adjusting *PBUFFER_SIZE if necessary.
Return the new value for BUFFER, or NULL at end of file. */
char *
read_name_from_file (buffer, pbuffer_size, stream)
char *buffer;
size_t *pbuffer_size;
FILE *stream;
{
register int c;
register int indx = 0;
register size_t buffer_size = *pbuffer_size;
while ((c = getc (stream)) != EOF && c != filename_terminator)
{
if (indx == buffer_size)
{
buffer_size += NAMSIZ;
buffer = ck_realloc (buffer, buffer_size + 2);
}
buffer[indx++] = c;
}
if (indx == 0 && c == EOF)
return NULL;
if (indx == buffer_size)
{
buffer_size += NAMSIZ;
buffer = ck_realloc (buffer, buffer_size + 2);
}
buffer[indx] = '\0';
*pbuffer_size = buffer_size;
return buffer;
}
/*
* Get the next name from argv or the name file.
*
* Result is in static storage and can't be relied upon across two calls.
*
* If CHANGE_DIRS is non-zero, treat a filename of the form "-C" as
* meaning that the next filename is the name of a directory to change to.
* If `filename_terminator' is '\0', CHANGE_DIRS is effectively always 0.
*/
char *
name_next (change_dirs)
int change_dirs;
{
static char *buffer; /* Holding pattern */
static int buffer_siz;
register char *p;
register char *q = 0;
register int next_name_is_dir = 0;
extern char *un_quote_string ();
if (buffer_siz == 0)
{
buffer = ck_malloc (NAMSIZ + 2);
buffer_siz = NAMSIZ;
}
if (filename_terminator == '\0')
change_dirs = 0;
tryagain:
if (namef == NULL)
{
if (n_indscan < n_indused)
p = n_ind[n_indscan++];
else if (optind < n_argc)
/* Names come from argv, after options */
p = n_argv[optind++];
else
{
if (q)
msg ("Missing filename after -C");
return NULL;
}
/* JF trivial support for -C option. I don't know if
chdir'ing at this point is dangerous or not.
It seems to work, which is all I ask. */
if (change_dirs && !q && p[0] == '-' && p[1] == 'C' && p[2] == '\0')
{
q = p;
goto tryagain;
}
if (q)
{
if (chdir (p) < 0)
msg_perror ("Can't chdir to %s", p);
q = 0;
goto tryagain;
}
/* End of JF quick -C hack */
#if 0
if (f_exclude && check_exclude (p))
goto tryagain;
#endif
return un_quote_string (p);
}
while (p = read_name_from_file (buffer, &buffer_siz, namef))
{
buffer = p;
if (*p == '\0')
continue; /* Ignore empty lines. */
q = p + strlen (p) - 1;
while (q > p && *q == '/')/* Zap trailing "/"s. */
*q-- = '\0';
if (change_dirs && next_name_is_dir == 0
&& p[0] == '-' && p[1] == 'C' && p[2] == '\0')
{
next_name_is_dir = 1;
goto tryagain;
}
if (next_name_is_dir)
{
if (chdir (p) < 0)
msg_perror ("Can't change to directory %s", p);
next_name_is_dir = 0;
goto tryagain;
}
#if 0
if (f_exclude && check_exclude (p))
goto tryagain;
#endif
return un_quote_string (p);
}
return NULL;
}
/*
* Close the name file, if any.
*/
void
name_close ()
{
if (namef != NULL && namef != stdin)
fclose (namef);
}
/*
* Gather names in a list for scanning.
* Could hash them later if we really care.
*
* If the names are already sorted to match the archive, we just
* read them one by one. name_gather reads the first one, and it
* is called by name_match as appropriate to read the next ones.
* At EOF, the last name read is just left in the buffer.
* This option lets users of small machines extract an arbitrary
* number of files by doing "tar t" and editing down the list of files.
*/
void
name_gather ()
{
register char *p;
static struct name *namebuf; /* One-name buffer */
static namelen;
static char *chdir_name;
if (f_sorted_names)
{
if (!namelen)
{
namelen = NAMSIZ;
namebuf = (struct name *) ck_malloc (sizeof (struct name) + NAMSIZ);
}
p = name_next (0);
if (p)
{
if (*p == '-' && p[1] == 'C' && p[2] == '\0')
{
chdir_name = name_next (0);
p = name_next (0);
if (!p)
{
msg ("Missing file name after -C");
exit (EX_ARGSBAD);
}
namebuf->change_dir = chdir_name;
}
namebuf->length = strlen (p);
if (namebuf->length >= namelen)
{
namebuf = (struct name *) ck_realloc (namebuf, sizeof (struct name) + namebuf->length);
namelen = namebuf->length;
}
strncpy (namebuf->name, p, namebuf->length);
namebuf->name[namebuf->length] = 0;
namebuf->next = (struct name *) NULL;
namebuf->found = 0;
namelist = namebuf;
namelast = namelist;
}
return;
}
/* Non sorted names -- read them all in */
while (p = name_next (0))
addname (p);
}
/*
* Add a name to the namelist.
*/
void
addname (name)
char *name; /* pointer to name */
{
register int i; /* Length of string */
register struct name *p; /* Current struct pointer */
static char *chdir_name;
char *new_name ();
if (name[0] == '-' && name[1] == 'C' && name[2] == '\0')
{
chdir_name = name_next (0);
name = name_next (0);
if (!chdir_name)
{
msg ("Missing file name after -C");
exit (EX_ARGSBAD);
}
if (chdir_name[0] != '/')
{
char *path = ck_malloc (PATH_MAX);
#if defined(__MSDOS__) || defined(HAVE_GETCWD) || defined(_POSIX_VERSION)
if (!getcwd (path, PATH_MAX))
{
msg ("Couldn't get current directory.");
exit (EX_SYSTEM);
}
#else
char *getwd ();
if (!getwd (path))
{
msg ("Couldn't get current directory: %s", path);
exit (EX_SYSTEM);
}
#endif
chdir_name = new_name (path, chdir_name);
free (path);
}
}
if (name)
{
i = strlen (name);
/*NOSTRICT*/
p = (struct name *) malloc ((unsigned) (sizeof (struct name) + i));
}
else
p = (struct name *) malloc ((unsigned) (sizeof (struct name)));
if (!p)
{
if (name)
msg ("cannot allocate mem for name '%s'.", name);
else
msg ("cannot allocate mem for chdir record.");
exit (EX_SYSTEM);
}
p->next = (struct name *) NULL;
if (name)
{
p->fake = 0;
p->length = i;
strncpy (p->name, name, i);
p->name[i] = '\0'; /* Null term */
}
else
p->fake = 1;
p->found = 0;
p->regexp = 0; /* Assume not a regular expression */
p->firstch = 1; /* Assume first char is literal */
p->change_dir = chdir_name;
p->dir_contents = 0; /* JF */
if (name)
{
if (index (name, '*') || index (name, '[') || index (name, '?'))
{
p->regexp = 1; /* No, it's a regexp */
if (name[0] == '*' || name[0] == '[' || name[0] == '?')
p->firstch = 0; /* Not even 1st char literal */
}
}
if (namelast)
namelast->next = p;
namelast = p;
if (!namelist)
namelist = p;
}
/*
* Return nonzero if name P (from an archive) matches any name from
* the namelist, zero if not.
*/
int
name_match (p)
register char *p;
{
register struct name *nlp;
register int len;
again:
if (0 == (nlp = namelist)) /* Empty namelist is easy */
return 1;
if (nlp->fake)
{
if (nlp->change_dir && chdir (nlp->change_dir))
msg_perror ("Can't change to directory %d", nlp->change_dir);
namelist = 0;
return 1;
}
len = strlen (p);
for (; nlp != 0; nlp = nlp->next)
{
/* If first chars don't match, quick skip */
if (nlp->firstch && nlp->name[0] != p[0])
continue;
/* Regular expressions (shell globbing, actually). */
if (nlp->regexp)
{
if (fnmatch (nlp->name, p, FNM_LEADING_DIR) == 0)
{
nlp->found = 1; /* Remember it matched */
if (f_startfile)
{
free ((void *) namelist);
namelist = 0;
}
if (nlp->change_dir && chdir (nlp->change_dir))
msg_perror ("Can't change to directory %s", nlp->change_dir);
return 1; /* We got a match */
}
continue;
}
/* Plain Old Strings */
if (nlp->length <= len /* Archive len >= specified */
&& (p[nlp->length] == '\0' || p[nlp->length] == '/')
/* Full match on file/dirname */
&& strncmp (p, nlp->name, nlp->length) == 0) /* Name compare */
{
nlp->found = 1; /* Remember it matched */
if (f_startfile)
{
free ((void *) namelist);
namelist = 0;
}
if (nlp->change_dir && chdir (nlp->change_dir))
msg_perror ("Can't change to directory %s", nlp->change_dir);
return 1; /* We got a match */
}
}
/*
* Filename from archive not found in namelist.
* If we have the whole namelist here, just return 0.
* Otherwise, read the next name in and compare it.
* If this was the last name, namelist->found will remain on.
* If not, we loop to compare the newly read name.
*/
if (f_sorted_names && namelist->found)
{
name_gather (); /* Read one more */
if (!namelist->found)
goto again;
}
return 0;
}
/*
* Print the names of things in the namelist that were not matched.
*/
void
names_notfound ()
{
register struct name *nlp, *next;
register char *p;
for (nlp = namelist; nlp != 0; nlp = next)
{
next = nlp->next;
if (!nlp->found)
msg ("%s not found in archive", nlp->name);
/*
* We could free() the list, but the process is about
* to die anyway, so save some CPU time. Amigas and
* other similarly broken software will need to waste
* the time, though.
*/
#ifdef amiga
if (!f_sorted_names)
free (nlp);
#endif
}
namelist = (struct name *) NULL;
namelast = (struct name *) NULL;
if (f_sorted_names)
{
while (0 != (p = name_next (1)))
msg ("%s not found in archive", p);
}
}
/* These next routines were created by JF */
void
name_expand ()
{
;
}
/* This is like name_match(), except that it returns a pointer to the name
it matched, and doesn't set ->found The caller will have to do that
if it wants to. Oh, and if the namelist is empty, it returns 0, unlike
name_match(), which returns TRUE */
struct name *
name_scan (p)
register char *p;
{
register struct name *nlp;
register int len;
again:
if (0 == (nlp = namelist)) /* Empty namelist is easy */
return 0;
len = strlen (p);
for (; nlp != 0; nlp = nlp->next)
{
/* If first chars don't match, quick skip */
if (nlp->firstch && nlp->name[0] != p[0])
continue;
/* Regular expressions */
if (nlp->regexp)
{
if (fnmatch (nlp->name, p, FNM_LEADING_DIR) == 0)
return nlp; /* We got a match */
continue;
}
/* Plain Old Strings */
if (nlp->length <= len /* Archive len >= specified */
&& (p[nlp->length] == '\0' || p[nlp->length] == '/')
/* Full match on file/dirname */
&& strncmp (p, nlp->name, nlp->length) == 0) /* Name compare */
return nlp; /* We got a match */
}
/*
* Filename from archive not found in namelist.
* If we have the whole namelist here, just return 0.
* Otherwise, read the next name in and compare it.
* If this was the last name, namelist->found will remain on.
* If not, we loop to compare the newly read name.
*/
if (f_sorted_names && namelist->found)
{
name_gather (); /* Read one more */
if (!namelist->found)
goto again;
}
return (struct name *) 0;
}
/* This returns a name from the namelist which doesn't have ->found set.
It sets ->found before returning, so successive calls will find and return
all the non-found names in the namelist */
struct name *gnu_list_name;
char *
name_from_list ()
{
if (!gnu_list_name)
gnu_list_name = namelist;
while (gnu_list_name && gnu_list_name->found)
gnu_list_name = gnu_list_name->next;
if (gnu_list_name)
{
gnu_list_name->found++;
if (gnu_list_name->change_dir)
if (chdir (gnu_list_name->change_dir) < 0)
msg_perror ("can't chdir to %s", gnu_list_name->change_dir);
return gnu_list_name->name;
}
return (char *) 0;
}
void
blank_name_list ()
{
struct name *n;
gnu_list_name = 0;
for (n = namelist; n; n = n->next)
n->found = 0;
}
char *
new_name (path, name)
char *path, *name;
{
char *path_buf;
path_buf = (char *) malloc (strlen (path) + strlen (name) + 2);
if (path_buf == 0)
{
msg ("Can't allocate memory for name '%s/%s", path, name);
exit (EX_SYSTEM);
}
(void) sprintf (path_buf, "%s/%s", path, name);
return path_buf;
}
/* returns non-zero if the luser typed 'y' or 'Y', zero otherwise. */
int
confirm (action, file)
char *action, *file;
{
int c, nl;
static FILE *confirm_file = 0;
extern FILE *msg_file;
extern char TTY_NAME[];
fprintf (msg_file, "%s %s?", action, file);
fflush (msg_file);
if (!confirm_file)
{
confirm_file = (archive == 0) ? fopen (TTY_NAME, "r") : stdin;
if (!confirm_file)
{
msg ("Can't read confirmation from user");
exit (EX_SYSTEM);
}
}
c = getc (confirm_file);
for (nl = c; nl != '\n' && nl != EOF; nl = getc (confirm_file))
;
return (c == 'y' || c == 'Y');
}
char *x_buffer = 0;
int size_x_buffer;
int free_x_buffer;
char **exclude = 0;
int size_exclude = 0;
int free_exclude = 0;
char **re_exclude = 0;
int size_re_exclude = 0;
int free_re_exclude = 0;
void
add_exclude (name)
char *name;
{
/* char *rname;*/
/* char **tmp_ptr;*/
int size_buf;
un_quote_string (name);
size_buf = strlen (name);
if (x_buffer == 0)
{
x_buffer = (char *) ck_malloc (size_buf + 1024);
free_x_buffer = 1024;
}
else if (free_x_buffer <= size_buf)
{
char *old_x_buffer;
char **tmp_ptr;
old_x_buffer = x_buffer;
x_buffer = (char *) ck_realloc (x_buffer, size_x_buffer + 1024);
free_x_buffer = 1024;
for (tmp_ptr = exclude; tmp_ptr < exclude + size_exclude; tmp_ptr++)
*tmp_ptr = x_buffer + ((*tmp_ptr) - old_x_buffer);
for (tmp_ptr = re_exclude; tmp_ptr < re_exclude + size_re_exclude; tmp_ptr++)
*tmp_ptr = x_buffer + ((*tmp_ptr) - old_x_buffer);
}
if (is_regex (name))
{
if (free_re_exclude == 0)
{
re_exclude = (char **) (re_exclude ? ck_realloc (re_exclude, (size_re_exclude + 32) * sizeof (char *)): ck_malloc (sizeof (char *) * 32));
free_re_exclude += 32;
}
re_exclude[size_re_exclude] = x_buffer + size_x_buffer;
size_re_exclude++;
free_re_exclude--;
}
else
{
if (free_exclude == 0)
{
exclude = (char **) (exclude ? ck_realloc (exclude, (size_exclude + 32) * sizeof (char *)): ck_malloc (sizeof (char *) * 32));
free_exclude += 32;
}
exclude[size_exclude] = x_buffer + size_x_buffer;
size_exclude++;
free_exclude--;
}
strcpy (x_buffer + size_x_buffer, name);
size_x_buffer += size_buf + 1;
free_x_buffer -= size_buf + 1;
}
void
add_exclude_file (file)
char *file;
{
FILE *fp;
char buf[1024];
if (strcmp (file, "-"))
fp = fopen (file, "r");
else
/* Let's hope the person knows what they're doing. */
/* Using -X - -T - -f - will get you *REALLY* strange
results. . . */
fp = stdin;
if (!fp)
{
msg_perror ("can't open %s", file);
exit (2);
}
while (fgets (buf, 1024, fp))
{
/* int size_buf;*/
char *end_str;
end_str = rindex (buf, '\n');
if (end_str)
*end_str = '\0';
add_exclude (buf);
}
fclose (fp);
}
int
is_regex (str)
char *str;
{
return index (str, '*') || index (str, '[') || index (str, '?');
}
/* Returns non-zero if the file 'name' should not be added/extracted */
int
check_exclude (name)
char *name;
{
int n;
char *str;
extern char *strstr ();
for (n = 0; n < size_re_exclude; n++)
{
if (fnmatch (re_exclude[n], name, FNM_LEADING_DIR) == 0)
return 1;
}
for (n = 0; n < size_exclude; n++)
{
/* Accept the output from strstr only if it is the last
part of the string. There is certainly a faster way to
do this. . . */
if ((str = strstr (name, exclude[n]))
&& (str == name || str[-1] == '/')
&& str[strlen (exclude[n])] == '\0')
return 1;
}
return 0;
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.