aboutsummaryrefslogtreecommitdiff
path: root/contrib/tcsh/sh.dir.c
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/tcsh/sh.dir.c')
-rw-r--r--contrib/tcsh/sh.dir.c1381
1 files changed, 0 insertions, 1381 deletions
diff --git a/contrib/tcsh/sh.dir.c b/contrib/tcsh/sh.dir.c
deleted file mode 100644
index d6e90ed66cff..000000000000
--- a/contrib/tcsh/sh.dir.c
+++ /dev/null
@@ -1,1381 +0,0 @@
-/* $Header: /src/pub/tcsh/sh.dir.c,v 3.52 1998/10/25 15:10:03 christos Exp $ */
-/*
- * sh.dir.c: Directory manipulation functions
- */
-/*-
- * Copyright (c) 1980, 1991 The Regents of the University of California.
- * All rights reserved.
- *
- * Redistribution and use in source and binary forms, with or without
- * modification, are permitted provided that the following conditions
- * are met:
- * 1. Redistributions of source code must retain the above copyright
- * notice, this list of conditions and the following disclaimer.
- * 2. Redistributions in binary form must reproduce the above copyright
- * notice, this list of conditions and the following disclaimer in the
- * documentation and/or other materials provided with the distribution.
- * 3. All advertising materials mentioning features or use of this software
- * must display the following acknowledgement:
- * This product includes software developed by the University of
- * California, Berkeley and its contributors.
- * 4. Neither the name of the University nor the names of its contributors
- * may be used to endorse or promote products derived from this software
- * without specific prior written permission.
- *
- * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
- * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
- * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- * SUCH DAMAGE.
- */
-#include "sh.h"
-
-RCSID("$Id: sh.dir.c,v 3.52 1998/10/25 15:10:03 christos Exp $")
-
-/*
- * C Shell - directory management
- */
-
-static void dstart __P((const char *));
-static struct directory *dfind __P((Char *));
-static Char *dfollow __P((Char *));
-static void printdirs __P((int));
-static Char *dgoto __P((Char *));
-static void dnewcwd __P((struct directory *, int));
-static void dset __P((Char *));
-static void dextract __P((struct directory *));
-static int skipargs __P((Char ***, char *, char *));
-static void dgetstack __P((void));
-
-static struct directory dhead INIT_ZERO_STRUCT; /* "head" of loop */
-static int printd; /* force name to be printed */
-
-int bequiet = 0; /* do not print dir stack -strike */
-
-static void
-dstart(from)
- const char *from;
-{
- xprintf(CGETS(12, 1, "%s: Trying to start from \"%s\"\n"), progname, from);
-}
-
-/*
- * dinit - initialize current working directory
- */
-void
-dinit(hp)
- Char *hp;
-{
- register char *tcp;
- register Char *cp;
- register struct directory *dp;
- char path[MAXPATHLEN];
-
- /* Don't believe the login shell home, because it may be a symlink */
- tcp = (char *) getcwd(path, sizeof(path));
- if (tcp == NULL || *tcp == '\0') {
- xprintf("%s: %s\n", progname, strerror(errno));
- if (hp && *hp) {
- tcp = short2str(hp);
- dstart(tcp);
- if (chdir(tcp) == -1)
- cp = NULL;
- else
- cp = Strsave(hp);
- }
- else
- cp = NULL;
- if (cp == NULL) {
- dstart("/");
- if (chdir("/") == -1)
- /* I am not even try to print an error message! */
- xexit(1);
- cp = SAVE("/");
- }
- }
- else {
-#ifdef S_IFLNK
- struct stat swd, shp;
-
- /*
- * See if $HOME is the working directory we got and use that
- */
- if (hp && *hp &&
- stat(tcp, &swd) != -1 && stat(short2str(hp), &shp) != -1 &&
- DEV_DEV_COMPARE(swd.st_dev, shp.st_dev) &&
- swd.st_ino == shp.st_ino)
- cp = Strsave(hp);
- else {
- char *cwd;
-
- /*
- * use PWD if we have it (for subshells)
- */
- if ((cwd = getenv("PWD")) != NULL) {
- if (stat(cwd, &shp) != -1 &&
- DEV_DEV_COMPARE(swd.st_dev, shp.st_dev) &&
- swd.st_ino == shp.st_ino)
- tcp = cwd;
- }
- cp = dcanon(SAVE(tcp), STRNULL);
- }
-#else /* S_IFLNK */
- cp = dcanon(SAVE(tcp), STRNULL);
-#endif /* S_IFLNK */
- }
-
- dp = (struct directory *) xcalloc(sizeof(struct directory), 1);
- dp->di_name = cp;
- dp->di_count = 0;
- dhead.di_next = dhead.di_prev = dp;
- dp->di_next = dp->di_prev = &dhead;
- printd = 0;
- dnewcwd(dp, 0);
- set(STRdirstack, Strsave(dp->di_name), VAR_READWRITE|VAR_NOGLOB);
-}
-
-static void
-dset(dp)
-Char *dp;
-{
- /*
- * Don't call set() directly cause if the directory contains ` or
- * other junk characters glob will fail.
- */
- set(STRowd, Strsave(varval(STRcwd)), VAR_READWRITE|VAR_NOGLOB);
- set(STRcwd, Strsave(dp), VAR_READWRITE|VAR_NOGLOB);
-
- tsetenv(STRPWD, dp);
-}
-
-#define DIR_PRINT 0x01 /* -p */
-#define DIR_LONG 0x02 /* -l */
-#define DIR_VERT 0x04 /* -v */
-#define DIR_LINE 0x08 /* -n */
-#define DIR_SAVE 0x10 /* -S */
-#define DIR_LOAD 0x20 /* -L */
-#define DIR_CLEAR 0x40 /* -c */
-#define DIR_OLD 0x80 /* - */
-
-static int
-skipargs(v, dstr, str)
- Char ***v;
- char *dstr;
- char *str;
-{
- Char **n = *v, *s;
-
- int dflag = 0, loop = 1;
- for (n++; loop && *n != NULL && (*n)[0] == '-'; n++)
- if (*(s = &((*n)[1])) == '\0') /* test for bare "-" argument */
- dflag |= DIR_OLD;
- else {
- char *p;
- while (loop && *s != '\0') /* examine flags */
- {
- if ((p = strchr(dstr, *s++)) != NULL)
- dflag |= (1 << (p - dstr));
- else {
- stderror(ERR_DIRUS, short2str(**v), dstr, str);
- loop = 0; /* break from both loops */
- break;
- }
- }
- }
- if (*n && (dflag & DIR_OLD))
- stderror(ERR_DIRUS, short2str(**v), dstr, str);
- *v = n;
- /* make -l, -v, and -n imply -p */
- if (dflag & (DIR_LONG|DIR_VERT|DIR_LINE))
- dflag |= DIR_PRINT;
- return dflag;
-}
-
-/*
- * dodirs - list all directories in directory loop
- */
-/*ARGSUSED*/
-void
-dodirs(v, c)
- Char **v;
- struct command *c;
-{
- static char flags[] = "plvnSLc";
- int dflag = skipargs(&v, flags, "");
-
- USE(c);
- if ((dflag & DIR_CLEAR) != 0) {
- struct directory *dp, *fdp;
- for (dp = dcwd->di_next; dp != dcwd; ) {
- fdp = dp;
- dp = dp->di_next;
- if (fdp != &dhead)
- dfree(fdp);
- }
- dhead.di_next = dhead.di_prev = dp;
- dp->di_next = dp->di_prev = &dhead;
- }
- if ((dflag & DIR_LOAD) != 0)
- loaddirs(*v);
- else if ((dflag & DIR_SAVE) != 0)
- recdirs(*v, 1);
-
- if (*v && (dflag & (DIR_SAVE|DIR_LOAD)))
- v++;
-
- if (*v != NULL || (dflag & DIR_OLD))
- stderror(ERR_DIRUS, "dirs", flags, "");
- if ((dflag & (DIR_CLEAR|DIR_LOAD|DIR_SAVE)) == 0 || (dflag & DIR_PRINT))
- printdirs(dflag);
-}
-
-static void
-printdirs(dflag)
- int dflag;
-{
- register struct directory *dp;
- Char *s, *user;
- int idx, len, cur;
- extern int T_Cols;
-
- dp = dcwd;
- idx = 0;
- cur = 0;
- do {
- if (dp == &dhead)
- continue;
- if (dflag & DIR_VERT) {
- xprintf("%d\t", idx++);
- cur = 0;
- }
- s = dp->di_name;
- user = NULL;
- if (!(dflag & DIR_LONG) && (user = getusername(&s)) != NULL)
- len = (int) (Strlen(user) + Strlen(s) + 2);
- else
- len = (int) (Strlen(s) + 1);
-
- cur += len;
- if ((dflag & DIR_LINE) && cur >= T_Cols - 1 && len < T_Cols) {
- xputchar('\n');
- cur = len;
- }
- if (user)
- xprintf("~%S", user);
- xprintf("%S%c", s, (dflag & DIR_VERT) ? '\n' : ' ');
- } while ((dp = dp->di_prev) != dcwd);
- if (!(dflag & DIR_VERT))
- xputchar('\n');
-}
-
-void
-dtildepr(dir)
- Char *dir;
-{
- Char* user;
- if ((user = getusername(&dir)) != NULL)
- xprintf("~%S%S", user, dir);
- else
- xprintf("%S", dir);
-}
-
-void
-dtilde()
-{
- struct directory *d = dcwd;
-
- do {
- if (d == &dhead)
- continue;
- d->di_name = dcanon(d->di_name, STRNULL);
- } while ((d = d->di_prev) != dcwd);
-
- dset(dcwd->di_name);
-}
-
-
-/* dnormalize():
- * The path will be normalized if it
- * 1) is "..",
- * 2) or starts with "../",
- * 3) or ends with "/..",
- * 4) or contains the string "/../",
- * then it will be normalized, unless those strings are quoted.
- * Otherwise, a copy is made and sent back.
- */
-Char *
-dnormalize(cp, exp)
- Char *cp;
- int exp;
-{
-
-/* return true if dp is of the form "../xxx" or "/../xxx" */
-#define IS_DOTDOT(sp, p) (ISDOTDOT(p) && ((p) == (sp) || *((p) - 1) == '/'))
-#define IS_DOT(sp, p) (ISDOT(p) && ((p) == (sp) || *((p) - 1) == '/'))
-
-#ifdef S_IFLNK
- if (exp) {
- int dotdot = 0;
- Char *dp, *cwd, *start = cp, buf[MAXPATHLEN];
-# ifdef apollo
- bool slashslash;
-# endif /* apollo */
-
- /*
- * count the number of "../xxx" or "xxx/../xxx" in the path
- */
- for (dp=start; *dp && *(dp+1); dp++)
- if (IS_DOTDOT(start, dp))
- dotdot++;
- /*
- * if none, we are done.
- */
- if (dotdot == 0)
- return (Strsave(cp));
-
- cwd = (Char *) xmalloc((size_t) (((int) Strlen(dcwd->di_name) + 3) *
- sizeof(Char)));
- (void) Strcpy(cwd, dcwd->di_name);
-
- /*
- * If the path starts with a slash, we are not relative to
- * the current working directory.
- */
- if (ABSOLUTEP(start))
- *cwd = '\0';
-# ifdef apollo
- slashslash = cwd[0] == '/' && cwd[1] == '/';
-# endif /* apollo */
-
- /*
- * Ignore . and count ..'s
- */
- for (;;) {
- dotdot = 0;
- buf[0] = '\0';
- dp = buf;
- while (*cp)
- if (IS_DOT(start, cp)) {
- if (*++cp)
- cp++;
- }
- else if (IS_DOTDOT(start, cp)) {
- if (buf[0])
- break; /* finish analyzing .././../xxx/[..] */
- dotdot++;
- cp += 2;
- if (*cp)
- cp++;
- }
- else
- *dp++ = *cp++;
-
- *dp = '\0';
- while (dotdot > 0)
- if ((dp = Strrchr(cwd, '/')) != NULL) {
-# ifdef apollo
- if (dp == &cwd[1])
- slashslash = 1;
-# endif /* apollo */
- *dp = '\0';
- dotdot--;
- }
- else
- break;
-
- if (!*cwd) { /* too many ..'s, starts with "/" */
- cwd[0] = '/';
-# ifdef apollo
- cwd[1] = '/';
- cwd[2] = '\0';
-# else /* !apollo */
- cwd[1] = '\0';
-# endif /* apollo */
- }
-# ifdef apollo
- else if (slashslash && cwd[1] == '\0') {
- cwd[1] = '/';
- cwd[2] = '\0';
- }
-# endif /* apollo */
-
- if (buf[0]) {
- if ((TRM(cwd[(dotdot = (int) Strlen(cwd)) - 1])) != '/')
- cwd[dotdot++] = '/';
- cwd[dotdot] = '\0';
- dp = Strspl(cwd, TRM(buf[0]) == '/' ? &buf[1] : buf);
- xfree((ptr_t) cwd);
- cwd = dp;
- if ((TRM(cwd[(dotdot = (int) Strlen(cwd)) - 1])) == '/')
- cwd[--dotdot] = '\0';
- }
- if (!*cp)
- break;
- }
- return cwd;
- }
-#endif /* S_IFLNK */
- return Strsave(cp);
-}
-
-
-/*
- * dochngd - implement chdir command.
- */
-/*ARGSUSED*/
-void
-dochngd(v, c)
- Char **v;
- struct command *c;
-{
- register Char *cp;
- register struct directory *dp;
- int dflag = skipargs(&v, "plvn", "[-|<dir>]");
-
- USE(c);
- printd = 0;
- cp = (dflag & DIR_OLD) ? varval(STRowd) : *v;
-
- if (cp == NULL) {
- if ((cp = varval(STRhome)) == STRNULL || *cp == 0)
- stderror(ERR_NAME | ERR_NOHOMEDIR);
- if (chdir(short2str(cp)) < 0)
- stderror(ERR_NAME | ERR_CANTCHANGE);
- cp = Strsave(cp);
- }
- else if ((dflag & DIR_OLD) == 0 && v[1] != NULL) {
- stderror(ERR_NAME | ERR_TOOMANY);
- /* NOTREACHED */
- return;
- }
- else if ((dp = dfind(cp)) != 0) {
- char *tmp;
-
- printd = 1;
- if (chdir(tmp = short2str(dp->di_name)) < 0)
- stderror(ERR_SYSTEM, tmp, strerror(errno));
- dcwd->di_prev->di_next = dcwd->di_next;
- dcwd->di_next->di_prev = dcwd->di_prev;
- dfree(dcwd);
- dnewcwd(dp, dflag);
- return;
- }
- else
- if ((cp = dfollow(cp)) == NULL)
- return;
- dp = (struct directory *) xcalloc(sizeof(struct directory), 1);
- dp->di_name = cp;
- dp->di_count = 0;
- dp->di_next = dcwd->di_next;
- dp->di_prev = dcwd->di_prev;
- dp->di_prev->di_next = dp;
- dp->di_next->di_prev = dp;
- dfree(dcwd);
- dnewcwd(dp, dflag);
-}
-
-static Char *
-dgoto(cp)
- Char *cp;
-{
- Char *dp;
-
- if (!ABSOLUTEP(cp))
- {
- register Char *p, *q;
- int cwdlen;
-
- for (p = dcwd->di_name; *p++;)
- continue;
- if ((cwdlen = (int) (p - dcwd->di_name - 1)) == 1) /* root */
- cwdlen = 0;
- for (p = cp; *p++;)
- continue;
- dp = (Char *) xmalloc((size_t)((cwdlen + (p - cp) + 1) * sizeof(Char)));
- for (p = dp, q = dcwd->di_name; (*p++ = *q++) != '\0';)
- continue;
- if (cwdlen)
- p[-1] = '/';
- else
- p--; /* don't add a / after root */
- for (q = cp; (*p++ = *q++) != '\0';)
- continue;
- xfree((ptr_t) cp);
- cp = dp;
- dp += cwdlen;
- }
- else
- dp = cp;
-
-#ifdef WINNT
- cp = SAVE(getcwd(NULL, 0));
-#else /* !WINNT */
- cp = dcanon(cp, dp);
-#endif /* WINNT */
- return cp;
-}
-
-/*
- * dfollow - change to arg directory; fall back on cdpath if not valid
- */
-static Char *
-dfollow(cp)
- register Char *cp;
-{
- register Char *dp;
- struct varent *c;
- char ebuf[MAXPATHLEN];
- int serrno;
-
- cp = globone(cp, G_ERROR);
-#ifdef apollo
- if (Strchr(cp, '`')) {
- char *dptr, *ptr;
- if (chdir(dptr = short2str(cp)) < 0)
- stderror(ERR_SYSTEM, dptr, strerror(errno));
- else if ((ptr = getcwd(ebuf, sizeof(ebuf))) && *ptr != '\0') {
- xfree((ptr_t) cp);
- cp = Strsave(str2short(ptr));
- return dgoto(cp);
- }
- else
- stderror(ERR_SYSTEM, dptr, ebuf);
- }
-#endif /* apollo */
-
- (void) strncpy(ebuf, short2str(cp), MAXPATHLEN);
- ebuf[MAXPATHLEN-1] = '\0';
- /*
- * if we are ignoring symlinks, try to fix relatives now.
- * if we are expading symlinks, it should be done by now.
- */
- dp = dnormalize(cp, symlinks == SYM_IGNORE);
- if (chdir(short2str(dp)) >= 0) {
- xfree((ptr_t) cp);
- return dgoto(dp);
- }
- else {
- xfree((ptr_t) dp);
- if (chdir(short2str(cp)) >= 0)
- return dgoto(cp);
- else if (errno != ENOENT && errno != ENOTDIR)
- stderror(ERR_SYSTEM, ebuf, strerror(errno));
- serrno = errno;
- }
-
- if (cp[0] != '/' && !prefix(STRdotsl, cp) && !prefix(STRdotdotsl, cp)
- && (c = adrof(STRcdpath))) {
- Char **cdp;
- register Char *p;
- Char buf[MAXPATHLEN];
-
- for (cdp = c->vec; *cdp; cdp++) {
- for (dp = buf, p = *cdp; (*dp++ = *p++) != '\0';)
- continue;
- dp[-1] = '/';
- for (p = cp; (*dp++ = *p++) != '\0';)
- continue;
- /*
- * We always want to fix the directory here
- * If we are normalizing symlinks
- */
- dp = dnormalize(buf, symlinks == SYM_IGNORE ||
- symlinks == SYM_EXPAND);
- if (chdir(short2str(dp)) >= 0) {
- printd = 1;
- xfree((ptr_t) cp);
- return dgoto(dp);
- }
- else if (chdir(short2str(cp)) >= 0) {
- printd = 1;
- xfree((ptr_t) dp);
- return dgoto(cp);
- }
- }
- }
- dp = varval(cp);
- if ((dp[0] == '/' || dp[0] == '.') && chdir(short2str(dp)) >= 0) {
- xfree((ptr_t) cp);
- cp = Strsave(dp);
- printd = 1;
- return dgoto(cp);
- }
- xfree((ptr_t) cp);
- /*
- * on login source of ~/.cshdirs, errors are eaten. the dir stack is all
- * directories we could get to.
- */
- if (!bequiet) {
- stderror(ERR_SYSTEM, ebuf, strerror(serrno));
- return (NULL);
- }
- else
- return (NULL);
-}
-
-
-/*
- * dopushd - push new directory onto directory stack.
- * with no arguments exchange top and second.
- * with numeric argument (+n) bring it to top.
- */
-/*ARGSUSED*/
-void
-dopushd(v, c)
- Char **v;
- struct command *c;
-{
- register struct directory *dp;
- register Char *cp;
- int dflag = skipargs(&v, "plvn", " [-|<dir>|+<n>]");
-
- USE(c);
- printd = 1;
- cp = (dflag & DIR_OLD) ? varval(STRowd) : *v;
-
- if (cp == NULL) {
- if (adrof(STRpushdtohome)) {
- if ((cp = varval(STRhome)) == STRNULL || *cp == 0)
- stderror(ERR_NAME | ERR_NOHOMEDIR);
- if (chdir(short2str(cp)) < 0)
- stderror(ERR_NAME | ERR_CANTCHANGE);
- cp = Strsave(cp); /* hmmm... PWP */
- if ((cp = dfollow(cp)) == NULL)
- return;
- dp = (struct directory *) xcalloc(sizeof(struct directory), 1);
- dp->di_name = cp;
- dp->di_count = 0;
- dp->di_prev = dcwd;
- dp->di_next = dcwd->di_next;
- dcwd->di_next = dp;
- dp->di_next->di_prev = dp;
- }
- else {
- char *tmp;
-
- if ((dp = dcwd->di_prev) == &dhead)
- dp = dhead.di_prev;
- if (dp == dcwd)
- stderror(ERR_NAME | ERR_NODIR);
- if (chdir(tmp = short2str(dp->di_name)) < 0)
- stderror(ERR_SYSTEM, tmp, strerror(errno));
- dp->di_prev->di_next = dp->di_next;
- dp->di_next->di_prev = dp->di_prev;
- dp->di_next = dcwd->di_next;
- dp->di_prev = dcwd;
- dcwd->di_next->di_prev = dp;
- dcwd->di_next = dp;
- }
- }
- else if ((dflag & DIR_OLD) == 0 && v[1] != NULL) {
- stderror(ERR_NAME | ERR_TOOMANY);
- /* NOTREACHED */
- return;
- }
- else if ((dp = dfind(cp)) != NULL) {
- char *tmp;
-
- if (chdir(tmp = short2str(dp->di_name)) < 0)
- stderror(ERR_SYSTEM, tmp, strerror(errno));
- /*
- * kfk - 10 Feb 1984 - added new "extraction style" pushd +n
- */
- if (adrof(STRdextract))
- dextract(dp);
- }
- else {
- register Char *ccp;
-
- if ((ccp = dfollow(cp)) == NULL)
- return;
- dp = (struct directory *) xcalloc(sizeof(struct directory), 1);
- dp->di_name = ccp;
- dp->di_count = 0;
- dp->di_prev = dcwd;
- dp->di_next = dcwd->di_next;
- dcwd->di_next = dp;
- dp->di_next->di_prev = dp;
- }
- dnewcwd(dp, dflag);
-}
-
-/*
- * dfind - find a directory if specified by numeric (+n) argument
- */
-static struct directory *
-dfind(cp)
- register Char *cp;
-{
- register struct directory *dp;
- register int i;
- register Char *ep;
-
- if (*cp++ != '+')
- return (0);
- for (ep = cp; Isdigit(*ep); ep++)
- continue;
- if (*ep)
- return (0);
- i = getn(cp);
- if (i <= 0)
- return (0);
- for (dp = dcwd; i != 0; i--) {
- if ((dp = dp->di_prev) == &dhead)
- dp = dp->di_prev;
- if (dp == dcwd)
- stderror(ERR_NAME | ERR_DEEP);
- }
- return (dp);
-}
-
-/*
- * dopopd - pop a directory out of the directory stack
- * with a numeric argument just discard it.
- */
-/*ARGSUSED*/
-void
-dopopd(v, c)
- Char **v;
- struct command *c;
-{
- Char *cp;
- register struct directory *dp, *p = NULL;
- int dflag = skipargs(&v, "plvn", " [-|+<n>]");
-
- USE(c);
- printd = 1;
- cp = (dflag & DIR_OLD) ? varval(STRowd) : *v;
-
- if (cp == NULL)
- dp = dcwd;
- else if ((dflag & DIR_OLD) == 0 && v[1] != NULL) {
- stderror(ERR_NAME | ERR_TOOMANY);
- /* NOTREACHED */
- return;
- }
- else if ((dp = dfind(cp)) == 0)
- stderror(ERR_NAME | ERR_BADDIR);
- if (dp->di_prev == &dhead && dp->di_next == &dhead)
- stderror(ERR_NAME | ERR_EMPTY);
- if (dp == dcwd) {
- char *tmp;
-
- if ((p = dp->di_prev) == &dhead)
- p = dhead.di_prev;
- if (chdir(tmp = short2str(p->di_name)) < 0)
- stderror(ERR_SYSTEM, tmp, strerror(errno));
- }
- dp->di_prev->di_next = dp->di_next;
- dp->di_next->di_prev = dp->di_prev;
- if (dp == dcwd) {
- dnewcwd(p, dflag);
- }
- else {
- printdirs(dflag);
- }
- dfree(dp);
-}
-
-/*
- * dfree - free the directory (or keep it if it still has ref count)
- */
-void
-dfree(dp)
- register struct directory *dp;
-{
-
- if (dp->di_count != 0) {
- dp->di_next = dp->di_prev = 0;
- }
- else {
- xfree((ptr_t) dp->di_name);
- xfree((ptr_t) dp);
- }
-}
-
-/*
- * dcanon - canonicalize the pathname, removing excess ./ and ../ etc.
- * we are of course assuming that the file system is standardly
- * constructed (always have ..'s, directories have links)
- */
-Char *
-dcanon(cp, p)
- register Char *cp, *p;
-{
- register Char *sp;
- register Char *p1, *p2; /* general purpose */
- bool slash;
-#ifdef apollo
- bool slashslash;
-#endif /* apollo */
-
-#ifdef S_IFLNK /* if we have symlinks */
- Char link[MAXPATHLEN];
- char tlink[MAXPATHLEN];
- int cc;
- Char *newcp;
-#endif /* S_IFLNK */
-
- /*
- * kim: if the path given is too long abort().
- */
- if (Strlen(cp) >= MAXPATHLEN)
- abort();
-
- /*
- * christos: if the path given does not start with a slash prepend cwd. If
- * cwd does not start with a slash or the result would be too long abort().
- */
- if (!ABSOLUTEP(cp)) {
- Char tmpdir[MAXPATHLEN];
-
- p1 = varval(STRcwd);
- if (p1 == STRNULL || !ABSOLUTEP(p1))
- abort();
- if (Strlen(p1) + Strlen(cp) + 1 >= MAXPATHLEN)
- abort();
- (void) Strcpy(tmpdir, p1);
- (void) Strcat(tmpdir, STRslash);
- (void) Strcat(tmpdir, cp);
- xfree((ptr_t) cp);
- cp = p = Strsave(tmpdir);
- }
-
-#ifdef COMMENT
- if (*cp != '/')
- abort();
-#endif /* COMMENT */
-
-#ifdef apollo
- slashslash = (cp[0] == '/' && cp[1] == '/');
-#endif /* apollo */
-
- while (*p) { /* for each component */
- sp = p; /* save slash address */
- while (*++p == '/') /* flush extra slashes */
- continue;
- if (p != ++sp)
- for (p1 = sp, p2 = p; (*p1++ = *p2++) != '\0';)
- continue;
- p = sp; /* save start of component */
- slash = 0;
- if (*p)
- while (*++p) /* find next slash or end of path */
- if (*p == '/') {
- slash = 1;
- *p = 0;
- break;
- }
-
-#ifdef apollo
- if (&cp[1] == sp && sp[0] == '.' && sp[1] == '.' && sp[2] == '\0')
- slashslash = 1;
-#endif /* apollo */
- if (*sp == '\0') { /* if component is null */
- if (--sp == cp) /* if path is one char (i.e. /) */
- break;
- else
- *sp = '\0';
- }
- else if (sp[0] == '.' && sp[1] == 0) {
- if (slash) {
- for (p1 = sp, p2 = p + 1; (*p1++ = *p2++) != '\0';)
- continue;
- p = --sp;
- }
- else if (--sp != cp)
- *sp = '\0';
- else
- sp[1] = '\0';
- }
- else if (sp[0] == '.' && sp[1] == '.' && sp[2] == 0) {
- /*
- * We have something like "yyy/xxx/..", where "yyy" can be null or
- * a path starting at /, and "xxx" is a single component. Before
- * compressing "xxx/..", we want to expand "yyy/xxx", if it is a
- * symbolic link.
- */
- *--sp = 0; /* form the pathname for readlink */
-#ifdef S_IFLNK /* if we have symlinks */
- if (sp != cp && /* symlinks != SYM_IGNORE && */
- (cc = readlink(short2str(cp), tlink,
- sizeof tlink)) >= 0) {
- tlink[cc] = '\0';
- (void) Strncpy(link, str2short(tlink),
- sizeof(link) / sizeof(Char));
- link[sizeof(link) / sizeof(Char) - 1] = '\0';
-
- if (slash)
- *p = '/';
- /*
- * Point p to the '/' in "/..", and restore the '/'.
- */
- *(p = sp) = '/';
- /*
- * find length of p
- */
- for (p1 = p; *p1++;)
- continue;
- if (*link != '/') {
- /*
- * Relative path, expand it between the "yyy/" and the
- * "/..". First, back sp up to the character past "yyy/".
- */
- while (*--sp != '/')
- continue;
- sp++;
- *sp = 0;
- /*
- * New length is "yyy/" + link + "/.." and rest
- */
- p1 = newcp = (Char *) xmalloc((size_t)
- (((sp - cp) + cc + (p1 - p)) *
- sizeof(Char)));
- /*
- * Copy new path into newcp
- */
- for (p2 = cp; (*p1++ = *p2++) != '\0';)
- continue;
- for (p1--, p2 = link; (*p1++ = *p2++) != '\0';)
- continue;
- for (p1--, p2 = p; (*p1++ = *p2++) != '\0';)
- continue;
- /*
- * Restart canonicalization at expanded "/xxx".
- */
- p = sp - cp - 1 + newcp;
- }
- else {
- /*
- * New length is link + "/.." and rest
- */
- p1 = newcp = (Char *) xmalloc((size_t)
- ((cc + (p1 - p)) * sizeof(Char)));
- /*
- * Copy new path into newcp
- */
- for (p2 = link; (*p1++ = *p2++) != '\0';)
- continue;
- for (p1--, p2 = p; (*p1++ = *p2++) != '\0';)
- continue;
- /*
- * Restart canonicalization at beginning
- */
- p = newcp;
- }
- xfree((ptr_t) cp);
- cp = newcp;
-#ifdef apollo
- slashslash = (cp[0] == '/' && cp[1] == '/');
-#endif /* apollo */
- continue; /* canonicalize the link */
- }
-#endif /* S_IFLNK */
- *sp = '/';
- if (sp != cp)
- while (*--sp != '/')
- continue;
- if (slash) {
- for (p1 = sp + 1, p2 = p + 1; (*p1++ = *p2++) != '\0';)
- continue;
- p = sp;
- }
- else if (cp == sp)
- *++sp = '\0';
- else
- *sp = '\0';
- }
- else { /* normal dir name (not . or .. or nothing) */
-
-#ifdef S_IFLNK /* if we have symlinks */
- if (sp != cp && symlinks == SYM_CHASE &&
- (cc = readlink(short2str(cp), tlink,
- sizeof tlink)) >= 0) {
- tlink[cc] = '\0';
- (void) Strncpy(link, str2short(tlink),
- sizeof(link) / sizeof(Char));
- link[sizeof(link) / sizeof(Char) - 1] = '\0';
-
- /*
- * restore the '/'.
- */
- if (slash)
- *p = '/';
-
- /*
- * point sp to p (rather than backing up).
- */
- sp = p;
-
- /*
- * find length of p
- */
- for (p1 = p; *p1++;)
- continue;
- if (*link != '/') {
- /*
- * Relative path, expand it between the "yyy/" and the
- * remainder. First, back sp up to the character past
- * "yyy/".
- */
- while (*--sp != '/')
- continue;
- sp++;
- *sp = 0;
- /*
- * New length is "yyy/" + link + "/.." and rest
- */
- p1 = newcp = (Char *) xmalloc((size_t)
- (((sp - cp) + cc + (p1 - p))
- * sizeof(Char)));
- /*
- * Copy new path into newcp
- */
- for (p2 = cp; (*p1++ = *p2++) != '\0';)
- continue;
- for (p1--, p2 = link; (*p1++ = *p2++) != '\0';)
- continue;
- for (p1--, p2 = p; (*p1++ = *p2++) != '\0';)
- continue;
- /*
- * Restart canonicalization at expanded "/xxx".
- */
- p = sp - cp - 1 + newcp;
- }
- else {
- /*
- * New length is link + the rest
- */
- p1 = newcp = (Char *) xmalloc((size_t)
- ((cc + (p1 - p)) * sizeof(Char)));
- /*
- * Copy new path into newcp
- */
- for (p2 = link; (*p1++ = *p2++) != '\0';)
- continue;
- for (p1--, p2 = p; (*p1++ = *p2++) != '\0';)
- continue;
- /*
- * Restart canonicalization at beginning
- */
- p = newcp;
- }
- xfree((ptr_t) cp);
- cp = newcp;
-#ifdef apollo
- slashslash = (cp[0] == '/' && cp[1] == '/');
-#endif /* apollo */
- continue; /* canonicalize the link */
- }
-#endif /* S_IFLNK */
- if (slash)
- *p = '/';
- }
- }
-
- /*
- * fix home...
- */
-#ifdef S_IFLNK
- p1 = varval(STRhome);
- cc = (int) Strlen(p1);
- /*
- * See if we're not in a subdir of STRhome
- */
- if (p1 && *p1 == '/' && (Strncmp(p1, cp, (size_t) cc) != 0 ||
- (cp[cc] != '/' && cp[cc] != '\0'))) {
- static ino_t home_ino = (ino_t) -1;
- static dev_t home_dev = (dev_t) -1;
- static Char *home_ptr = NULL;
- struct stat statbuf;
- int found;
-
- /*
- * Get dev and ino of STRhome
- */
- if (home_ptr != p1 &&
- stat(short2str(p1), &statbuf) != -1) {
- home_dev = statbuf.st_dev;
- home_ino = statbuf.st_ino;
- home_ptr = p1;
- }
- /*
- * Start comparing dev & ino backwards
- */
- p2 = Strncpy(link, cp, sizeof(link) / sizeof(Char));
- link[sizeof(link) / sizeof(Char) - 1] = '\0';
- found = 0;
- while (*p2 && stat(short2str(p2), &statbuf) != -1) {
- if (DEV_DEV_COMPARE(statbuf.st_dev, home_dev) &&
- statbuf.st_ino == home_ino) {
- found = 1;
- break;
- }
- if ((sp = Strrchr(p2, '/')) != NULL)
- *sp = '\0';
- }
- /*
- * See if we found it
- */
- if (*p2 && found) {
- /*
- * Use STRhome to make '~' work
- */
- newcp = Strspl(p1, cp + Strlen(p2));
- xfree((ptr_t) cp);
- cp = newcp;
- }
- }
-#endif /* S_IFLNK */
-
-#ifdef apollo
- if (slashslash) {
- if (cp[1] != '/') {
- p = (Char *) xmalloc((size_t) (Strlen(cp) + 2) * sizeof(Char));
- *p = '/';
- (void) Strcpy(&p[1], cp);
- xfree((ptr_t) cp);
- cp = p;
- }
- }
- if (cp[1] == '/' && cp[2] == '/')
- (void) Strcpy(&cp[1], &cp[2]);
-#endif /* apollo */
- return cp;
-}
-
-
-/*
- * dnewcwd - make a new directory in the loop the current one
- */
-static void
-dnewcwd(dp, dflag)
- register struct directory *dp;
- int dflag;
-{
- int print;
-
- if (adrof(STRdunique)) {
- struct directory *dn;
-
- for (dn = dhead.di_prev; dn != &dhead; dn = dn->di_prev)
- if (dn != dp && Strcmp(dn->di_name, dp->di_name) == 0) {
- dn->di_next->di_prev = dn->di_prev;
- dn->di_prev->di_next = dn->di_next;
- dfree(dn);
- break;
- }
- }
- dcwd = dp;
- dset(dcwd->di_name);
- dgetstack();
- print = printd; /* if printd is set, print dirstack... */
- if (adrof(STRpushdsilent)) /* but pushdsilent overrides printd... */
- print = 0;
- if (dflag & DIR_PRINT) /* but DIR_PRINT overrides pushdsilent... */
- print = 1;
- if (bequiet) /* and bequiet overrides everything */
- print = 0;
- if (print)
- printdirs(dflag);
- cwd_cmd(); /* PWP: run the defined cwd command */
-}
-
-void
-dsetstack()
-{
- Char **cp;
- struct varent *vp;
- struct directory *dn, *dp;
-
- if ((vp = adrof(STRdirstack)) == NULL)
- return;
-
- /* Free the whole stack */
- while ((dn = dhead.di_prev) != &dhead) {
- dn->di_next->di_prev = dn->di_prev;
- dn->di_prev->di_next = dn->di_next;
- if (dn != dcwd)
- dfree(dn);
- }
-
- /* thread the current working directory */
- dhead.di_prev = dhead.di_next = dcwd;
- dcwd->di_next = dcwd->di_prev = &dhead;
-
- /* put back the stack */
- for (cp = vp->vec; cp && *cp && **cp; cp++) {
- dp = (struct directory *) xcalloc(sizeof(struct directory), 1);
- dp->di_name = Strsave(*cp);
- dp->di_count = 0;
- dp->di_prev = dcwd;
- dp->di_next = dcwd->di_next;
- dcwd->di_next = dp;
- dp->di_next->di_prev = dp;
- }
- dgetstack(); /* Make $dirstack reflect the current state */
-}
-
-static void
-dgetstack()
-{
- int i = 0;
- Char **dblk, **dbp;
- struct directory *dn;
-
- if (adrof(STRdirstack) == NULL)
- return;
-
- for (dn = dhead.di_prev; dn != &dhead; dn = dn->di_prev, i++)
- continue;
- dbp = dblk = (Char**) xmalloc((size_t) (i + 1) * sizeof(Char *));
- for (dn = dhead.di_prev; dn != &dhead; dn = dn->di_prev, dbp++)
- *dbp = Strsave(dn->di_name);
- *dbp = NULL;
- setq(STRdirstack, dblk, &shvhed, VAR_READWRITE);
-}
-
-/*
- * getstakd - added by kfk 17 Jan 1984
- * Support routine for the stack hack. Finds nth directory in
- * the directory stack, or finds last directory in stack.
- */
-int
-getstakd(s, cnt)
- Char *s;
- int cnt;
-{
- struct directory *dp;
-
- dp = dcwd;
- if (cnt < 0) { /* < 0 ==> last dir requested. */
- dp = dp->di_next;
- if (dp == &dhead)
- dp = dp->di_next;
- }
- else {
- while (cnt-- > 0) {
- dp = dp->di_prev;
- if (dp == &dhead)
- dp = dp->di_prev;
- if (dp == dcwd)
- return (0);
- }
- }
- (void) Strcpy(s, dp->di_name);
- return (1);
-}
-
-/*
- * Karl Kleinpaste - 10 Feb 1984
- * Added dextract(), which is used in pushd +n.
- * Instead of just rotating the entire stack around, dextract()
- * lets the user have the nth dir extracted from its current
- * position, and pushes it onto the top.
- */
-static void
-dextract(dp)
- struct directory *dp;
-{
- if (dp == dcwd)
- return;
- dp->di_next->di_prev = dp->di_prev;
- dp->di_prev->di_next = dp->di_next;
- dp->di_next = dcwd->di_next;
- dp->di_prev = dcwd;
- dp->di_next->di_prev = dp;
- dcwd->di_next = dp;
-}
-
-void
-loaddirs(fname)
- Char *fname;
-{
- static Char *loaddirs_cmd[] = { STRsource, NULL, NULL };
-
- bequiet = 1;
- if (fname)
- loaddirs_cmd[1] = fname;
- else if ((fname = varval(STRdirsfile)) != STRNULL)
- loaddirs_cmd[1] = fname;
- else
- loaddirs_cmd[1] = STRtildotdirs;
- dosource(loaddirs_cmd, (struct command *)0);
- bequiet = 0;
-}
-
-/*
- * create a file called ~/.cshdirs which has a sequence
- * of pushd commands which will restore the dir stack to
- * its state before exit/logout. remember that the order
- * is reversed in the file because we are pushing.
- * -strike
- */
-void
-recdirs(fname, def)
- Char *fname;
- int def;
-{
- int fp, ftmp, oldidfds;
- int cdflag = 0;
- extern struct directory *dcwd;
- struct directory *dp;
- unsigned int num;
- Char *snum;
- Char qname[MAXPATHLEN*2];
-
- if (fname == NULL && !def)
- return;
-
- if (fname == NULL) {
- if ((fname = varval(STRdirsfile)) == STRNULL)
- fname = Strspl(varval(STRhome), &STRtildotdirs[1]);
- else
- fname = Strsave(fname);
- }
- else
- fname = globone(fname, G_ERROR);
-
- if ((fp = creat(short2str(fname), 0600)) == -1) {
- xfree((ptr_t) fname);
- return;
- }
-
- if ((snum = varval(STRsavedirs)) == STRNULL)
- num = (unsigned int) ~0;
- else
- num = (unsigned int) atoi(short2str(snum));
-
- oldidfds = didfds;
- didfds = 0;
- ftmp = SHOUT;
- SHOUT = fp;
-
- dp = dcwd->di_next;
- do {
- if (dp == &dhead)
- continue;
-
- if (cdflag == 0) {
- cdflag = 1;
- xprintf("cd %S\n", quote_meta(qname, dp->di_name));
- }
- else
- xprintf("pushd %S\n", quote_meta(qname, dp->di_name));
-
- if (num-- == 0)
- break;
-
- } while ((dp = dp->di_next) != dcwd->di_next);
-
- (void) close(fp);
- SHOUT = ftmp;
- didfds = oldidfds;
- xfree((ptr_t) fname);
-}
generated by cgit v1.3 (git 2.53.0) at 2026-07-24 19:55:17 +0000