summaryrefslogtreecommitdiff
path: root/tools/cpio/src/pax.c
diff options
context:
space:
mode:
Diffstat (limited to 'tools/cpio/src/pax.c')
-rw-r--r--tools/cpio/src/pax.c757
1 files changed, 0 insertions, 757 deletions
diff --git a/tools/cpio/src/pax.c b/tools/cpio/src/pax.c
deleted file mode 100644
index 50632b6b1..000000000
--- a/tools/cpio/src/pax.c
+++ /dev/null
@@ -1,757 +0,0 @@
-/*
- * cpio - copy file archives in and out
- *
- * Gunnar Ritter, Freiburg i. Br., Germany, April 2003.
- */
-/*
- * Copyright (c) 2003 Gunnar Ritter
- *
- * This software is provided 'as-is', without any express or implied
- * warranty. In no event will the authors be held liable for any damages
- * arising from the use of this software.
- *
- * Permission is granted to anyone to use this software for any purpose,
- * including commercial applications, and to alter it and redistribute
- * it freely, subject to the following restrictions:
- *
- * 1. The origin of this software must not be misrepresented; you must not
- * claim that you wrote the original software. If you use this software
- * in a product, an acknowledgment in the product documentation would be
- * appreciated but is not required.
- *
- * 2. Altered source versions must be plainly marked as such, and must not be
- * misrepresented as being the original software.
- *
- * 3. This notice may not be removed or altered from any source distribution.
- */
-
-#if __GNUC__ >= 3 && __GNUC_MINOR__ >= 4 || __GNUC__ >= 4
-#define USED __attribute__ ((used))
-#elif defined __GNUC__
-#define USED __attribute__ ((unused))
-#else
-#define USED
-#endif
-#if defined (SU3)
-static const char sccsid[] USED = "@(#)pax_su3.sl 1.26 (gritter) 6/26/05";
-#else
-static const char sccsid[] USED = "@(#)pax.sl 1.26 (gritter) 6/26/05";
-#endif
-/* Sccsid @(#)pax.c 1.26 (gritter) 6/26/05 */
-
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <fcntl.h>
-#include <unistd.h>
-#include <stdio.h>
-#include <stdarg.h>
-#include <stdlib.h>
-#include <string.h>
-#include <fnmatch.h>
-#include <dirent.h>
-#include <regex.h>
-#include <wchar.h>
-#include <time.h>
-#include <inttypes.h>
-
-#include "iblok.h"
-#include "cpio.h"
-
-static char **files;
-static int filec;
-static struct iblok *filinp;
-static char *path;
-static size_t pathsz;
-static int pax_Hflag;
-
-static void setpres(const char *);
-static size_t ofiles_pax(char **, size_t *);
-static void prtime_pax(time_t);
-static void parsesub(char *);
-
-void
-flags(int ac, char **av)
-{
- const char optstring[] = "rwab:cdf:HikKlLno:p:s:tuvx:X";
- int i;
- int illegal = 0;
- char *x;
-
-#if defined (SU3)
- pax = PAX_TYPE_PAX2001;
-#else
- pax = PAX_TYPE_PAX1992;
-#endif
- dflag = 1;
- uflag = 1;
- ofiles = ofiles_pax;
- prtime = prtime_pax;
- while ((i = getopt(ac, av, optstring)) != EOF) {
- switch (i) {
- case 'r':
- if (action && action != 'i')
- action = 'p';
- else
- action = 'i';
- break;
- case 'w':
- if (action && action != 'o')
- action = 'p';
- else
- action = 'o';
- break;
- case 'a':
- Aflag = 1;
- break;
- case 'b':
- blksiz = strtol(optarg, &x, 10);
- switch (*x) {
- case 'b':
- blksiz *= 512;
- break;
- case 'k':
- blksiz *= 1024;
- break;
- case 'm':
- blksiz *= 1048576;
- break;
- case 'w':
- blksiz *= 2;
- break;
- }
- if (blksiz <= 0)
- msg(4, -2,
- "Illegal size given for -b option.\n");
- Cflag = 1;
- break;
- case 'c':
- fflag = 1;
- break;
- case 'd':
- pax_dflag = 1;
- break;
- case 'f':
- Oflag = Iflag = optarg;
- break;
- case 'H':
- pax_Hflag = 1;
- break;
- case 'i':
- rflag = 1;
- break;
- case 'k':
- pax_kflag = 1;
- break;
- case 'K':
- kflag = 1;
- break;
- case 'l':
- lflag = 1;
- break;
- case 'L':
- Lflag = 1;
- break;
- case 'n':
- pax_nflag = 1;
- break;
- case 'o':
- pax_options(optarg, 1);
- break;
- case 'p':
- setpres(optarg);
- break;
- case 's':
- pax_sflag = 1;
- parsesub(optarg);
- break;
- case 't':
- aflag = 1;
- break;
- case 'u':
- uflag = 0;
- pax_uflag = 1;
- break;
- case 'v':
- vflag = 1;
- break;
- case 'x':
- if (strcmp(optarg, "cpio") == 0)
- fmttype = FMT_ODC;
- else {
- if (setfmt(optarg) < 0)
- illegal = 1;
- }
- break;
- case 'X':
- pax_Xflag = 1;
- break;
- default:
- illegal = 1;
- }
- }
- switch (action) {
- case 0:
- if (rflag || pax_kflag || pax_uflag || pax_preserve)
- illegal = 1;
- action = 'i';
- tflag = 1;
- setvbuf(stdout, NULL, _IOLBF, 0);
- /*FALLTHRU*/
- case 'i':
- if (aflag || pax_Xflag || lflag)
- illegal = 1;
- for (i = optind; i < ac; i++) {
- addg(av[i], 0);
- if (pax_dflag == 0) {
- char *da;
- int j;
-
- da = smalloc(strlen(av[i]) + 2);
- for (j = 0; av[i][j]; j++)
- da[j] = av[i][j];
- da[j++] = '/';
- da[j++] = '*';
- da[j] = 0;
- addg(da, 1);
- free(da);
- }
- }
- break;
- case 'o':
- if (fflag || pax_kflag || pax_nflag || kflag)
- illegal = 1;
- if (Aflag && Oflag == NULL) {
- msg(3, 0, "-a requires the -f option\n");
- illegal = 1;
- }
- if (optind != ac) {
- files = &av[optind];
- filec = ac - optind;
- } else
- filinp = ib_alloc(0, 0);
- if (pax_uflag)
- Aflag = 1;
- if (Aflag == 0 && fmttype == FMT_NONE)
- fmttype = FMT_ODC;
- break;
- case 'p':
- if (fflag || blksiz || Oflag || Iflag || fmttype != FMT_NONE ||
- kflag)
- illegal = 1;
- if (optind == ac)
- illegal = 1;
- else if (optind+1 != ac) {
- files = &av[optind];
- filec = ac - optind - 1;
- optind = ac - 1;
- } else
- filinp = ib_alloc(0, 0);
- break;
- }
- if (illegal)
- usage();
-}
-
-void
-usage(void)
-{
- fprintf(stderr, "USAGE:\n\
-\t%s [-cdnvK] [-b size] [-f file] [-s replstr] [-x hdr] [patterns]\n\
-\t%s -r[cdiknuvK] [-b size] [-f file] [-p priv] [-s replstr] [-x hdr] [patterns]\n\
-\t%s -w[adituvLX] [-b size] [-f file] [-s replstr] [-x hdr] [files]\n\
-\t%s -rw[diklntuvLX] [-p priv] [-s replstr] [files] directory\n",
- progname, progname, progname, progname);
- exit(1);
-}
-
-static void
-setpres(const char *s)
-{
- s--;
- while (*++s) {
- pax_preserve &= ~PAX_P_EVERY;
- switch (*s) {
- case 'a':
- pax_preserve |= PAX_P_ATIME;
- break;
- case 'e':
- pax_preserve |= PAX_P_EVERY;
- break;
- case 'm':
- pax_preserve |= PAX_P_MTIME;
- break;
- case 'o':
- pax_preserve |= PAX_P_OWNER;
- break;
- case 'p':
- pax_preserve |= PAX_P_MODE;
- break;
- default:
- msg(2, 0, "ignoring unknown option \"-p%c\"\n",
- *s&0377);
- }
- }
- if (pax_preserve & PAX_P_EVERY)
- pax_preserve |= PAX_P_OWNER|PAX_P_MODE;
-}
-
-int
-gmatch(const char *s, const char *p)
-{
- int val;
-#ifdef __GLIBC__
- /* avoid glibc's broken [^...] */
- extern char **environ;
- char **savenv = environ;
- char *newenv[] = { "POSIXLY_CORRECT=", NULL };
- environ = newenv;
-#endif /* __GLIBC__ */
- val = fnmatch(p, s, 0) == 0;
-#ifdef __GLIBC__
- environ = savenv;
-#endif /* __GLIBC__ */
- return val;
-}
-
-static const char *
-nextfile(void)
-{
- char *line = NULL;
- size_t linsiz = 0, linlen;
-
- if (filinp) {
- pax_Hflag = 0;
- if ((linlen=ib_getlin(filinp, &line, &linsiz, srealloc)) == 0) {
- filinp = NULL;
- return NULL;
- }
- if (line[linlen-1] == '\n')
- line[--linlen] = '\0';
- return line;
- } else if (filec > 0) {
- filec--;
- return *files++;
- } else
- return NULL;
-}
-
-static size_t
-catpath(size_t pend, const char *base)
-{
- size_t blen = strlen(base);
-
- if (pend + blen + 2 >= pathsz)
- path = srealloc(path, pathsz = pend + blen + 16);
- if (pend == 0 || path[pend-1] != '/')
- path[pend++] = '/';
- strcpy(&path[pend], base);
- return pend + blen;
-}
-
-/*
- * Descend the directory hierarchies given using stdin or arguments
- * and return file names one per one.
- */
-static size_t
-ofiles_pax(char **name, size_t *namsiz)
-{
- static DIR **dt;
- static int dti, dts;
- static int *pend;
- static dev_t *curdev;
- static ino_t *curino;
- struct stat st;
- struct dirent *dp;
- const char *nf;
- int i;
-
- if (dt == NULL) {
- dt = scalloc(dts = 1, sizeof *dt);
- pend = scalloc(dts, sizeof *pend);
- curdev = scalloc(dts, sizeof *curdev);
- curino = scalloc(dts, sizeof *curino);
- }
- for (;;) {
- if (dti >= 0 && dt[dti] != NULL) {
- if ((dp = readdir(dt[dti])) != NULL) {
- if (dp->d_name[0] == '.' &&
- (dp->d_name[1] == '\0' ||
- dp->d_name[1] == '.' &&
- dp->d_name[2] == '\0'))
- continue;
- if (dti+1 <= dts) {
- dt = srealloc(dt, sizeof *dt * ++dts);
- pend = srealloc(pend, sizeof *pend*dts);
- curdev = srealloc(curdev, sizeof *curdev
- * dts);
- curino = srealloc(curino, sizeof *curino
- * dts);
- }
- pend[dti+1] = catpath(pend[dti], dp->d_name);
- if (pax_Hflag)
- Lflag = dti < 0;
- if ((Lflag ? stat : lstat)(path, &st) < 0) {
- emsg(2, "Error with %s of \"%s\"",
- lflag? "stat" : "lstat",
- path);
- errcnt++;
- } else if ((st.st_mode&S_IFMT) == S_IFDIR &&
- (pax_Xflag == 0 ||
- curdev[0] == st.st_dev)) {
- if (Lflag) {
- for (i = 0; i <= dti; i++)
- if (st.st_dev ==
- curdev[i] &&
- st.st_ino ==
- curino[i]) {
- if (pax ==
- PAX_TYPE_PAX2001)
- msg(4, 1,
- "Symbolic link "
- "loop at "
- "\"%s\"\n",
- path);
- break;
- }
- if (i <= dti)
- break;
- }
- if ((dt[dti+1]=opendir(path)) == NULL) {
- emsg(2, "Cannot open directory "
- "\"%s\"", path);
- errcnt++;
- } else {
- dti++;
- curdev[dti] = st.st_dev;
- curino[dti] = st.st_ino;
- continue;
- }
- } else
- break;
- } else {
- path[pend[dti]] = '\0';
- closedir(dt[dti]);
- dt[dti--] = NULL;
- if (pax_Hflag)
- Lflag = dti < 0;
- break;
- }
- } else {
- if (pax_Hflag)
- Lflag = 1;
- while ((nf = nextfile()) != NULL &&
- (Lflag ? stat : lstat)(nf, &st) < 0) {
- emsg(2, "Error with stat of \"%s\"", nf);
- errcnt++;
- }
- if (nf == NULL)
- return 0;
- dti = 0;
- if (path)
- free(path);
- pend[dti] = strlen(nf);
- strcpy(path = smalloc(pathsz = pend[dti]+1), nf);
- if (pax_dflag || (st.st_mode&S_IFMT) != S_IFDIR) {
- dti = -1;
- break;
- }
- curdev[dti] = st.st_dev;
- curino[dti] = st.st_ino;
- if ((dt[dti] = opendir(path)) == NULL) {
- emsg(2, "Cannot open directory \"%s\"", path);
- errcnt++;
- }
- }
- }
- if (*name == NULL || *namsiz < pathsz) {
- free(*name);
- *name = smalloc(*namsiz=pathsz);
- }
- strcpy(*name, path);
- return pend[dti+1];
-}
-
-struct pax_had {
- struct pax_had *p_next;
- const char *p_name;
- time_t p_mtime;
-};
-
-static int pprime = 7919;
-
-static int
-phash(const char *s)
-{
- uint32_t h = 0, g;
-
- s--;
- while (*++s) {
- h = (h << 4) + (*s & 0377);
- if (g = h & 0xf0000000) {
- h = h ^ (g >> 24);
- h = h ^ g;
- }
- }
- return h % pprime;
-}
-
-static int
-plook(const char *name, struct pax_had **pp)
-{
- static struct pax_had **pt;
- uint32_t h, had;
-
- if (pt == NULL)
- pt = scalloc(pprime, sizeof *pt);
- (*pp) = pt[h = phash(name)];
- while (*pp != NULL) {
- if (strcmp((*pp)->p_name, name) == 0)
- break;
- *pp = (*pp)->p_next;
- }
- had = *pp != NULL;
- if (*pp == NULL) {
- *pp = scalloc(1, sizeof **pp);
- (*pp)->p_name = sstrdup(name);
- (*pp)->p_next = pt[h];
- pt[h] = *pp;
- }
- return had;
-}
-
-int
-pax_track(const char *name, time_t mtime)
-{
- struct pax_had *pp;
- struct stat st;
-
- if (pax_uflag == 0 && (pax_nflag == 0 || patterns))
- return 1;
- if (action == 'i' && pax_uflag) {
- if (lstat(name, &st) == 0 && mtime < st.st_mtime)
- return 0;
- }
- if (action != 'i' || pax_nflag) {
- if (plook(name, &pp) != 0) {
- if (action != 'i' && pax_uflag == 0)
- return 0;
- if (mtime > pp->p_mtime) {
- pp->p_mtime = mtime;
- return 1;
- }
- return 0;
- } else
- pp->p_mtime = mtime;
- }
- return 1;
-}
-
-static void
-prtime_pax(time_t t)
-{
- char b[30];
- time_t now;
-
- time(&now);
- if (t > now || t < now - (6*30*86400))
- strftime(b, sizeof b, "%b %e %Y", localtime(&t));
- else
- strftime(b, sizeof b, "%b %e %H:%M", localtime(&t));
- printf(" %s ", b);
-}
-
-struct replacement {
- regex_t r_re;
- const char *r_rhs;
- int r_nbra;
- enum {
- REPL_0 = 0,
- REPL_G = 1,
- REPL_P = 2
- } r_flags;
-} *rep;
-
-#define NBRA 9
-static int ren, res;
-static int mb_cur_max;
-
-static wchar_t
-nextc(char **sc, int *np)
-{
- char *p = *sc;
- wchar_t wcbuf;
- int len;
-
- if (**sc == '\0') {
- *np = 0;
- return 0;
- }
- if (mb_cur_max == 1 || (**sc&0200) == 0) {
- *np = 1;
- return *(*sc)++ & 0377;
- }
- if ((len = mbtowc(&wcbuf, p, mb_cur_max)) < 0)
- msg(3, -2, "Invalid multibyte character for \"-s\" option\n");
- *np = len;
- *sc += len;
- return wcbuf;
-}
-
-static void
-parsesub(char *s)
-{
- int len;
- char *ps = NULL;
- wchar_t seof = nextc(&s, &len);
- wint_t c, d;
- int nbra = 0;
- int reflags;
-
- if (seof == 0)
- goto unt;
- mb_cur_max = MB_CUR_MAX;
- ps = s;
- do {
- if ((c = nextc(&s, &len)) == seof)
- break;
- if (c == '\\') {
- if ((c = nextc(&s, &len)) == '(')
- nbra++;
- continue;
- } else if (c == '[') {
- d = WEOF;
- do {
- if ((c = nextc(&s, &len)) == '\0')
- continue;
- if (d == '[' && (c == ':' || c == '.' ||
- c == '=')) {
- d = c;
- do {
- if ((c=nextc(&s, &len)) == '\0')
- continue;
- } while (c != d || *s != ']');
- nextc(&s, &len);
- c = WEOF; /* reset d and continue */
- }
- d = c;
- } while (c != ']');
- }
- } while (*s != '\0');
- if (c != seof)
- unt: msg(3, -2, "Unterminated argument for \"-s\" option.\n");
- s[-len] = '\0';
- if (ren <= res)
- rep = srealloc(rep, ++res * sizeof *rep);
- reflags = REG_ANGLES;
- if (pax >= PAX_TYPE_PAX2001)
- reflags |= REG_AVOIDNULL;
- if (regcomp(&rep[ren].r_re, ps, reflags) != 0)
- msg(3, -2, "Regular expression error in \"-s\" option\n");
- rep[ren].r_rhs = s;
- rep[ren].r_nbra = nbra;
- while ((c = nextc(&s, &len)) != 0) {
- if (c == '\\')
- c = nextc(&s, &len);
- else if (c == seof)
- break;
- }
- rep[ren].r_flags = 0;
- if (c == seof) {
- s[-len] = '\0';
- while ((c = nextc(&s, &len)) != '\0') {
- switch (c) {
- case 'g':
- rep[ren].r_flags |= REPL_G;
- break;
- case 'p':
- rep[ren].r_flags |= REPL_P;
- break;
- default:
- msg(2, 0, "Ignoring unknown -s flag \"%c\"\n",
- c);
- }
- }
- }
- ren++;
-}
-
-#define put(c) ((new = innew+1>=newsize ? srealloc(new, newsize+=32) : new), \
- new[innew++] = (c))
-
-int
-pax_sname(char **oldp, size_t *olds)
-{
- char *new = NULL;
- size_t newsize = 0;
- regmatch_t bralist[NBRA+1];
- int c, i, k, l, y, z;
- int innew = 0, ef = 0;
- char *inp = *oldp;
-
- for (z = 0; z < ren; z++) {
- in: if (regexec(&rep[z].r_re, inp, NBRA+1, bralist, ef) != 0) {
- if (ef == 0)
- continue;
- goto out;
- }
- for (i = 0; i < bralist[0].rm_so; i++)
- put(inp[i]);
- k = 0;
- while (c = rep[z].r_rhs[k++] & 0377) {
- y = -1;
- if (c == '&')
- y = 0;
- else if (c == '\\') {
- c = rep[z].r_rhs[k++] & 0377;
- if (c >= '1' && c < rep[z].r_nbra+'1')
- y = c - '0';
- }
- if (y >= 0)
- for (l = bralist[y].rm_so; l < bralist[y].rm_eo;
- l++)
- put(inp[l]);
- else
- put(c);
- }
- k = innew;
- for (i = bralist[0].rm_eo; inp[i]; i++)
- put(inp[i]);
- put('\0');
- if (rep[z].r_flags & REPL_G) {
- ef = REG_NOTBOL;
- inp = &inp[bralist[0].rm_eo];
- innew = k;
- if (bralist[0].rm_so == bralist[0].rm_eo) {
- if (inp[0] && (nextc(&inp, &l), inp[0]))
- innew++;
- else
- goto out;
- }
- goto in;
- }
- out: if (rep[z].r_flags & REPL_P)
- fprintf(stderr, "%s >> %s\n", *oldp, new);
- free(*oldp);
- *oldp = new;
- *olds = newsize;
- return *new != '\0';
- }
- return 1;
-}
-
-void
-pax_onexit(void)
-{
- struct glist *gp;
-
- for (gp = patterns; gp; gp = gp->g_nxt) {
- if (gp->g_art)
- continue;
- if (gp->g_gotcha == 0 && (gp->g_nxt == NULL ||
- gp->g_nxt->g_art == 0 ||
- gp->g_gotcha == 0)) {
- msg(3, 0, "Pattern not matched: \"%s\"\n", gp->g_pat);
- errcnt++;
- }
- }
-}
generated by cgit v1.2.3 (git 2.25.1) at 2024-12-05 01:29:31 +0000