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 (access (filename, X_OK) == 0)
  59                         return TRUE;
  60         }
  61 #ifdef HAVE_LSTAT
  62         if ((test & G_FILE_TEST_IS_SYMLINK) != 0) {
  63                 have_stat = (lstat (filename, &st) == 0);
  64                 if (have_stat && S_ISLNK (st.st_mode))
  65                         return TRUE;
  66         }
  67 #endif
  68
  69         if ((test & G_FILE_TEST_IS_REGULAR) != 0) {
  70                 if (!have_stat)
  71                         have_stat = (stat (filename, &st) == 0);
  72                 if (have_stat && S_ISREG (st.st_mode))
  73                         return TRUE;
  74         }
  75         if ((test & G_FILE_TEST_IS_DIR) != 0) {
  76                 if (!have_stat)
  77                         have_stat = (stat (filename, &st) == 0);
  78                 if (have_stat && S_ISDIR (st.st_mode))
  79                         return TRUE;
  80         }
  81         return FALSE;
  82 }
  83
  84 gchar *
  85 g_mkdtemp (char *temp)
  86 {
  87 /*
  88  * On systems without mkdtemp, use a reimplemented version
  89  * adapted from the Win32 version of this file. AIX is an
  90  * exception because i before version 7.2 lacks mkdtemp in
  91  * libc, and GCC can "fix" system headers so that it isn't
  92  * present without redefining it.
  93  */
  94 #if defined(HAVE_MKDTEMP) && !defined(_AIX)
  95         return mkdtemp (g_strdup (temp));
  96 #else
  97         temp = mktemp (g_strdup (temp));
  98         /* 0700 is the mode specified in specs */
  99         if (temp && *temp && mkdir (temp, 0700) == 0)
 100                 return temp;
 101
 102         g_free (temp);
 103         return NULL;
 104 #endif
 105 }