#include <curses.priv.h>
#include <ctype.h>
#include <sys/stat.h>
#include <tic.h>
#include <nc_alloc.h>
MODULE_ID("$Id: access.c,v 1.14 2007/11/18 00:57:53 tom Exp $")
#define LOWERCASE(c) ((isalpha(UChar(c)) && isupper(UChar(c))) ? tolower(UChar(c)) : (c))
NCURSES_EXPORT(char *)
_nc_rootname(char *path)
{
char *result = _nc_basename(path);
#if !MIXEDCASE_FILENAMES || defined(PROG_EXT)
static char *temp;
char *s;
temp = strdup(result);
result = temp;
#if !MIXEDCASE_FILENAMES
for (s = result; *s != '\0'; ++s) {
*s = LOWERCASE(*s);
}
#endif
#if defined(PROG_EXT)
if ((s = strrchr(result, '.')) != 0) {
if (!strcmp(s, PROG_EXT))
*s = '\0';
}
#endif
#endif
return result;
}
NCURSES_EXPORT(bool)
_nc_is_abs_path(const char *path)
{
#if defined(__EMX__) || defined(__DJGPP__)
#define is_pathname(s) ((((s) != 0) && ((s)[0] == '/')) \
|| (((s)[0] != 0) && ((s)[1] == ':')))
#else
#define is_pathname(s) ((s) != 0 && (s)[0] == '/')
#endif
return is_pathname(path);
}
NCURSES_EXPORT(unsigned)
_nc_pathlast(const char *path)
{
const char *test = strrchr(path, '/');
#ifdef __EMX__
if (test == 0)
test = strrchr(path, '\\');
#endif
if (test == 0)
test = path;
else
test++;
return (test - path);
}
NCURSES_EXPORT(char *)
_nc_basename(char *path)
{
return path + _nc_pathlast(path);
}
NCURSES_EXPORT(int)
_nc_access(const char *path, int mode)
{
if (access(path, mode) < 0) {
if ((mode & W_OK) != 0
&& errno == ENOENT
&& strlen(path) < PATH_MAX) {
char head[PATH_MAX];
char *leaf = _nc_basename(strcpy(head, path));
if (leaf == 0)
leaf = head;
*leaf = '\0';
if (head == leaf)
(void) strcpy(head, ".");
return access(head, R_OK | W_OK | X_OK);
}
return -1;
}
return 0;
}
NCURSES_EXPORT(bool)
_nc_is_dir_path(const char *path)
{
bool result = FALSE;
struct stat sb;
if (stat(path, &sb) == 0
&& (sb.st_mode & S_IFMT) == S_IFDIR) {
result = TRUE;
}
return result;
}
NCURSES_EXPORT(bool)
_nc_is_file_path(const char *path)
{
bool result = FALSE;
struct stat sb;
if (stat(path, &sb) == 0
&& (sb.st_mode & S_IFMT) == S_IFREG) {
result = TRUE;
}
return result;
}
#ifndef USE_ROOT_ENVIRON
NCURSES_EXPORT(int)
_nc_env_access(void)
{
#if HAVE_ISSETUGID
if (issetugid())
return FALSE;
#elif HAVE_GETEUID && HAVE_GETEGID
if (getuid() != geteuid()
|| getgid() != getegid())
return FALSE;
#endif
return getuid() != 0 && geteuid() != 0;
}
#endif