This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 24531 broke DEBUG_LEAKING_SCALARS.
[perl5.git] / win32 / include / dirent.h
index 8cc7e11..a669012 100644 (file)
@@ -1,49 +1,53 @@
-// dirent.h
+/* dirent.h */
 
-// djl
-// Provide UNIX compatibility
+/* djl
+ * Provide UNIX compatibility
+ */
 
 #ifndef  _INC_DIRENT
 #define  _INC_DIRENT
 
-//
-// NT versions of readdir(), etc
-// From the MSDOS implementation
-//
+/*
+ * NT versions of readdir(), etc
+ * From the MSDOS implementation
+ */
 
-// Directory entry size 
+/* Directory entry size */
 #ifdef DIRSIZ
 #undef DIRSIZ
 #endif
 #define DIRSIZ(rp)  (sizeof(struct direct))
 
-// needed to compile directory stuff
+/* needed to compile directory stuff */
 #define DIRENT direct
 
-// structure of a directory entry
+/* structure of a directory entry */
 typedef struct direct 
 {
-       long    d_ino;                  // inode number (not used by MS-DOS) 
-       int     d_namlen;               // Name length 
-       char    d_name[257];            // file name 
+       long    d_ino;                  /* inode number (not used by MS-DOS)  */
+       long    d_namlen;               /* name length  */
+       char    d_name[257];            /* file name  */
 } _DIRECT;
 
-// structure for dir operations 
+/* structure for dir operations */
 typedef struct _dir_struc
 {
-       char    *start;                 // Starting position
-       char    *curr;                  // Current position
-       long    size;                   // Size of string table
-       long    nfiles;                 // number if filenames in table
-       struct direct dirstr;           // Directory structure to return
+       char    *start;                 /* starting position */
+       char    *curr;                  /* current position */
+       long    size;                   /* allocated size of string table */
+       long    nfiles;                 /* number of filenames in table */
+       struct direct dirstr;           /* directory structure to return */
+       void*   handle;                 /* system handle */
+       char    *end;                   /* position after last filename */
 } DIR;
 
-DIR *opendir(char *filename);
-struct direct *readdir(DIR *dirp);
-long telldir(DIR *dirp);
-void seekdir(DIR *dirp,long loc);
-void rewinddir(DIR *dirp);
-int closedir(DIR *dirp);
-
+#if 0          /* these have moved to win32iop.h */
+DIR *          win32_opendir(char *filename);
+struct direct *        win32_readdir(DIR *dirp);
+long           win32_telldir(DIR *dirp);
+void           win32_seekdir(DIR *dirp,long loc);
+void           win32_rewinddir(DIR *dirp);
+int            win32_closedir(DIR *dirp);
+#endif
 
-#endif //_INC_DIRENT
+#endif /* _INC_DIRENT */