DirectoryStream.st
author Claus Gittinger <cg@exept.de>
Sun, 03 Sep 2000 17:14:56 +0200
changeset 5582 737d121ae7de
parent 5245 fb27aee25da6
child 6259 164d7efc1eb2
permissions -rw-r--r--
*** empty log message ***
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
     1
"
5
67342904af11 *** empty log message ***
claus
parents: 3
diff changeset
     2
 COPYRIGHT (c) 1989 by Claus Gittinger
155
edd7fc34e104 *** empty log message ***
claus
parents: 92
diff changeset
     3
	      All Rights Reserved
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
     4
a27a279701f8 Initial revision
claus
parents:
diff changeset
     5
 This software is furnished under a license and may be used
a27a279701f8 Initial revision
claus
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
a27a279701f8 Initial revision
claus
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
a27a279701f8 Initial revision
claus
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
a27a279701f8 Initial revision
claus
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
a27a279701f8 Initial revision
claus
parents:
diff changeset
    10
 hereby transferred.
a27a279701f8 Initial revision
claus
parents:
diff changeset
    11
"
a27a279701f8 Initial revision
claus
parents:
diff changeset
    12
a27a279701f8 Initial revision
claus
parents:
diff changeset
    13
FileStream subclass:#DirectoryStream
1664
82793bcf229c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1631
diff changeset
    14
	instanceVariableNames:'dirPointer readAheadEntry'
1281
b4b3abffdf32 Support optional signal generation on end of stream.
Stefan Vogel <sv@exept.de>
parents: 1133
diff changeset
    15
	classVariableNames:''
b4b3abffdf32 Support optional signal generation on end of stream.
Stefan Vogel <sv@exept.de>
parents: 1133
diff changeset
    16
	poolDictionaries:''
b4b3abffdf32 Support optional signal generation on end of stream.
Stefan Vogel <sv@exept.de>
parents: 1133
diff changeset
    17
	category:'Streams-External'
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
    18
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
    19
217
a0400fdbc933 *** empty log message ***
claus
parents: 206
diff changeset
    20
!DirectoryStream primitiveDefinitions!
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
    21
%{
437
claus
parents: 384
diff changeset
    22
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    23
#define UNIX_LIKE
2609
68abf045b637 stat call emulation
Claus Gittinger <cg@exept.de>
parents: 1989
diff changeset
    24
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    25
#if defined(WIN32)
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    26
# undef UNIX_LIKE
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    27
#endif
437
claus
parents: 384
diff changeset
    28
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    29
#if defined(transputer)
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    30
# undef UNIX_LIKE
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    31
#endif
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    32
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    33
#ifdef UNIX_LIKE
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    34
# include <stdio.h>
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    35
# define _STDIO_H_INCLUDED_
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    36
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    37
# include <errno.h>
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    38
# define _ERRNO_H_INCLUDED_
10
claus
parents: 5
diff changeset
    39
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    40
# include <sys/types.h>
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    41
# include <sys/stat.h>
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    42
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    43
# ifdef HAS_OPENDIR
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    44
#  include <sys/types.h>
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    45
#  ifdef NEXT
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    46
#   include <sys/dir.h>
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    47
#  else
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    48
#   include <dirent.h>
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
    49
#  endif
a27a279701f8 Initial revision
claus
parents:
diff changeset
    50
# endif
223
3075043790b8 immediateInterr & errno cleanup
claus
parents: 217
diff changeset
    51
3075043790b8 immediateInterr & errno cleanup
claus
parents: 217
diff changeset
    52
/*
3075043790b8 immediateInterr & errno cleanup
claus
parents: 217
diff changeset
    53
 * on some systems errno is a macro ... check for it here
3075043790b8 immediateInterr & errno cleanup
claus
parents: 217
diff changeset
    54
 */
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    55
# ifndef errno
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    56
  extern errno;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    57
# endif
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    58
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    59
#endif /* UNIX_LIKE */
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    60
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
    61
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    62
#ifdef WIN32
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    63
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    64
# ifdef i386
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    65
#  define _X86_
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    66
# endif
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    67
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    68
# undef INT
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    69
# undef Array
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    70
# undef Number
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    71
# undef Method
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    72
# undef Point
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    73
# undef Context
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    74
# undef Rectangle
1989
92b10a0e8a51 win32 changes
Claus Gittinger <cg@exept.de>
parents: 1688
diff changeset
    75
# undef Block
4298
1889f8051f69 *** empty log message ***
ps
parents: 3980
diff changeset
    76
# undef Time
1889f8051f69 *** empty log message ***
ps
parents: 3980
diff changeset
    77
# undef Date
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    78
2685
6576fb7af338 nt stuff
Claus Gittinger <cg@exept.de>
parents: 2609
diff changeset
    79
/* # include <types.h> /* */
1989
92b10a0e8a51 win32 changes
Claus Gittinger <cg@exept.de>
parents: 1688
diff changeset
    80
# include <stdarg.h> /* */
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
    81
# include <errno.h>
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
    82
# define _ERRNO_H_INCLUDED_
1989
92b10a0e8a51 win32 changes
Claus Gittinger <cg@exept.de>
parents: 1688
diff changeset
    83
# include <windef.h> /* */
92b10a0e8a51 win32 changes
Claus Gittinger <cg@exept.de>
parents: 1688
diff changeset
    84
# include <winbase.h> /* */
4298
1889f8051f69 *** empty log message ***
ps
parents: 3980
diff changeset
    85
/* # include <wingdi.h> /* */
1889f8051f69 *** empty log message ***
ps
parents: 3980
diff changeset
    86
/* # include <winuser.h> /* */
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    87
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    88
# ifdef __DEF_Array
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    89
#  define Array __DEF_Array
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    90
# endif
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    91
# ifdef __DEF_Number
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    92
#  define Number __DEF_Number
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    93
# endif
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    94
# ifdef __DEF_Method
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    95
#  define Method __DEF_Method
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    96
# endif
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    97
# ifdef __DEF_Point
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    98
#  define Point __DEF_Point
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
    99
# endif
1989
92b10a0e8a51 win32 changes
Claus Gittinger <cg@exept.de>
parents: 1688
diff changeset
   100
# ifdef __DEF_Block
92b10a0e8a51 win32 changes
Claus Gittinger <cg@exept.de>
parents: 1688
diff changeset
   101
#  define Block __DEF_Block
92b10a0e8a51 win32 changes
Claus Gittinger <cg@exept.de>
parents: 1688
diff changeset
   102
# endif
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   103
# ifdef __DEF_Context
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   104
#  define Context __DEF_Context
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   105
# endif
4298
1889f8051f69 *** empty log message ***
ps
parents: 3980
diff changeset
   106
# ifdef __DEF_Date
1889f8051f69 *** empty log message ***
ps
parents: 3980
diff changeset
   107
#  define Date __DEF_Date
1889f8051f69 *** empty log message ***
ps
parents: 3980
diff changeset
   108
# endif
1889f8051f69 *** empty log message ***
ps
parents: 3980
diff changeset
   109
# ifdef __DEF_Time
1889f8051f69 *** empty log message ***
ps
parents: 3980
diff changeset
   110
#  define Time __DEF_Time
1889f8051f69 *** empty log message ***
ps
parents: 3980
diff changeset
   111
# endif
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   112
2999
b0e55440cf12 eliminate MKOBJ & MKCP (use MKEXTERNALADDRESS & externalAddressVal)
Claus Gittinger <cg@exept.de>
parents: 2982
diff changeset
   113
# define __HANDLEVal(o)  (HANDLE)__externalAddressVal(o)
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   114
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   115
#endif /* WIN32 */
223
3075043790b8 immediateInterr & errno cleanup
claus
parents: 217
diff changeset
   116
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   117
%}
206
5858b2c9d0c6 fixed close
claus
parents: 155
diff changeset
   118
! !
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   119
438
claus
parents: 437
diff changeset
   120
!DirectoryStream primitiveFunctions!
claus
parents: 437
diff changeset
   121
%{
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   122
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   123
#ifndef HAS_OPENDIR
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   124
# if defined(__VMS__)
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   125
3816
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   126
#  define lib$find_file LIB$FIND_FILE
438
claus
parents: 437
diff changeset
   127
claus
parents: 437
diff changeset
   128
/*
claus
parents: 437
diff changeset
   129
**  VMS readdir() routines.
claus
parents: 437
diff changeset
   130
**  Written by Rich $alz, <rsalz@bbn.com> in August, 1990.
claus
parents: 437
diff changeset
   131
**  This code has no copyright.
claus
parents: 437
diff changeset
   132
*/
claus
parents: 437
diff changeset
   133
claus
parents: 437
diff changeset
   134
/* 12-NOV-1990 added d_namlen field and special case "." name -GJC@MITECH.COM 
claus
parents: 437
diff changeset
   135
 */
claus
parents: 437
diff changeset
   136
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   137
#   ifndef _STDIO_H_INCLUDED_
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   138
#    include <stdio.h>
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   139
#    define _STDIO_H_INCLUDED_
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   140
#   endif
438
claus
parents: 437
diff changeset
   141
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   142
#   ifndef _CTYPE_H_INCLUDED_
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   143
#    include <ctype.h>
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   144
#    define _CTYPE_H_INCLUDED_
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   145
#   endif
438
claus
parents: 437
diff changeset
   146
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   147
#   ifndef _ERRNO_H_INCLUDED_
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   148
#    include <errno.h>
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   149
#    define _ERRNO_H_INCLUDED_
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   150
#   endif
438
claus
parents: 437
diff changeset
   151
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   152
#   ifndef _DESCRIP_H_INCLUDED_
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   153
#    include <descrip.h>
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   154
#    define _DESCRIP_H_INCLUDED_
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   155
#   endif
438
claus
parents: 437
diff changeset
   156
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   157
#   ifndef _RMSDEF_H_INCLUDED_
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   158
#    include <rmsdef.h>
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   159
#    define _RMSDEF_H_INCLUDED_
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   160
#   endif
438
claus
parents: 437
diff changeset
   161
claus
parents: 437
diff changeset
   162
/*
claus
parents: 437
diff changeset
   163
 * actually, the following has to go into dirent.h ...
claus
parents: 437
diff changeset
   164
 */
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   165
/* BEGIN included dirent.h
438
claus
parents: 437
diff changeset
   166
 *
claus
parents: 437
diff changeset
   167
**  Header file for VMS readdir() routines.
claus
parents: 437
diff changeset
   168
**  Written by Rich $alz, <rsalz@bbn.com> in August, 1990.
claus
parents: 437
diff changeset
   169
**  This code has no copyright.
claus
parents: 437
diff changeset
   170
**
claus
parents: 437
diff changeset
   171
**  You must #include <descrip.h> before this file.
claus
parents: 437
diff changeset
   172
*/
claus
parents: 437
diff changeset
   173
claus
parents: 437
diff changeset
   174
/* 12-NOV-1990 added d_namlen field -GJC@MITECH.COM */
claus
parents: 437
diff changeset
   175
claus
parents: 437
diff changeset
   176
    /* Data structure returned by READDIR(). */
claus
parents: 437
diff changeset
   177
struct dirent {
claus
parents: 437
diff changeset
   178
    char        d_name[100];            /* File name            */
claus
parents: 437
diff changeset
   179
    int         d_namlen;
2957
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   180
    int         vms_verscount;          /* Number of versions   */
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   181
    int         vms_versions[20];       /* Version numbers      */
438
claus
parents: 437
diff changeset
   182
};
claus
parents: 437
diff changeset
   183
claus
parents: 437
diff changeset
   184
    /* Handle returned by opendir(), used by the other routines.  You
claus
parents: 437
diff changeset
   185
     * are not supposed to care what's inside this structure. */
claus
parents: 437
diff changeset
   186
typedef struct _dirdesc {
claus
parents: 437
diff changeset
   187
    long                        context;
2957
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   188
    int                         vms_wantversions;
438
claus
parents: 437
diff changeset
   189
    char                        *pattern;
claus
parents: 437
diff changeset
   190
    struct dirent               entry;
claus
parents: 437
diff changeset
   191
    struct dsc$descriptor_s     pat;
claus
parents: 437
diff changeset
   192
} DIR;
claus
parents: 437
diff changeset
   193
claus
parents: 437
diff changeset
   194
claus
parents: 437
diff changeset
   195
#define rewinddir(dirp)                 seekdir((dirp), 0L)
claus
parents: 437
diff changeset
   196
claus
parents: 437
diff changeset
   197
claus
parents: 437
diff changeset
   198
extern DIR              *opendir();
claus
parents: 437
diff changeset
   199
extern struct dirent    *readdir();
claus
parents: 437
diff changeset
   200
extern long             telldir();
claus
parents: 437
diff changeset
   201
extern void             seekdir();
claus
parents: 437
diff changeset
   202
extern void             closedir();
claus
parents: 437
diff changeset
   203
extern void             vmsreaddirversions();
claus
parents: 437
diff changeset
   204
/*
claus
parents: 437
diff changeset
   205
 * END dirent.h
claus
parents: 437
diff changeset
   206
 */
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   207
#define _DIRENT_H_INCLUDED_
438
claus
parents: 437
diff changeset
   208
claus
parents: 437
diff changeset
   209
claus
parents: 437
diff changeset
   210
    /* Number of elements in vms_versions array */
claus
parents: 437
diff changeset
   211
#define VERSIZE(e)      (sizeof e->vms_versions / sizeof e->vms_versions[0])
claus
parents: 437
diff changeset
   212
claus
parents: 437
diff changeset
   213
    /* Linked in later. */
claus
parents: 437
diff changeset
   214
extern char     *strrchr();
claus
parents: 437
diff changeset
   215
extern char     *strcpy();
claus
parents: 437
diff changeset
   216
/*  Don't need this when all these programs are lumped together.    RLD
claus
parents: 437
diff changeset
   217
extern char     *malloc();
claus
parents: 437
diff changeset
   218
*/
claus
parents: 437
diff changeset
   219
claus
parents: 437
diff changeset
   220
/*
claus
parents: 437
diff changeset
   221
**  Open a directory, return a handle for later use.
claus
parents: 437
diff changeset
   222
*/
claus
parents: 437
diff changeset
   223
DIR *
claus
parents: 437
diff changeset
   224
opendir(name)
claus
parents: 437
diff changeset
   225
    char        *name;
claus
parents: 437
diff changeset
   226
{
claus
parents: 437
diff changeset
   227
    DIR                 *dd;
claus
parents: 437
diff changeset
   228
claus
parents: 437
diff changeset
   229
    /* Get memory for the handle, and the pattern. */
claus
parents: 437
diff changeset
   230
    if ((dd = (DIR *)malloc(sizeof *dd)) == NULL) {
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   231
	__threadErrno = ENOMEM;
438
claus
parents: 437
diff changeset
   232
	return NULL;
claus
parents: 437
diff changeset
   233
    }
claus
parents: 437
diff changeset
   234
claus
parents: 437
diff changeset
   235
    if (strcmp(".",name) == 0) name = "";
claus
parents: 437
diff changeset
   236
claus
parents: 437
diff changeset
   237
    dd->pattern = malloc((unsigned int)(strlen(name) + sizeof "*.*" + 1));
claus
parents: 437
diff changeset
   238
    if (dd->pattern == NULL) {
claus
parents: 437
diff changeset
   239
	free((char *)dd);
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   240
	__threadErrno = ENOMEM;
438
claus
parents: 437
diff changeset
   241
	return NULL;
claus
parents: 437
diff changeset
   242
    }
claus
parents: 437
diff changeset
   243
claus
parents: 437
diff changeset
   244
    /* Fill in the fields; mainly playing with the descriptor. */
claus
parents: 437
diff changeset
   245
    (void)sprintf(dd->pattern, "%s*.*", name);
claus
parents: 437
diff changeset
   246
    dd->context = 0;
claus
parents: 437
diff changeset
   247
    dd->vms_wantversions = 0;
claus
parents: 437
diff changeset
   248
    dd->pat.dsc$a_pointer = dd->pattern;
claus
parents: 437
diff changeset
   249
    dd->pat.dsc$w_length = strlen(dd->pattern);
claus
parents: 437
diff changeset
   250
    dd->pat.dsc$b_dtype = DSC$K_DTYPE_T;
claus
parents: 437
diff changeset
   251
    dd->pat.dsc$b_class = DSC$K_CLASS_S;
claus
parents: 437
diff changeset
   252
claus
parents: 437
diff changeset
   253
    return dd;
claus
parents: 437
diff changeset
   254
}
claus
parents: 437
diff changeset
   255
claus
parents: 437
diff changeset
   256
/*
claus
parents: 437
diff changeset
   257
**  Set the flag to indicate we want versions or not.
claus
parents: 437
diff changeset
   258
*/
claus
parents: 437
diff changeset
   259
void
claus
parents: 437
diff changeset
   260
vmsreaddirversions(dd, flag)
claus
parents: 437
diff changeset
   261
    DIR                 *dd;
claus
parents: 437
diff changeset
   262
    int                 flag;
claus
parents: 437
diff changeset
   263
{
claus
parents: 437
diff changeset
   264
    dd->vms_wantversions = flag;
claus
parents: 437
diff changeset
   265
}
claus
parents: 437
diff changeset
   266
claus
parents: 437
diff changeset
   267
/*
claus
parents: 437
diff changeset
   268
**  Free up an opened directory.
claus
parents: 437
diff changeset
   269
*/
claus
parents: 437
diff changeset
   270
void
claus
parents: 437
diff changeset
   271
closedir(dd)
claus
parents: 437
diff changeset
   272
    DIR                 *dd;
claus
parents: 437
diff changeset
   273
{
claus
parents: 437
diff changeset
   274
    free(dd->pattern);
claus
parents: 437
diff changeset
   275
    free((char *)dd);
claus
parents: 437
diff changeset
   276
}
claus
parents: 437
diff changeset
   277
claus
parents: 437
diff changeset
   278
/*
claus
parents: 437
diff changeset
   279
**  Collect all the version numbers for the current file.
claus
parents: 437
diff changeset
   280
*/
claus
parents: 437
diff changeset
   281
static void
claus
parents: 437
diff changeset
   282
collectversions(dd)
claus
parents: 437
diff changeset
   283
    DIR                                 *dd;
claus
parents: 437
diff changeset
   284
{
claus
parents: 437
diff changeset
   285
    struct dsc$descriptor_s     pat;
claus
parents: 437
diff changeset
   286
    struct dsc$descriptor_s     res;
claus
parents: 437
diff changeset
   287
    struct dirent               *e;
claus
parents: 437
diff changeset
   288
    char                        *p;
claus
parents: 437
diff changeset
   289
    char                        buff[sizeof dd->entry.d_name];
claus
parents: 437
diff changeset
   290
    int                                 i;
claus
parents: 437
diff changeset
   291
    char                        *text;
claus
parents: 437
diff changeset
   292
    long                        context;
claus
parents: 437
diff changeset
   293
claus
parents: 437
diff changeset
   294
    /* Convenient shorthand. */
claus
parents: 437
diff changeset
   295
    e = &dd->entry;
claus
parents: 437
diff changeset
   296
claus
parents: 437
diff changeset
   297
    /* Add the version wildcard, ignoring the "*.*" put on before */
claus
parents: 437
diff changeset
   298
    i = strlen(dd->pattern);
claus
parents: 437
diff changeset
   299
    text = malloc((unsigned int)(i + strlen(e->d_name)+ 2 + 1));
claus
parents: 437
diff changeset
   300
    if (text == NULL)
claus
parents: 437
diff changeset
   301
	return;
claus
parents: 437
diff changeset
   302
    (void)strcpy(text, dd->pattern);
claus
parents: 437
diff changeset
   303
    (void)sprintf(&text[i - 3], "%s;*", e->d_name);
claus
parents: 437
diff changeset
   304
claus
parents: 437
diff changeset
   305
    /* Set up the pattern descriptor. */
claus
parents: 437
diff changeset
   306
    pat.dsc$a_pointer = text;
claus
parents: 437
diff changeset
   307
    pat.dsc$w_length = strlen(text);
claus
parents: 437
diff changeset
   308
    pat.dsc$b_dtype = DSC$K_DTYPE_T;
claus
parents: 437
diff changeset
   309
    pat.dsc$b_class = DSC$K_CLASS_S;
claus
parents: 437
diff changeset
   310
claus
parents: 437
diff changeset
   311
    /* Set up result descriptor. */
claus
parents: 437
diff changeset
   312
    res.dsc$a_pointer = buff;
claus
parents: 437
diff changeset
   313
    res.dsc$w_length = sizeof buff - 2;
claus
parents: 437
diff changeset
   314
    res.dsc$b_dtype = DSC$K_DTYPE_T;
claus
parents: 437
diff changeset
   315
    res.dsc$b_class = DSC$K_CLASS_S;
claus
parents: 437
diff changeset
   316
claus
parents: 437
diff changeset
   317
    /* Read files, collecting versions. */
claus
parents: 437
diff changeset
   318
    for (context = 0; e->vms_verscount < VERSIZE(e); e->vms_verscount++) {
claus
parents: 437
diff changeset
   319
	if (lib$find_file(&pat, &res, &context) == RMS$_NMF || context == 0)
claus
parents: 437
diff changeset
   320
	    break;
claus
parents: 437
diff changeset
   321
	buff[sizeof buff - 1] = '\0';
claus
parents: 437
diff changeset
   322
	if (p = strchr(buff, ';'))
claus
parents: 437
diff changeset
   323
	    e->vms_versions[e->vms_verscount] = atoi(p + 1);
claus
parents: 437
diff changeset
   324
	else
claus
parents: 437
diff changeset
   325
	    e->vms_versions[e->vms_verscount] = -1;
claus
parents: 437
diff changeset
   326
    }
claus
parents: 437
diff changeset
   327
claus
parents: 437
diff changeset
   328
    free(text);
claus
parents: 437
diff changeset
   329
}
claus
parents: 437
diff changeset
   330
claus
parents: 437
diff changeset
   331
/*
claus
parents: 437
diff changeset
   332
**  Read the next entry from the directory.
claus
parents: 437
diff changeset
   333
*/
claus
parents: 437
diff changeset
   334
struct dirent *
claus
parents: 437
diff changeset
   335
readdir(dd)
2957
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   336
    DIR *dd;
438
claus
parents: 437
diff changeset
   337
{
2957
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   338
    struct dsc$descriptor_s res;
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   339
    char                    *p;
2982
3032a3a7e17a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   340
    char                    buff[sizeof dd->entry.d_name + 10];
2957
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   341
    int                     i;
438
claus
parents: 437
diff changeset
   342
claus
parents: 437
diff changeset
   343
    /* Set up result descriptor, and get next file. */
claus
parents: 437
diff changeset
   344
    res.dsc$a_pointer = buff;
claus
parents: 437
diff changeset
   345
    res.dsc$w_length = sizeof buff - 2;
claus
parents: 437
diff changeset
   346
    res.dsc$b_dtype = DSC$K_DTYPE_T;
claus
parents: 437
diff changeset
   347
    res.dsc$b_class = DSC$K_CLASS_S;
claus
parents: 437
diff changeset
   348
    if (lib$find_file(&dd->pat, &res, &dd->context) == RMS$_NMF
claus
parents: 437
diff changeset
   349
     || dd->context == 0L)
claus
parents: 437
diff changeset
   350
	/* None left... */
claus
parents: 437
diff changeset
   351
	return NULL;
claus
parents: 437
diff changeset
   352
claus
parents: 437
diff changeset
   353
    /* Force the buffer to end with a NUL. */
claus
parents: 437
diff changeset
   354
    buff[sizeof buff - 1] = '\0';
claus
parents: 437
diff changeset
   355
    for (p = buff; !isspace(*p); p++)
claus
parents: 437
diff changeset
   356
	;
claus
parents: 437
diff changeset
   357
    *p = '\0';
claus
parents: 437
diff changeset
   358
claus
parents: 437
diff changeset
   359
    /* Skip any directory component and just copy the name. */
claus
parents: 437
diff changeset
   360
    if (p = strchr(buff, ']'))
claus
parents: 437
diff changeset
   361
	(void)strcpy(dd->entry.d_name, p + 1);
claus
parents: 437
diff changeset
   362
    else
claus
parents: 437
diff changeset
   363
	(void)strcpy(dd->entry.d_name, buff);
claus
parents: 437
diff changeset
   364
claus
parents: 437
diff changeset
   365
    /* Clobber the version. */
claus
parents: 437
diff changeset
   366
    if (p = strchr(dd->entry.d_name, ';'))
claus
parents: 437
diff changeset
   367
	*p = '\0';
claus
parents: 437
diff changeset
   368
2982
3032a3a7e17a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   369
    /* claus: empty dirs seems to leave *.* in the buffer ... */
3032a3a7e17a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   370
    if (strcmp(dd->entry.d_name, "*.*") == 0) {
3032a3a7e17a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   371
	return NULL;
3032a3a7e17a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   372
    }
3032a3a7e17a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2957
diff changeset
   373
438
claus
parents: 437
diff changeset
   374
    dd->entry.d_namlen = strlen(dd->entry.d_name);
claus
parents: 437
diff changeset
   375
claus
parents: 437
diff changeset
   376
    dd->entry.vms_verscount = 0;
claus
parents: 437
diff changeset
   377
    if (dd->vms_wantversions)
claus
parents: 437
diff changeset
   378
	collectversions(dd);
claus
parents: 437
diff changeset
   379
    return &dd->entry;
claus
parents: 437
diff changeset
   380
}
claus
parents: 437
diff changeset
   381
claus
parents: 437
diff changeset
   382
/*
claus
parents: 437
diff changeset
   383
**  Return something that can be used in a seekdir later.
claus
parents: 437
diff changeset
   384
*/
claus
parents: 437
diff changeset
   385
long
claus
parents: 437
diff changeset
   386
telldir(dd)
2957
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   387
    DIR  *dd;
438
claus
parents: 437
diff changeset
   388
{
claus
parents: 437
diff changeset
   389
    return dd->context;
claus
parents: 437
diff changeset
   390
}
claus
parents: 437
diff changeset
   391
claus
parents: 437
diff changeset
   392
/*
claus
parents: 437
diff changeset
   393
**  Return to a spot where we used to be.
claus
parents: 437
diff changeset
   394
*/
claus
parents: 437
diff changeset
   395
void
claus
parents: 437
diff changeset
   396
seekdir(dd, pos)
2957
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   397
    DIR  *dd;
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   398
    long pos;
438
claus
parents: 437
diff changeset
   399
{
claus
parents: 437
diff changeset
   400
    dd->context = pos;
claus
parents: 437
diff changeset
   401
}
claus
parents: 437
diff changeset
   402
2896
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   403
#  define HAS_OPENDIR
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   404
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   405
# endif /* __VMS__ */
be30640b9012 VMS stuff
Claus Gittinger <cg@exept.de>
parents: 2685
diff changeset
   406
#endif /* not HAS_OPENDIR */
438
claus
parents: 437
diff changeset
   407
%}
claus
parents: 437
diff changeset
   408
! !
claus
parents: 437
diff changeset
   409
613
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   410
!DirectoryStream class methodsFor:'documentation'!
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   411
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   412
copyright
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   413
"
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   414
 COPYRIGHT (c) 1989 by Claus Gittinger
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   415
	      All Rights Reserved
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   416
613
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   417
 This software is furnished under a license and may be used
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   418
 only in accordance with the terms of that license and with the
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   419
 inclusion of the above copyright notice.   This software may not
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   420
 be provided or otherwise made available to, or used by, any
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   421
 other person.  No title to or ownership of the software is
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   422
 hereby transferred.
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   423
"
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   424
!
360
claus
parents: 249
diff changeset
   425
613
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   426
documentation
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   427
"
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   428
    Instances of DirectoryStream allow reading a file-directory,
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   429
    as if it was a stream of filenames.
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   430
    Basically, its an interface to opendir, readdir and closedir.
2957
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   431
    Notice: 
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   432
	DirectoryStream is an ST/X special; 
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   433
	for portability, we recommend the use of Filename protocol.
1295
83f594f05c52 documentation
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
   434
83f594f05c52 documentation
Claus Gittinger <cg@exept.de>
parents: 1281
diff changeset
   435
    [author:]
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   436
	Claus Gittinger
2957
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   437
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   438
    [see also:]
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   439
	Filename
613
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   440
"
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   441
! !
a27a279701f8 Initial revision
claus
parents:
diff changeset
   442
a27a279701f8 Initial revision
claus
parents:
diff changeset
   443
!DirectoryStream class methodsFor:'instance creation'!
a27a279701f8 Initial revision
claus
parents:
diff changeset
   444
a27a279701f8 Initial revision
claus
parents:
diff changeset
   445
directoryNamed:dirName
a27a279701f8 Initial revision
claus
parents:
diff changeset
   446
    "return a DirectoryStream for directory named dirName, aString"
a27a279701f8 Initial revision
claus
parents:
diff changeset
   447
a27a279701f8 Initial revision
claus
parents:
diff changeset
   448
    |newStream|
a27a279701f8 Initial revision
claus
parents:
diff changeset
   449
a27a279701f8 Initial revision
claus
parents:
diff changeset
   450
    newStream := (self basicNew) pathName:dirName.
a27a279701f8 Initial revision
claus
parents:
diff changeset
   451
    newStream openForReading isNil ifTrue:[^nil].
a27a279701f8 Initial revision
claus
parents:
diff changeset
   452
    ^ newStream
a27a279701f8 Initial revision
claus
parents:
diff changeset
   453
! !
a27a279701f8 Initial revision
claus
parents:
diff changeset
   454
5245
fb27aee25da6 category change
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
   455
!DirectoryStream methodsFor:'access-reading'!
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   456
a27a279701f8 Initial revision
claus
parents:
diff changeset
   457
nextLine
a27a279701f8 Initial revision
claus
parents:
diff changeset
   458
    "return the next filename as a string"
a27a279701f8 Initial revision
claus
parents:
diff changeset
   459
a27a279701f8 Initial revision
claus
parents:
diff changeset
   460
    |prevEntry nextEntry|
a27a279701f8 Initial revision
claus
parents:
diff changeset
   461
%{
77
6c38ca59927f *** empty log message ***
claus
parents: 54
diff changeset
   462
#ifdef HAS_OPENDIR
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   463
    DIR *d;
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   464
# ifdef NEXT
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   465
    struct direct *dp;
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   466
# else
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   467
    struct dirent *dp;
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   468
# endif
92
0c73b48551ac *** empty log message ***
claus
parents: 88
diff changeset
   469
    OBJ dirP;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   470
1281
b4b3abffdf32 Support optional signal generation on end of stream.
Stefan Vogel <sv@exept.de>
parents: 1133
diff changeset
   471
    if (__INST(hitEOF) != true && (dirP = __INST(dirPointer)) != nil) {
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   472
	__INST(lastErrorNumber) = nil;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   473
	d = (DIR *)__FILEVal(dirP);
92
0c73b48551ac *** empty log message ***
claus
parents: 88
diff changeset
   474
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   475
	__BEGIN_INTERRUPTABLE__
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   476
	do {
2957
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   477
	    do {
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   478
		__threadErrno = 0;
3816
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   479
		dp = readdir(d);
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   480
		/*
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   481
		 * for compatibility with ST-80,
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   482
		 * skip entries for '.' and '..'.
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   483
		 * If wanted, these must be added synthetically.
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   484
		 */
2957
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   485
	    } while (dp && ((strcmp(dp->d_name, ".")==0) || (strcmp(dp->d_name, "..")==0)));
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   486
	} while ((dp == NULL) && (__threadErrno == EINTR));
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   487
	__END_INTERRUPTABLE__
92
0c73b48551ac *** empty log message ***
claus
parents: 88
diff changeset
   488
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   489
	if (dp != NULL) {
1688
8a42db1eea60 removed all COMMA_CON / CON_COMMA uses
Claus Gittinger <cg@exept.de>
parents: 1664
diff changeset
   490
	    nextEntry = __MKSTRING((char *)(dp->d_name));
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   491
	} else {
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   492
	    if (__threadErrno) {
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   493
		__INST(lastErrorNumber) = __MKSMALLINT(__threadErrno);
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   494
	    } else {
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   495
	       __INST(hitEOF) = true;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   496
	    }
1281
b4b3abffdf32 Support optional signal generation on end of stream.
Stefan Vogel <sv@exept.de>
parents: 1133
diff changeset
   497
       }
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   498
    }
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   499
#else /* no HAS_OPENDIR */
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   500
# ifdef WIN32
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   501
    HANDLE d;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   502
    WIN32_FIND_DATA data;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   503
    OBJ dirP;
3816
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   504
    int rslt;
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   505
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   506
    if (__INST(hitEOF) != true && (dirP = __INST(dirPointer)) != nil) {
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   507
	__INST(lastErrorNumber) = nil;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   508
	d = __HANDLEVal(dirP);
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   509
3816
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   510
#  ifdef DO_WRAP_CALLS
3825
262f33c41418 new wrap-call macros
Claus Gittinger <cg@exept.de>
parents: 3816
diff changeset
   511
	rslt = __STX_API_CALL2( (void*)FindNextFile, (void *)d, (void *)&data );
3816
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   512
#  else
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   513
	rslt = FindNextFile(d, &data);
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   514
#  endif
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   515
	if (rslt) {
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   516
	    nextEntry = __MKSTRING( data.cFileName );
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   517
	} else {
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   518
	   __INST(hitEOF) = true;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   519
	}
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   520
    }
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   521
# endif /* WIN32 */
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   522
#endif /* HAS_OPENDIR */
155
edd7fc34e104 *** empty log message ***
claus
parents: 92
diff changeset
   523
%}.
edd7fc34e104 *** empty log message ***
claus
parents: 92
diff changeset
   524
    lastErrorNumber notNil ifTrue:[^ self ioError].
1664
82793bcf229c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1631
diff changeset
   525
    prevEntry := readAheadEntry.
82793bcf229c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1631
diff changeset
   526
    readAheadEntry := nextEntry.
1281
b4b3abffdf32 Support optional signal generation on end of stream.
Stefan Vogel <sv@exept.de>
parents: 1133
diff changeset
   527
    prevEntry isNil ifTrue:[^ self pastEnd].
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   528
    ^ prevEntry
a27a279701f8 Initial revision
claus
parents:
diff changeset
   529
! !
a27a279701f8 Initial revision
claus
parents:
diff changeset
   530
613
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   531
!DirectoryStream methodsFor:'closing'!
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   532
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   533
close
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   534
    "close the stream - tell operating system"
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   535
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   536
    dirPointer notNil ifTrue:[
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   537
	Lobby unregister:self.
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   538
	self closeFile.
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   539
	dirPointer := nil
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   540
    ]
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   541
! !
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   542
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   543
!DirectoryStream methodsFor:'instance release'!
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   544
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   545
closeFile
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   546
    "low level close of a directoryStream"
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   547
%{
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   548
#ifdef HAS_OPENDIR
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   549
    OBJ dp;
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   550
1133
961f2b095c22 underline cleanup
Claus Gittinger <cg@exept.de>
parents: 613
diff changeset
   551
    if ((dp = __INST(dirPointer)) != nil) {
961f2b095c22 underline cleanup
Claus Gittinger <cg@exept.de>
parents: 613
diff changeset
   552
	__INST(dirPointer) = nil;
613
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   553
	closedir( (DIR *)(__FILEVal(dp)) );
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   554
    }
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   555
#else
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   556
# ifdef WIN32
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   557
    OBJ dp;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   558
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   559
    if ((dp = __INST(dirPointer)) != nil) {
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   560
	__INST(dirPointer) = nil;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   561
	FindClose( __HANDLEVal(dp) );
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   562
    }
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   563
# endif
613
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   564
#endif
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   565
%}
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   566
! !
0af19c3594fc checkin from browser
Claus Gittinger <cg@exept.de>
parents: 528
diff changeset
   567
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   568
!DirectoryStream methodsFor:'private'!
a27a279701f8 Initial revision
claus
parents:
diff changeset
   569
a27a279701f8 Initial revision
claus
parents:
diff changeset
   570
openForReading
a27a279701f8 Initial revision
claus
parents:
diff changeset
   571
    "open the file for readonly"
a27a279701f8 Initial revision
claus
parents:
diff changeset
   572
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   573
    |ok entry|
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   574
a27a279701f8 Initial revision
claus
parents:
diff changeset
   575
    mode := #readonly.
a27a279701f8 Initial revision
claus
parents:
diff changeset
   576
%{
77
6c38ca59927f *** empty log message ***
claus
parents: 54
diff changeset
   577
#ifdef HAS_OPENDIR
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   578
    DIR *d;
477
8710aba7876b oops - making id's real objects requires a store macro
Claus Gittinger <cg@exept.de>
parents: 475
diff changeset
   579
    OBJ path, dp;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   580
155
edd7fc34e104 *** empty log message ***
claus
parents: 92
diff changeset
   581
    ok = false;
1133
961f2b095c22 underline cleanup
Claus Gittinger <cg@exept.de>
parents: 613
diff changeset
   582
    if (__INST(dirPointer) == nil) {
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   583
	path = __INST(pathName);
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   584
	if (__isString(path)) {
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   585
	    __BEGIN_INTERRUPTABLE__
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   586
	    __threadErrno = 0;
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   587
	    do {
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   588
		d = opendir((char *) __stringVal(path));
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   589
	    } while ((d == NULL) && (__threadErrno == EINTR));
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   590
	    __END_INTERRUPTABLE__
92
0c73b48551ac *** empty log message ***
claus
parents: 88
diff changeset
   591
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   592
	    if (d == NULL) {
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   593
		__INST(lastErrorNumber) = __MKSMALLINT(__threadErrno);
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   594
	    } else {
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   595
		__INST(dirPointer) = dp = __MKEXTERNALADDRESS(d); __STORE(self, dp);
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   596
		ok = true;
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   597
	    }
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   598
	}
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   599
    }
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   600
#else
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   601
# ifdef WIN32
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   602
    HANDLE d;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   603
    OBJ path, dp;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   604
    char pattern[512];
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   605
    WIN32_FIND_DATA data;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   606
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   607
    ok = false;
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   608
    if (__INST(dirPointer) == nil) {
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   609
	path = __INST(pathName);
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   610
	if (__isString(path)) {
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   611
	    int l = __stringSize(path);
3164
4f37ae9c8961 use strncpy to avoid buffer-overruns
Claus Gittinger <cg@exept.de>
parents: 2999
diff changeset
   612
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   613
	    if (l < (sizeof(pattern)-4)) {
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   614
		strncpy(pattern, __stringVal(path), l);
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   615
		strcpy(pattern+l, "\\*");
3816
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   616
#  ifdef DO_WRAP_CALLS
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   617
		d = __STX_API_CALL2( (void*)FindFirstFile, (void *)pattern, (void *)&data );
3816
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   618
#  else
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   619
		d = FindFirstFile(pattern, &data);
3816
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   620
#  endif
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   621
		if (d == INVALID_HANDLE_VALUE) {
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   622
		    __INST(lastErrorNumber) = __MKSMALLINT(GetLastError());
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   623
		} else {
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   624
		    __INST(dirPointer) = dp = __MKEXTERNALADDRESS(d); __STORE(self, dp);
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   625
		    entry = __MKSTRING( data.cFileName );
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   626
		    ok = true;
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   627
		}
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   628
	    }
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   629
	}
1631
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   630
    }
0d50b800b011 directory readOps for NT
Claus Gittinger <cg@exept.de>
parents: 1295
diff changeset
   631
# endif
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   632
#endif
155
edd7fc34e104 *** empty log message ***
claus
parents: 92
diff changeset
   633
%}.
edd7fc34e104 *** empty log message ***
claus
parents: 92
diff changeset
   634
    ok isNil ifTrue:[
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   635
	"
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   636
	 opendir not avalable - use slower pipe
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   637
	"
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   638
	^ PipeStream readingFrom:('cd ' , pathName , '; ls -a')
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   639
    ].
155
edd7fc34e104 *** empty log message ***
claus
parents: 92
diff changeset
   640
edd7fc34e104 *** empty log message ***
claus
parents: 92
diff changeset
   641
    (ok == true) ifTrue:[
5120
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   642
	Lobby register:self.
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   643
	entry isNil ifTrue:[
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   644
	    self nextLine. "read 1st entry into readAheadEntry buffer"
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   645
	] ifFalse:[
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   646
	    readAheadEntry := entry.
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   647
	].
13143fbcbdf8 introduced __threadErrno (for native threads)
Claus Gittinger <cg@exept.de>
parents: 4526
diff changeset
   648
	^ self
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   649
    ].
4526
a42dc8e09586 errorOpen renamed to errorAlreadyOpen
Claus Gittinger <cg@exept.de>
parents: 4298
diff changeset
   650
    dirPointer notNil ifTrue:[^ self errorAlreadyOpen].
155
edd7fc34e104 *** empty log message ***
claus
parents: 92
diff changeset
   651
    lastErrorNumber notNil ifTrue:[^ self openError].
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   652
    ^ nil
a27a279701f8 Initial revision
claus
parents:
diff changeset
   653
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
   654
a27a279701f8 Initial revision
claus
parents:
diff changeset
   655
reOpen
38
454b1b94a48e *** empty log message ***
claus
parents: 31
diff changeset
   656
    "reOpen the stream after image restart"
454b1b94a48e *** empty log message ***
claus
parents: 31
diff changeset
   657
2
claus
parents: 1
diff changeset
   658
    dirPointer := nil.
claus
parents: 1
diff changeset
   659
    super reOpen
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   660
! !
a27a279701f8 Initial revision
claus
parents:
diff changeset
   661
a27a279701f8 Initial revision
claus
parents:
diff changeset
   662
!DirectoryStream methodsFor:'testing'!
a27a279701f8 Initial revision
claus
parents:
diff changeset
   663
a27a279701f8 Initial revision
claus
parents:
diff changeset
   664
atEnd
a27a279701f8 Initial revision
claus
parents:
diff changeset
   665
    "return true, if position is at end"
a27a279701f8 Initial revision
claus
parents:
diff changeset
   666
1664
82793bcf229c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1631
diff changeset
   667
    ^ readAheadEntry == nil
2945
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   668
!
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   669
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   670
isEmpty
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   671
    "test for if the unread portion of the directory stream is empty.
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   672
     This query changes the readPointer of the DirectoryStream"
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   673
2957
46015145c398 comments
Claus Gittinger <cg@exept.de>
parents: 2945
diff changeset
   674
    |entry|
2945
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   675
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   676
    [self atEnd] whileFalse:[
3816
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   677
	entry := self nextLine.
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   678
	entry asFilename isImplicit ifFalse:[
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   679
	    ^ false.
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   680
	]
2945
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   681
    ].
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   682
    ^ true
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   683
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   684
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   685
    "
3816
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   686
	(DirectoryStream directoryNamed:'/') isEmpty
af3f917c7759 use wrapCalls for FindFirstFile & FindNextFile (win32 - dir-reading)
Claus Gittinger <cg@exept.de>
parents: 3164
diff changeset
   687
	(DirectoryStream directoryNamed:'/var/tmp') isEmpty
2945
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   688
    "
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   689
1a4f2e0d9f1b Add #isEmpty, to check for an empty directory.
Stefan Vogel <sv@exept.de>
parents: 2896
diff changeset
   690
    "Modified: 18.9.1997 / 18:05:31 / stefan"
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   691
! !
a27a279701f8 Initial revision
claus
parents:
diff changeset
   692
1281
b4b3abffdf32 Support optional signal generation on end of stream.
Stefan Vogel <sv@exept.de>
parents: 1133
diff changeset
   693
!DirectoryStream class methodsFor:'documentation'!
b4b3abffdf32 Support optional signal generation on end of stream.
Stefan Vogel <sv@exept.de>
parents: 1133
diff changeset
   694
b4b3abffdf32 Support optional signal generation on end of stream.
Stefan Vogel <sv@exept.de>
parents: 1133
diff changeset
   695
version
5245
fb27aee25da6 category change
Claus Gittinger <cg@exept.de>
parents: 5120
diff changeset
   696
    ^ '$Header: /cvs/stx/stx/libbasic/DirectoryStream.st,v 1.50 2000-02-07 19:26:12 cg Exp $'
1281
b4b3abffdf32 Support optional signal generation on end of stream.
Stefan Vogel <sv@exept.de>
parents: 1133
diff changeset
   697
! !