CMake/Utilities/cmtar/wrapper.c

242 lines
4.4 KiB
C

/*
** Copyright 1998-2003 University of Illinois Board of Trustees
** Copyright 1998-2003 Mark D. Roth
** All rights reserved.
**
** wrapper.c - libtar high-level wrapper code
**
** Mark D. Roth <roth@uiuc.edu>
** Campus Information Technologies and Educational Services
** University of Illinois at Urbana-Champaign
*/
#include <libtarint/internal.h>
#include <stdio.h>
#include <stdlib.h>
#include <libtar/compat.h>
#if defined(HAVE_SYS_PARAM_H)
# include <sys/param.h>
#endif
#if defined(HAVE_DIRENT_H)
#include <dirent.h>
#else
#include <libtarint/filesystem.h>
#endif
#include <errno.h>
#ifdef HAVE_FNMATCH_H
#include <fnmatch.h>
#endif
#ifdef STDC_HEADERS
# include <string.h>
#endif
int
tar_extract_glob(TAR *t, char *globname, char *prefix)
{
char *filename;
char buf[TAR_MAXPATHLEN];
int i;
char *pathname;
while ((i = th_read(t)) == 0)
{
pathname = th_get_pathname(t);
filename = pathname;
if (fnmatch(globname, filename, FNM_PATHNAME | FNM_PERIOD))
{
if (pathname)
{
free(pathname);
}
if (TH_ISREG(t) && tar_skip_regfile(t))
return -1;
continue;
}
if (t->options & TAR_VERBOSE)
th_print_long_ls(t);
if (prefix != NULL)
snprintf(buf, sizeof(buf), "%s/%s", prefix, filename);
else
strlcpy(buf, filename, sizeof(buf));
if (tar_extract_file(t, filename) != 0)
{
if (pathname)
{
free(pathname);
}
return -1;
}
if (pathname)
{
free(pathname);
}
}
return (i == 1 ? 0 : -1);
}
int
tar_extract_all(TAR *t, char *prefix)
{
char *filename;
char buf[TAR_MAXPATHLEN];
int i;
char *pathname;
#ifdef DEBUG
printf("==> tar_extract_all(TAR *t, \"%s\")\n",
(prefix ? prefix : "(null)"));
#endif
while ((i = th_read(t)) == 0)
{
#ifdef DEBUG
puts(" tar_extract_all(): calling th_get_pathname()");
#endif
pathname = th_get_pathname(t);
filename = pathname;
if (t->options & TAR_VERBOSE)
th_print_long_ls(t);
if (prefix != NULL)
snprintf(buf, sizeof(buf), "%s/%s", prefix, filename);
else
strlcpy(buf, filename, sizeof(buf));
if (pathname)
{
free(pathname);
}
#ifdef DEBUG
printf(" tar_extract_all(): calling tar_extract_file(t, "
"\"%s\")\n", buf);
#endif
if (tar_extract_file(t, buf) != 0)
return -1;
}
return (i == 1 ? 0 : -1);
}
int
tar_append_tree(TAR *t, char *realdir, char *savedir)
{
char realpath[TAR_MAXPATHLEN];
char savepath[TAR_MAXPATHLEN];
size_t plen;
#if defined(HAVE_DIRENT_H)
struct dirent *dent;
DIR *dp;
#else
kwDirEntry * dent;
kwDirectory *dp;
#endif
struct stat s;
strncpy(realpath, realdir, sizeof(realpath));
realpath[sizeof(realpath)-1] = 0;
plen = strlen(realpath);
if ( realpath[plen-1] == '/' )
{
realpath[plen-1] = 0;
}
#ifdef DEBUG
printf("==> tar_append_tree(0x%lx, \"%s\", \"%s\")\n",
t, realdir, (savedir ? savedir : "[NULL]"));
#endif
if (tar_append_file(t, realdir, savedir) != 0)
return -1;
#ifdef DEBUG
puts(" tar_append_tree(): done with tar_append_file()...");
#endif
if ( stat(realpath, &s) != 0 )
{
return -1;
}
if (
#if defined(_WIN32) && !defined(__CYGWIN__)
(s.st_mode & _S_IFDIR) == 0
#else
!S_ISDIR(s.st_mode)
#endif
)
return 0;
#if defined(HAVE_DIRENT_H)
dp = opendir(realdir);
#else
dp = kwOpenDir(realdir);
#endif
if (dp == NULL)
{
if (errno == ENOTDIR)
return 0;
return -1;
}
#if defined(HAVE_DIRENT_H)
while ((dent = readdir(dp)) != NULL)
#else
while ((dent = kwReadDir(dp)) != NULL)
#endif
{
if (strcmp(dent->d_name, ".") == 0 ||
strcmp(dent->d_name, "..") == 0)
continue;
snprintf(realpath, TAR_MAXPATHLEN, "%s/%s", realdir,
dent->d_name);
if (savedir)
snprintf(savepath, TAR_MAXPATHLEN, "%s/%s", savedir,
dent->d_name);
#ifndef WIN32
if (lstat(realpath, &s) != 0)
return -1;
#else
if (stat(realpath, &s) != 0)
return -1;
#endif
if (S_ISDIR(s.st_mode))
{
if (tar_append_tree(t, realpath,
(savedir ? savepath : NULL)) != 0)
return -1;
continue;
}
if (tar_append_file(t, realpath,
(savedir ? savepath : NULL)) != 0)
return -1;
}
#if defined(HAVE_DIRENT_H)
closedir(dp);
#else
kwCloseDir(dp);
#endif
return 0;
}