path and environment manupilation functions
This commit was SVN r154.
Этот коммит содержится в:
Prabhanjan Kambadur
родитель
fcf25c53bc
Коммит
8f608e2b3b
@ -13,6 +13,7 @@ headers = \
|
||||
argv.h \
|
||||
lam_log.h \
|
||||
malloc.h \
|
||||
path.h \
|
||||
reactor.h \
|
||||
strncpy.h
|
||||
|
||||
@ -20,6 +21,7 @@ libutil_la_SOURCES = \
|
||||
$(headers) \
|
||||
argv.c \
|
||||
lam_log.c \
|
||||
path.c \
|
||||
reactor.c \
|
||||
strncpy.c
|
||||
|
||||
|
||||
329
src/lam/util/path.c
Обычный файл
329
src/lam/util/path.c
Обычный файл
@ -0,0 +1,329 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <unistd.h>
|
||||
|
||||
#include <lam_config>
|
||||
#include "lam/util/argv.h"
|
||||
#include "lam/util/malloc.h"
|
||||
|
||||
#if 0
|
||||
#include <args.h>
|
||||
#include <laminternal.h>
|
||||
#include <sfh.h>
|
||||
#endif
|
||||
|
||||
/** @file **/
|
||||
|
||||
/**
|
||||
* PATH environment variable separator
|
||||
*/
|
||||
#ifdef WIN32
|
||||
#define PATHENVSEP ';'
|
||||
#else
|
||||
#define PATHENVSEP ':'
|
||||
#endif
|
||||
|
||||
static void path_env_load(char *, int *, char ***);
|
||||
static char *path_access(char *, char *, int);
|
||||
static char *list_env_get(char *, char **);
|
||||
|
||||
/**
|
||||
* Locates a file with certain permissions
|
||||
*
|
||||
* @param fname File name
|
||||
* @param pathv Array of search directories
|
||||
* @param mode Permissions which must be satisfied
|
||||
* @param envv Pointer to string containing environment
|
||||
*
|
||||
* @retval Full pathname of located file Success
|
||||
* @retval NULL Failure
|
||||
*
|
||||
* Environment variable can
|
||||
* appear in the form $variable at the start of a prefix path
|
||||
* and will be replaced by the environment value if it is defined otherwise
|
||||
* the whole prefix is ignored. Environment variable must be followed by a
|
||||
* path delimiter or end-of-string
|
||||
*/
|
||||
char *
|
||||
lam_path_findv(char *fname, char **pathv, int mode, char **envv)
|
||||
{
|
||||
char *fullpath; /* full pathname of search file */
|
||||
char *delimit; /* ptr to first delimiter in prefix */
|
||||
char *env; /* ptr to environment var */
|
||||
char *pfix; /* prefix directory */
|
||||
int i;
|
||||
/*
|
||||
* If absolute path is given, return it without searching.
|
||||
*/
|
||||
if (*fname == STRDIR) {
|
||||
return(path_access(fname, "", mode));
|
||||
}
|
||||
/*
|
||||
* Initialize.
|
||||
*/
|
||||
fullpath = NULL;
|
||||
i = 0;
|
||||
/*
|
||||
* Consider each directory until the file is found.
|
||||
* Thus, the order of directories is important.
|
||||
*/
|
||||
while (pathv[i] && !fullpath) {
|
||||
/*
|
||||
* Replace environment variable at the head of the string.
|
||||
*/
|
||||
if ('$' == *pathv[i]) {
|
||||
delimit = strchr(pathv[i], STRDIR);
|
||||
if (delimit) {
|
||||
*delimit = '\0';
|
||||
}
|
||||
env = list_env_get(pathv[i]+1, envv);
|
||||
if (delimit) {
|
||||
*delimit = STRDIR;
|
||||
}
|
||||
if (env) {
|
||||
if (!delimit) {
|
||||
fullpath = path_access(fname, env, mode);
|
||||
} else {
|
||||
pfix = LAM_MALLOC((unsigned) strlen(env) + strlen(delimit) + 1);
|
||||
if (pfix == NULL){
|
||||
return(0);
|
||||
}
|
||||
strcpy(pfix, env);
|
||||
strcat(pfix, delimit);
|
||||
fullpath = path_access(fname, pfix, mode);
|
||||
LAM_FREE(pfix);
|
||||
}
|
||||
}
|
||||
}
|
||||
else {
|
||||
fullpath = path_access(fname, pathv[i], mode);
|
||||
}
|
||||
i++;
|
||||
}
|
||||
return(fullpath);
|
||||
}
|
||||
|
||||
/**
|
||||
*
|
||||
* Same as lam_path_findv
|
||||
*
|
||||
* @param fname File name
|
||||
* @param pathv Array of search directories
|
||||
* @param mode Permissions which must be satisfied
|
||||
*
|
||||
* @retval Full pathname of located file Success
|
||||
* @retval NULL Failure
|
||||
*
|
||||
* Locates a file with certain permissions. Environment variable can
|
||||
* appear in the form $variable at the start of a prefix path
|
||||
* and will be replaced by the environment value if it is defined otherwise
|
||||
* the whole prefix is ignored. Environment variable must be followed by a
|
||||
* path delimiter or end-of-string
|
||||
*/
|
||||
char *
|
||||
lam_path_find(char *fname, char **pathv, int mode)
|
||||
{
|
||||
return(lam_path_findv(fname, pathv, mode, 0));
|
||||
}
|
||||
|
||||
/**
|
||||
* Locates a file with certain permissions from a list of search paths
|
||||
*
|
||||
* @param fname File name
|
||||
* @param mode Target permissions which must be satisfied
|
||||
* @param envv Pointer to environment list
|
||||
* @param wrkdir Working directory
|
||||
*
|
||||
* @retval Full pathname of located file Success
|
||||
* @retval NULL Failure
|
||||
*
|
||||
* Locates a file with certain permissions from the list of
|
||||
* paths given by the $PATH environment variable. Replaces ./
|
||||
* of found path with working dir
|
||||
*/
|
||||
char *
|
||||
lam_path_env_findv(char *fname, int mode, char **envv, char *wrkdir)
|
||||
{
|
||||
char **dirv; /* search directories */
|
||||
char *fullpath; /* full pathname */
|
||||
char *path; /* value of PATH */
|
||||
int dirc; /* # search directories */
|
||||
int i;
|
||||
int found_dot = 0;
|
||||
/*
|
||||
* Set the local search paths.
|
||||
*/
|
||||
dirc = 0;
|
||||
dirv = NULL;
|
||||
|
||||
if ((path = list_env_get("PATH", envv))) {
|
||||
path_env_load(path, &dirc, &dirv);
|
||||
}
|
||||
/*
|
||||
* Replace the "." path by the working directory.
|
||||
*/
|
||||
for (i = 0; i < dirc; ++i) {
|
||||
if ((0 == strcmp(dirv[i], ".")) && wrkdir) {
|
||||
found_dot = 1;
|
||||
LAM_FREE(dirv[i]);
|
||||
dirv[i] = strdup(wrkdir);
|
||||
if (NULL == dirv[i]){
|
||||
return(0);
|
||||
}
|
||||
}
|
||||
}
|
||||
/*
|
||||
* If we didn't find "." in the path and we have a wrkdir, append
|
||||
* the wrkdir to the end of the path
|
||||
*/
|
||||
if (!found_dot && wrkdir) {
|
||||
lam_argv_add(&dirc, &dirv, wrkdir);
|
||||
}
|
||||
|
||||
fullpath = lam_path_findv(fname, dirv, mode, envv);
|
||||
lam_argv_free(dirv);
|
||||
return(fullpath);
|
||||
}
|
||||
|
||||
/**
|
||||
* Locates a file with certain permissions. Replaces ./
|
||||
* of found path with working dir
|
||||
*
|
||||
* @param fname File name
|
||||
* @param mode Target permissions which must be satisfied
|
||||
*
|
||||
* @retval Full pathname of located file Success
|
||||
* @retval NULL Failure
|
||||
*/
|
||||
char *
|
||||
lam_path_env_find(char *fname, int mode)
|
||||
{
|
||||
char *cwd;
|
||||
char *r;
|
||||
|
||||
cwd = getworkdir();
|
||||
r = lam_path_env_findv(fname, mode, 0, cwd);
|
||||
if (cwd)
|
||||
LAM_FREE(cwd);
|
||||
|
||||
return(r);
|
||||
}
|
||||
|
||||
/**
|
||||
* Forms a complete pathname and checks it for existance and permissions
|
||||
*
|
||||
* @param fname File name
|
||||
* @param path Path prefix
|
||||
* @param mode Target permissions which must be satisfied
|
||||
*
|
||||
* @retval Full pathname of located file Success
|
||||
* @retval NULL Failure
|
||||
*/
|
||||
static char *
|
||||
path_access(char *fname, char *path, int mode)
|
||||
{
|
||||
char *fullpath; /* full pathname of search file */
|
||||
/*
|
||||
* Allocate space for the full pathname.
|
||||
*/
|
||||
fullpath = LAM_MALLOC((unsigned) strlen(path) + strlen(fname) + 2);
|
||||
if (NULL == fullpath){
|
||||
return(0);
|
||||
}
|
||||
|
||||
if (strlen(path) > 0) {
|
||||
strcpy(fullpath, path);
|
||||
strcat(fullpath, STRSDIR);
|
||||
strcat(fullpath, fname);
|
||||
} else {
|
||||
strcpy(fullpath, fname);
|
||||
}
|
||||
/*
|
||||
* Get status on the full path name to check for existance.
|
||||
* Then check the permissions.
|
||||
*/
|
||||
if (access(fullpath, mode)) {
|
||||
LAM_FREE(fullpath);
|
||||
fullpath = 0;
|
||||
}
|
||||
|
||||
return(fullpath);
|
||||
}
|
||||
|
||||
/**
|
||||
*
|
||||
* Loads argument array with $PATH env var.
|
||||
*
|
||||
* @param path String contiaing the $PATH
|
||||
* @param argc Pointer to argc
|
||||
* @param argv Pointer to list of argv
|
||||
*
|
||||
*/
|
||||
static void
|
||||
path_env_load(char *path, int *pargc, char ***pargv)
|
||||
{
|
||||
char *p; /* favourite pointer */
|
||||
char saved; /* saved character */
|
||||
|
||||
if (NULL == path) {
|
||||
*pargc = 0;
|
||||
return;
|
||||
}
|
||||
/*
|
||||
* Loop through the paths (delimited by PATHENVSEP), adding each one to argv.
|
||||
*/
|
||||
while (*path) {
|
||||
/*
|
||||
* Locate the delimiter.
|
||||
*/
|
||||
for (p = path; *p && (*p != PATHENVSEP); ++p);
|
||||
/*
|
||||
* Add the path.
|
||||
*/
|
||||
if (p != path) {
|
||||
saved = *p;
|
||||
*p = '\0';
|
||||
lam_argv_add(pargc, pargv, path);
|
||||
*p = saved;
|
||||
path = p;
|
||||
}
|
||||
/*
|
||||
* Skip past the delimiter, if present.
|
||||
*/
|
||||
if (*path) {
|
||||
++path;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
/**
|
||||
* Gets value of variable in list or environment. Looks in the list first
|
||||
*
|
||||
* @param var String variable
|
||||
* @param list Pointer to environment list
|
||||
*
|
||||
* @retval List Pointer to environment list Success
|
||||
* @retval NULL Failure
|
||||
*/
|
||||
static char *
|
||||
list_env_get(char *var, char **list)
|
||||
{
|
||||
int n;
|
||||
|
||||
if (list) {
|
||||
n = strlen(var);
|
||||
|
||||
while (*list) {
|
||||
if ((0 == strncmp(var, *list, n)) && ('=' == (*list)[n])) {
|
||||
return(*list + n+1);
|
||||
}
|
||||
list++;
|
||||
}
|
||||
}
|
||||
return(getenv(var));
|
||||
}
|
||||
|
||||
13
src/lam/util/path.h
Обычный файл
13
src/lam/util/path.h
Обычный файл
@ -0,0 +1,13 @@
|
||||
/*
|
||||
* $HEADER$
|
||||
*/
|
||||
|
||||
#ifndef LAM_PATH_H
|
||||
#define LAM_PATH_H
|
||||
|
||||
char *lam_path_find (char *, char **, int);
|
||||
char *lam_path_env_find (char *, int);
|
||||
char *lam_path_findv (char *, char **, int, char **);
|
||||
char *lam_path_env_findv (char *, int, char **, char *);
|
||||
|
||||
#endif /* LAM_PATH_H */
|
||||
Загрузка…
Ссылка в новой задаче
Block a user