searchinpath.c File Reference

#include <schily/mconfig.h>
#include <schily/string.h>
#include <schily/unistd.h>
#include <schily/stdlib.h>
#include <schily/stat.h>
#include <schily/standard.h>
#include <schily/schily.h>
#include <schily/errno.h>

Include dependency graph for searchinpath.c:

Go to the source code of this file.

Macros
#define	NAMEMAX   4096
#define	enofile(t)

Functions
EXPORT char *searchfileinpath	__PR ((char *name, int mode, int file_mode, char *path))
LOCAL char *searchonefile	__PR ((char *name, int mode, BOOL plain_file, char *xn, char *nbuf, char *np, char *ep))
EXPORT char *	searchfileinpath (char *name, int mode, int file_mode, char *path)
LOCAL char *	searchonefile (char *name, int mode, BOOL plain_file, char *xn, char *nbuf, char *np, char *ep)

Variables
static UConst char	sccsid []

Macro Definition Documentation

enofile

#define enofile

(

t

)

Value:

                    ((t) == ENOENT || \
                    (t)  == ENOTDIR || \
                    (t)  == EISDIR || \
                    (t)  == EIO)

Definition at line 57 of file searchinpath.c.

NAMEMAX

#define NAMEMAX   4096

Definition at line 37 of file searchinpath.c.

Function Documentation

__PR() [1/2]

LOCAL char *searchonefile __PR

(

(char *name, int mode, BOOL plain_file, char *xn, char *nbuf, char *np, char *ep)

)

__PR() [2/2]

EXPORT char *searchfileinpath __PR

(

(char *name, int mode, int file_mode, char *path)

)

searchfileinpath()

EXPORT char * searchfileinpath	(	char *	name,
		int	mode,
		int	file_mode,
		char *	path
	)

Definition at line 68 of file searchinpath.c.

{
    char    pbuf[NAMEMAX];
    char    *nbuf = pbuf;
    char    *np;
    char    *ep;
    char    *xn;
    int nlen = strlen(name);
    int oerrno = geterrno();
    int err = 0;
#ifdef  HAVE_GETEXECNAME
    char    *pn = (char *)getexecname();    /* pn is on the stack */
#else
    char    *pn = getexecpath();        /* pn is from strdup() */
    char    ebuf[NAMEMAX];
 
    if (pn) {
        strlcpy(ebuf, pn, sizeof (ebuf));
        free(pn);
        pn = ebuf;
    }
#endif
 
    if (pn == NULL)
        xn = get_progname();
    else
        xn = pn;
    if ((np = strrchr(xn, '/')) != NULL)
        xn = ++np;
 
    /*
     * getexecname() is the best choice for our seach. getexecname()
     * returns either "foo" (if called from the current directory) or
     * an absolute path after symlinks have been resolved.
     * If getexecname() returns a path with slashes, try to search
     * first relatively to the known location of the current binary.
     */
    if ((file_mode & SIP_ONLY_PATH) == 0 &&
        pn != NULL && strchr(pn, '/') != NULL) {
        strlcpy(nbuf, pn, sizeof (pbuf));
        np = nbuf + strlen(nbuf);
 
        while (np > nbuf && np[-1] != '/')
            *--np = '\0';
        pn = &nbuf[sizeof (pbuf) - 1];
        if ((np = searchonefile(name, mode,
                file_mode & (SIP_PLAIN_FILE|SIP_NO_STRIPBIN),
                xn,
                nbuf, np, pn)) != NULL) {
            seterrno(oerrno);
            return (np);
        }
    }
 
    if (file_mode & SIP_NO_PATH)
        return (NULL);
 
    if (path == NULL)
        path = getenv("PATH");
    if (path == NULL)
        return (NULL);
 
 
#ifdef __DJGPP__
    path = strdup(path);
    if (path == NULL)
        return (NULL);
    strbs2s(path);  /* PATH under DJGPP can contain both slashes */
#endif
 
    /*
     * A PATH name search should lead us to the path under which we
     * called the binary, but not necessarily to the install path as
     * we may have been called thorugh a symlink or hardlink. In case
     * of a symlink, we can follow the link. In case of a hardlink, we
     * are lost.
     */
    ep = &nbuf[sizeof (pbuf) - 1];
    for (;;) {
        np = nbuf;
        while (*path != PATH_ENV_DELIM && *path != '\0' &&
            np < &nbuf[sizeof (pbuf) - nlen])
                *np++ = *path++;
        *np = '\0';
        if ((np = searchonefile(name, mode,
                file_mode & (SIP_PLAIN_FILE|SIP_NO_STRIPBIN),
                xn,
                nbuf, np, ep)) != NULL) {
#ifdef __DJGPP__
            free(path);
#endif
            seterrno(oerrno);
            return (np);
        }
        if (err == 0) {
            err = geterrno();
            if (enofile(err))
                err = 0;
        }
        if (*path == '\0')
            break;
        path++;
    }
#ifdef __DJGPP__
    free(path);
#endif
    if (err)
        seterrno(err);
    else
        seterrno(oerrno);
    return (NULL);
}

Referenced by main(), and sic_base().

searchonefile()

LOCAL char * searchonefile	(	char *	name,
		int	mode,
		BOOL	plain_file,
		char *	xn,
		char *	nbuf,
		char *	np,
		char *	ep
	)

Definition at line 186 of file searchinpath.c.

{
    struct stat sb;
 
    while (np > nbuf && np[-1] == '/')
        *--np = '\0';
    if (xn) {
        *np++ = '/';
        strlcpy(np, xn, ep - np);
        if (stat(nbuf, &sb) < 0)
            return (NULL);
        if (!S_ISREG(sb.st_mode))
            return (NULL);
        *--np = '\0';
    }
    if ((plain_file & SIP_NO_STRIPBIN) == 0) {
        if (np >= &nbuf[4] && streql(&np[-4], "/bin"))
            np = &np[-4];
    }
    plain_file &= SIP_PLAIN_FILE;
    *np++ = '/';
    *np   = '\0';
    strlcpy(np, name, ep - np);
 
    seterrno(0);
    if (stat(nbuf, &sb) >= 0) {
        if ((!plain_file || S_ISREG(sb.st_mode)) &&
            (eaccess(nbuf, mode) >= 0)) {
            return (strdup(nbuf));
        }
        if (geterrno() == 0)
            seterrno(EACCES);
    }
    return (NULL);
}

Referenced by searchfileinpath().

Variable Documentation

sccsid

UConst char sccsid[]

static

Initial value:

=
    "@(#)searchinpath.c 1.5 16/08/01 Copyright 1999-2016 J. Schilling"

Definition at line 4 of file searchinpath.c.