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 

    41 DIR *

    42 opendir(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 

   109 struct dirent *

   110 readdir(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 

   130 int

   131 closedir(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 

   145 void

   146 rewinddir(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 }