tor-browser

pathsub.c (5404B)

---

/* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/. */

/*
** Pathname subroutines.
*/
#if defined(FREEBSD) || defined(BSDI) || defined(DARWIN)
#include <sys/types.h>
#endif /* FREEBSD */
#include <dirent.h>
#include <errno.h>
#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "pathsub.h"
#ifdef USE_REENTRANT_LIBC
#include "libc_r.h"
#endif /* USE_REENTRANT_LIBC */

char *program;

void
fail(char *format, ...)
{
   int error;
   va_list ap;

#ifdef USE_REENTRANT_LIBC
   R_STRERROR_INIT_R();
#endif

   error = errno;
   fprintf(stderr, "%s: ", program);
   va_start(ap, format);
   vfprintf(stderr, format, ap);
   va_end(ap);
   if (error) {

#ifdef USE_REENTRANT_LIBC
   R_STRERROR_R(errno);
fprintf(stderr, ": %s", r_strerror_r);
#else
fprintf(stderr, ": %s", strerror(errno));
#endif
   }

   putc('\n', stderr);
   abort();
   exit(1);
}

char *
getcomponent(char *path, char *name)
{
   if (*path == '\0')
return 0;
   if (*path == '/') {
*name++ = '/';
   } else {
do {
    *name++ = *path++;
} while (*path != '/' && *path != '\0');
   }
   *name = '\0';
   while (*path == '/')
path++;
   return path;
}

/* APPARENT BUG - ignores argument "dir", uses ".." instead. */
char *
ino2name(ino_t ino, char *dir)
{
   DIR *dp;
   struct dirent *ep;
   char *name;

   dp = opendir("..");		/* XXX */
   if (!dp)
fail("cannot read parent directory");
   for (;;) {
if (!(ep = readdir(dp)))
    fail("cannot find current directory");
if (ep->d_ino == ino)
    break;
   }
   name = xstrdup(ep->d_name);
   closedir(dp);
   return name;
}

void *
xmalloc(size_t size)
{
   void *p;

   if (size <= 0)
fail("attempted to allocate %u bytes", size);
   p = malloc(size);
   if (!p)
fail("cannot allocate %u bytes", size);
   return p;
}

char *
xstrdup(char *s)
{
   if (!s || !s[0])
fail("Null pointer or empty string passed to xstrdup()");
   return strcpy((char*)xmalloc(strlen(s) + 1), s);
}

char *
xbasename(char *path)
{
   char *cp;

   if (!path || !path[0])
fail("Null pointer or empty string passed to xbasename()");
   while ((cp = strrchr(path, '/')) && cp[1] == '\0')
*cp = '\0';
   if (!cp) return path;
   return cp + 1;
}

void
xchdir(char *dir)
{
   if (!dir || !dir[0])
fail("Null pointer or empty string passed to xchdir()");
   if (chdir(dir) < 0)
fail("cannot change directory to %s", dir);
}

int
relatepaths(char *from, char *to, char *outpath)
{
   char *cp, *cp2;
   int len;
   char buf[NAME_MAX];

   if (!from || *from != '/')
fail("relatepaths: from path does not start with /");
   if (!to || *to != '/')
fail("relatepaths: to   path does not start with /");

   for (cp = to, cp2 = from; *cp == *cp2; cp++, cp2++)
if (*cp == '\0')
    break;
   while (cp[-1] != '/')
cp--, cp2--;
   if (cp - 1 == to) {
/* closest common ancestor is /, so use full pathname */
len = strlen(strcpy(outpath, to));
if (outpath[len] != '/') {
    outpath[len++] = '/';
    outpath[len] = '\0';
}
   } else {
len = 0;
while ((cp2 = getcomponent(cp2, buf)) != 0) {
    strcpy(outpath + len, "../");
    len += 3;
}
while ((cp = getcomponent(cp, buf)) != 0) {
    snprintf(outpath + len, PATH_MAX - len, "%s/", buf);
    len += strlen(outpath + len);
}
   }
   return len;
}

void
reversepath(char *inpath, char *name, int len, char *outpath)
{
   char *cp, *cp2;
   char buf[NAME_MAX];
   struct stat sb;

   cp = strcpy(outpath + PATH_MAX - (len + 1), name);
   cp2 = inpath;
   while ((cp2 = getcomponent(cp2, buf)) != 0) {
if (strcmp(buf, ".") == 0)
    continue;
if (strcmp(buf, "..") == 0) {
    if (stat(".", &sb) < 0)
	fail("cannot stat current directory");
    name = ino2name(sb.st_ino, "..");
    len = strlen(name);
    cp -= len + 1;
    strcpy(cp, name);
    cp[len] = '/';
    free(name);
    xchdir("..");
} else {
    cp -= 3;
    memcpy(cp, "../", 3);
    xchdir(buf);
}
   }
   strcpy(outpath, cp);
}

void
diagnosePath(const char * path)
{
   char *	myPath;
   char *      slash;
   int		rv;
   struct stat sb;
   char 	buf[BUFSIZ];

   if (!path || !path[0])
fail("Null pointer or empty string passed to mkdirs()");
   myPath = strdup(path);
   if (!myPath)
fail("strdup() failed!");
   do {
   	rv = lstat(myPath, &sb);
if (rv < 0) {
    perror(myPath);
} else if (S_ISLNK(sb.st_mode)) {
    rv = readlink(myPath, buf, sizeof(buf) - 1);
    if (rv < 0) {
    	perror("readlink");
	buf[0] = 0;
    } else {
    	buf[rv] = 0;
    }
    fprintf(stderr, "%s is a link to %s\n", myPath, buf);
} else if (S_ISDIR(sb.st_mode)) {
    fprintf(stderr, "%s is a directory\n", myPath);
    rv = access(myPath, X_OK);
    if (rv < 0) {
    	fprintf(stderr, "%s: no search permission\n", myPath);
    }
} else {
    fprintf(stderr, "%s is a file !?!\n", myPath);
    rv = access(myPath, F_OK);
    if (rv < 0) {
    	fprintf(stderr, "%s does not exist\n", myPath);
    }
}

/* chop path off one level. */
slash = strrchr(myPath, '/');
if (!slash)
    slash = strrchr(myPath, '\\');
if (!slash)
    slash = myPath;
*slash = 0;
   } while (myPath[0]);
   free(myPath);
}