remove support for old MSVC versions, KNF

1 files changed, 405 insertions, 551 deletions

diff --git a/include/compat/dirent_msvc.h b/include/compat/dirent_msvc.h
index e5c5c41..67f295f 100644
--- a/include/compat/dirent_msvc.h
+++ b/include/compat/dirent_msvc.h
@@ -54,11 +54,6 @@
 /* Indicates that d_namlen field is available in dirent structure */
 #define _DIRENT_HAVE_D_NAMLEN
 
-/* Entries missing from MSVC 6.0 */
-#if !defined(FILE_ATTRIBUTE_DEVICE)
-#   define FILE_ATTRIBUTE_DEVICE 0x40
-#endif
-
 /* Maximum length of file name */
 #if !defined(PATH_MAX)
 #   define PATH_MAX MAX_PATH
@@ -71,92 +66,73 @@
 #endif
 
 /* Return the exact length of d_namlen without zero terminator */
-#define _D_EXACT_NAMLEN(p) ((p)->d_namlen)
+#define _D_EXACT_NAMLEN(p)((p)->d_namlen)
 
 /* Return number of bytes needed to store d_namlen */
-#define _D_ALLOC_NAMLEN(p) (PATH_MAX)
-
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
+#define _D_ALLOC_NAMLEN(p)(PATH_MAX)
 
 /* Wide-character version */
 struct _wdirent {
-    long d_ino;                                 /* Always zero */
-    unsigned short d_reclen;                    /* Structure size */
-    size_t d_namlen;                            /* Length of name without \0 */
-    int d_type;                                 /* File type */
-    wchar_t d_name[PATH_MAX];                   /* File name */
+        long d_ino;                         /* Always zero */
+        unsigned short d_reclen;            /* Structure size */
+        size_t d_namlen;                    /* Length of name without \0 */
+        int d_type;                         /* File type */
+        wchar_t d_name[PATH_MAX];           /* File name */
 };
 typedef struct _wdirent _wdirent;
 
 struct _WDIR {
-    struct _wdirent ent;                        /* Current directory entry */
-    WIN32_FIND_DATAW data;                      /* Private file data */
-    int cached;                                 /* True if data is valid */
-    HANDLE handle;                              /* Win32 search handle */
-    wchar_t *patt;                              /* Initial directory name */
+        struct _wdirent ent;                /* Current directory entry */
+        WIN32_FIND_DATAW data;              /* Private file data */
+        int cached;                         /* True if data is valid */
+        HANDLE handle;                      /* Win32 search handle */
+        wchar_t *patt;                      /* Initial directory name */
 };
 typedef struct _WDIR _WDIR;
 
-static _WDIR *_wopendir (const wchar_t *dirname);
-static struct _wdirent *_wreaddir (_WDIR *dirp);
-static int _wclosedir (_WDIR *dirp);
-static void _wrewinddir (_WDIR* dirp);
-
-
-/* For compatibility with Symbian */
-#define wdirent _wdirent
-#define WDIR _WDIR
-#define wopendir _wopendir
-#define wreaddir _wreaddir
-#define wclosedir _wclosedir
-#define wrewinddir _wrewinddir
-
+static _WDIR *_wopendir(const wchar_t *dirname);
+static struct _wdirent *_wreaddir(_WDIR *dirp);
+static int _wclosedir(_WDIR *dirp);
+static void _wrewinddir(_WDIR* dirp);
 
 /* Multi-byte character versions */
 struct dirent {
-    long d_ino;                                 /* Always zero */
-    unsigned short d_reclen;                    /* Structure size */
-    size_t d_namlen;                            /* Length of name without \0 */
-    int d_type;                                 /* File type */
-    char d_name[PATH_MAX];                      /* File name */
+        long d_ino;                         /* Always zero */
+        unsigned short d_reclen;            /* Structure size */
+        size_t d_namlen;                    /* Length of name without \0 */
+        int d_type;                         /* File type */
+        char d_name[PATH_MAX];              /* File name */
 };
 typedef struct dirent dirent;
 
 struct DIR {
-    struct dirent ent;
-    struct _WDIR *wdirp;
+        struct dirent ent;
+        struct _WDIR *wdirp;
 };
 typedef struct DIR DIR;
 
-static DIR *opendir (const char *dirname);
-static struct dirent *readdir (DIR *dirp);
-static int closedir (DIR *dirp);
-static void rewinddir (DIR* dirp);
-
+static DIR *opendir(const char *dirname);
+static struct dirent *readdir(DIR *dirp);
+static int closedir(DIR *dirp);
+static void rewinddir(DIR* dirp);
 
 /* Internal utility functions */
-static WIN32_FIND_DATAW *dirent_first (_WDIR *dirp);
-static WIN32_FIND_DATAW *dirent_next (_WDIR *dirp);
+static WIN32_FIND_DATAW *dirent_first(_WDIR *dirp);
+static WIN32_FIND_DATAW *dirent_next(_WDIR *dirp);
 
 static int dirent_mbstowcs_s(
-    size_t *pReturnValue,
-    wchar_t *wcstr,
-    size_t sizeInWords,
-    const char *mbstr,
-    size_t count);
+        size_t *pReturnValue,
+        wchar_t *wcstr,
+        size_t sizeInWords,
+        const char *mbstr,
+        size_t count);
 
 static int dirent_wcstombs_s(
-    size_t *pReturnValue,
-    char *mbstr,
-    size_t sizeInBytes,
-    const wchar_t *wcstr,
-    size_t count);
-
-static void dirent_set_errno (int error);
+        size_t *pReturnValue,
+        char *mbstr,
+        size_t sizeInBytes,
+        const wchar_t *wcstr,
+        size_t count);
 
 /*
  * Open directory stream DIRNAME for read and return a pointer to the
@@ -164,96 +140,95 @@ static void dirent_set_errno (int error);
  * entries.
  */
 static _WDIR*
-_wopendir(
-    const wchar_t *dirname)
+_wopendir(const wchar_t *dirname)
 {
-    _WDIR *dirp = NULL;
-    int error;
-
-    /* Must have directory name */
-    if (dirname == NULL  ||  dirname[0] == '\0') {
-        dirent_set_errno (ENOENT);
-        return NULL;
-    }
-
-    /* Allocate new _WDIR structure */
-    dirp = (_WDIR*) malloc (sizeof (struct _WDIR));
-    if (dirp != NULL) {
-        DWORD n;
-
-        /* Reset _WDIR structure */
-        dirp->handle = INVALID_HANDLE_VALUE;
-        dirp->patt = NULL;
-        dirp->cached = 0;
-
-        /* Compute the length of full path plus zero terminator */
-        n = GetFullPathNameW (dirname, 0, NULL, NULL);
-
-        /* Allocate room for absolute directory name and search pattern */
-        dirp->patt = (wchar_t*) malloc (sizeof (wchar_t) * n + 16);
-        if (dirp->patt) {
-
-            /*
-             * Convert relative directory name to an absolute one.  This
-             * allows rewinddir() to function correctly even when current
-             * working directory is changed between opendir() and rewinddir().
-             */
-            n = GetFullPathNameW (dirname, n, dirp->patt, NULL);
-            if (n > 0) {
-                wchar_t *p;
-
-                /* Append search pattern \* to the directory name */
-                p = dirp->patt + n;
-                if (dirp->patt < p) {
-                    switch (p[-1]) {
-                    case '\\':
-                    case '/':
-                    case ':':
-                        /* Directory ends in path separator, e.g. c:\temp\ */
-                        /*NOP*/;
-                        break;
-
-                    default:
-                        /* Directory name doesn't end in path separator */
-                        *p++ = '\\';
-                    }
-                }
-                *p++ = '*';
-                *p = '\0';
-
-                /* Open directory stream and retrieve the first entry */
-                if (dirent_first (dirp)) {
-                    /* Directory stream opened successfully */
-                    error = 0;
-                } else {
-                    /* Cannot retrieve first entry */
-                    error = 1;
-                    dirent_set_errno (ENOENT);
-                }
-
-            } else {
-                /* Cannot retrieve full path name */
-                dirent_set_errno (ENOENT);
-                error = 1;
-            }
-
-        } else {
-            /* Cannot allocate memory for search pattern */
-            error = 1;
-        }
-
-    } else {
-        /* Cannot allocate _WDIR structure */
-        error = 1;
-    }
-
-    /* Clean up in case of error */
-    if (error  &&  dirp) {
-        _wclosedir (dirp);
-        dirp = NULL;
-    }
-
-    return dirp;
+        _WDIR *dirp = NULL;
+        int error;
+
+        /* Must have directory name */
+        if (dirname == NULL  ||  dirname[0] == '\0') {
+                _set_errno(ENOENT);
+                return NULL;
+        }
+
+        /* Allocate new _WDIR structure */
+        dirp =(_WDIR*) malloc(sizeof(struct _WDIR));
+        if (dirp != NULL) {
+                DWORD n;
+
+                /* Reset _WDIR structure */
+                dirp->handle = INVALID_HANDLE_VALUE;
+                dirp->patt = NULL;
+                dirp->cached = 0;
+
+                /* Compute the length of full path plus zero terminator */
+                n = GetFullPathNameW(dirname, 0, NULL, NULL);
+
+                /* Allocate room for absolute directory name and search pattern */
+                dirp->patt =(wchar_t*) malloc(sizeof(wchar_t) * n + 16);
+                if (dirp->patt) {
+
+                        /*
+                         * Convert relative directory name to an absolute one.  This
+                         * allows rewinddir() to function correctly even when current
+                         * working directory is changed between opendir() and rewinddir().
+                         */
+                        n = GetFullPathNameW(dirname, n, dirp->patt, NULL);
+                        if (n > 0) {
+                                wchar_t *p;
+
+                                /* Append search pattern \* to the directory name */
+                                p = dirp->patt + n;
+                                if (dirp->patt < p) {
+                                        switch(p[-1]) {
+                                        case '\\':
+                                        case '/':
+                                        case ':':
+                                                /* Directory ends in path separator, e.g. c:\temp\ */
+                                                /*NOP*/;
+                                                break;
+
+                                        default:
+                                                /* Directory name doesn't end in path separator */
+                                                *p++ = '\\';
+                                        }
+                                }
+                                *p++ = '*';
+                                *p = '\0';
+
+                                /* Open directory stream and retrieve the first entry */
+                                if (dirent_first(dirp)) {
+                                        /* Directory stream opened successfully */
+                                        error = 0;
+                                } else {
+                                        /* Cannot retrieve first entry */
+                                        error = 1;
+                                        _set_errno(ENOENT);
+                                }
+
+                        } else {
+                                /* Cannot retrieve full path name */
+                                _set_errno(ENOENT);
+                                error = 1;
+                        }
+
+                } else {
+                        /* Cannot allocate memory for search pattern */
+                        error = 1;
+                }
+
+        } else {
+                /* Cannot allocate _WDIR structure */
+                error = 1;
+        }
+
+        /* Clean up in case of error */
+        if (error  &&  dirp) {
+                _wclosedir(dirp);
+                dirp = NULL;
+        }
+
+        return dirp;
 }
 
 /*
@@ -263,58 +238,57 @@ _wopendir(
  * "." and ".." as well as volume labels, hidden files and system files.
  */
 static struct _wdirent*
-_wreaddir(
-    _WDIR *dirp)
+_wreaddir(_WDIR *dirp)
 {
-    WIN32_FIND_DATAW *datap;
-    struct _wdirent *entp;
-
-    /* Read next directory entry */
-    datap = dirent_next (dirp);
-    if (datap) {
-        size_t n;
-        DWORD attr;
-
-        /* Pointer to directory entry to return */
-        entp = &dirp->ent;
-
-        /*
-         * Copy file name as wide-character string.  If the file name is too
-         * long to fit in to the destination buffer, then truncate file name
-         * to PATH_MAX characters and zero-terminate the buffer.
-         */
-        n = 0;
-        while (n + 1 < PATH_MAX  &&  datap->cFileName[n] != 0) {
-            entp->d_name[n] = datap->cFileName[n];
-            n++;
-        }
-        dirp->ent.d_name[n] = 0;
-
-        /* Length of file name excluding zero terminator */
-        entp->d_namlen = n;
-
-        /* File type */
-        attr = datap->dwFileAttributes;
-        if ((attr & FILE_ATTRIBUTE_DEVICE) != 0) {
-            entp->d_type = DT_CHR;
-        } else if ((attr & FILE_ATTRIBUTE_DIRECTORY) != 0) {
-            entp->d_type = DT_DIR;
-        } else {
-            entp->d_type = DT_REG;
-        }
-
-        /* Reset dummy fields */
-        entp->d_ino = 0;
-        entp->d_reclen = sizeof (struct _wdirent);
-
-    } else {
-
-        /* Last directory entry read */
-        entp = NULL;
-
-    }
-
-    return entp;
+        WIN32_FIND_DATAW *datap;
+        struct _wdirent *entp;
+
+        /* Read next directory entry */
+        datap = dirent_next(dirp);
+        if (datap) {
+                size_t n;
+                DWORD attr;
+
+                /* Pointer to directory entry to return */
+                entp = &dirp->ent;
+
+                /*
+                 * Copy file name as wide-character string.  If the file name is too
+                 * long to fit in to the destination buffer, then truncate file name
+                 * to PATH_MAX characters and zero-terminate the buffer.
+                 */
+                n = 0;
+                while(n + 1 < PATH_MAX  &&  datap->cFileName[n] != 0) {
+                        entp->d_name[n] = datap->cFileName[n];
+                        n++;
+                }
+                dirp->ent.d_name[n] = 0;
+
+                /* Length of file name excluding zero terminator */
+                entp->d_namlen = n;
+
+                /* File type */
+                attr = datap->dwFileAttributes;
+                if ((attr & FILE_ATTRIBUTE_DEVICE) != 0) {
+                        entp->d_type = DT_CHR;
+                } else if ((attr & FILE_ATTRIBUTE_DIRECTORY) != 0) {
+                        entp->d_type = DT_DIR;
+                } else {
+                        entp->d_type = DT_REG;
+                }
+
+                /* Reset dummy fields */
+                entp->d_ino = 0;
+                entp->d_reclen = sizeof(struct _wdirent);
+
+        } else {
+
+                /* Last directory entry read */
+                entp = NULL;
+
+        }
+
+        return entp;
 }
 
 /*
@@ -323,34 +297,33 @@ _wreaddir(
  * _wreaddir().
  */
 static int
-_wclosedir(
-    _WDIR *dirp)
+_wclosedir(_WDIR *dirp)
 {
-    int ok;
-    if (dirp) {
-
-        /* Release search handle */
-        if (dirp->handle != INVALID_HANDLE_VALUE) {
-            FindClose (dirp->handle);
-            dirp->handle = INVALID_HANDLE_VALUE;
-        }
-
-        /* Release search pattern */
-        if (dirp->patt) {
-            free (dirp->patt);
-            dirp->patt = NULL;
-        }
-
-        /* Release directory structure */
-        free (dirp);
-        ok = /*success*/0;
-
-    } else {
-        /* Invalid directory stream */
-        dirent_set_errno (EBADF);
-        ok = /*failure*/-1;
-    }
-    return ok;
+        int ok;
+        if (dirp) {
+
+                /* Release search handle */
+                if (dirp->handle != INVALID_HANDLE_VALUE) {
+                        FindClose(dirp->handle);
+                        dirp->handle = INVALID_HANDLE_VALUE;
+                }
+
+                /* Release search pattern */
+                if (dirp->patt) {
+                        free(dirp->patt);
+                        dirp->patt = NULL;
+                }
+
+                /* Release directory structure */
+                free(dirp);
+                ok = /*success*/0;
+
+        } else {
+                /* Invalid directory stream */
+                _set_errno(EBADF);
+                ok = /*failure*/-1;
+        }
+        return ok;
 }
 
 /*
@@ -358,140 +331,136 @@ _wclosedir(
  * file name again.
  */
 static void
-_wrewinddir(
-    _WDIR* dirp)
+_wrewinddir(_WDIR* dirp)
 {
-    if (dirp) {
-        /* Release existing search handle */
-        if (dirp->handle != INVALID_HANDLE_VALUE) {
-            FindClose (dirp->handle);
-        }
-
-        /* Open new search handle */
-        dirent_first (dirp);
-    }
+        if (dirp) {
+                /* Release existing search handle */
+                if (dirp->handle != INVALID_HANDLE_VALUE) {
+                        FindClose(dirp->handle);
+                }
+
+                /* Open new search handle */
+                dirent_first(dirp);
+        }
 }
 
-/* Get first directory entry (internal) */
+/* Get first directory entry(internal) */
 static WIN32_FIND_DATAW*
-dirent_first(
-    _WDIR *dirp)
+dirent_first(_WDIR *dirp)
 {
-    WIN32_FIND_DATAW *datap;
+        WIN32_FIND_DATAW *datap;
 
-    /* Open directory and retrieve the first entry */
-    dirp->handle = FindFirstFileW (dirp->patt, &dirp->data);
-    if (dirp->handle != INVALID_HANDLE_VALUE) {
+        /* Open directory and retrieve the first entry */
+        dirp->handle = FindFirstFileW(dirp->patt, &dirp->data);
+        if (dirp->handle != INVALID_HANDLE_VALUE) {
 
-        /* a directory entry is now waiting in memory */
-        datap = &dirp->data;
-        dirp->cached = 1;
+                /* a directory entry is now waiting in memory */
+                datap = &dirp->data;
+                dirp->cached = 1;
 
-    } else {
+        } else {
 
-        /* Failed to re-open directory: no directory entry in memory */
-        dirp->cached = 0;
-        datap = NULL;
+                /* Failed to re-open directory: no directory entry in memory */
+                dirp->cached = 0;
+                datap = NULL;
 
-    }
-    return datap;
+        }
+        return datap;
 }
 
-/* Get next directory entry (internal) */
+/* Get next directory entry(internal) */
 static WIN32_FIND_DATAW*
-dirent_next(
-    _WDIR *dirp)
+dirent_next(_WDIR *dirp)
 {
-    WIN32_FIND_DATAW *p;
+        WIN32_FIND_DATAW *p;
 
-    /* Get next directory entry */
-    if (dirp->cached != 0) {
+        /* Get next directory entry */
+        if (dirp->cached != 0) {
 
-        /* A valid directory entry already in memory */
-        p = &dirp->data;
-        dirp->cached = 0;
+                /* A valid directory entry already in memory */
+                p = &dirp->data;
+                dirp->cached = 0;
 
-    } else if (dirp->handle != INVALID_HANDLE_VALUE) {
+        } else if (dirp->handle != INVALID_HANDLE_VALUE) {
 
-        /* Get the next directory entry from stream */
-        if (FindNextFileW (dirp->handle, &dirp->data) != FALSE) {
-            /* Got a file */
-            p = &dirp->data;
-        } else {
-            /* The very last entry has been processed or an error occured */
-            FindClose (dirp->handle);
-            dirp->handle = INVALID_HANDLE_VALUE;
-            p = NULL;
-        }
+                /* Get the next directory entry from stream */
+                if (FindNextFileW(dirp->handle, &dirp->data) != FALSE) {
+                        /* Got a file */
+                        p = &dirp->data;
+                } else {
+                        /* The very last entry has been processed or an error occured */
+                        FindClose(dirp->handle);
+                        dirp->handle = INVALID_HANDLE_VALUE;
+                        p = NULL;
+                }
 
-    } else {
+        } else {
 
-        /* End of directory stream reached */
-        p = NULL;
+                /* End of directory stream reached */
+                p = NULL;
 
-    }
+        }
 
-    return p;
+        return p;
 }
 
 /*
  * Open directory stream using plain old C-string.
  */
 static DIR*
-opendir(
-    const char *dirname)
+opendir(const char *dirname)
 {
-    struct DIR *dirp;
-    int error;
-
-    /* Must have directory name */
-    if (dirname == NULL  ||  dirname[0] == '\0') {
-        dirent_set_errno (ENOENT);
-        return NULL;
-    }
-
-    /* Allocate memory for DIR structure */
-    dirp = (DIR*) malloc (sizeof (struct DIR));
-    if (dirp) {
-        wchar_t wname[PATH_MAX];
-        size_t n;
-
-        /* Convert directory name to wide-character string */
-        error = dirent_mbstowcs_s (&n, wname, PATH_MAX, dirname, PATH_MAX);
-        if (!error) {
-
-            /* Open directory stream using wide-character name */
-            dirp->wdirp = _wopendir (wname);
-            if (dirp->wdirp) {
-                /* Directory stream opened */
-                error = 0;
-            } else {
-                /* Failed to open directory stream */
-                error = 1;
-            }
-
-        } else {
-            /*
-             * Cannot convert file name to wide-character string.  This
-             * occurs if the string contains invalid multi-byte sequences or
-             * the output buffer is too small to contain the resulting
-             * string.
-             */
-            error = 1;
-        }
-
-    } else {
-        /* Cannot allocate DIR structure */
-        error = 1;
-    }
-
-    /* Clean up in case of error */
-    if (error  &&  dirp) {
-        free (dirp);
-        dirp = NULL;
-    }
-
-    return dirp;
+        struct DIR *dirp;
+        int error;
+
+        /* Must have directory name */
+        if (dirname == NULL  ||  dirname[0] == '\0') {
+                _set_errno(ENOENT);
+                return NULL;
+        }
+
+        /* Allocate memory for DIR structure */
+        dirp =(DIR*) malloc(sizeof(struct DIR));
+        if (dirp) {
+                wchar_t wname[PATH_MAX];
+                size_t n;
+
+                /* Convert directory name to wide-character string */
+                error = dirent_mbstowcs_s(&n, wname, PATH_MAX, dirname, PATH_MAX);
+                if (!error) {
+
+                        /* Open directory stream using wide-character name */
+                        dirp->wdirp = _wopendir(wname);
+                        if (dirp->wdirp) {
+                                /* Directory stream opened */
+                                error = 0;
+                        } else {
+                                /* Failed to open directory stream */
+                                error = 1;
+                        }
+
+                } else {
+                        /*
+                         * Cannot convert file name to wide-character string.  This
+                         * occurs if the string contains invalid multi-byte sequences or
+                         * the output buffer is too small to contain the resulting
+                         * string.
+                         */
+                        error = 1;
+                }
+
+        } else {
+                /* Cannot allocate DIR structure */
+                error = 1;
+        }
+
+        /* Clean up in case of error */
+        if (error  &&  dirp) {
+                free(dirp);
+                dirp = NULL;
+        }
+
+        return dirp;
 }
 
 /*
@@ -501,257 +470,142 @@ opendir(
  * readdir() are represented in the default ANSI code page while any output to
  * console is typically formatted on another code page.  Thus, non-ASCII
  * characters in file names will not usually display correctly on console.  The
- * problem can be fixed in two ways: (1) change the character set of console
- * to 1252 using chcp utility and use Lucida Console font, or (2) use
+ * problem can be fixed in two ways:(1) change the character set of console
+ * to 1252 using chcp utility and use Lucida Console font, or(2) use
  * _cprintf function when writing to console.  The _cprinf() will re-encode
  * ANSI strings to the console code page so many non-ASCII characters will
  * display correcly.
  */
 static struct dirent*
-readdir(
-    DIR *dirp)
+readdir(DIR *dirp)
 {
-    WIN32_FIND_DATAW *datap;
-    struct dirent *entp;
-
-    /* Read next directory entry */
-    datap = dirent_next (dirp->wdirp);
-    if (datap) {
-        size_t n;
-        int error;
-
-        /* Attempt to convert file name to multi-byte string */
-        error = dirent_wcstombs_s(
-            &n, dirp->ent.d_name, PATH_MAX, datap->cFileName, PATH_MAX);
-
-        /*
-         * If the file name cannot be represented by a multi-byte string,
-         * then attempt to use old 8+3 file name.  This allows traditional
-         * Unix-code to access some file names despite of unicode
-         * characters, although file names may seem unfamiliar to the user.
-         *
-         * Be ware that the code below cannot come up with a short file
-         * name unless the file system provides one.  At least
-         * VirtualBox shared folders fail to do this.
-         */
-        if (error  &&  datap->cAlternateFileName[0] != '\0') {
-            error = dirent_wcstombs_s(
-                &n, dirp->ent.d_name, PATH_MAX,
-                datap->cAlternateFileName, PATH_MAX);
-        }
-
-        if (!error) {
-            DWORD attr;
-
-            /* Initialize directory entry for return */
-            entp = &dirp->ent;
-
-            /* Length of file name excluding zero terminator */
-            entp->d_namlen = n - 1;
-
-            /* File attributes */
-            attr = datap->dwFileAttributes;
-            if ((attr & FILE_ATTRIBUTE_DEVICE) != 0) {
-                entp->d_type = DT_CHR;
-            } else if ((attr & FILE_ATTRIBUTE_DIRECTORY) != 0) {
-                entp->d_type = DT_DIR;
-            } else {
-                entp->d_type = DT_REG;
-            }
-
-            /* Reset dummy fields */
-            entp->d_ino = 0;
-            entp->d_reclen = sizeof (struct dirent);
-
-        } else {
-            /*
-             * Cannot convert file name to multi-byte string so construct
-             * an errornous directory entry and return that.  Note that
-             * we cannot return NULL as that would stop the processing
-             * of directory entries completely.
-             */
-            entp = &dirp->ent;
-            entp->d_name[0] = '?';
-            entp->d_name[1] = '\0';
-            entp->d_namlen = 1;
-            entp->d_type = DT_UNKNOWN;
-            entp->d_ino = 0;
-            entp->d_reclen = 0;
-        }
-
-    } else {
-        /* No more directory entries */
-        entp = NULL;
-    }
-
-    return entp;
+        WIN32_FIND_DATAW *datap;
+        struct dirent *entp;
+
+        /* Read next directory entry */
+        datap = dirent_next(dirp->wdirp);
+        if (datap) {
+                size_t n;
+                int error;
+
+                /* Attempt to convert file name to multi-byte string */
+                error = dirent_wcstombs_s(
+                        &n, dirp->ent.d_name, PATH_MAX, datap->cFileName, PATH_MAX);
+
+                /*
+                 * If the file name cannot be represented by a multi-byte string,
+                 * then attempt to use old 8+3 file name.  This allows traditional
+                 * Unix-code to access some file names despite of unicode
+                 * characters, although file names may seem unfamiliar to the user.
+                 *
+                 * Be ware that the code below cannot come up with a short file
+                 * name unless the file system provides one.  At least
+                 * VirtualBox shared folders fail to do this.
+                 */
+                if (error && datap->cAlternateFileName[0] != '\0') {
+                        error = dirent_wcstombs_s(
+                            &n, dirp->ent.d_name, PATH_MAX,
+                            datap->cAlternateFileName, PATH_MAX);
+                }
+
+                if (!error) {
+                        DWORD attr;
+
+                        /* Initialize directory entry for return */
+                        entp = &dirp->ent;
+
+                        /* Length of file name excluding zero terminator */
+                        entp->d_namlen = n - 1;
+
+                        /* File attributes */
+                        attr = datap->dwFileAttributes;
+                        if ((attr & FILE_ATTRIBUTE_DEVICE) != 0) {
+                                entp->d_type = DT_CHR;
+                        } else if ((attr & FILE_ATTRIBUTE_DIRECTORY) != 0) {
+                                entp->d_type = DT_DIR;
+                        } else {
+                                entp->d_type = DT_REG;
+                        }
+
+                        /* Reset dummy fields */
+                        entp->d_ino = 0;
+                        entp->d_reclen = sizeof(struct dirent);
+
+                } else {
+                        /*
+                         * Cannot convert file name to multi-byte string so construct
+                         * an errornous directory entry and return that.  Note that
+                         * we cannot return NULL as that would stop the processing
+                         * of directory entries completely.
+                         */
+                        entp = &dirp->ent;
+                        entp->d_name[0] = '?';
+                        entp->d_name[1] = '\0';
+                        entp->d_namlen = 1;
+                        entp->d_type = DT_UNKNOWN;
+                        entp->d_ino = 0;
+                        entp->d_reclen = 0;
+                }
+
+        } else {
+                /* No more directory entries */
+                entp = NULL;
+        }
+
+        return entp;
 }
 
 /*
  * Close directory stream.
  */
 static int
-closedir(
-    DIR *dirp)
+closedir(DIR *dirp)
 {
-    int ok;
-    if (dirp) {
+        int ok;
+        if (dirp) {
 
-        /* Close wide-character directory stream */
-        ok = _wclosedir (dirp->wdirp);
-        dirp->wdirp = NULL;
+                /* Close wide-character directory stream */
+                ok = _wclosedir(dirp->wdirp);
+                dirp->wdirp = NULL;
 
-        /* Release multi-byte character version */
-        free (dirp);
+                /* Release multi-byte character version */
+                free(dirp);
 
-    } else {
+        } else {
 
-        /* Invalid directory stream */
-        dirent_set_errno (EBADF);
-        ok = /*failure*/-1;
+                /* Invalid directory stream */
+                _set_errno(EBADF);
+                ok = /*failure*/-1;
 
-    }
-    return ok;
+        }
+        return ok;
 }
 
 /*
  * Rewind directory stream to beginning.
  */
 static void
-rewinddir(
-    DIR* dirp)
+rewinddir(DIR* dirp)
 {
-    /* Rewind wide-character string directory stream */
-    _wrewinddir (dirp->wdirp);
+        /* Rewind wide-character string directory stream */
+        _wrewinddir(dirp->wdirp);
 }
 
 /* Convert multi-byte string to wide character string */
 static int
-dirent_mbstowcs_s(
-    size_t *pReturnValue,
-    wchar_t *wcstr,
-    size_t sizeInWords,
-    const char *mbstr,
-    size_t count)
+dirent_mbstowcs_s(size_t *pReturnValue, wchar_t *wcstr,
+        size_t sizeInWords, const char *mbstr, size_t count)
 {
-    int error;
-
-#if defined(_MSC_VER)  &&  _MSC_VER >= 1400
-
-    /* Microsoft Visual Studio 2005 or later */
-    error = mbstowcs_s (pReturnValue, wcstr, sizeInWords, mbstr, count);
-
-#else
-
-    /* Older Visual Studio or non-Microsoft compiler */
-    size_t n;
-
-    /* Convert to wide-character string (or count characters) */
-    n = mbstowcs (wcstr, mbstr, sizeInWords);
-    if (!wcstr  ||  n < count) {
-
-        /* Zero-terminate output buffer */
-        if (wcstr  &&  sizeInWords) {
-            if (n >= sizeInWords) {
-                n = sizeInWords - 1;
-            }
-            wcstr[n] = 0;
-        }
-
-        /* Length of resuting multi-byte string WITH zero terminator */
-        if (pReturnValue) {
-            *pReturnValue = n + 1;
-        }
-
-        /* Success */
-        error = 0;
-
-    } else {
-
-        /* Could not convert string */
-        error = 1;
-
-    }
-
-#endif
-
-    return error;
+        return mbstowcs_s(pReturnValue, wcstr, sizeInWords, mbstr, count);
 }
 
 /* Convert wide-character string to multi-byte string */
 static int
-dirent_wcstombs_s(
-    size_t *pReturnValue,
-    char *mbstr,
-    size_t sizeInBytes, /* max size of mbstr */
-    const wchar_t *wcstr,
-    size_t count)
+dirent_wcstombs_s(size_t *pReturnValue, char *mbstr,
+        size_t sizeInBytes, /* max size of mbstr */
+        const wchar_t *wcstr, size_t count)
 {
-    int error;
-
-#if defined(_MSC_VER)  &&  _MSC_VER >= 1400
-
-    /* Microsoft Visual Studio 2005 or later */
-    error = wcstombs_s (pReturnValue, mbstr, sizeInBytes, wcstr, count);
-
-#else
-
-    /* Older Visual Studio or non-Microsoft compiler */
-    size_t n;
-
-    /* Convert to multi-byte string (or count the number of bytes needed) */
-    n = wcstombs (mbstr, wcstr, sizeInBytes);
-    if (!mbstr  ||  n < count) {
-
-        /* Zero-terminate output buffer */
-        if (mbstr  &&  sizeInBytes) {
-            if (n >= sizeInBytes) {
-                n = sizeInBytes - 1;
-            }
-            mbstr[n] = '\0';
-        }
-
-        /* Lenght of resulting multi-bytes string WITH zero-terminator */
-        if (pReturnValue) {
-            *pReturnValue = n + 1;
-        }
-
-        /* Success */
-        error = 0;
-
-    } else {
-
-        /* Cannot convert string */
-        error = 1;
-
-    }
-
-#endif
-
-    return error;
+        return wcstombs_s(pReturnValue, mbstr, sizeInBytes, wcstr, count);
 }
 
-/* Set errno variable */
-static void
-dirent_set_errno(
-    int error)
-{
-#if defined(_MSC_VER)  &&  _MSC_VER >= 1400
-
-    /* Microsoft Visual Studio 2005 and later */
-    _set_errno (error);
-
-#else
-
-    /* Non-Microsoft compiler or older Microsoft compiler */
-    errno = error;
-
-#endif
-}
-
-
-#ifdef __cplusplus
-}
-#endif
 #endif /*DIRENT_H*/
-