ncurses 6.0 - patch 20170204

[ncurses.git] / ncurses / tinfo / access.c

diff --git a/ncurses/tinfo/access.c b/ncurses/tinfo/access.c
index 6fbe9217604556aec637c048d8d66825c20b1100..d9876875382dd6030195081602c531ff3c2c51ea 100644 (file)
--- a/ncurses/tinfo/access.c
+++ b/ncurses/tinfo/access.c
@@ -1,5 +1,5 @@
 /****************************************************************************
 /****************************************************************************

- * Copyright (c) 1998,2000 Free Software Foundation, Inc.                   *
+ * Copyright (c) 1998-2011,2012 Free Software Foundation, Inc.              *

  *                                                                          *
  * Permission is hereby granted, free of charge, to any person obtaining a  *
  * copy of this software and associated documentation files (the            *
  *                                                                          *
  * Permission is hereby granted, free of charge, to any person obtaining a  *
  * copy of this software and associated documentation files (the            *


@@ -27,50 +27,147 @@
  ****************************************************************************/
 
 /****************************************************************************
  ****************************************************************************/
 
 /****************************************************************************

- *  Author: Thomas E. Dickey <dickey@clark.net> 1998,2000                   *
+ *  Author: Thomas E. Dickey                                                *

  ****************************************************************************/
 
 #include <curses.priv.h>
  ****************************************************************************/
 
 #include <curses.priv.h>

+
+#include <ctype.h>
+

 #include <tic.h>
 
 #include <tic.h>
 

-MODULE_ID("$Id: access.c,v 1.4 2000/10/08 01:25:06 tom Exp $")
+MODULE_ID("$Id: access.c,v 1.23 2012/09/01 19:21:29 tom Exp $")

 
 

-char *
-_nc_basename(char *path)
+#ifdef __TANDEM
+#define ROOT_UID 65535
+#endif
+
+#ifndef ROOT_UID
+#define ROOT_UID 0
+#endif
+
+#define LOWERCASE(c) ((isalpha(UChar(c)) && isupper(UChar(c))) ? tolower(UChar(c)) : (c))
+
+NCURSES_EXPORT(char *)
+_nc_rootname(char *path)

 {
 {

-    char *result = strrchr(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 = (char) LOWERCASE(*s);
+    }
+#endif
+#if defined(PROG_EXT)
+    if ((s = strrchr(result, '.')) != 0) {
+       if (!strcmp(s, PROG_EXT))
+           *s = '\0';
+    }
+#endif
+#endif
+    return result;
+}
+
+/*
+ * Check if a string appears to be an absolute pathname.
+ */
+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);
+}
+
+/*
+ * Return index of the basename
+ */
+NCURSES_EXPORT(unsigned)
+_nc_pathlast(const char *path)
+{
+    const char *test = strrchr(path, '/');

 #ifdef __EMX__
 #ifdef __EMX__

-    if (result == 0)
-       result = strrchr(path, '\\');
+    if (test == 0)
+       test = strrchr(path, '\\');

 #endif
 #endif

-    if (result == 0)
-       result = path;
+    if (test == 0)
+       test = path;

     else
     else

-       result++;
-    return result;
+       test++;
+    return (unsigned) (test - path);

 }
 
 }
 

-int
+NCURSES_EXPORT(char *)
+_nc_basename(char *path)
+{
+    return path + _nc_pathlast(path);
+}
+
+NCURSES_EXPORT(int)

 _nc_access(const char *path, int mode)
 {
 _nc_access(const char *path, int mode)
 {

-    if (access(path, mode) < 0) {
+    int result;
+
+    if (path == 0) {
+       result = -1;
+    } else if (access(path, mode) < 0) {

        if ((mode & W_OK) != 0
            && errno == ENOENT
            && strlen(path) < PATH_MAX) {
            char head[PATH_MAX];
        if ((mode & W_OK) != 0
            && errno == ENOENT
            && strlen(path) < PATH_MAX) {
            char head[PATH_MAX];

-           char *leaf = _nc_basename(strcpy(head, path));
+           char *leaf;

 
 

+           _nc_STRCPY(head, path, sizeof(head));
+           leaf = _nc_basename(head);

            if (leaf == 0)
                leaf = head;
            *leaf = '\0';
            if (head == leaf)
            if (leaf == 0)
                leaf = head;
            *leaf = '\0';
            if (head == leaf)

-               (void) strcpy(head, ".");
+               _nc_STRCPY(head, ".", sizeof(head));

 
 

-           return access(head, R_OK | W_OK | X_OK);
+           result = access(head, R_OK | W_OK | X_OK);
+       } else {
+           result = -1;

        }
        }

-       return -1;
+    } else {
+       result = 0;
+    }
+    return result;
+}
+
+NCURSES_EXPORT(bool)
+_nc_is_dir_path(const char *path)
+{
+    bool result = FALSE;
+    struct stat sb;
+
+    if (stat(path, &sb) == 0
+       && S_ISDIR(sb.st_mode)) {
+       result = TRUE;

     }
     }

-    return 0;
+    return result;
+}
+
+NCURSES_EXPORT(bool)
+_nc_is_file_path(const char *path)
+{
+    bool result = FALSE;
+    struct stat sb;
+
+    if (stat(path, &sb) == 0
+       && S_ISREG(sb.st_mode)) {
+       result = TRUE;
+    }
+    return result;

 }
 
 #ifndef USE_ROOT_ENVIRON
 }
 
 #ifndef USE_ROOT_ENVIRON


@@ -78,7 +175,7 @@ _nc_access(const char *path, int mode)
  * Returns true if we allow application to use environment variables that are
  * used for searching lists of directories, etc.
  */
  * Returns true if we allow application to use environment variables that are
  * used for searching lists of directories, etc.
  */

-int
+NCURSES_EXPORT(int)

 _nc_env_access(void)
 {
 #if HAVE_ISSETUGID
 _nc_env_access(void)
 {
 #if HAVE_ISSETUGID


@@ -86,9 +183,10 @@ _nc_env_access(void)
        return FALSE;
 #elif HAVE_GETEUID && HAVE_GETEGID
     if (getuid() != geteuid()
        return FALSE;
 #elif HAVE_GETEUID && HAVE_GETEGID
     if (getuid() != geteuid()

-     || getgid() != getegid())
+       || getgid() != getegid())

        return FALSE;
 #endif
        return FALSE;
 #endif

-    return getuid() != 0;      /* ...finally, disallow root */
+    /* ...finally, disallow root */
+    return (getuid() != ROOT_UID) && (geteuid() != ROOT_UID);

 }
 #endif
 }
 #endif