mono/eglib/gfile-unix.c

   1 /*
   2  * File utility functions.
   3  *
   4  * Author:
   5  *   Gonzalo Paniagua Javier (gonzalo@novell.com)
   6  *
   7  * (C) 2006 Novell, Inc.
   8  *
   9  * Permission is hereby granted, free of charge, to any person obtaining
  10  * a copy of this software and associated documentation files (the
  11  * "Software"), to deal in the Software without restriction, including
  12  * without limitation the rights to use, copy, modify, merge, publish,
  13  * distribute, sublicense, and/or sell copies of the Software, and to
  14  * permit persons to whom the Software is furnished to do so, subject to
  15  * the following conditions:
  16  *
  17  * The above copyright notice and this permission notice shall be
  18  * included in all copies or substantial portions of the Software.
  19  *
  20  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  21  * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  22  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
  23  * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
  24  * LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
  25  * OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
  26  * WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  27  */
  28 #include <config.h>
  29 #include <glib.h>
  30 #include <stdio.h>
  31 #include <stdlib.h>
  32 #include <sys/types.h>
  33 #include <sys/stat.h>
  34 #include <errno.h>
  35 #include <fcntl.h>
  36
  37 #ifdef HAVE_UNISTD_H
  38 #include <unistd.h>
  39 #endif
  40
  41 gboolean
  42 g_file_test (const gchar *filename, GFileTest test)
  43 {
  44         struct stat st;
  45         gboolean have_stat;
  46
  47         if (filename == NULL || test == 0)
  48                 return FALSE;
  49
  50         have_stat = FALSE;
  51
  52         if ((test & G_FILE_TEST_EXISTS) != 0) {
  53                 if (access (filename, F_OK) == 0)
  54                         return TRUE;
  55         }
  56
  57         if ((test & G_FILE_TEST_IS_EXECUTABLE) != 0) {
  58 #if !defined(__PASE__)
  59                 if (access (filename, X_OK) == 0)
  60                         return TRUE;
  61 #else
  62                 /*
  63                  * PASE always returns true for X_OK; contrary to how AIX
  64                  * behaves (but *does* correspond to how it's documented!).
  65                  * This behaviour is also consistent with the ILE, so it's
  66                  * probably just an upcall returning the same results. As
  67                  * such, workaround it.
  68                  */
  69                 if (!have_stat)
  70                         have_stat = (stat (filename, &st) == 0);
  71                 /* Hairy parens, but just manually try all permission bits */
  72                 if (have_stat && (
  73                         ((st.st_mode & S_IXOTH)
  74                                 || ((st.st_mode & S_IXUSR) && (st.st_uid == getuid()))
  75                                 || ((st.st_mode & S_IXGRP) && (st.st_gid == getgid())))))
  76                         return TRUE;
  77 #endif
  78         }
  79 #ifdef HAVE_LSTAT
  80         if ((test & G_FILE_TEST_IS_SYMLINK) != 0) {
  81                 have_stat = (lstat (filename, &st) == 0);
  82                 if (have_stat && S_ISLNK (st.st_mode))
  83                         return TRUE;
  84         }
  85 #endif
  86
  87         if ((test & G_FILE_TEST_IS_REGULAR) != 0) {
  88                 if (!have_stat)
  89                         have_stat = (stat (filename, &st) == 0);
  90                 if (have_stat && S_ISREG (st.st_mode))
  91                         return TRUE;
  92         }
  93         if ((test & G_FILE_TEST_IS_DIR) != 0) {
  94                 if (!have_stat)
  95                         have_stat = (stat (filename, &st) == 0);
  96                 if (have_stat && S_ISDIR (st.st_mode))
  97                         return TRUE;
  98         }
  99         return FALSE;
 100 }
 101
 102 gchar *
 103 g_mkdtemp (char *temp)
 104 {
 105 /*
 106  * On systems without mkdtemp, use a reimplemented version
 107  * adapted from the Win32 version of this file. AIX is an
 108  * exception because i before version 7.2 lacks mkdtemp in
 109  * libc, and GCC can "fix" system headers so that it isn't
 110  * present without redefining it.
 111  */
 112 #if defined(HAVE_MKDTEMP) && !defined(_AIX)
 113         return mkdtemp (g_strdup (temp));
 114 #else
 115         temp = mktemp (g_strdup (temp));
 116         /* 0700 is the mode specified in specs */
 117         if (temp && *temp && mkdir (temp, 0700) == 0)
 118                 return temp;
 119
 120         g_free (temp);
 121         return NULL;
 122 #endif
 123 }