lib/third_party/Pluma/uce-dirent.h

   1 /*
   2  * uce-dirent.h - operating system independent dirent implementation
   3  *
   4  * Copyright (C) 1998-2002  Toni Ronkko
   5  *
   6  * Permission is hereby granted, free of charge, to any person obtaining
   7  * a copy of this software and associated documentation files (the
   8  * ``Software''), to deal in the Software without restriction, including
   9  * without limitation the rights to use, copy, modify, merge, publish,
  10  * distribute, sublicense, and/or sell copies of the Software, and to
  11  * permit persons to whom the Software is furnished to do so, subject to
  12  * the following conditions:
  13  *
  14  * The above copyright notice and this permission notice shall be included
  15  * in all copies or substantial portions of the Software.
  16  *
  17  * THE SOFTWARE IS PROVIDED ``AS IS'', WITHOUT WARRANTY OF ANY KIND, EXPRESS
  18  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  19  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  20  * IN NO EVENT SHALL TONI RONKKO BE LIABLE FOR ANY CLAIM, DAMAGES OR
  21  * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE,
  22  * ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
  23  * OTHER DEALINGS IN THE SOFTWARE.
  24  *
  25  *
  26  * May 28 1998, Toni Ronkko <tronkko@messi.uku.fi>
  27  *
  28  * $Id: uce-dirent.h,v 1.7 2002/05/13 10:48:35 tr Exp $
  29  *
  30  * $Log: uce-dirent.h,v $
  31  * Revision 1.7  2002/05/13 10:48:35  tr
  32  * embedded some source code directly to the header so that no source
  33  * modules need to be included in the MS Visual C project using the
  34  * interface, removed all the dependencies to other headers of the `uce'
  35  * library so that the header can be made public
  36  *
  37  * Revision 1.6  2002/04/12 16:22:04  tr
  38  * Unified Compiling Environment (UCE) replaced `std' library
  39  *
  40  * Revision 1.5  2001/07/20 16:33:40  tr
  41  * moved to `std' library and re-named defines accordingly
  42  *
  43  * Revision 1.4  2001/07/10 16:47:18  tronkko
  44  * revised comments
  45  *
  46  * Revision 1.3  2001/01/11 13:16:43  tr
  47  * using ``uce-machine.h'' for finding out defines such as `FREEBSD'
  48  *
  49  * Revision 1.2  2000/10/08 16:00:41  tr
  50  * copy of FreeBSD man page
  51  *
  52  * Revision 1.1  2000/07/10 05:53:16  tr
  53  * Initial revision
  54  *
  55  * Revision 1.2  1998/07/19 18:29:14  tr
  56  * Added error reporting capabilities and some asserts.
  57  *
  58  * Revision 1.1  1998/07/04 16:27:51  tr
  59  * Initial revision
  60  *
  61  *
  62  * MSVC 1.0 scans automatic dependencies incorrectly when your project
  63  * contains this very header.  The problem is that MSVC cannot handle
  64  * include directives inside #if..#endif block those are never entered.
  65  * Since this header ought to compile in many different operating systems,
  66  * there had to be several conditional blocks that are compiled only in
  67  * operating systems for what they were designed for.  MSVC 1.0 cannot
  68  * handle inclusion of sys/dir.h in a part that is compiled only in Apollo
  69  * operating system.  To fix the problem you need to insert DIR.H into
  70  * SYSINCL.DAT located in MSVC\BIN directory and restart visual C++.
  71  * Consult manuals for more informaton about the problem.
  72  *
  73  * Since many UNIX systems have dirent.h we assume to have one also.
  74  * However, if your UNIX system does not have dirent.h you can download one
  75  * for example at: http://ftp.uni-mannheim.de/ftp/GNU/dirent/dirent.tar.gz.
  76  * You can also see if you have one of dirent.h, direct.h, dir.h, ndir.h,
  77  * sys/dir.h and sys/ndir.h somewhere.  Try defining HAVE_DIRENT_H,
  78  * HAVE_DIRECT_H, HAVE_DIR_H, HAVE_NDIR_H, HAVE_SYS_DIR_H and
  79  * HAVE_SYS_NDIR_H according to the files found.
  80  */
  81 #ifndef DIRENT_H
  82 #define DIRENT_H
  83 #define DIRENT_H_INCLUDED
  84
  85 /* find out platform */
  86 #if defined(MSDOS)                             /* MS-DOS */
  87 #elif defined(__MSDOS__)                       /* Turbo C/Borland */
  88 # define MSDOS
  89 #elif defined(__DOS__)                         /* Watcom */
  90 # define MSDOS
  91 #endif
  92
  93 #if defined(WIN32)                             /* MS-Windows */
  94 #elif defined(__NT__)                          /* Watcom */
  95 # define WIN32
  96 #elif defined(_WIN32)                          /* Microsoft */
  97 # define WIN32
  98 #elif defined(__WIN32__)                       /* Borland */
  99 # define WIN32
 100 #endif
 101
 102 /*
 103  * See what kind of dirent interface we have unless autoconf has already
 104  * determinated that.
 105  */
 106 #if !defined(HAVE_DIRENT_H) && !defined(HAVE_DIRECT_H) && !defined(HAVE_SYS_DIR_H) && !defined(HAVE_NDIR_H) && !defined(HAVE_SYS_NDIR_H) && !defined(HAVE_DIR_H)
 107 # if defined(_MSC_VER)                         /* Microsoft C/C++ */
 108     /* no dirent.h */
 109 # elif defined(__BORLANDC__)                   /* Borland C/C++ */
 110 #   define HAVE_DIRENT_H
 111 #   define VOID_CLOSEDIR
 112 # elif defined(__TURBOC__)                     /* Borland Turbo C */
 113     /* no dirent.h */
 114 # elif defined(__WATCOMC__)                    /* Watcom C/C++ */
 115 #   define HAVE_DIRECT_H
 116 # elif defined(__apollo)                       /* Apollo */
 117 #   define HAVE_SYS_DIR_H
 118 # elif defined(__hpux)                         /* HP-UX */
 119 #   define HAVE_DIRENT_H
 120 # elif defined(__alpha) || defined(__alpha__)  /* Alpha OSF1 */
 121 #   error "not implemented"
 122 # elif defined(__sgi)                          /* Silicon Graphics */
 123 #   define HAVE_DIRENT_H
 124 # elif defined(sun) || defined(_sun)           /* Sun Solaris */
 125 #   define HAVE_DIRENT_H
 126 # elif defined(__FreeBSD__)                    /* FreeBSD */
 127 #   define HAVE_DIRENT_H
 128 # elif defined(__linux__)                      /* Linux */
 129 #   define HAVE_DIRENT_H
 130 # elif defined(__GNUC__)                       /* GNU C/C++ */
 131 #   define HAVE_DIRENT_H
 132 # else
 133 #   error "not implemented"
 134 # endif
 135 #endif
 136
 137 /* include proper interface headers */
 138 #if defined(HAVE_DIRENT_H)
 139 # include <dirent.h>
 140 # ifdef FREEBSD
 141 #   define NAMLEN(dp) ((int)((dp)->d_namlen))
 142 # else
 143 #   define NAMLEN(dp) ((int)(strlen((dp)->d_name)))
 144 # endif
 145
 146 #elif defined(HAVE_NDIR_H)
 147 # include <ndir.h>
 148 # define NAMLEN(dp) ((int)((dp)->d_namlen))
 149
 150 #elif defined(HAVE_SYS_NDIR_H)
 151 # include <sys/ndir.h>
 152 # define NAMLEN(dp) ((int)((dp)->d_namlen))
 153
 154 #elif defined(HAVE_DIRECT_H)
 155 # include <direct.h>
 156 # define NAMLEN(dp) ((int)((dp)->d_namlen))
 157
 158 #elif defined(HAVE_DIR_H)
 159 # include <dir.h>
 160 # define NAMLEN(dp) ((int)((dp)->d_namlen))
 161
 162 #elif defined(HAVE_SYS_DIR_H)
 163 # include <sys/types.h>
 164 # include <sys/dir.h>
 165 # ifndef dirent
 166 #   define dirent direct
 167 # endif
 168 # define NAMLEN(dp) ((int)((dp)->d_namlen))
 169
 170 #elif defined(MSDOS) || defined(WIN32)
 171
 172   /* figure out type of underlaying directory interface to be used */
 173 # if defined(WIN32)
 174 #   define DIRENT_WIN32_INTERFACE
 175 # elif defined(MSDOS)
 176 #   define DIRENT_MSDOS_INTERFACE
 177 # else
 178 #   error "missing native dirent interface"
 179 # endif
 180
 181   /*** WIN32 specifics ***/
 182 # if defined(DIRENT_WIN32_INTERFACE)
 183 #   include <windows.h>
 184 #   if !defined(DIRENT_MAXNAMLEN)
 185 #     define DIRENT_MAXNAMLEN (MAX_PATH)
 186 #   endif
 187
 188
 189   /*** MS-DOS specifics ***/
 190 # elif defined(DIRENT_MSDOS_INTERFACE)
 191 #   include <dos.h>
 192
 193     /* Borland defines file length macros in dir.h */
 194 #   if defined(__BORLANDC__)
 195 #     include <dir.h>
 196 #     if !defined(DIRENT_MAXNAMLEN)
 197 #       define DIRENT_MAXNAMLEN ((MAXFILE)+(MAXEXT))
 198 #     endif
 199 #     if !defined(_find_t)
 200 #       define _find_t find_t
 201 #     endif
 202
 203     /* Turbo C defines ffblk structure in dir.h */
 204 #   elif defined(__TURBOC__)
 205 #     include <dir.h>
 206 #     if !defined(DIRENT_MAXNAMLEN)
 207 #       define DIRENT_MAXNAMLEN ((MAXFILE)+(MAXEXT))
 208 #     endif
 209 #     define DIRENT_USE_FFBLK
 210
 211     /* MSVC */
 212 #   elif defined(_MSC_VER)
 213 #     if !defined(DIRENT_MAXNAMLEN)
 214 #       define DIRENT_MAXNAMLEN (12)
 215 #     endif
 216
 217     /* Watcom */
 218 #   elif defined(__WATCOMC__)
 219 #     if !defined(DIRENT_MAXNAMLEN)
 220 #       if defined(__OS2__) || defined(__NT__)
 221 #         define DIRENT_MAXNAMLEN (255)
 222 #       else
 223 #         define DIRENT_MAXNAMLEN (12)
 224 #       endif
 225 #     endif
 226
 227 #   endif
 228 # endif
 229
 230   /*** generic MS-DOS and MS-Windows stuff ***/
 231 # if !defined(NAME_MAX) && defined(DIRENT_MAXNAMLEN)
 232 #   define NAME_MAX DIRENT_MAXNAMLEN
 233 # endif
 234 # if NAME_MAX < DIRENT_MAXNAMLEN
 235 #   error "assertion failed: NAME_MAX >= DIRENT_MAXNAMLEN"
 236 # endif
 237
 238
 239   /*
 240    * Substitute for real dirent structure.  Note that `d_name' field is a
 241    * true character array although we have it copied in the implementation
 242    * dependent data.  We could save some memory if we had declared `d_name'
 243    * as a pointer refering the name within implementation dependent data.
 244    * We have not done that since some code may rely on sizeof(d_name) to be
 245    * something other than four.  Besides, directory entries are typically so
 246    * small that it takes virtually no time to copy them from place to place.
 247    */
 248   typedef struct dirent {
 249     char d_name[NAME_MAX + 1];
 250
 251     /*** Operating system specific part ***/
 252 # if defined(DIRENT_WIN32_INTERFACE)       /*WIN32*/
 253     WIN32_FIND_DATA data;
 254 # elif defined(DIRENT_MSDOS_INTERFACE)     /*MSDOS*/
 255 #   if defined(DIRENT_USE_FFBLK)
 256     struct ffblk data;
 257 #   else
 258     struct _find_t data;
 259 #   endif
 260 # endif
 261   } dirent;
 262
 263   /* DIR substitute structure containing directory name.  The name is
 264    * essential for the operation of ``rewinndir'' function. */
 265   typedef struct DIR {
 266     char          *dirname;                    /* directory being scanned */
 267     dirent        current;                     /* current entry */
 268     int           dirent_filled;               /* is current un-processed? */
 269
 270   /*** Operating system specific part ***/
 271 #  if defined(DIRENT_WIN32_INTERFACE)
 272     HANDLE        search_handle;
 273 #  elif defined(DIRENT_MSDOS_INTERFACE)
 274 #  endif
 275   } DIR;
 276
 277 # ifdef __cplusplus
 278 extern "C" {
 279 # endif
 280
 281 /* supply prototypes for dirent functions */
 282 static DIR *opendir (const char *dirname);
 283 static struct dirent *readdir (DIR *dirp);
 284 static int closedir (DIR *dirp);
 285 static void rewinddir (DIR *dirp);
 286
 287 /*
 288  * Implement dirent interface as static functions so that the user does not
 289  * need to change his project in any way to use dirent function.  With this
 290  * it is sufficient to include this very header from source modules using
 291  * dirent functions and the functions will be pulled in automatically.
 292  */
 293 #include <stdio.h>
 294 #include <stdlib.h>
 295 #include <string.h>
 296 #include <assert.h>
 297 #include <errno.h>
 298
 299 /** Change by florez-l@javeriana.edu.co **/
 300 #if defined(WIN32)
 301 #  define NEW_STRCPY(A,B) strcpy_s(A,strlen(A),B)
 302 #  define NEW_STRNCPY(A,B,C) strncpy_s(A,C,B,C)
 303 #else // defined(WIN32)
 304 #  define NEW_STRCPY(A,B) strcpy(A,B)
 305 #  define NEW_STRNCPY(A,B,C) strncpy(A,B,C)
 306 #endif // defined(WIN32)
 307
 308 /* use ffblk instead of _find_t if requested */
 309 #if defined(DIRENT_USE_FFBLK)
 310 # define _A_ARCH   (FA_ARCH)
 311 # define _A_HIDDEN (FA_HIDDEN)
 312 # define _A_NORMAL (0)
 313 # define _A_RDONLY (FA_RDONLY)
 314 # define _A_SUBDIR (FA_DIREC)
 315 # define _A_SYSTEM (FA_SYSTEM)
 316 # define _A_VOLID  (FA_LABEL)
 317 # define _dos_findnext(dest) findnext(dest)
 318 # define _dos_findfirst(name,flags,dest) findfirst(name,dest,flags)
 319 #endif
 320
 321 static int _initdir (DIR *p);
 322 static const char *_getdirname (const struct dirent *dp);
 323 static void _setdirname (struct DIR *dirp);
 324
 325 /*
 326  * <function name="opendir">
 327  * <intro>open directory stream for reading
 328  * <syntax>DIR *opendir (const char *dirname);
 329  *
 330  * <desc>Open named directory stream for read and return pointer to the
 331  * internal working area that is used for retrieving individual directory
 332  * entries.  The internal working area has no fields of your interest.
 333  *
 334  * <ret>Returns a pointer to the internal working area or NULL in case the
 335  * directory stream could not be opened.  Global `errno' variable will set
 336  * in case of error as follows:
 337  *
 338  * <table>
 339  * [EACESS  |Permission denied.
 340  * [EMFILE  |Too many open files used by the process.
 341  * [ENFILE  |Too many open files in system.
 342  * [ENOENT  |Directory does not exist.
 343  * [ENOMEM  |Insufficient memory.
 344  * [ENOTDIR |dirname does not refer to directory.  This value is not
 345  *           reliable on MS-DOS and MS-Windows platforms.  Many
 346  *           implementations return ENOENT even when the name refers to a
 347  *           file.]
 348  * </table>
 349  * </function>
 350  */
 351 static DIR *
 352 opendir(
 353     const char *dirname)
 354 {
 355   DIR *dirp;
 356   assert (dirname != NULL);
 357
 358   dirp = (DIR*)malloc (sizeof (struct DIR));
 359   if (dirp != NULL) {
 360     char *p;
 361
 362     /* allocate room for directory name */
 363     dirp->dirname = (char*) malloc (strlen (dirname) + 1 + strlen ("\\*.*"));
 364     if (dirp->dirname == NULL) {
 365       /* failed to duplicate directory name.  errno set by malloc() */
 366       free (dirp);
 367       return NULL;
 368     }
 369     /* Copy directory name while appending directory separator and "*.*".
 370      * Directory separator is not appended if the name already ends with
 371      * drive or directory separator.  Directory separator is assumed to be
 372      * '/' or '\' and drive separator is assumed to be ':'. */
 373     NEW_STRCPY (dirp->dirname, dirname);
 374     p = strchr (dirp->dirname, '\0');
 375     if (dirp->dirname < p  &&
 376         *(p - 1) != '\\'  &&  *(p - 1) != '/'  &&  *(p - 1) != ':')
 377     {
 378       NEW_STRCPY (p++, "/");
 379     }
 380 # ifdef DIRENT_WIN32_INTERFACE
 381     NEW_STRCPY (p, "*"); /*scan files with and without extension in win32*/
 382 # else
 383     NEW_STRCPY (p, "*.*"); /*scan files with and without extension in DOS*/
 384 # endif
 385
 386     /* open stream */
 387     if (_initdir (dirp) == 0) {
 388       /* initialization failed */
 389       free (dirp->dirname);
 390       free (dirp);
 391       return NULL;
 392     }
 393   }
 394   return dirp;
 395 }
 396
 397
 398 /*
 399  * <function name="readdir">
 400  * <intro>read a directory entry
 401  * <syntax>struct dirent *readdir (DIR *dirp);
 402  *
 403  * <desc>Read individual directory entry and return pointer to a structure
 404  * containing the name of the entry.  Individual directory entries returned
 405  * include normal files, sub-directories, pseudo-directories "." and ".."
 406  * and also volume labels, hidden files and system files in MS-DOS and
 407  * MS-Windows.   You might want to use stat(2) function to determinate which
 408  * one are you dealing with.  Many dirent implementations already contain
 409  * equivalent information in dirent structure but you cannot depend on
 410  * this.
 411  *
 412  * The dirent structure contains several system dependent fields that
 413  * generally have no interest to you.  The only interesting one is char
 414  * d_name[] that is also portable across different systems.  The d_name
 415  * field contains the name of the directory entry without leading path.
 416  * While d_name is portable across different systems the actual storage
 417  * capacity of d_name varies from system to system and there is no portable
 418  * way to find out it at compile time as different systems define the
 419  * capacity of d_name with different macros and some systems do not define
 420  * capacity at all (besides actual declaration of the field). If you really
 421  * need to find out storage capacity of d_name then you might want to try
 422  * NAME_MAX macro. The NAME_MAX is defined in POSIX standard althought
 423  * there are many MS-DOS and MS-Windows implementations those do not define
 424  * it.  There are also systems that declare d_name as "char d_name[1]" and
 425  * then allocate suitable amount of memory at run-time.  Thanks to Alain
 426  * Decamps (Alain.Decamps@advalvas.be) for pointing it out to me.
 427  *
 428  * This all leads to the fact that it is difficult to allocate space
 429  * for the directory names when the very same program is being compiled on
 430  * number of operating systems.  Therefore I suggest that you always
 431  * allocate space for directory names dynamically.
 432  *
 433  * <ret>
 434  * Returns a pointer to a structure containing name of the directory entry
 435  * in `d_name' field or NULL if there was an error.  In case of an error the
 436  * global `errno' variable will set as follows:
 437  *
 438  * <table>
 439  * [EBADF  |dir parameter refers to an invalid directory stream.  This value
 440  *          is not set reliably on all implementations.]
 441  * </table>
 442  * </function>
 443  */
 444 static struct dirent *
 445 readdir (DIR *dirp)
 446 {
 447   assert (dirp != NULL);
 448   if (dirp == NULL) {
 449     errno = EBADF;
 450     return NULL;
 451   }
 452
 453 #if defined(DIRENT_WIN32_INTERFACE)
 454   if (dirp->search_handle == INVALID_HANDLE_VALUE) {
 455     /* directory stream was opened/rewound incorrectly or it ended normally */
 456     errno = EBADF;
 457     return NULL;
 458   }
 459 #endif
 460
 461   if (dirp->dirent_filled != 0) {
 462     /*
 463      * Directory entry has already been retrieved and there is no need to
 464      * retrieve a new one.  Directory entry will be retrieved in advance
 465      * when the user calls readdir function for the first time.  This is so
 466      * because real dirent has separate functions for opening and reading
 467      * the stream whereas Win32 and DOS dirents open the stream
 468      * automatically when we retrieve the first file.  Therefore, we have to
 469      * save the first file when opening the stream and later we have to
 470      * return the saved entry when the user tries to read the first entry.
 471      */
 472     dirp->dirent_filled = 0;
 473   } else {
 474     /* fill in entry and return that */
 475 #if defined(DIRENT_WIN32_INTERFACE)
 476     if (FindNextFile (dirp->search_handle, &dirp->current.data) == FALSE) {
 477       /* Last file has been processed or an error occured */
 478       FindClose (dirp->search_handle);
 479       dirp->search_handle = INVALID_HANDLE_VALUE;
 480       errno = ENOENT;
 481       return NULL;
 482     }
 483
 484 # elif defined(DIRENT_MSDOS_INTERFACE)
 485     if (_dos_findnext (&dirp->current.data) != 0) {
 486       /* _dos_findnext and findnext will set errno to ENOENT when no
 487        * more entries could be retrieved. */
 488       return NULL;
 489     }
 490 # endif
 491
 492     _setdirname (dirp);
 493     assert (dirp->dirent_filled == 0);
 494   }
 495   return &dirp->current;
 496 }
 497
 498
 499 /*
 500  * <function name="closedir">
 501  * <intro>close directory stream.
 502  * <syntax>int closedir (DIR *dirp);
 503  *
 504  * <desc>Close directory stream opened by the `opendir' function.  Close of
 505  * directory stream invalidates the DIR structure as well as previously read
 506  * dirent entry.
 507  *
 508  * <ret>The function typically returns 0 on success and -1 on failure but
 509  * the function may be declared to return void on same systems.  At least
 510  * Borland C/C++ and some UNIX implementations use void as a return type.
 511  * The dirent wrapper tries to define VOID_CLOSEDIR whenever closedir is
 512  * known to return nothing.  The very same definition is made by the GNU
 513  * autoconf if you happen to use it.
 514  *
 515  * The global `errno' variable will set to EBADF in case of error.
 516  * </function>
 517  */
 518 static int
 519 closedir (DIR *dirp)
 520 {
 521   int retcode = 0;
 522
 523   /* make sure that dirp points to legal structure */
 524   assert (dirp != NULL);
 525   if (dirp == NULL) {
 526     errno = EBADF;
 527     return -1;
 528   }
 529
 530   /* free directory name and search handles */
 531   if (dirp->dirname != NULL) free (dirp->dirname);
 532
 533 #if defined(DIRENT_WIN32_INTERFACE)
 534   if (dirp->search_handle != INVALID_HANDLE_VALUE) {
 535     if (FindClose (dirp->search_handle) == FALSE) {
 536       /* Unknown error */
 537       retcode = -1;
 538       errno = EBADF;
 539     }
 540   }
 541 #endif
 542
 543   /* clear dirp structure to make sure that it cannot be used anymore*/
 544   memset (dirp, 0, sizeof (*dirp));
 545 # if defined(DIRENT_WIN32_INTERFACE)
 546   dirp->search_handle = INVALID_HANDLE_VALUE;
 547 # endif
 548
 549   free (dirp);
 550   return retcode;
 551 }
 552
 553
 554 /*
 555  * <function name="rewinddir">
 556  * <intro>rewind directory stream to the beginning
 557  * <syntax>void rewinddir (DIR *dirp);
 558  *
 559  * <desc>Rewind directory stream to the beginning so that the next call of
 560  * readdir() returns the very first directory entry again.  However, note
 561  * that next call of readdir() may not return the same directory entry as it
 562  * did in first time.  The directory stream may have been affected by newly
 563  * created files.
 564  *
 565  * Almost every dirent implementation ensure that rewinddir will update
 566  * the directory stream to reflect any changes made to the directory entries
 567  * since the previous ``opendir'' or ``rewinddir'' call.  Keep an eye on
 568  * this if your program depends on the feature.  I know at least one dirent
 569  * implementation where you are required to close and re-open the stream to
 570  * see the changes.
 571  *
 572  * <ret>Returns nothing.  If something went wrong while rewinding, you will
 573  * notice it later when you try to retrieve the first directory entry.
 574  */
 575 static void
 576 rewinddir (DIR *dirp)
 577 {
 578   /* make sure that dirp is legal */
 579   assert (dirp != NULL);
 580   if (dirp == NULL) {
 581     errno = EBADF;
 582     return;
 583   }
 584   assert (dirp->dirname != NULL);
 585
 586   /* close previous stream */
 587 #if defined(DIRENT_WIN32_INTERFACE)
 588   if (dirp->search_handle != INVALID_HANDLE_VALUE) {
 589     if (FindClose (dirp->search_handle) == FALSE) {
 590       /* Unknown error */
 591       errno = EBADF;
 592     }
 593   }
 594 #endif
 595
 596   /* re-open previous stream */
 597   if (_initdir (dirp) == 0) {
 598     /* initialization failed but we cannot deal with error.  User will notice
 599      * error later when she tries to retrieve first directory enty. */
 600     /*EMPTY*/;
 601   }
 602 }
 603
 604
 605 /*
 606  * Open native directory stream object and retrieve first file.
 607  * Be sure to close previous stream before opening new one.
 608  */
 609 static int
 610 _initdir (DIR *dirp)
 611 {
 612   assert (dirp != NULL);
 613   assert (dirp->dirname != NULL);
 614   dirp->dirent_filled = 0;
 615
 616 # if defined(DIRENT_WIN32_INTERFACE)
 617   /* Open stream and retrieve first file */
 618   dirp->search_handle = FindFirstFile (dirp->dirname, &dirp->current.data);
 619   if (dirp->search_handle == INVALID_HANDLE_VALUE) {
 620     /* something went wrong but we don't know what.  GetLastError() could
 621      * give us more information about the error, but then we should map
 622      * the error code into errno. */
 623     errno = ENOENT;
 624     return 0;
 625   }
 626
 627 # elif defined(DIRENT_MSDOS_INTERFACE)
 628   if (_dos_findfirst (dirp->dirname,
 629           _A_SUBDIR | _A_RDONLY | _A_ARCH | _A_SYSTEM | _A_HIDDEN,
 630           &dirp->current.data) != 0)
 631   {
 632     /* _dos_findfirst and findfirst will set errno to ENOENT when no
 633      * more entries could be retrieved. */
 634     return 0;
 635   }
 636 # endif
 637
 638   /* initialize DIR and it's first entry */
 639   _setdirname (dirp);
 640   dirp->dirent_filled = 1;
 641   return 1;
 642 }
 643
 644
 645 /*
 646  * Return implementation dependent name of the current directory entry.
 647  */
 648 static const char *
 649 _getdirname (const struct dirent *dp)
 650 {
 651 #if defined(DIRENT_WIN32_INTERFACE)
 652   return dp->data.cFileName;
 653
 654 #elif defined(DIRENT_USE_FFBLK)
 655   return dp->data.ff_name;
 656
 657 #else
 658   return dp->data.name;
 659 #endif
 660 }
 661
 662
 663 /*
 664  * Copy name of implementation dependent directory entry to the d_name field.
 665  */
 666 static void
 667 _setdirname (struct DIR *dirp) {
 668   /* make sure that d_name is long enough */
 669   assert (strlen (_getdirname (&dirp->current)) <= NAME_MAX);
 670
 671   NEW_STRNCPY (dirp->current.d_name,
 672       _getdirname (&dirp->current),
 673       NAME_MAX);
 674   dirp->current.d_name[NAME_MAX] = '\0'; /*char d_name[NAME_MAX+1]*/
 675 }
 676
 677 # ifdef __cplusplus
 678 }
 679 # endif
 680 # define NAMLEN(dp) ((int)(strlen((dp)->d_name)))
 681
 682 #else
 683 # error "missing dirent interface"
 684 #endif
 685
 686
 687 #endif /*DIRENT_H*/
 688