helper/win32-dirent.c

   1 /* w32_dirent.c  - Posix emulation layer for Sylpheed (Claws)
   2  *
   3  * This file is part of w32lib.
   4  *
   5  * w32lib is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 3 of the License, or
   8  * (at your option) any later version.
   9  *
  10  * w32lib is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this program. If not, see <http://www.gnu.org/licenses/>.
  17  *
  18  * For more information and a list of changes, see w32lib.h
  19  */
  20
  21
  22 #include <io.h>
  23 #include <stdio.h>
  24 #include <stdlib.h>
  25 #include <string.h>
  26 #include <windows.h>
  27 #include "win32-dirent.h"
  28
  29 DIR *
  30 opendir ( const char *name )
  31 {
  32   DIR *dir;
  33
  34   dir = calloc (1, sizeof *dir + strlen (name));
  35   if (!dir)
  36     return NULL;
  37   strcpy (dir->dd_name, name);
  38   return dir;
  39 }
  40
  41 int
  42 closedir (DIR *dir)
  43 {
  44   FindClose( (HANDLE)dir->dd_handle );
  45   free( dir );
  46   return 0;
  47 }
  48
  49 struct dirent *
  50 readdir( DIR *dir )
  51 {
  52   WIN32_FIND_DATA fInfo;
  53   struct dirent *xdirent;
  54   int ret;
  55
  56   if ( !dir->dd_handle )
  57     {
  58       char *dirname;
  59
  60       if (*dir->dd_name)
  61         {
  62           size_t n = strlen (dir->dd_name);
  63           dirname = malloc (n + 4 + 1);
  64           if (dirname) {
  65             strcpy (dirname, dir->dd_name);
  66             strcpy (dirname + n, "\\*.*");
  67           }
  68         }
  69       else
  70         dirname = strdup( "\\*.*" );
  71       if (!dirname)
  72         return NULL; /* Error. */
  73
  74       dir->dd_handle = (long)FindFirstFile( dirname, &fInfo );
  75       free( dirname );
  76       if ( !dir->dd_handle )
  77         ret = 0;
  78       else
  79         ret = 1;
  80     }
  81   else if ( dir->dd_handle != -1l )
  82     {
  83         ret = FindNextFile ((HANDLE)dir->dd_handle, &fInfo);
  84     }
  85   else
  86     ret = 0;
  87   if ( !ret )
  88     return NULL;
  89
  90   xdirent = calloc ( 1, sizeof *xdirent);
  91   if (xdirent)
  92     {
  93       strncpy (xdirent->d_name, fInfo.cFileName, FILENAME_MAX - 1 );
  94       xdirent->d_name[FILENAME_MAX - 1] = 0;
  95       xdirent->d_namlen = strlen( xdirent->d_name );
  96     }
  97   return xdirent;
  98 }
  99