1/*
2 * Copyright (c) 1995, 2003, Oracle and/or its affiliates. All rights reserved.
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
4 *
5 * This code is free software; you can redistribute it and/or modify it
6 * under the terms of the GNU General Public License version 2 only, as
7 * published by the Free Software Foundation.  Oracle designates this
8 * particular file as subject to the "Classpath" exception as provided
9 * by Oracle in the LICENSE file that accompanied this code.
10 *
11 * This code is distributed in the hope that it will be useful, but WITHOUT
12 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
14 * version 2 for more details (a copy is included in the LICENSE file that
15 * accompanied this code).
16 *
17 * You should have received a copy of the GNU General Public License version
18 * 2 along with this work; if not, write to the Free Software Foundation,
19 * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
20 *
21 * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
22 * or visit www.oracle.com if you need additional information or have any
23 * questions.
24 */
25
26/*
27 * Posix-compatible directory access routines
28 */
29
30#include <windows.h>
31#include <direct.h>                    /* For _getdrive() */
32#include <errno.h>
33#include <assert.h>
34
35#include "dirent_md.h"
36
37
38/* Caller must have already run dirname through JVM_NativePath, which removes
39   duplicate slashes and converts all instances of '/' into '\\'. */
40
41DIR *
42opendir(const char *dirname)
43{
44    DIR *dirp = (DIR *)malloc(sizeof(DIR));
45    DWORD fattr;
46    char alt_dirname[4] = { 0, 0, 0, 0 };
47
48    if (dirp == 0) {
49        errno = ENOMEM;
50        return 0;
51    }
52
53    /*
54     * Win32 accepts "\" in its POSIX stat(), but refuses to treat it
55     * as a directory in FindFirstFile().  We detect this case here and
56     * prepend the current drive name.
57     */
58    if (dirname[1] == '\0' && dirname[0] == '\\') {
59        alt_dirname[0] = _getdrive() + 'A' - 1;
60        alt_dirname[1] = ':';
61        alt_dirname[2] = '\\';
62        alt_dirname[3] = '\0';
63        dirname = alt_dirname;
64    }
65
66    dirp->path = (char *)malloc(strlen(dirname) + 5);
67    if (dirp->path == 0) {
68        free(dirp);
69        errno = ENOMEM;
70        return 0;
71    }
72    strcpy(dirp->path, dirname);
73
74    fattr = GetFileAttributes(dirp->path);
75    if (fattr == ((DWORD)-1)) {
76        free(dirp->path);
77        free(dirp);
78        errno = ENOENT;
79        return 0;
80    } else if ((fattr & FILE_ATTRIBUTE_DIRECTORY) == 0) {
81        free(dirp->path);
82        free(dirp);
83        errno = ENOTDIR;
84        return 0;
85    }
86
87    /* Append "*.*", or possibly "\\*.*", to path */
88    if (dirp->path[1] == ':'
89        && (dirp->path[2] == '\0'
90            || (dirp->path[2] == '\\' && dirp->path[3] == '\0'))) {
91        /* No '\\' needed for cases like "Z:" or "Z:\" */
92        strcat(dirp->path, "*.*");
93    } else {
94        strcat(dirp->path, "\\*.*");
95    }
96
97    dirp->handle = FindFirstFile(dirp->path, &dirp->find_data);
98    if (dirp->handle == INVALID_HANDLE_VALUE) {
99        if (GetLastError() != ERROR_FILE_NOT_FOUND) {
100            free(dirp->path);
101            free(dirp);
102            errno = EACCES;
103            return 0;
104        }
105    }
106    return dirp;
107}
108
109struct dirent *
110readdir(DIR *dirp)
111{
112    if (dirp->handle == INVALID_HANDLE_VALUE) {
113        return 0;
114    }
115
116    strcpy(dirp->dirent.d_name, dirp->find_data.cFileName);
117
118    if (!FindNextFile(dirp->handle, &dirp->find_data)) {
119        if (GetLastError() == ERROR_INVALID_HANDLE) {
120            errno = EBADF;
121            return 0;
122        }
123        FindClose(dirp->handle);
124        dirp->handle = INVALID_HANDLE_VALUE;
125    }
126
127    return &dirp->dirent;
128}
129
130int
131closedir(DIR *dirp)
132{
133    if (dirp->handle != INVALID_HANDLE_VALUE) {
134        if (!FindClose(dirp->handle)) {
135            errno = EBADF;
136            return -1;
137        }
138        dirp->handle = INVALID_HANDLE_VALUE;
139    }
140    free(dirp->path);
141    free(dirp);
142    return 0;
143}
144
145void
146rewinddir(DIR *dirp)
147{
148    if (dirp->handle != INVALID_HANDLE_VALUE) {
149        FindClose(dirp->handle);
150    }
151    dirp->handle = FindFirstFile(dirp->path, &dirp->find_data);
152}
153