ncurses 5.3

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

diff --git a/ncurses/tinfo/access.c b/ncurses/tinfo/access.c
index 54e549497c942646c1deba0b2133026c9fa42c37..f5240c121c26bf2003a5a1c2423b62140b1e177a 100644 (file)
--- a/ncurses/tinfo/access.c
+++ b/ncurses/tinfo/access.c
@@ -1,5 +1,5 @@
 /****************************************************************************
- * Copyright (c) 1998 Free Software Foundation, Inc.                        *
+ * Copyright (c) 1998,2000,2001 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            *
@@ -27,29 +27,97 @@
  ****************************************************************************/
 
 /****************************************************************************
- *  Author: Thomas E. Dickey <dickey@clark.net> 1998                        *
+ *  Author: Thomas E. Dickey <dickey@clark.net> 1998,2000,2001              *
  ****************************************************************************/
 
-
 #include <curses.priv.h>
+#include <tic.h>
+#include <nc_alloc.h>
+
+MODULE_ID("$Id: access.c,v 1.9 2001/06/23 22:11:49 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 !defined(MIXEDCASE_FILENAMES) || defined(PROG_EXT)
+    static char *temp;
+    char *s;
+
+    temp = strdup(result);
+    result = temp;
+#if !defined(MIXEDCASE_FILENAMES)
+    int n;
+    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;
+}
 
-MODULE_ID("$Id: access.c,v 1.1 1998/07/25 20:17:09 tom Exp $")
+NCURSES_EXPORT(char *)
+_nc_basename(char *path)
+{
+    char *result = strrchr(path, '/');
+#ifdef __EMX__
+    if (result == 0)
+       result = strrchr(path, '\\');
+#endif
+    if (result == 0)
+       result = path;
+    else
+       result++;
+    return result;
+}
 
-int _nc_access(const char *path, int mode)
+NCURSES_EXPORT(int)
+_nc_access(const char *path, int mode)
 {
-       if (access(path, mode) < 0) {
-               if ((mode & W_OK) != 0
-                && errno == ENOENT) {
-                       char head[PATH_MAX];
-                       char *leaf = strrchr(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;
+    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 0;
+       return -1;
+    }
+    return 0;
+}
+
+#ifndef USE_ROOT_ENVIRON
+/*
+ * Returns true if we allow application to use environment variables that are
+ * used for searching lists of directories, etc.
+ */
+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;    /* ...finally, disallow root */
 }
+#endif