mono/eglib/gdir-unix.c

   1 /*
   2  * Directory 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 <errno.h>
  33 #include "../utils/mono-errno.h"
  34 #include <sys/types.h>
  35 #include <sys/stat.h>
  36 #include <unistd.h>
  37 #include <dirent.h>
  38
  39 struct _GDir {
  40         DIR *dir;
  41 #ifndef HAVE_REWINDDIR
  42         char *path;
  43 #endif
  44 };
  45
  46 GDir *
  47 g_dir_open (const gchar *path, guint flags, GError **gerror)
  48 {
  49         GDir *dir;
  50
  51         g_return_val_if_fail (path != NULL, NULL);
  52         g_return_val_if_fail (gerror == NULL || *gerror == NULL, NULL);
  53
  54         (void) flags; /* this is not used */
  55         dir = g_new (GDir, 1);
  56         dir->dir = opendir (path);
  57         if (dir->dir == NULL) {
  58                 if (gerror) {
  59                         gint err = errno;
  60                         *gerror = g_error_new (G_LOG_DOMAIN, g_file_error_from_errno (err), strerror (err));
  61                 }
  62                 g_free (dir);
  63                 return NULL;
  64         }
  65 #ifndef HAVE_REWINDDIR
  66         dir->path = g_strdup (path);
  67 #endif
  68         return dir;
  69 }
  70
  71 const gchar *
  72 g_dir_read_name (GDir *dir)
  73 {
  74         struct dirent *entry;
  75
  76         g_return_val_if_fail (dir != NULL && dir->dir != NULL, NULL);
  77         do {
  78                 entry = readdir (dir->dir);
  79                 if (entry == NULL)
  80                         return NULL;
  81         } while ((strcmp (entry->d_name, ".") == 0) || (strcmp (entry->d_name, "..") == 0));
  82
  83         return entry->d_name;
  84 }
  85
  86 void
  87 g_dir_rewind (GDir *dir)
  88 {
  89         g_return_if_fail (dir != NULL && dir->dir != NULL);
  90 #ifndef HAVE_REWINDDIR
  91         closedir (dir->dir);
  92         dir->dir = opendir (dir->path);
  93 #else
  94         rewinddir (dir->dir);
  95 #endif
  96 }
  97
  98 void
  99 g_dir_close (GDir *dir)
 100 {
 101         g_return_if_fail (dir != NULL && dir->dir != 0);
 102         closedir (dir->dir);
 103 #ifndef HAVE_REWINDDIR
 104         g_free (dir->path);
 105 #endif
 106         dir->dir = NULL;
 107         g_free (dir);
 108 }
 109
 110 int
 111 g_mkdir_with_parents (const gchar *pathname, int mode)
 112 {
 113         char *path, *d;
 114         int rv;
 115
 116         if (!pathname || *pathname == '\0') {
 117                 mono_set_errno (EINVAL);
 118                 return -1;
 119         }
 120
 121         d = path = g_strdup (pathname);
 122         if (*d == '/')
 123                 d++;
 124
 125         while (TRUE) {
 126                 if (*d == '/' || *d == '\0') {
 127                   char orig = *d;
 128                   *d = '\0';
 129                   rv = mkdir (path, mode);
 130                   if (rv == -1 && errno != EEXIST) {
 131                         g_free (path);
 132                         return -1;
 133                   }
 134
 135                   *d++ = orig;
 136                   while (orig == '/' && *d == '/')
 137                         d++;
 138                   if (orig == '\0')
 139                         break;
 140                 } else {
 141                         d++;
 142                 }
 143         }
 144
 145         g_free (path);
 146
 147         return 0;
 148 }