common/path/pathpath.c

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                                                                      *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*               This software is part of the ast package               *
3e14f97f673e8a630f076077de35afdd43dc1587Roger A. Faulkner*          Copyright (c) 1985-2010 AT&T Intellectual Property          *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                      and is licensed under the                       *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                  Common Public License, Version 1.0                  *
7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin*                    by AT&T Intellectual Property                     *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                                                                      *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                A copy of the License is available at                 *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*            http://www.opensource.org/licenses/cpl1.0.txt             *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*         (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9)         *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                                                                      *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*              Information and Software Systems Research               *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                            AT&T Research                             *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                           Florham Park NJ                            *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                                                                      *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                 Glenn Fowler <gsf@research.att.com>                  *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                  David Korn <dgk@research.att.com>                   *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                   Phong Vo <kpv@research.att.com>                    *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin*                                                                      *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * Glenn Fowler
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * AT&T Research
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * return full path to p with mode access using $PATH
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * a!=0 enables related root search
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * a!=0 && a!="" searches a dir first
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * the related root must have a bin subdir
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * p==0 sets the cached relative dir to a
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * full path returned in path buffer
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin * if path==0 then the space is malloc'd
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <ast.h>
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinchar*
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinpathpath(register char* path, const char* p, const char* a, int mode)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    register char*  s;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    char*       x;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    char        buf[PATH_MAX];
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    static char*    cmd;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    if (!path)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        path = buf;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    if (!p)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        if (cmd)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            free(cmd);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        cmd = a ? strdup(a) : (char*)0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        return 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    if (strlen(p) < PATH_MAX)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        strcpy(path, p);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        if (pathexists(path, mode))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (*p != '/' && (mode & PATH_ABSOLUTE))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                getcwd(buf, sizeof(buf));
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                s = buf + strlen(buf);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                sfsprintf(s, sizeof(buf) - (s - buf), "/%s", p);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                if (path != buf)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    strcpy(path, buf);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            return (path == buf) ? strdup(path) : path;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    if (*p == '/')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        a = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    else if (s = (char*)a)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        x = s;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        if (strchr(p, '/'))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            a = p;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            p = "..";
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        else
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            a = 0;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        if ((!cmd || *cmd) && (strchr(s, '/') || (s = cmd)))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (!cmd && *s == '/')
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                cmd = strdup(s);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            if (strlen(s) < (sizeof(buf) - 6))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                s = strcopy(path, s);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                for (;;)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    do if (s <= path) goto normal; while (*--s == '/');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    do if (s <= path) goto normal; while (*--s != '/');
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    strcpy(s + 1, "bin");
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    if (pathexists(path, PATH_EXECUTE))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    {
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                        if (s = pathaccess(path, path, p, a, mode))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                            return path == buf ? strdup(s) : s;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                        goto normal;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                    }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin                }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            normal: ;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin            }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    }
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    x = !a && strchr(p, '/') ? "" : pathbin();
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    if (!(s = pathaccess(path, x, p, a, mode)) && !*x && (x = getenv("FPATH")))
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin        s = pathaccess(path, x, p, a, mode);
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin    return (s && path == buf) ? strdup(s) : s;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}