?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
gdiplus: Implement GdipSetPathGradientBlend, with tests.
[wine/multimedia.git] / dlls / ntdll / directory.c
blob65c8b8f9740e9d91c696d2c88b94248dfc081501
1 /*
2 * NTDLL directory functions
3 *
4 * Copyright 1993 Erik Bos
5 * Copyright 2003 Eric Pouech
6 * Copyright 1996, 2004 Alexandre Julliard
7 *
8 * This library is free software; you can redistribute it and/or
9 * modify it under the terms of the GNU Lesser General Public
10 * License as published by the Free Software Foundation; either
11 * version 2.1 of the License, or (at your option) any later version.
12 *
13 * This library is distributed in the hope that it will be useful,
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16 * Lesser General Public License for more details.
17 *
18 * You should have received a copy of the GNU Lesser General Public
19 * License along with this library; if not, write to the Free Software
20 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
21 */
22
23 #include "config.h"
24 #include "wine/port.h"
25
26 #include <assert.h>
27 #include <sys/types.h>
28 #ifdef HAVE_DIRENT_H
29 # include <dirent.h>
30 #endif
31 #include <errno.h>
32 #include <fcntl.h>
33 #include <stdarg.h>
34 #include <string.h>
35 #include <stdlib.h>
36 #include <stdio.h>
37 #include <limits.h>
38 #ifdef HAVE_MNTENT_H
39 #include <mntent.h>
40 #endif
41 #ifdef HAVE_SYS_STAT_H
42 # include <sys/stat.h>
43 #endif
44 #ifdef HAVE_SYS_SYSCALL_H
45 # include <sys/syscall.h>
46 #endif
47 #ifdef HAVE_SYS_ATTR_H
48 #include <sys/attr.h>
49 #endif
50 #ifdef HAVE_SYS_IOCTL_H
51 #include <sys/ioctl.h>
52 #endif
53 #ifdef HAVE_LINUX_IOCTL_H
54 #include <linux/ioctl.h>
55 #endif
56 #ifdef HAVE_LINUX_MAJOR_H
57 # include <linux/major.h>
58 #endif
59 #ifdef HAVE_SYS_PARAM_H
60 #include <sys/param.h>
61 #endif
62 #ifdef HAVE_SYS_MOUNT_H
63 #include <sys/mount.h>
64 #endif
65 #ifdef HAVE_SYS_STATFS_H
66 #include <sys/statfs.h>
67 #endif
68 #include <time.h>
69 #ifdef HAVE_UNISTD_H
70 # include <unistd.h>
71 #endif
72
73 #define NONAMELESSUNION
74 #define NONAMELESSSTRUCT
75 #include "ntstatus.h"
76 #define WIN32_NO_STATUS
77 #include "windef.h"
78 #include "winnt.h"
79 #include "winternl.h"
80 #include "ddk/wdm.h"
81 #include "ntdll_misc.h"
82 #include "wine/unicode.h"
83 #include "wine/server.h"
84 #include "wine/list.h"
85 #include "wine/library.h"
86 #include "wine/debug.h"
87
88 WINE_DEFAULT_DEBUG_CHANNEL(file);
89
90 /* just in case... */
91 #undef VFAT_IOCTL_READDIR_BOTH
92 #undef USE_GETDENTS
93
94 #ifdef linux
95
96 /* We want the real kernel dirent structure, not the libc one */
97 typedef struct
98 {
99 long d_ino;
100 long d_off;
101 unsigned short d_reclen;
102 char d_name[256];
103 } KERNEL_DIRENT;
104
105 /* Define the VFAT ioctl to get both short and long file names */
106 #define VFAT_IOCTL_READDIR_BOTH _IOR('r', 1, KERNEL_DIRENT [2] )
107
108 #ifndef O_DIRECTORY
109 # define O_DIRECTORY 0200000 /* must be directory */
110 #endif
111
112 #ifdef SYS_getdents64
113 typedef struct
114 {
115 ULONG64 d_ino;
116 LONG64 d_off;
117 unsigned short d_reclen;
118 unsigned char d_type;
119 char d_name[256];
120 } KERNEL_DIRENT64;
121
122 static inline int getdents64( int fd, char *de, unsigned int size )
123 {
124 return syscall( SYS_getdents64, fd, de, size );
125 }
126 #define USE_GETDENTS
127 #endif
128
129 #endif /* linux */
130
131 #define IS_OPTION_TRUE(ch) ((ch) == 'y' || (ch) == 'Y' || (ch) == 't' || (ch) == 'T' || (ch) == '1')
132 #define IS_SEPARATOR(ch) ((ch) == '\\' || (ch) == '/')
133
134 #define INVALID_NT_CHARS '*','?','<','>','|','"'
135 #define INVALID_DOS_CHARS INVALID_NT_CHARS,'+','=',',',';','[',']',' ','\345'
136
137 #define MAX_DIR_ENTRY_LEN 255 /* max length of a directory entry in chars */
138
139 #define MAX_IGNORED_FILES 4
140
141 struct file_identity
142 {
143 dev_t dev;
144 ino_t ino;
145 };
146
147 static struct file_identity ignored_files[MAX_IGNORED_FILES];
148 static int ignored_files_count;
149
150 union file_directory_info
151 {
152 ULONG next;
153 FILE_DIRECTORY_INFORMATION dir;
154 FILE_BOTH_DIRECTORY_INFORMATION both;
155 FILE_FULL_DIRECTORY_INFORMATION full;
156 FILE_ID_BOTH_DIRECTORY_INFORMATION id_both;
157 FILE_ID_FULL_DIRECTORY_INFORMATION id_full;
158 };
159
160 static int show_dot_files = -1;
161
162 /* at some point we may want to allow Winelib apps to set this */
163 static const int is_case_sensitive = FALSE;
164
165 UNICODE_STRING system_dir = { 0, 0, NULL }; /* system directory */
166
167 static struct file_identity curdir;
168 static struct file_identity windir;
169
170 static RTL_CRITICAL_SECTION dir_section;
171 static RTL_CRITICAL_SECTION_DEBUG critsect_debug =
172 {
173 0, 0, &dir_section,
174 { &critsect_debug.ProcessLocksList, &critsect_debug.ProcessLocksList },
175 0, 0, { (DWORD_PTR)(__FILE__ ": dir_section") }
176 };
177 static RTL_CRITICAL_SECTION dir_section = { &critsect_debug, -1, 0, 0, 0, 0 };
178
179
180 /* check if a given Unicode char is OK in a DOS short name */
181 static inline BOOL is_invalid_dos_char( WCHAR ch )
182 {
183 static const WCHAR invalid_chars[] = { INVALID_DOS_CHARS,'~','.',0 };
184 if (ch > 0x7f) return TRUE;
185 return strchrW( invalid_chars, ch ) != NULL;
186 }
187
188 /* check if the device can be a mounted volume */
189 static inline int is_valid_mounted_device( const struct stat *st )
190 {
191 #if defined(linux) || defined(__sun__)
192 return S_ISBLK( st->st_mode );
193 #else
194 /* disks are char devices on *BSD */
195 return S_ISCHR( st->st_mode );
196 #endif
197 }
198
199 static inline void ignore_file( const char *name )
200 {
201 struct stat st;
202 assert( ignored_files_count < MAX_IGNORED_FILES );
203 if (!stat( name, &st ))
204 {
205 ignored_files[ignored_files_count].dev = st.st_dev;
206 ignored_files[ignored_files_count].ino = st.st_ino;
207 ignored_files_count++;
208 }
209 }
210
211 static inline BOOL is_same_file( const struct file_identity *file, const struct stat *st )
212 {
213 return st->st_dev == file->dev && st->st_ino == file->ino;
214 }
215
216 static inline BOOL is_ignored_file( const struct stat *st )
217 {
218 unsigned int i;
219
220 for (i = 0; i < ignored_files_count; i++)
221 if (is_same_file( &ignored_files[i], st )) return TRUE;
222 return FALSE;
223 }
224
225 static inline unsigned int dir_info_size( FILE_INFORMATION_CLASS class, unsigned int len )
226 {
227 switch (class)
228 {
229 case FileDirectoryInformation:
230 return (FIELD_OFFSET( FILE_DIRECTORY_INFORMATION, FileName[len] ) + 3) & ~3;
231 case FileBothDirectoryInformation:
232 return (FIELD_OFFSET( FILE_BOTH_DIRECTORY_INFORMATION, FileName[len] ) + 3) & ~3;
233 case FileFullDirectoryInformation:
234 return (FIELD_OFFSET( FILE_FULL_DIRECTORY_INFORMATION, FileName[len] ) + 3) & ~3;
235 case FileIdBothDirectoryInformation:
236 return (FIELD_OFFSET( FILE_ID_BOTH_DIRECTORY_INFORMATION, FileName[len] ) + 3) & ~3;
237 case FileIdFullDirectoryInformation:
238 return (FIELD_OFFSET( FILE_ID_FULL_DIRECTORY_INFORMATION, FileName[len] ) + 3) & ~3;
239 default:
240 assert(0);
241 return 0;
242 }
243 }
244
245 static inline unsigned int max_dir_info_size( FILE_INFORMATION_CLASS class )
246 {
247 return dir_info_size( class, MAX_DIR_ENTRY_LEN );
248 }
249
250
251 /* support for a directory queue for filesystem searches */
252
253 struct dir_name
254 {
255 struct list entry;
256 char name[1];
257 };
258
259 static struct list dir_queue = LIST_INIT( dir_queue );
260
261 static NTSTATUS add_dir_to_queue( const char *name )
262 {
263 int len = strlen( name ) + 1;
264 struct dir_name *dir = RtlAllocateHeap( GetProcessHeap(), 0,
265 FIELD_OFFSET( struct dir_name, name[len] ));
266 if (!dir) return STATUS_NO_MEMORY;
267 strcpy( dir->name, name );
268 list_add_tail( &dir_queue, &dir->entry );
269 return STATUS_SUCCESS;
270 }
271
272 static NTSTATUS next_dir_in_queue( char *name )
273 {
274 struct list *head = list_head( &dir_queue );
275 if (head)
276 {
277 struct dir_name *dir = LIST_ENTRY( head, struct dir_name, entry );
278 strcpy( name, dir->name );
279 list_remove( &dir->entry );
280 RtlFreeHeap( GetProcessHeap(), 0, dir );
281 return STATUS_SUCCESS;
282 }
283 return STATUS_OBJECT_NAME_NOT_FOUND;
284 }
285
286 static void flush_dir_queue(void)
287 {
288 struct list *head;
289
290 while ((head = list_head( &dir_queue )))
291 {
292 struct dir_name *dir = LIST_ENTRY( head, struct dir_name, entry );
293 list_remove( &dir->entry );
294 RtlFreeHeap( GetProcessHeap(), 0, dir );
295 }
296 }
297
298
299 /***********************************************************************
300 * get_default_com_device
301 *
302 * Return the default device to use for serial ports.
303 */
304 static char *get_default_com_device( int num )
305 {
306 char *ret = NULL;
307
308 if (!num || num > 9) return ret;
309 #ifdef linux
310 ret = RtlAllocateHeap( GetProcessHeap(), 0, sizeof("/dev/ttyS0") );
311 if (ret)
312 {
313 strcpy( ret, "/dev/ttyS0" );
314 ret[strlen(ret) - 1] = '0' + num - 1;
315 }
316 #elif defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
317 ret = RtlAllocateHeap( GetProcessHeap(), 0, sizeof("/dev/cuad0") );
318 if (ret)
319 {
320 strcpy( ret, "/dev/cuad0" );
321 ret[strlen(ret) - 1] = '0' + num - 1;
322 }
323 #else
324 FIXME( "no known default for device com%d\n", num );
325 #endif
326 return ret;
327 }
328
329
330 /***********************************************************************
331 * get_default_lpt_device
332 *
333 * Return the default device to use for parallel ports.
334 */
335 static char *get_default_lpt_device( int num )
336 {
337 char *ret = NULL;
338
339 if (!num || num > 9) return ret;
340 #ifdef linux
341 ret = RtlAllocateHeap( GetProcessHeap(), 0, sizeof("/dev/lp0") );
342 if (ret)
343 {
344 strcpy( ret, "/dev/lp0" );
345 ret[strlen(ret) - 1] = '0' + num - 1;
346 }
347 #else
348 FIXME( "no known default for device lpt%d\n", num );
349 #endif
350 return ret;
351 }
352
353
354 /***********************************************************************
355 * DIR_get_drives_info
356 *
357 * Retrieve device/inode number for all the drives. Helper for find_drive_root.
358 */
359 unsigned int DIR_get_drives_info( struct drive_info info[MAX_DOS_DRIVES] )
360 {
361 static struct drive_info cache[MAX_DOS_DRIVES];
362 static time_t last_update;
363 static unsigned int nb_drives;
364 unsigned int ret;
365 time_t now = time(NULL);
366
367 RtlEnterCriticalSection( &dir_section );
368 if (now != last_update)
369 {
370 const char *config_dir = wine_get_config_dir();
371 char *buffer, *p;
372 struct stat st;
373 unsigned int i;
374
375 if ((buffer = RtlAllocateHeap( GetProcessHeap(), 0,
376 strlen(config_dir) + sizeof("/dosdevices/a:") )))
377 {
378 strcpy( buffer, config_dir );
379 strcat( buffer, "/dosdevices/a:" );
380 p = buffer + strlen(buffer) - 2;
381
382 for (i = nb_drives = 0; i < MAX_DOS_DRIVES; i++)
383 {
384 *p = 'a' + i;
385 if (!stat( buffer, &st ))
386 {
387 cache[i].dev = st.st_dev;
388 cache[i].ino = st.st_ino;
389 nb_drives++;
390 }
391 else
392 {
393 cache[i].dev = 0;
394 cache[i].ino = 0;
395 }
396 }
397 RtlFreeHeap( GetProcessHeap(), 0, buffer );
398 }
399 last_update = now;
400 }
401 memcpy( info, cache, sizeof(cache) );
402 ret = nb_drives;
403 RtlLeaveCriticalSection( &dir_section );
404 return ret;
405 }
406
407
408 /***********************************************************************
409 * parse_mount_entries
410 *
411 * Parse mount entries looking for a given device. Helper for get_default_drive_device.
412 */
413
414 #ifdef sun
415 #include <sys/vfstab.h>
416 static char *parse_vfstab_entries( FILE *f, dev_t dev, ino_t ino)
417 {
418 struct vfstab entry;
419 struct stat st;
420 char *device;
421
422 while (! getvfsent( f, &entry ))
423 {
424 /* don't even bother stat'ing network mounts, there's no meaningful device anyway */
425 if (!strcmp( entry.vfs_fstype, "nfs" ) ||
426 !strcmp( entry.vfs_fstype, "smbfs" ) ||
427 !strcmp( entry.vfs_fstype, "ncpfs" )) continue;
428
429 if (stat( entry.vfs_mountp, &st ) == -1) continue;
430 if (st.st_dev != dev || st.st_ino != ino) continue;
431 if (!strcmp( entry.vfs_fstype, "fd" ))
432 {
433 if ((device = strstr( entry.vfs_mntopts, "dev=" )))
434 {
435 char *p = strchr( device + 4, ',' );
436 if (p) *p = 0;
437 return device + 4;
438 }
439 }
440 else
441 return entry.vfs_special;
442 }
443 return NULL;
444 }
445 #endif
446
447 #ifdef linux
448 static char *parse_mount_entries( FILE *f, dev_t dev, ino_t ino )
449 {
450 struct mntent *entry;
451 struct stat st;
452 char *device;
453
454 while ((entry = getmntent( f )))
455 {
456 /* don't even bother stat'ing network mounts, there's no meaningful device anyway */
457 if (!strcmp( entry->mnt_type, "nfs" ) ||
458 !strcmp( entry->mnt_type, "smbfs" ) ||
459 !strcmp( entry->mnt_type, "ncpfs" )) continue;
460
461 if (stat( entry->mnt_dir, &st ) == -1) continue;
462 if (st.st_dev != dev || st.st_ino != ino) continue;
463 if (!strcmp( entry->mnt_type, "supermount" ))
464 {
465 if ((device = strstr( entry->mnt_opts, "dev=" )))
466 {
467 char *p = strchr( device + 4, ',' );
468 if (p) *p = 0;
469 return device + 4;
470 }
471 }
472 else if (!stat( entry->mnt_fsname, &st ) && S_ISREG(st.st_mode))
473 {
474 /* if device is a regular file check for a loop mount */
475 if ((device = strstr( entry->mnt_opts, "loop=" )))
476 {
477 char *p = strchr( device + 5, ',' );
478 if (p) *p = 0;
479 return device + 5;
480 }
481 }
482 else
483 return entry->mnt_fsname;
484 }
485 return NULL;
486 }
487 #endif
488
489 #if defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
490 #include <fstab.h>
491 static char *parse_mount_entries( FILE *f, dev_t dev, ino_t ino )
492 {
493 struct fstab *entry;
494 struct stat st;
495
496 while ((entry = getfsent()))
497 {
498 /* don't even bother stat'ing network mounts, there's no meaningful device anyway */
499 if (!strcmp( entry->fs_vfstype, "nfs" ) ||
500 !strcmp( entry->fs_vfstype, "smbfs" ) ||
501 !strcmp( entry->fs_vfstype, "ncpfs" )) continue;
502
503 if (stat( entry->fs_file, &st ) == -1) continue;
504 if (st.st_dev != dev || st.st_ino != ino) continue;
505 return entry->fs_spec;
506 }
507 return NULL;
508 }
509 #endif
510
511 #ifdef sun
512 #include <sys/mnttab.h>
513 static char *parse_mount_entries( FILE *f, dev_t dev, ino_t ino )
514 {
515 struct mnttab entry;
516 struct stat st;
517 char *device;
518
519
520 while (( ! getmntent( f, &entry) ))
521 {
522 /* don't even bother stat'ing network mounts, there's no meaningful device anyway */
523 if (!strcmp( entry.mnt_fstype, "nfs" ) ||
524 !strcmp( entry.mnt_fstype, "smbfs" ) ||
525 !strcmp( entry.mnt_fstype, "ncpfs" )) continue;
526
527 if (stat( entry.mnt_mountp, &st ) == -1) continue;
528 if (st.st_dev != dev || st.st_ino != ino) continue;
529 if (!strcmp( entry.mnt_fstype, "fd" ))
530 {
531 if ((device = strstr( entry.mnt_mntopts, "dev=" )))
532 {
533 char *p = strchr( device + 4, ',' );
534 if (p) *p = 0;
535 return device + 4;
536 }
537 }
538 else
539 return entry.mnt_special;
540 }
541 return NULL;
542 }
543 #endif
544
545 /***********************************************************************
546 * get_default_drive_device
547 *
548 * Return the default device to use for a given drive mount point.
549 */
550 static char *get_default_drive_device( const char *root )
551 {
552 char *ret = NULL;
553
554 #ifdef linux
555 FILE *f;
556 char *device = NULL;
557 int fd, res = -1;
558 struct stat st;
559
560 /* try to open it first to force it to get mounted */
561 if ((fd = open( root, O_RDONLY | O_DIRECTORY )) != -1)
562 {
563 res = fstat( fd, &st );
564 close( fd );
565 }
566 /* now try normal stat just in case */
567 if (res == -1) res = stat( root, &st );
568 if (res == -1) return NULL;
569
570 RtlEnterCriticalSection( &dir_section );
571
572 if ((f = fopen( "/etc/mtab", "r" )))
573 {
574 device = parse_mount_entries( f, st.st_dev, st.st_ino );
575 endmntent( f );
576 }
577 /* look through fstab too in case it's not mounted (for instance if it's an audio CD) */
578 if (!device && (f = fopen( "/etc/fstab", "r" )))
579 {
580 device = parse_mount_entries( f, st.st_dev, st.st_ino );
581 endmntent( f );
582 }
583 if (device)
584 {
585 ret = RtlAllocateHeap( GetProcessHeap(), 0, strlen(device) + 1 );
586 if (ret) strcpy( ret, device );
587 }
588 RtlLeaveCriticalSection( &dir_section );
589
590 #elif defined(__FreeBSD__) || defined(__FreeBSD_kernel__ )
591 char *device = NULL;
592 int fd, res = -1;
593 struct stat st;
594
595 /* try to open it first to force it to get mounted */
596 if ((fd = open( root, O_RDONLY )) != -1)
597 {
598 res = fstat( fd, &st );
599 close( fd );
600 }
601 /* now try normal stat just in case */
602 if (res == -1) res = stat( root, &st );
603 if (res == -1) return NULL;
604
605 RtlEnterCriticalSection( &dir_section );
606
607 /* The FreeBSD parse_mount_entries doesn't require a file argument, so just
608 * pass NULL. Leave the argument in for symmetry.
609 */
610 device = parse_mount_entries( NULL, st.st_dev, st.st_ino );
611 if (device)
612 {
613 ret = RtlAllocateHeap( GetProcessHeap(), 0, strlen(device) + 1 );
614 if (ret) strcpy( ret, device );
615 }
616 RtlLeaveCriticalSection( &dir_section );
617
618 #elif defined( sun )
619 FILE *f;
620 char *device = NULL;
621 int fd, res = -1;
622 struct stat st;
623
624 /* try to open it first to force it to get mounted */
625 if ((fd = open( root, O_RDONLY )) != -1)
626 {
627 res = fstat( fd, &st );
628 close( fd );
629 }
630 /* now try normal stat just in case */
631 if (res == -1) res = stat( root, &st );
632 if (res == -1) return NULL;
633
634 RtlEnterCriticalSection( &dir_section );
635
636 if ((f = fopen( "/etc/mnttab", "r" )))
637 {
638 device = parse_mount_entries( f, st.st_dev, st.st_ino);
639 fclose( f );
640 }
641 /* look through fstab too in case it's not mounted (for instance if it's an audio CD) */
642 if (!device && (f = fopen( "/etc/vfstab", "r" )))
643 {
644 device = parse_vfstab_entries( f, st.st_dev, st.st_ino );
645 fclose( f );
646 }
647 if (device)
648 {
649 ret = RtlAllocateHeap( GetProcessHeap(), 0, strlen(device) + 1 );
650 if (ret) strcpy( ret, device );
651 }
652 RtlLeaveCriticalSection( &dir_section );
653
654 #elif defined(__APPLE__)
655 struct statfs *mntStat;
656 struct stat st;
657 int i;
658 int mntSize;
659 dev_t dev;
660 ino_t ino;
661 static const char path_bsd_device[] = "/dev/disk";
662 int res;
663
664 res = stat( root, &st );
665 if (res == -1) return NULL;
666
667 dev = st.st_dev;
668 ino = st.st_ino;
669
670 RtlEnterCriticalSection( &dir_section );
671
672 mntSize = getmntinfo(&mntStat, MNT_NOWAIT);
673
674 for (i = 0; i < mntSize && !ret; i++)
675 {
676 if (stat(mntStat[i].f_mntonname, &st ) == -1) continue;
677 if (st.st_dev != dev || st.st_ino != ino) continue;
678
679 /* FIXME add support for mounted network drive */
680 if ( strncmp(mntStat[i].f_mntfromname, path_bsd_device, strlen(path_bsd_device)) == 0)
681 {
682 /* set return value to the corresponding raw BSD node */
683 ret = RtlAllocateHeap( GetProcessHeap(), 0, strlen(mntStat[i].f_mntfromname) + 2 /* 2 : r and \0 */ );
684 if (ret)
685 {
686 strcpy(ret, "/dev/r");
687 strcat(ret, mntStat[i].f_mntfromname+sizeof("/dev/")-1);
688 }
689 }
690 }
691 RtlLeaveCriticalSection( &dir_section );
692 #else
693 static int warned;
694 if (!warned++) FIXME( "auto detection of DOS devices not supported on this platform\n" );
695 #endif
696 return ret;
697 }
698
699
700 /***********************************************************************
701 * get_device_mount_point
702 *
703 * Return the current mount point for a device.
704 */
705 static char *get_device_mount_point( dev_t dev )
706 {
707 char *ret = NULL;
708
709 #ifdef linux
710 FILE *f;
711
712 RtlEnterCriticalSection( &dir_section );
713
714 if ((f = fopen( "/etc/mtab", "r" )))
715 {
716 struct mntent *entry;
717 struct stat st;
718 char *p, *device;
719
720 while ((entry = getmntent( f )))
721 {
722 /* don't even bother stat'ing network mounts, there's no meaningful device anyway */
723 if (!strcmp( entry->mnt_type, "nfs" ) ||
724 !strcmp( entry->mnt_type, "smbfs" ) ||
725 !strcmp( entry->mnt_type, "ncpfs" )) continue;
726
727 if (!strcmp( entry->mnt_type, "supermount" ))
728 {
729 if ((device = strstr( entry->mnt_opts, "dev=" )))
730 {
731 device += 4;
732 if ((p = strchr( device, ',' ))) *p = 0;
733 }
734 }
735 else if (!stat( entry->mnt_fsname, &st ) && S_ISREG(st.st_mode))
736 {
737 /* if device is a regular file check for a loop mount */
738 if ((device = strstr( entry->mnt_opts, "loop=" )))
739 {
740 device += 5;
741 if ((p = strchr( device, ',' ))) *p = 0;
742 }
743 }
744 else device = entry->mnt_fsname;
745
746 if (device && !stat( device, &st ) && S_ISBLK(st.st_mode) && st.st_rdev == dev)
747 {
748 ret = RtlAllocateHeap( GetProcessHeap(), 0, strlen(entry->mnt_dir) + 1 );
749 if (ret) strcpy( ret, entry->mnt_dir );
750 break;
751 }
752 }
753 endmntent( f );
754 }
755 RtlLeaveCriticalSection( &dir_section );
756 #elif defined(__APPLE__)
757 struct statfs *entry;
758 struct stat st;
759 int i, size;
760
761 RtlEnterCriticalSection( &dir_section );
762
763 size = getmntinfo( &entry, MNT_NOWAIT );
764 for (i = 0; i < size; i++)
765 {
766 if (stat( entry[i].f_mntfromname, &st ) == -1) continue;
767 if (S_ISBLK(st.st_mode) && st.st_rdev == dev)
768 {
769 ret = RtlAllocateHeap( GetProcessHeap(), 0, strlen(entry[i].f_mntfromname) + 1 );
770 if (ret) strcpy( ret, entry[i].f_mntfromname );
771 break;
772 }
773 }
774 RtlLeaveCriticalSection( &dir_section );
775 #else
776 static int warned;
777 if (!warned++) FIXME( "unmounting devices not supported on this platform\n" );
778 #endif
779 return ret;
780 }
781
782
783 #if defined(HAVE_GETATTRLIST) && defined(ATTR_VOL_CAPABILITIES) && \
784 defined(VOL_CAPABILITIES_FORMAT) && defined(VOL_CAP_FMT_CASE_SENSITIVE)
785
786 struct get_fsid
787 {
788 ULONG size;
789 dev_t dev;
790 fsid_t fsid;
791 };
792
793 struct fs_cache
794 {
795 dev_t dev;
796 fsid_t fsid;
797 BOOLEAN case_sensitive;
798 } fs_cache[64];
799
800 struct vol_caps
801 {
802 ULONG size;
803 vol_capabilities_attr_t caps;
804 };
805
806 /***********************************************************************
807 * look_up_fs_cache
808 *
809 * Checks if the specified file system is in the cache.
810 */
811 static struct fs_cache *look_up_fs_cache( dev_t dev )
812 {
813 int i;
814 for (i = 0; i < sizeof(fs_cache)/sizeof(fs_cache[0]); i++)
815 if (fs_cache[i].dev == dev)
816 return fs_cache+i;
817 return NULL;
818 }
819
820 /***********************************************************************
821 * add_fs_cache
822 *
823 * Adds the specified file system to the cache.
824 */
825 static void add_fs_cache( dev_t dev, fsid_t fsid, BOOLEAN case_sensitive )
826 {
827 int i;
828 struct fs_cache *entry = look_up_fs_cache( dev );
829 static int once = 0;
830 if (entry)
831 {
832 /* Update the cache */
833 entry->fsid = fsid;
834 entry->case_sensitive = case_sensitive;
835 return;
836 }
837
838 /* Add a new entry */
839 for (i = 0; i < sizeof(fs_cache)/sizeof(fs_cache[0]); i++)
840 if (fs_cache[i].dev == 0)
841 {
842 /* This entry is empty, use it */
843 fs_cache[i].dev = dev;
844 fs_cache[i].fsid = fsid;
845 fs_cache[i].case_sensitive = case_sensitive;
846 return;
847 }
848
849 /* Cache is out of space, warn */
850 if (!once++)
851 WARN( "FS cache is out of space, expect performance problems\n" );
852 }
853
854 /***********************************************************************
855 * get_dir_case_sensitivity_attr
856 *
857 * Checks if the volume containing the specified directory is case
858 * sensitive or not. Uses getattrlist(2).
859 */
860 static int get_dir_case_sensitivity_attr( const char *dir )
861 {
862 char *mntpoint = NULL;
863 struct attrlist attr;
864 struct vol_caps caps;
865 struct get_fsid get_fsid;
866 struct fs_cache *entry;
867
868 /* First get the FS ID of the volume */
869 attr.bitmapcount = ATTR_BIT_MAP_COUNT;
870 attr.reserved = 0;
871 attr.commonattr = ATTR_CMN_DEVID|ATTR_CMN_FSID;
872 attr.volattr = attr.dirattr = attr.fileattr = attr.forkattr = 0;
873 get_fsid.size = 0;
874 if (getattrlist( dir, &attr, &get_fsid, sizeof(get_fsid), 0 ) != 0 ||
875 get_fsid.size != sizeof(get_fsid))
876 return -1;
877 /* Try to look it up in the cache */
878 entry = look_up_fs_cache( get_fsid.dev );
879 if (entry && !memcmp( &entry->fsid, &get_fsid.fsid, sizeof(fsid_t) ))
880 /* Cache lookup succeeded */
881 return entry->case_sensitive;
882 /* Cache is stale at this point, we have to update it */
883
884 mntpoint = get_device_mount_point( get_fsid.dev );
885 /* Now look up the case-sensitivity */
886 attr.commonattr = 0;
887 attr.volattr = ATTR_VOL_INFO|ATTR_VOL_CAPABILITIES;
888 if (getattrlist( mntpoint, &attr, &caps, sizeof(caps), 0 ) < 0)
889 {
890 RtlFreeHeap( GetProcessHeap(), 0, mntpoint );
891 add_fs_cache( get_fsid.dev, get_fsid.fsid, TRUE );
892 return TRUE;
893 }
894 RtlFreeHeap( GetProcessHeap(), 0, mntpoint );
895 if (caps.size == sizeof(caps) &&
896 (caps.caps.valid[VOL_CAPABILITIES_FORMAT] &
897 (VOL_CAP_FMT_CASE_SENSITIVE | VOL_CAP_FMT_CASE_PRESERVING)) ==
898 (VOL_CAP_FMT_CASE_SENSITIVE | VOL_CAP_FMT_CASE_PRESERVING))
899 {
900 BOOLEAN ret;
901
902 if ((caps.caps.capabilities[VOL_CAPABILITIES_FORMAT] &
903 VOL_CAP_FMT_CASE_SENSITIVE) != VOL_CAP_FMT_CASE_SENSITIVE)
904 ret = FALSE;
905 else
906 ret = TRUE;
907 /* Update the cache */
908 add_fs_cache( get_fsid.dev, get_fsid.fsid, ret );
909 return ret;
910 }
911 return FALSE;
912 }
913 #endif
914
915 /***********************************************************************
916 * get_dir_case_sensitivity_stat
917 *
918 * Checks if the volume containing the specified directory is case
919 * sensitive or not. Uses statfs(2) or statvfs(2).
920 */
921 static BOOLEAN get_dir_case_sensitivity_stat( const char *dir )
922 {
923 #if defined(__APPLE__) || defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
924 struct statfs stfs;
925
926 if (statfs( dir, &stfs ) == -1) return FALSE;
927 /* Assume these file systems are always case insensitive on Mac OS.
928 * For FreeBSD, only assume CIOPFS is case insensitive (AFAIK, Mac OS
929 * is the only UNIX that supports case-insensitive lookup).
930 */
931 if (!strcmp( stfs.f_fstypename, "fusefs" ) &&
932 !strncmp( stfs.f_mntfromname, "ciopfs", 5 ))
933 return FALSE;
934 #ifdef __APPLE__
935 if (!strcmp( stfs.f_fstypename, "msdos" ) ||
936 !strcmp( stfs.f_fstypename, "cd9660" ) ||
937 !strcmp( stfs.f_fstypename, "udf" ) ||
938 !strcmp( stfs.f_fstypename, "ntfs" ) ||
939 !strcmp( stfs.f_fstypename, "smbfs" ))
940 return FALSE;
941 #ifdef _DARWIN_FEATURE_64_BIT_INODE
942 if (!strcmp( stfs.f_fstypename, "hfs" ) && (stfs.f_fssubtype == 0 ||
943 stfs.f_fssubtype == 1 ||
944 stfs.f_fssubtype == 128))
945 return FALSE;
946 #else
947 /* The field says "reserved", but a quick look at the kernel source
948 * tells us that this "reserved" field is really the same as the
949 * "fssubtype" field from the inode64 structure (see munge_statfs()
950 * in <xnu-source>/bsd/vfs/vfs_syscalls.c).
951 */
952 if (!strcmp( stfs.f_fstypename, "hfs" ) && (stfs.f_reserved1 == 0 ||
953 stfs.f_reserved1 == 1 ||
954 stfs.f_reserved1 == 128))
955 return FALSE;
956 #endif
957 #endif
958 return TRUE;
959
960 #elif defined(__NetBSD__)
961 struct statvfs stfs;
962
963 if (statvfs( dir, &stfs ) == -1) return FALSE;
964 /* Only assume CIOPFS is case insensitive. */
965 if (strcmp( stfs.f_fstypename, "fusefs" ) ||
966 strncmp( stfs.f_mntfromname, "ciopfs", 5 ))
967 return TRUE;
968 return FALSE;
969
970 #elif defined(__linux__)
971 struct statfs stfs;
972 struct stat st;
973 char *cifile;
974
975 /* Only assume CIOPFS is case insensitive. */
976 if (statfs( dir, &stfs ) == -1) return FALSE;
977 if (stfs.f_type != 0x65735546 /* FUSE_SUPER_MAGIC */)
978 return TRUE;
979 /* Normally, we'd have to parse the mtab to find out exactly what
980 * kind of FUSE FS this is. But, someone on wine-devel suggested
981 * a shortcut. We'll stat a special file in the directory. If it's
982 * there, we'll assume it's a CIOPFS, else not.
983 * This will break if somebody puts a file named ".ciopfs" in a non-
984 * CIOPFS directory.
985 */
986 cifile = RtlAllocateHeap( GetProcessHeap(), 0, strlen( dir )+sizeof("/.ciopfs") );
987 if (!cifile) return TRUE;
988 strcpy( cifile, dir );
989 strcat( cifile, "/.ciopfs" );
990 if (stat( cifile, &st ) == 0)
991 {
992 RtlFreeHeap( GetProcessHeap(), 0, cifile );
993 return FALSE;
994 }
995 RtlFreeHeap( GetProcessHeap(), 0, cifile );
996 return TRUE;
997 #else
998 return TRUE;
999 #endif
1000 }
1001
1002
1003 /***********************************************************************
1004 * get_dir_case_sensitivity
1005 *
1006 * Checks if the volume containing the specified directory is case
1007 * sensitive or not. Uses statfs(2) or statvfs(2).
1008 */
1009 static BOOLEAN get_dir_case_sensitivity( const char *dir )
1010 {
1011 #if defined(HAVE_GETATTRLIST) && defined(ATTR_VOL_CAPABILITIES) && \
1012 defined(VOL_CAPABILITIES_FORMAT) && defined(VOL_CAP_FMT_CASE_SENSITIVE)
1013 int case_sensitive = get_dir_case_sensitivity_attr( dir );
1014 if (case_sensitive != -1) return case_sensitive;
1015 #endif
1016 return get_dir_case_sensitivity_stat( dir );
1017 }
1018
1019
1020 /***********************************************************************
1021 * init_options
1022 *
1023 * Initialize the show_dot_files options.
1024 */
1025 static void init_options(void)
1026 {
1027 static const WCHAR WineW[] = {'S','o','f','t','w','a','r','e','\\','W','i','n','e',0};
1028 static const WCHAR ShowDotFilesW[] = {'S','h','o','w','D','o','t','F','i','l','e','s',0};
1029 char tmp[80];
1030 HANDLE root, hkey;
1031 DWORD dummy;
1032 OBJECT_ATTRIBUTES attr;
1033 UNICODE_STRING nameW;
1034
1035 show_dot_files = 0;
1036
1037 RtlOpenCurrentUser( KEY_ALL_ACCESS, &root );
1038 attr.Length = sizeof(attr);
1039 attr.RootDirectory = root;
1040 attr.ObjectName = &nameW;
1041 attr.Attributes = 0;
1042 attr.SecurityDescriptor = NULL;
1043 attr.SecurityQualityOfService = NULL;
1044 RtlInitUnicodeString( &nameW, WineW );
1045
1046 /* @@ Wine registry key: HKCU\Software\Wine */
1047 if (!NtOpenKey( &hkey, KEY_ALL_ACCESS, &attr ))
1048 {
1049 RtlInitUnicodeString( &nameW, ShowDotFilesW );
1050 if (!NtQueryValueKey( hkey, &nameW, KeyValuePartialInformation, tmp, sizeof(tmp), &dummy ))
1051 {
1052 WCHAR *str = (WCHAR *)((KEY_VALUE_PARTIAL_INFORMATION *)tmp)->Data;
1053 show_dot_files = IS_OPTION_TRUE( str[0] );
1054 }
1055 NtClose( hkey );
1056 }
1057 NtClose( root );
1058
1059 /* a couple of directories that we don't want to return in directory searches */
1060 ignore_file( wine_get_config_dir() );
1061 ignore_file( "/dev" );
1062 ignore_file( "/proc" );
1063 #ifdef linux
1064 ignore_file( "/sys" );
1065 #endif
1066 }
1067
1068
1069 /***********************************************************************
1070 * DIR_is_hidden_file
1071 *
1072 * Check if the specified file should be hidden based on its name and the show dot files option.
1073 */
1074 BOOL DIR_is_hidden_file( const UNICODE_STRING *name )
1075 {
1076 WCHAR *p, *end;
1077
1078 if (show_dot_files == -1) init_options();
1079 if (show_dot_files) return FALSE;
1080
1081 end = p = name->Buffer + name->Length/sizeof(WCHAR);
1082 while (p > name->Buffer && IS_SEPARATOR(p[-1])) p--;
1083 while (p > name->Buffer && !IS_SEPARATOR(p[-1])) p--;
1084 if (p == end || *p != '.') return FALSE;
1085 /* make sure it isn't '.' or '..' */
1086 if (p + 1 == end) return FALSE;
1087 if (p[1] == '.' && p + 2 == end) return FALSE;
1088 return TRUE;
1089 }
1090
1091
1092 /***********************************************************************
1093 * hash_short_file_name
1094 *
1095 * Transform a Unix file name into a hashed DOS name. If the name is a valid
1096 * DOS name, it is converted to upper-case; otherwise it is replaced by a
1097 * hashed version that fits in 8.3 format.
1098 * 'buffer' must be at least 12 characters long.
1099 * Returns length of short name in bytes; short name is NOT null-terminated.
1100 */
1101 static ULONG hash_short_file_name( const UNICODE_STRING *name, LPWSTR buffer )
1102 {
1103 static const char hash_chars[32] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ012345";
1104
1105 LPCWSTR p, ext, end = name->Buffer + name->Length / sizeof(WCHAR);
1106 LPWSTR dst;
1107 unsigned short hash;
1108 int i;
1109
1110 /* Compute the hash code of the file name */
1111 /* If you know something about hash functions, feel free to */
1112 /* insert a better algorithm here... */
1113 if (!is_case_sensitive)
1114 {
1115 for (p = name->Buffer, hash = 0xbeef; p < end - 1; p++)
1116 hash = (hash<<3) ^ (hash>>5) ^ tolowerW(*p) ^ (tolowerW(p[1]) << 8);
1117 hash = (hash<<3) ^ (hash>>5) ^ tolowerW(*p); /* Last character */
1118 }
1119 else
1120 {
1121 for (p = name->Buffer, hash = 0xbeef; p < end - 1; p++)
1122 hash = (hash << 3) ^ (hash >> 5) ^ *p ^ (p[1] << 8);
1123 hash = (hash << 3) ^ (hash >> 5) ^ *p; /* Last character */
1124 }
1125
1126 /* Find last dot for start of the extension */
1127 for (p = name->Buffer + 1, ext = NULL; p < end - 1; p++) if (*p == '.') ext = p;
1128
1129 /* Copy first 4 chars, replacing invalid chars with '_' */
1130 for (i = 4, p = name->Buffer, dst = buffer; i > 0; i--, p++)
1131 {
1132 if (p == end || p == ext) break;
1133 *dst++ = is_invalid_dos_char(*p) ? '_' : toupperW(*p);
1134 }
1135 /* Pad to 5 chars with '~' */
1136 while (i-- >= 0) *dst++ = '~';
1137
1138 /* Insert hash code converted to 3 ASCII chars */
1139 *dst++ = hash_chars[(hash >> 10) & 0x1f];
1140 *dst++ = hash_chars[(hash >> 5) & 0x1f];
1141 *dst++ = hash_chars[hash & 0x1f];
1142
1143 /* Copy the first 3 chars of the extension (if any) */
1144 if (ext)
1145 {
1146 *dst++ = '.';
1147 for (i = 3, ext++; (i > 0) && ext < end; i--, ext++)
1148 *dst++ = is_invalid_dos_char(*ext) ? '_' : toupperW(*ext);
1149 }
1150 return dst - buffer;
1151 }
1152
1153
1154 /***********************************************************************
1155 * match_filename
1156 *
1157 * Check a long file name against a mask.
1158 *
1159 * Tests (done in W95 DOS shell - case insensitive):
1160 * *.txt test1.test.txt *
1161 * *st1* test1.txt *
1162 * *.t??????.t* test1.ta.tornado.txt *
1163 * *tornado* test1.ta.tornado.txt *
1164 * t*t test1.ta.tornado.txt *
1165 * ?est* test1.txt *
1166 * ?est??? test1.txt -
1167 * *test1.txt* test1.txt *
1168 * h?l?o*t.dat hellothisisatest.dat *
1169 */
1170 static BOOLEAN match_filename( const UNICODE_STRING *name_str, const UNICODE_STRING *mask_str )
1171 {
1172 int mismatch;
1173 const WCHAR *name = name_str->Buffer;
1174 const WCHAR *mask = mask_str->Buffer;
1175 const WCHAR *name_end = name + name_str->Length / sizeof(WCHAR);
1176 const WCHAR *mask_end = mask + mask_str->Length / sizeof(WCHAR);
1177 const WCHAR *lastjoker = NULL;
1178 const WCHAR *next_to_retry = NULL;
1179
1180 TRACE("(%s, %s)\n", debugstr_us(name_str), debugstr_us(mask_str));
1181
1182 while (name < name_end && mask < mask_end)
1183 {
1184 switch(*mask)
1185 {
1186 case '*':
1187 mask++;
1188 while (mask < mask_end && *mask == '*') mask++; /* Skip consecutive '*' */
1189 if (mask == mask_end) return TRUE; /* end of mask is all '*', so match */
1190 lastjoker = mask;
1191
1192 /* skip to the next match after the joker(s) */
1193 if (is_case_sensitive)
1194 while (name < name_end && (*name != *mask)) name++;
1195 else
1196 while (name < name_end && (toupperW(*name) != toupperW(*mask))) name++;
1197 next_to_retry = name;
1198 break;
1199 case '?':
1200 mask++;
1201 name++;
1202 break;
1203 default:
1204 if (is_case_sensitive) mismatch = (*mask != *name);
1205 else mismatch = (toupperW(*mask) != toupperW(*name));
1206
1207 if (!mismatch)
1208 {
1209 mask++;
1210 name++;
1211 if (mask == mask_end)
1212 {
1213 if (name == name_end) return TRUE;
1214 if (lastjoker) mask = lastjoker;
1215 }
1216 }
1217 else /* mismatch ! */
1218 {
1219 if (lastjoker) /* we had an '*', so we can try unlimitedly */
1220 {
1221 mask = lastjoker;
1222
1223 /* this scan sequence was a mismatch, so restart
1224 * 1 char after the first char we checked last time */
1225 next_to_retry++;
1226 name = next_to_retry;
1227 }
1228 else return FALSE; /* bad luck */
1229 }
1230 break;
1231 }
1232 }
1233 while (mask < mask_end && ((*mask == '.') || (*mask == '*')))
1234 mask++; /* Ignore trailing '.' or '*' in mask */
1235 return (name == name_end && mask == mask_end);
1236 }
1237
1238
1239 /***********************************************************************
1240 * append_entry
1241 *
1242 * helper for NtQueryDirectoryFile
1243 */
1244 static union file_directory_info *append_entry( void *info_ptr, IO_STATUS_BLOCK *io, ULONG max_length,
1245 const char *long_name, const char *short_name,
1246 const UNICODE_STRING *mask, FILE_INFORMATION_CLASS class )
1247 {
1248 union file_directory_info *info;
1249 int i, long_len, short_len, total_len;
1250 struct stat st;
1251 WCHAR long_nameW[MAX_DIR_ENTRY_LEN];
1252 WCHAR short_nameW[12];
1253 WCHAR *filename;
1254 UNICODE_STRING str;
1255 ULONG attributes = 0;
1256
1257 io->u.Status = STATUS_SUCCESS;
1258 long_len = ntdll_umbstowcs( 0, long_name, strlen(long_name), long_nameW, MAX_DIR_ENTRY_LEN );
1259 if (long_len == -1) return NULL;
1260
1261 str.Buffer = long_nameW;
1262 str.Length = long_len * sizeof(WCHAR);
1263 str.MaximumLength = sizeof(long_nameW);
1264
1265 if (short_name)
1266 {
1267 short_len = ntdll_umbstowcs( 0, short_name, strlen(short_name),
1268 short_nameW, sizeof(short_nameW) / sizeof(WCHAR) );
1269 if (short_len == -1) short_len = sizeof(short_nameW) / sizeof(WCHAR);
1270 }
1271 else /* generate a short name if necessary */
1272 {
1273 BOOLEAN spaces;
1274
1275 short_len = 0;
1276 if (!RtlIsNameLegalDOS8Dot3( &str, NULL, &spaces ) || spaces)
1277 short_len = hash_short_file_name( &str, short_nameW );
1278 }
1279
1280 TRACE( "long %s short %s mask %s\n",
1281 debugstr_us(&str), debugstr_wn(short_nameW, short_len), debugstr_us(mask) );
1282
1283 if (mask && !match_filename( &str, mask ))
1284 {
1285 if (!short_len) return NULL; /* no short name to match */
1286 str.Buffer = short_nameW;
1287 str.Length = short_len * sizeof(WCHAR);
1288 str.MaximumLength = sizeof(short_nameW);
1289 if (!match_filename( &str, mask )) return NULL;
1290 }
1291
1292 if (lstat( long_name, &st ) == -1) return NULL;
1293 if (S_ISLNK( st.st_mode ))
1294 {
1295 if (stat( long_name, &st ) == -1) return NULL;
1296 if (S_ISDIR( st.st_mode )) attributes |= FILE_ATTRIBUTE_REPARSE_POINT;
1297 }
1298 if (is_ignored_file( &st ))
1299 {
1300 TRACE( "ignoring file %s\n", long_name );
1301 return NULL;
1302 }
1303 if (!show_dot_files && long_name[0] == '.' && long_name[1] && (long_name[1] != '.' || long_name[2]))
1304 attributes |= FILE_ATTRIBUTE_HIDDEN;
1305
1306 total_len = dir_info_size( class, long_len );
1307 if (io->Information + total_len > max_length)
1308 {
1309 total_len = max_length - io->Information;
1310 io->u.Status = STATUS_BUFFER_OVERFLOW;
1311 }
1312 info = (union file_directory_info *)((char *)info_ptr + io->Information);
1313 if (st.st_dev != curdir.dev) st.st_ino = 0; /* ignore inode if on a different device */
1314 /* all the structures start with a FileDirectoryInformation layout */
1315 fill_stat_info( &st, info, class );
1316 info->dir.NextEntryOffset = total_len;
1317 info->dir.FileIndex = 0; /* NTFS always has 0 here, so let's not bother with it */
1318 info->dir.FileAttributes |= attributes;
1319
1320 switch (class)
1321 {
1322 case FileDirectoryInformation:
1323 info->dir.FileNameLength = long_len * sizeof(WCHAR);
1324 filename = info->dir.FileName;
1325 break;
1326
1327 case FileFullDirectoryInformation:
1328 info->full.EaSize = 0; /* FIXME */
1329 info->full.FileNameLength = long_len * sizeof(WCHAR);
1330 filename = info->full.FileName;
1331 break;
1332
1333 case FileIdFullDirectoryInformation:
1334 info->id_full.EaSize = 0; /* FIXME */
1335 info->id_full.FileNameLength = long_len * sizeof(WCHAR);
1336 filename = info->id_full.FileName;
1337 break;
1338
1339 case FileBothDirectoryInformation:
1340 info->both.EaSize = 0; /* FIXME */
1341 info->both.ShortNameLength = short_len * sizeof(WCHAR);
1342 for (i = 0; i < short_len; i++) info->both.ShortName[i] = toupperW(short_nameW[i]);
1343 info->both.FileNameLength = long_len * sizeof(WCHAR);
1344 filename = info->both.FileName;
1345 break;
1346
1347 case FileIdBothDirectoryInformation:
1348 info->id_both.EaSize = 0; /* FIXME */
1349 info->id_both.ShortNameLength = short_len * sizeof(WCHAR);
1350 for (i = 0; i < short_len; i++) info->id_both.ShortName[i] = toupperW(short_nameW[i]);
1351 info->id_both.FileNameLength = long_len * sizeof(WCHAR);
1352 filename = info->id_both.FileName;
1353 break;
1354
1355 default:
1356 assert(0);
1357 return NULL;
1358 }
1359 memcpy( filename, long_nameW, total_len - ((char *)filename - (char *)info) );
1360 io->Information += total_len;
1361 return info;
1362 }
1363
1364
1365 #ifdef VFAT_IOCTL_READDIR_BOTH
1366
1367 /***********************************************************************
1368 * start_vfat_ioctl
1369 *
1370 * Wrapper for the VFAT ioctl to work around various kernel bugs.
1371 * dir_section must be held by caller.
1372 */
1373 static KERNEL_DIRENT *start_vfat_ioctl( int fd )
1374 {
1375 static KERNEL_DIRENT *de;
1376 int res;
1377
1378 if (!de)
1379 {
1380 const size_t page_size = getpagesize();
1381 SIZE_T size = 2 * sizeof(*de) + page_size;
1382 void *addr = NULL;
1383
1384 if (NtAllocateVirtualMemory( GetCurrentProcess(), &addr, 1, &size, MEM_RESERVE, PAGE_READWRITE ))
1385 return NULL;
1386 /* commit only the size needed for the dir entries */
1387 /* this leaves an extra unaccessible page, which should make the kernel */
1388 /* fail with -EFAULT before it stomps all over our memory */
1389 de = addr;
1390 size = 2 * sizeof(*de);
1391 NtAllocateVirtualMemory( GetCurrentProcess(), &addr, 1, &size, MEM_COMMIT, PAGE_READWRITE );
1392 }
1393
1394 /* set d_reclen to 65535 to work around an AFS kernel bug */
1395 de[0].d_reclen = 65535;
1396 res = ioctl( fd, VFAT_IOCTL_READDIR_BOTH, (long)de );
1397 if (res == -1)
1398 {
1399 if (errno != ENOENT) return NULL; /* VFAT ioctl probably not supported */
1400 de[0].d_reclen = 0; /* eof */
1401 }
1402 else if (!res && de[0].d_reclen == 65535) return NULL; /* AFS bug */
1403
1404 return de;
1405 }
1406
1407
1408 /***********************************************************************
1409 * read_directory_vfat
1410 *
1411 * Read a directory using the VFAT ioctl; helper for NtQueryDirectoryFile.
1412 */
1413 static int read_directory_vfat( int fd, IO_STATUS_BLOCK *io, void *buffer, ULONG length,
1414 BOOLEAN single_entry, const UNICODE_STRING *mask,
1415 BOOLEAN restart_scan, FILE_INFORMATION_CLASS class )
1416
1417 {
1418 size_t len;
1419 KERNEL_DIRENT *de;
1420 union file_directory_info *info, *last_info = NULL;
1421
1422 io->u.Status = STATUS_SUCCESS;
1423
1424 if (restart_scan) lseek( fd, 0, SEEK_SET );
1425
1426 if (length < max_dir_info_size(class)) /* we may have to return a partial entry here */
1427 {
1428 off_t old_pos = lseek( fd, 0, SEEK_CUR );
1429
1430 if (!(de = start_vfat_ioctl( fd ))) return -1; /* not supported */
1431
1432 while (de[0].d_reclen)
1433 {
1434 /* make sure names are null-terminated to work around an x86-64 kernel bug */
1435 len = min(de[0].d_reclen, sizeof(de[0].d_name) - 1 );
1436 de[0].d_name[len] = 0;
1437 len = min(de[1].d_reclen, sizeof(de[1].d_name) - 1 );
1438 de[1].d_name[len] = 0;
1439
1440 if (de[1].d_name[0])
1441 info = append_entry( buffer, io, length, de[1].d_name, de[0].d_name, mask, class );
1442 else
1443 info = append_entry( buffer, io, length, de[0].d_name, NULL, mask, class );
1444 if (info)
1445 {
1446 last_info = info;
1447 if (io->u.Status == STATUS_BUFFER_OVERFLOW)
1448 lseek( fd, old_pos, SEEK_SET ); /* restore pos to previous entry */
1449 break;
1450 }
1451 old_pos = lseek( fd, 0, SEEK_CUR );
1452 if (ioctl( fd, VFAT_IOCTL_READDIR_BOTH, (long)de ) == -1) break;
1453 }
1454 }
1455 else /* we'll only return full entries, no need to worry about overflow */
1456 {
1457 if (!(de = start_vfat_ioctl( fd ))) return -1; /* not supported */
1458
1459 while (de[0].d_reclen)
1460 {
1461 /* make sure names are null-terminated to work around an x86-64 kernel bug */
1462 len = min(de[0].d_reclen, sizeof(de[0].d_name) - 1 );
1463 de[0].d_name[len] = 0;
1464 len = min(de[1].d_reclen, sizeof(de[1].d_name) - 1 );
1465 de[1].d_name[len] = 0;
1466
1467 if (de[1].d_name[0])
1468 info = append_entry( buffer, io, length, de[1].d_name, de[0].d_name, mask, class );
1469 else
1470 info = append_entry( buffer, io, length, de[0].d_name, NULL, mask, class );
1471 if (info)
1472 {
1473 last_info = info;
1474 if (single_entry) break;
1475 /* check if we still have enough space for the largest possible entry */
1476 if (io->Information + max_dir_info_size(class) > length) break;
1477 }
1478 if (ioctl( fd, VFAT_IOCTL_READDIR_BOTH, (long)de ) == -1) break;
1479 }
1480 }
1481
1482 if (last_info) last_info->next = 0;
1483 else io->u.Status = restart_scan ? STATUS_NO_SUCH_FILE : STATUS_NO_MORE_FILES;
1484 return 0;
1485 }
1486 #endif /* VFAT_IOCTL_READDIR_BOTH */
1487
1488
1489 #ifdef USE_GETDENTS
1490 /***********************************************************************
1491 * read_first_dent_name
1492 *
1493 * reads name of first or second dentry (if they have inodes).
1494 */
1495 static char *read_first_dent_name( int which, int fd, off_t second_offs, KERNEL_DIRENT64 *de_first_two,
1496 char *buffer, size_t size, BOOL *buffer_changed )
1497 {
1498 KERNEL_DIRENT64 *de;
1499 int res;
1500
1501 de = de_first_two;
1502 if (de != NULL)
1503 {
1504 if (which == 1)
1505 de = (KERNEL_DIRENT64 *)((char *)de + de->d_reclen);
1506
1507 return de->d_ino ? de->d_name : NULL;
1508 }
1509
1510 *buffer_changed = TRUE;
1511 lseek( fd, which == 1 ? second_offs : 0, SEEK_SET );
1512 res = getdents64( fd, buffer, size );
1513 if (res <= 0)
1514 return NULL;
1515
1516 de = (KERNEL_DIRENT64 *)buffer;
1517 return de->d_ino ? de->d_name : NULL;
1518 }
1519
1520 /***********************************************************************
1521 * read_directory_getdents
1522 *
1523 * Read a directory using the Linux getdents64 system call; helper for NtQueryDirectoryFile.
1524 */
1525 static int read_directory_getdents( int fd, IO_STATUS_BLOCK *io, void *buffer, ULONG length,
1526 BOOLEAN single_entry, const UNICODE_STRING *mask,
1527 BOOLEAN restart_scan, FILE_INFORMATION_CLASS class )
1528 {
1529 static off_t second_entry_pos;
1530 static struct file_identity last_dir_id;
1531 off_t old_pos = 0, next_pos;
1532 size_t size = length;
1533 char *data, local_buffer[8192];
1534 KERNEL_DIRENT64 *de, *de_first_two = NULL;
1535 union file_directory_info *info, *last_info = NULL;
1536 const char *filename;
1537 BOOL data_buffer_changed;
1538 int res, swap_to;
1539
1540 if (size <= sizeof(local_buffer) || !(data = RtlAllocateHeap( GetProcessHeap(), 0, size )))
1541 {
1542 size = sizeof(local_buffer);
1543 data = local_buffer;
1544 }
1545
1546 if (restart_scan) lseek( fd, 0, SEEK_SET );
1547 else
1548 {
1549 old_pos = lseek( fd, 0, SEEK_CUR );
1550 if (old_pos == -1)
1551 {
1552 io->u.Status = (errno == ENOENT) ? STATUS_NO_MORE_FILES : FILE_GetNtStatus();
1553 res = 0;
1554 goto done;
1555 }
1556 }
1557
1558 io->u.Status = STATUS_SUCCESS;
1559 de = (KERNEL_DIRENT64 *)data;
1560
1561 /* if old_pos is not 0 we don't know how many entries have been returned already,
1562 * so maintain second_entry_pos to know when to return '..' */
1563 if (old_pos != 0 && (last_dir_id.dev != curdir.dev || last_dir_id.ino != curdir.ino))
1564 {
1565 lseek( fd, 0, SEEK_SET );
1566 res = getdents64( fd, data, size );
1567 if (res > 0)
1568 {
1569 second_entry_pos = de->d_off;
1570 last_dir_id = curdir;
1571 }
1572 lseek( fd, old_pos, SEEK_SET );
1573 }
1574
1575 res = getdents64( fd, data, size );
1576 if (res == -1)
1577 {
1578 if (errno != ENOSYS)
1579 {
1580 io->u.Status = FILE_GetNtStatus();
1581 res = 0;
1582 }
1583 goto done;
1584 }
1585
1586 if (old_pos == 0 && res > 0)
1587 {
1588 second_entry_pos = de->d_off;
1589 last_dir_id = curdir;
1590 if (res > de->d_reclen)
1591 de_first_two = de;
1592 }
1593
1594 while (res > 0)
1595 {
1596 res -= de->d_reclen;
1597 next_pos = de->d_off;
1598 filename = NULL;
1599
1600 /* we must return first 2 entries as "." and "..", but getdents64()
1601 * can return them anywhere, so swap first entries with "." and ".." */
1602 if (old_pos == 0)
1603 filename = ".";
1604 else if (old_pos == second_entry_pos)
1605 filename = "..";
1606 else if (!strcmp( de->d_name, "." ) || !strcmp( de->d_name, ".." ))
1607 {
1608 swap_to = !strcmp( de->d_name, "." ) ? 0 : 1;
1609 data_buffer_changed = FALSE;
1610
1611 filename = read_first_dent_name( swap_to, fd, second_entry_pos, de_first_two,
1612 data, size, &data_buffer_changed );
1613 if (filename != NULL && (!strcmp( filename, "." ) || !strcmp( filename, ".." )))
1614 filename = read_first_dent_name( swap_to ^ 1, fd, second_entry_pos, NULL,
1615 data, size, &data_buffer_changed );
1616 if (data_buffer_changed)
1617 {
1618 lseek( fd, next_pos, SEEK_SET );
1619 res = 0;
1620 }
1621 }
1622 else if (de->d_ino)
1623 filename = de->d_name;
1624
1625 if (filename && (info = append_entry( buffer, io, length, filename, NULL, mask, class )))
1626 {
1627 last_info = info;
1628 if (io->u.Status == STATUS_BUFFER_OVERFLOW)
1629 {
1630 lseek( fd, old_pos, SEEK_SET ); /* restore pos to previous entry */
1631 break;
1632 }
1633 /* check if we still have enough space for the largest possible entry */
1634 if (single_entry || io->Information + max_dir_info_size(class) > length)
1635 {
1636 if (res > 0) lseek( fd, next_pos, SEEK_SET ); /* set pos to next entry */
1637 break;
1638 }
1639 }
1640 old_pos = next_pos;
1641 /* move on to the next entry */
1642 if (res > 0) de = (KERNEL_DIRENT64 *)((char *)de + de->d_reclen);
1643 else
1644 {
1645 res = getdents64( fd, data, size );
1646 de = (KERNEL_DIRENT64 *)data;
1647 de_first_two = NULL;
1648 }
1649 }
1650
1651 if (last_info) last_info->next = 0;
1652 else io->u.Status = restart_scan ? STATUS_NO_SUCH_FILE : STATUS_NO_MORE_FILES;
1653 res = 0;
1654 done:
1655 if (data != local_buffer) RtlFreeHeap( GetProcessHeap(), 0, data );
1656 return res;
1657 }
1658
1659 #elif defined HAVE_GETDIRENTRIES
1660
1661 #ifdef _DARWIN_FEATURE_64_BIT_INODE
1662
1663 /* Darwin doesn't provide a version of getdirentries with support for 64-bit
1664 * inodes. When 64-bit inodes are enabled, the getdirentries symbol is mapped
1665 * to _getdirentries_is_not_available_when_64_bit_inodes_are_in_effect so that
1666 * we get link errors if we try to use it. We still need getdirentries, but we
1667 * don't need it to support 64-bit inodes. So, we use the legacy getdirentries
1668 * with 32-bit inodes. We have to be careful to use a corresponding dirent
1669 * structure, too.
1670 */
1671 int darwin_legacy_getdirentries(int, char *, int, long *) __asm("_getdirentries");
1672 #define getdirentries darwin_legacy_getdirentries
1673
1674 struct darwin_legacy_dirent {
1675 __uint32_t d_ino;
1676 __uint16_t d_reclen;
1677 __uint8_t d_type;
1678 __uint8_t d_namlen;
1679 char d_name[__DARWIN_MAXNAMLEN + 1];
1680 };
1681 #define dirent darwin_legacy_dirent
1682
1683 #endif
1684
1685 /***********************************************************************
1686 * wine_getdirentries
1687 *
1688 * Wrapper for the BSD getdirentries system call to fix a bug in the
1689 * Mac OS X version. For some file systems (at least Apple Filing
1690 * Protocol a.k.a. AFP), getdirentries resets the file position to 0
1691 * when it's about to return 0 (no more entries). So, a subsequent
1692 * getdirentries call starts over at the beginning again, causing an
1693 * infinite loop.
1694 */
1695 static inline int wine_getdirentries(int fd, char *buf, int nbytes, long *basep)
1696 {
1697 int res = getdirentries(fd, buf, nbytes, basep);
1698 #ifdef __APPLE__
1699 if (res == 0)
1700 lseek(fd, *basep, SEEK_SET);
1701 #endif
1702 return res;
1703 }
1704
1705 /***********************************************************************
1706 * read_directory_getdirentries
1707 *
1708 * Read a directory using the BSD getdirentries system call; helper for NtQueryDirectoryFile.
1709 */
1710 static int read_directory_getdirentries( int fd, IO_STATUS_BLOCK *io, void *buffer, ULONG length,
1711 BOOLEAN single_entry, const UNICODE_STRING *mask,
1712 BOOLEAN restart_scan, FILE_INFORMATION_CLASS class )
1713 {
1714 long restart_pos;
1715 ULONG_PTR restart_info_pos = 0;
1716 size_t size, initial_size = length;
1717 int res, fake_dot_dot = 1;
1718 char *data, local_buffer[8192];
1719 struct dirent *de;
1720 union file_directory_info *info, *last_info = NULL, *restart_last_info = NULL;
1721
1722 size = initial_size;
1723 data = local_buffer;
1724 if (size > sizeof(local_buffer) && !(data = RtlAllocateHeap( GetProcessHeap(), 0, size )))
1725 {
1726 io->u.Status = STATUS_NO_MEMORY;
1727 return io->u.Status;
1728 }
1729
1730 if (restart_scan) lseek( fd, 0, SEEK_SET );
1731
1732 io->u.Status = STATUS_SUCCESS;
1733
1734 /* FIXME: should make sure size is larger than filesystem block size */
1735 res = wine_getdirentries( fd, data, size, &restart_pos );
1736 if (res == -1)
1737 {
1738 io->u.Status = FILE_GetNtStatus();
1739 res = 0;
1740 goto done;
1741 }
1742
1743 de = (struct dirent *)data;
1744
1745 if (restart_scan)
1746 {
1747 /* check if we got . and .. from getdirentries */
1748 if (res > 0)
1749 {
1750 if (!strcmp( de->d_name, "." ) && res > de->d_reclen)
1751 {
1752 struct dirent *next_de = (struct dirent *)(data + de->d_reclen);
1753 if (!strcmp( next_de->d_name, ".." )) fake_dot_dot = 0;
1754 }
1755 }
1756 /* make sure we have enough room for both entries */
1757 if (fake_dot_dot)
1758 {
1759 const ULONG min_info_size = dir_info_size( class, 1 ) + dir_info_size( class, 2 );
1760 if (length < min_info_size || single_entry)
1761 {
1762 FIXME( "not enough room %u/%u for fake . and .. entries\n", length, single_entry );
1763 fake_dot_dot = 0;
1764 }
1765 }
1766
1767 if (fake_dot_dot)
1768 {
1769 if ((info = append_entry( buffer, io, length, ".", NULL, mask, class )))
1770 last_info = info;
1771 if ((info = append_entry( buffer, io, length, "..", NULL, mask, class )))
1772 last_info = info;
1773
1774 restart_last_info = last_info;
1775 restart_info_pos = io->Information;
1776
1777 /* check if we still have enough space for the largest possible entry */
1778 if (last_info && io->Information + max_dir_info_size(class) > length)
1779 {
1780 lseek( fd, 0, SEEK_SET ); /* reset pos to first entry */
1781 res = 0;
1782 }
1783 }
1784 }
1785
1786 while (res > 0)
1787 {
1788 res -= de->d_reclen;
1789 if (de->d_fileno &&
1790 !(fake_dot_dot && (!strcmp( de->d_name, "." ) || !strcmp( de->d_name, ".." ))) &&
1791 ((info = append_entry( buffer, io, length, de->d_name, NULL, mask, class ))))
1792 {
1793 last_info = info;
1794 if (io->u.Status == STATUS_BUFFER_OVERFLOW)
1795 {
1796 lseek( fd, (unsigned long)restart_pos, SEEK_SET );
1797 if (restart_info_pos) /* if we have a complete read already, return it */
1798 {
1799 io->u.Status = STATUS_SUCCESS;
1800 io->Information = restart_info_pos;
1801 last_info = restart_last_info;
1802 break;
1803 }
1804 /* otherwise restart from the start with a smaller size */
1805 size = (char *)de - data;
1806 if (!size) break;
1807 io->Information = 0;
1808 last_info = NULL;
1809 goto restart;
1810 }
1811 /* if we have to return but the buffer contains more data, restart with a smaller size */
1812 if (res > 0 && (single_entry || io->Information + max_dir_info_size(class) > length))
1813 {
1814 lseek( fd, (unsigned long)restart_pos, SEEK_SET );
1815 size = (char *)de + de->d_reclen - data;
1816 io->Information = restart_info_pos;
1817 last_info = restart_last_info;
1818 goto restart;
1819 }
1820 }
1821 /* move on to the next entry */
1822 if (res > 0)
1823 {
1824 de = (struct dirent *)((char *)de + de->d_reclen);
1825 continue;
1826 }
1827 if (size < initial_size) break; /* already restarted once, give up now */
1828 size = min( size, length - io->Information );
1829 /* if size is too small don't bother to continue */
1830 if (size < max_dir_info_size(class) && last_info) break;
1831 restart_last_info = last_info;
1832 restart_info_pos = io->Information;
1833 restart:
1834 res = wine_getdirentries( fd, data, size, &restart_pos );
1835 de = (struct dirent *)data;
1836 }
1837
1838 if (last_info) last_info->next = 0;
1839 else io->u.Status = restart_scan ? STATUS_NO_SUCH_FILE : STATUS_NO_MORE_FILES;
1840 res = 0;
1841 done:
1842 if (data != local_buffer) RtlFreeHeap( GetProcessHeap(), 0, data );
1843 return res;
1844 }
1845
1846 #ifdef _DARWIN_FEATURE_64_BIT_INODE
1847 #undef getdirentries
1848 #undef dirent
1849 #endif
1850
1851 #endif /* HAVE_GETDIRENTRIES */
1852
1853
1854 /***********************************************************************
1855 * read_directory_readdir
1856 *
1857 * Read a directory using the POSIX readdir interface; helper for NtQueryDirectoryFile.
1858 */
1859 static void read_directory_readdir( int fd, IO_STATUS_BLOCK *io, void *buffer, ULONG length,
1860 BOOLEAN single_entry, const UNICODE_STRING *mask,
1861 BOOLEAN restart_scan, FILE_INFORMATION_CLASS class )
1862 {
1863 DIR *dir;
1864 off_t i, old_pos = 0;
1865 struct dirent *de;
1866 union file_directory_info *info, *last_info = NULL;
1867
1868 if (!(dir = opendir( "." )))
1869 {
1870 io->u.Status = FILE_GetNtStatus();
1871 return;
1872 }
1873
1874 if (!restart_scan)
1875 {
1876 old_pos = lseek( fd, 0, SEEK_CUR );
1877 /* skip the right number of entries */
1878 for (i = 0; i < old_pos - 2; i++)
1879 {
1880 if (!readdir( dir ))
1881 {
1882 closedir( dir );
1883 io->u.Status = STATUS_NO_MORE_FILES;
1884 return;
1885 }
1886 }
1887 }
1888 io->u.Status = STATUS_SUCCESS;
1889
1890 for (;;)
1891 {
1892 if (old_pos == 0)
1893 info = append_entry( buffer, io, length, ".", NULL, mask, class );
1894 else if (old_pos == 1)
1895 info = append_entry( buffer, io, length, "..", NULL, mask, class );
1896 else if ((de = readdir( dir )))
1897 {
1898 if (strcmp( de->d_name, "." ) && strcmp( de->d_name, ".." ))
1899 info = append_entry( buffer, io, length, de->d_name, NULL, mask, class );
1900 else
1901 info = NULL;
1902 }
1903 else
1904 break;
1905 old_pos++;
1906 if (info)
1907 {
1908 last_info = info;
1909 if (io->u.Status == STATUS_BUFFER_OVERFLOW)
1910 {
1911 old_pos--; /* restore pos to previous entry */
1912 break;
1913 }
1914 if (single_entry) break;
1915 /* check if we still have enough space for the largest possible entry */
1916 if (io->Information + max_dir_info_size(class) > length) break;
1917 }
1918 }
1919
1920 lseek( fd, old_pos, SEEK_SET ); /* store dir offset as filepos for fd */
1921 closedir( dir );
1922
1923 if (last_info) last_info->next = 0;
1924 else io->u.Status = restart_scan ? STATUS_NO_SUCH_FILE : STATUS_NO_MORE_FILES;
1925 }
1926
1927 /***********************************************************************
1928 * read_directory_stat
1929 *
1930 * Read a single file from a directory by determining whether the file
1931 * identified by mask exists using stat.
1932 */
1933 static int read_directory_stat( int fd, IO_STATUS_BLOCK *io, void *buffer, ULONG length,
1934 BOOLEAN single_entry, const UNICODE_STRING *mask,
1935 BOOLEAN restart_scan, FILE_INFORMATION_CLASS class )
1936 {
1937 int unix_len, ret, used_default;
1938 char *unix_name;
1939 struct stat st;
1940
1941 TRACE("trying optimisation for file %s\n", debugstr_us( mask ));
1942
1943 unix_len = ntdll_wcstoumbs( 0, mask->Buffer, mask->Length / sizeof(WCHAR), NULL, 0, NULL, NULL );
1944 if (!(unix_name = RtlAllocateHeap( GetProcessHeap(), 0, unix_len + 1)))
1945 {
1946 io->u.Status = STATUS_NO_MEMORY;
1947 return 0;
1948 }
1949 ret = ntdll_wcstoumbs( 0, mask->Buffer, mask->Length / sizeof(WCHAR), unix_name, unix_len,
1950 NULL, &used_default );
1951 if (ret > 0 && !used_default)
1952 {
1953 unix_name[ret] = 0;
1954 if (restart_scan)
1955 {
1956 lseek( fd, 0, SEEK_SET );
1957 }
1958 else if (lseek( fd, 0, SEEK_CUR ) != 0)
1959 {
1960 io->u.Status = STATUS_NO_MORE_FILES;
1961 ret = 0;
1962 goto done;
1963 }
1964
1965 ret = stat( unix_name, &st );
1966 if (!ret)
1967 {
1968 union file_directory_info *info = append_entry( buffer, io, length, unix_name, NULL, NULL, class );
1969 if (info)
1970 {
1971 info->next = 0;
1972 if (io->u.Status != STATUS_BUFFER_OVERFLOW) lseek( fd, 1, SEEK_CUR );
1973 }
1974 else io->u.Status = STATUS_NO_MORE_FILES;
1975 }
1976 }
1977 else ret = -1;
1978
1979 done:
1980 RtlFreeHeap( GetProcessHeap(), 0, unix_name );
1981
1982 TRACE("returning %d\n", ret);
1983
1984 return ret;
1985 }
1986
1987
1988 static inline WCHAR *mempbrkW( const WCHAR *ptr, const WCHAR *accept, size_t n )
1989 {
1990 const WCHAR *end;
1991 for (end = ptr + n; ptr < end; ptr++) if (strchrW( accept, *ptr )) return (WCHAR *)ptr;
1992 return NULL;
1993 }
1994
1995 /******************************************************************************
1996 * NtQueryDirectoryFile [NTDLL.@]
1997 * ZwQueryDirectoryFile [NTDLL.@]
1998 */
1999 NTSTATUS WINAPI NtQueryDirectoryFile( HANDLE handle, HANDLE event,
2000 PIO_APC_ROUTINE apc_routine, PVOID apc_context,
2001 PIO_STATUS_BLOCK io,
2002 PVOID buffer, ULONG length,
2003 FILE_INFORMATION_CLASS info_class,
2004 BOOLEAN single_entry,
2005 PUNICODE_STRING mask,
2006 BOOLEAN restart_scan )
2007 {
2008 int cwd, fd, needs_close;
2009 static const WCHAR wszWildcards[] = { '*','?',0 };
2010
2011 TRACE("(%p %p %p %p %p %p 0x%08x 0x%08x 0x%08x %s 0x%08x\n",
2012 handle, event, apc_routine, apc_context, io, buffer,
2013 length, info_class, single_entry, debugstr_us(mask),
2014 restart_scan);
2015
2016 if (event || apc_routine)
2017 {
2018 FIXME( "Unsupported yet option\n" );
2019 return io->u.Status = STATUS_NOT_IMPLEMENTED;
2020 }
2021 switch (info_class)
2022 {
2023 case FileDirectoryInformation:
2024 case FileBothDirectoryInformation:
2025 case FileFullDirectoryInformation:
2026 case FileIdBothDirectoryInformation:
2027 case FileIdFullDirectoryInformation:
2028 if (length < dir_info_size( info_class, 1 )) return io->u.Status = STATUS_INFO_LENGTH_MISMATCH;
2029 break;
2030 default:
2031 FIXME( "Unsupported file info class %d\n", info_class );
2032 return io->u.Status = STATUS_NOT_IMPLEMENTED;
2033 }
2034
2035 if ((io->u.Status = server_get_unix_fd( handle, FILE_LIST_DIRECTORY, &fd, &needs_close, NULL, NULL )) != STATUS_SUCCESS)
2036 return io->u.Status;
2037
2038 io->Information = 0;
2039
2040 RtlEnterCriticalSection( &dir_section );
2041
2042 if (show_dot_files == -1) init_options();
2043
2044 cwd = open( ".", O_RDONLY );
2045 if (fchdir( fd ) != -1)
2046 {
2047 struct stat st;
2048 fstat( fd, &st );
2049 curdir.dev = st.st_dev;
2050 curdir.ino = st.st_ino;
2051 #ifdef VFAT_IOCTL_READDIR_BOTH
2052 if ((read_directory_vfat( fd, io, buffer, length, single_entry,
2053 mask, restart_scan, info_class )) != -1) goto done;
2054 #endif
2055 if (mask && !mempbrkW( mask->Buffer, wszWildcards, mask->Length / sizeof(WCHAR) ) &&
2056 read_directory_stat( fd, io, buffer, length, single_entry,
2057 mask, restart_scan, info_class ) != -1) goto done;
2058 #ifdef USE_GETDENTS
2059 if ((read_directory_getdents( fd, io, buffer, length, single_entry,
2060 mask, restart_scan, info_class )) != -1) goto done;
2061 #elif defined HAVE_GETDIRENTRIES
2062 if ((read_directory_getdirentries( fd, io, buffer, length, single_entry,
2063 mask, restart_scan, info_class )) != -1) goto done;
2064 #endif
2065 read_directory_readdir( fd, io, buffer, length, single_entry, mask, restart_scan, info_class );
2066
2067 done:
2068 if (cwd == -1 || fchdir( cwd ) == -1) chdir( "/" );
2069 }
2070 else io->u.Status = FILE_GetNtStatus();
2071
2072 RtlLeaveCriticalSection( &dir_section );
2073
2074 if (needs_close) close( fd );
2075 if (cwd != -1) close( cwd );
2076 TRACE( "=> %x (%ld)\n", io->u.Status, io->Information );
2077 return io->u.Status;
2078 }
2079
2080
2081 /***********************************************************************
2082 * find_file_in_dir
2083 *
2084 * Find a file in a directory the hard way, by doing a case-insensitive search.
2085 * The file found is appended to unix_name at pos.
2086 * There must be at least MAX_DIR_ENTRY_LEN+2 chars available at pos.
2087 */
2088 static NTSTATUS find_file_in_dir( char *unix_name, int pos, const WCHAR *name, int length,
2089 int check_case, int *is_win_dir )
2090 {
2091 WCHAR buffer[MAX_DIR_ENTRY_LEN];
2092 UNICODE_STRING str;
2093 BOOLEAN spaces;
2094 DIR *dir;
2095 struct dirent *de;
2096 struct stat st;
2097 int ret, used_default, is_name_8_dot_3;
2098
2099 /* try a shortcut for this directory */
2100
2101 unix_name[pos++] = '/';
2102 ret = ntdll_wcstoumbs( 0, name, length, unix_name + pos, MAX_DIR_ENTRY_LEN,
2103 NULL, &used_default );
2104 /* if we used the default char, the Unix name won't round trip properly back to Unicode */
2105 /* so it cannot match the file we are looking for */
2106 if (ret >= 0 && !used_default)
2107 {
2108 unix_name[pos + ret] = 0;
2109 if (!stat( unix_name, &st ))
2110 {
2111 if (is_win_dir) *is_win_dir = is_same_file( &windir, &st );
2112 return STATUS_SUCCESS;
2113 }
2114 }
2115 if (check_case) goto not_found; /* we want an exact match */
2116
2117 if (pos > 1) unix_name[pos - 1] = 0;
2118 else unix_name[1] = 0; /* keep the initial slash */
2119
2120 /* check if it fits in 8.3 so that we don't look for short names if we won't need them */
2121
2122 str.Buffer = (WCHAR *)name;
2123 str.Length = length * sizeof(WCHAR);
2124 str.MaximumLength = str.Length;
2125 is_name_8_dot_3 = RtlIsNameLegalDOS8Dot3( &str, NULL, &spaces ) && !spaces;
2126
2127 if (!is_name_8_dot_3 && !get_dir_case_sensitivity( unix_name )) goto not_found;
2128
2129 /* now look for it through the directory */
2130
2131 #ifdef VFAT_IOCTL_READDIR_BOTH
2132 if (is_name_8_dot_3)
2133 {
2134 int fd = open( unix_name, O_RDONLY | O_DIRECTORY );
2135 if (fd != -1)
2136 {
2137 KERNEL_DIRENT *kde;
2138
2139 RtlEnterCriticalSection( &dir_section );
2140 if ((kde = start_vfat_ioctl( fd )))
2141 {
2142 unix_name[pos - 1] = '/';
2143 while (kde[0].d_reclen)
2144 {
2145 /* make sure names are null-terminated to work around an x86-64 kernel bug */
2146 size_t len = min(kde[0].d_reclen, sizeof(kde[0].d_name) - 1 );
2147 kde[0].d_name[len] = 0;
2148 len = min(kde[1].d_reclen, sizeof(kde[1].d_name) - 1 );
2149 kde[1].d_name[len] = 0;
2150
2151 if (kde[1].d_name[0])
2152 {
2153 ret = ntdll_umbstowcs( 0, kde[1].d_name, strlen(kde[1].d_name),
2154 buffer, MAX_DIR_ENTRY_LEN );
2155 if (ret == length && !memicmpW( buffer, name, length))
2156 {
2157 strcpy( unix_name + pos, kde[1].d_name );
2158 RtlLeaveCriticalSection( &dir_section );
2159 close( fd );
2160 goto success;
2161 }
2162 }
2163 ret = ntdll_umbstowcs( 0, kde[0].d_name, strlen(kde[0].d_name),
2164 buffer, MAX_DIR_ENTRY_LEN );
2165 if (ret == length && !memicmpW( buffer, name, length))
2166 {
2167 strcpy( unix_name + pos,
2168 kde[1].d_name[0] ? kde[1].d_name : kde[0].d_name );
2169 RtlLeaveCriticalSection( &dir_section );
2170 close( fd );
2171 goto success;
2172 }
2173 if (ioctl( fd, VFAT_IOCTL_READDIR_BOTH, (long)kde ) == -1)
2174 {
2175 RtlLeaveCriticalSection( &dir_section );
2176 close( fd );
2177 goto not_found;
2178 }
2179 }
2180 }
2181 RtlLeaveCriticalSection( &dir_section );
2182 close( fd );
2183 }
2184 /* fall through to normal handling */
2185 }
2186 #endif /* VFAT_IOCTL_READDIR_BOTH */
2187
2188 if (!(dir = opendir( unix_name )))
2189 {
2190 if (errno == ENOENT) return STATUS_OBJECT_PATH_NOT_FOUND;
2191 else return FILE_GetNtStatus();
2192 }
2193 unix_name[pos - 1] = '/';
2194 str.Buffer = buffer;
2195 str.MaximumLength = sizeof(buffer);
2196 while ((de = readdir( dir )))
2197 {
2198 ret = ntdll_umbstowcs( 0, de->d_name, strlen(de->d_name), buffer, MAX_DIR_ENTRY_LEN );
2199 if (ret == length && !memicmpW( buffer, name, length ))
2200 {
2201 strcpy( unix_name + pos, de->d_name );
2202 closedir( dir );
2203 goto success;
2204 }
2205
2206 if (!is_name_8_dot_3) continue;
2207
2208 str.Length = ret * sizeof(WCHAR);
2209 if (!RtlIsNameLegalDOS8Dot3( &str, NULL, &spaces ) || spaces)
2210 {
2211 WCHAR short_nameW[12];
2212 ret = hash_short_file_name( &str, short_nameW );
2213 if (ret == length && !memicmpW( short_nameW, name, length ))
2214 {
2215 strcpy( unix_name + pos, de->d_name );
2216 closedir( dir );
2217 goto success;
2218 }
2219 }
2220 }
2221 closedir( dir );
2222
2223 not_found:
2224 unix_name[pos - 1] = 0;
2225 return STATUS_OBJECT_PATH_NOT_FOUND;
2226
2227 success:
2228 if (is_win_dir && !stat( unix_name, &st )) *is_win_dir = is_same_file( &windir, &st );
2229 return STATUS_SUCCESS;
2230 }
2231
2232
2233 #ifndef _WIN64
2234
2235 static const WCHAR catrootW[] = {'s','y','s','t','e','m','3','2','\\','c','a','t','r','o','o','t',0};
2236 static const WCHAR catroot2W[] = {'s','y','s','t','e','m','3','2','\\','c','a','t','r','o','o','t','2',0};
2237 static const WCHAR driversstoreW[] = {'s','y','s','t','e','m','3','2','\\','d','r','i','v','e','r','s','s','t','o','r','e',0};
2238 static const WCHAR driversetcW[] = {'s','y','s','t','e','m','3','2','\\','d','r','i','v','e','r','s','\\','e','t','c',0};
2239 static const WCHAR logfilesW[] = {'s','y','s','t','e','m','3','2','\\','l','o','g','f','i','l','e','s',0};
2240 static const WCHAR spoolW[] = {'s','y','s','t','e','m','3','2','\\','s','p','o','o','l',0};
2241 static const WCHAR system32W[] = {'s','y','s','t','e','m','3','2',0};
2242 static const WCHAR syswow64W[] = {'s','y','s','w','o','w','6','4',0};
2243 static const WCHAR sysnativeW[] = {'s','y','s','n','a','t','i','v','e',0};
2244 static const WCHAR regeditW[] = {'r','e','g','e','d','i','t','.','e','x','e',0};
2245 static const WCHAR wow_regeditW[] = {'s','y','s','w','o','w','6','4','\\','r','e','g','e','d','i','t','.','e','x','e',0};
2246
2247 static struct
2248 {
2249 const WCHAR *source;
2250 const WCHAR *dos_target;
2251 const char *unix_target;
2252 } redirects[] =
2253 {
2254 { catrootW, NULL, NULL },
2255 { catroot2W, NULL, NULL },
2256 { driversstoreW, NULL, NULL },
2257 { driversetcW, NULL, NULL },
2258 { logfilesW, NULL, NULL },
2259 { spoolW, NULL, NULL },
2260 { system32W, syswow64W, NULL },
2261 { sysnativeW, system32W, NULL },
2262 { regeditW, wow_regeditW, NULL }
2263 };
2264
2265 static unsigned int nb_redirects;
2266
2267
2268 /***********************************************************************
2269 * get_redirect_target
2270 *
2271 * Find the target unix name for a redirected dir.
2272 */
2273 static const char *get_redirect_target( const char *windows_dir, const WCHAR *name )
2274 {
2275 int used_default, len, pos, win_len = strlen( windows_dir );
2276 char *unix_name, *unix_target = NULL;
2277 NTSTATUS status;
2278
2279 if (!(unix_name = RtlAllocateHeap( GetProcessHeap(), 0, win_len + MAX_DIR_ENTRY_LEN + 2 )))
2280 return NULL;
2281 memcpy( unix_name, windows_dir, win_len );
2282 pos = win_len;
2283
2284 while (*name)
2285 {
2286 const WCHAR *end, *next;
2287
2288 for (end = name; *end; end++) if (IS_SEPARATOR(*end)) break;
2289 for (next = end; *next; next++) if (!IS_SEPARATOR(*next)) break;
2290
2291 status = find_file_in_dir( unix_name, pos, name, end - name, FALSE, NULL );
2292 if (status == STATUS_OBJECT_PATH_NOT_FOUND && !*next) /* not finding last element is ok */
2293 {
2294 len = ntdll_wcstoumbs( 0, name, end - name, unix_name + pos + 1,
2295 MAX_DIR_ENTRY_LEN - (pos - win_len), NULL, &used_default );
2296 if (len > 0 && !used_default)
2297 {
2298 unix_name[pos] = '/';
2299 pos += len + 1;
2300 unix_name[pos] = 0;
2301 break;
2302 }
2303 }
2304 if (status) goto done;
2305 pos += strlen( unix_name + pos );
2306 name = next;
2307 }
2308
2309 if ((unix_target = RtlAllocateHeap( GetProcessHeap(), 0, pos - win_len )))
2310 memcpy( unix_target, unix_name + win_len + 1, pos - win_len );
2311
2312 done:
2313 RtlFreeHeap( GetProcessHeap(), 0, unix_name );
2314 return unix_target;
2315 }
2316
2317
2318 /***********************************************************************
2319 * init_redirects
2320 */
2321 static void init_redirects(void)
2322 {
2323 UNICODE_STRING nt_name;
2324 ANSI_STRING unix_name;
2325 NTSTATUS status;
2326 struct stat st;
2327 unsigned int i;
2328
2329 if (!RtlDosPathNameToNtPathName_U( user_shared_data->NtSystemRoot, &nt_name, NULL, NULL ))
2330 {
2331 ERR( "can't convert %s\n", debugstr_w(user_shared_data->NtSystemRoot) );
2332 return;
2333 }
2334 status = wine_nt_to_unix_file_name( &nt_name, &unix_name, FILE_OPEN_IF, FALSE );
2335 RtlFreeUnicodeString( &nt_name );
2336 if (status)
2337 {
2338 ERR( "cannot open %s (%x)\n", debugstr_w(user_shared_data->NtSystemRoot), status );
2339 return;
2340 }
2341 if (!stat( unix_name.Buffer, &st ))
2342 {
2343 windir.dev = st.st_dev;
2344 windir.ino = st.st_ino;
2345 nb_redirects = sizeof(redirects) / sizeof(redirects[0]);
2346 for (i = 0; i < nb_redirects; i++)
2347 {
2348 if (!redirects[i].dos_target) continue;
2349 redirects[i].unix_target = get_redirect_target( unix_name.Buffer, redirects[i].dos_target );
2350 TRACE( "%s -> %s\n", debugstr_w(redirects[i].source), redirects[i].unix_target );
2351 }
2352 }
2353 RtlFreeAnsiString( &unix_name );
2354
2355 }
2356
2357
2358 /***********************************************************************
2359 * match_redirect
2360 *
2361 * Check if path matches a redirect name. If yes, return matched length.
2362 */
2363 static int match_redirect( const WCHAR *path, int len, const WCHAR *redir, int check_case )
2364 {
2365 int i = 0;
2366
2367 while (i < len && *redir)
2368 {
2369 if (IS_SEPARATOR(path[i]))
2370 {
2371 if (*redir++ != '\\') return 0;
2372 while (i < len && IS_SEPARATOR(path[i])) i++;
2373 continue; /* move on to next path component */
2374 }
2375 else if (check_case)
2376 {
2377 if (path[i] != *redir) return 0;
2378 }
2379 else
2380 {
2381 if (tolowerW(path[i]) != tolowerW(*redir)) return 0;
2382 }
2383 i++;
2384 redir++;
2385 }
2386 if (*redir) return 0;
2387 if (i < len && !IS_SEPARATOR(path[i])) return 0;
2388 while (i < len && IS_SEPARATOR(path[i])) i++;
2389 return i;
2390 }
2391
2392
2393 /***********************************************************************
2394 * get_redirect_path
2395 *
2396 * Retrieve the Unix path corresponding to a redirected path if any.
2397 */
2398 static int get_redirect_path( char *unix_name, int pos, const WCHAR *name, int length, int check_case )
2399 {
2400 unsigned int i;
2401 int len;
2402
2403 for (i = 0; i < nb_redirects; i++)
2404 {
2405 if ((len = match_redirect( name, length, redirects[i].source, check_case )))
2406 {
2407 if (!redirects[i].unix_target) break;
2408 unix_name[pos++] = '/';
2409 strcpy( unix_name + pos, redirects[i].unix_target );
2410 return len;
2411 }
2412 }
2413 return 0;
2414 }
2415
2416 #else /* _WIN64 */
2417
2418 /* there are no redirects on 64-bit */
2419
2420 static const unsigned int nb_redirects = 0;
2421
2422 static int get_redirect_path( char *unix_name, int pos, const WCHAR *name, int length, int check_case )
2423 {
2424 return 0;
2425 }
2426
2427 #endif
2428
2429 /***********************************************************************
2430 * DIR_init_windows_dir
2431 */
2432 void DIR_init_windows_dir( const WCHAR *win, const WCHAR *sys )
2433 {
2434 /* FIXME: should probably store paths as NT file names */
2435
2436 RtlCreateUnicodeString( &system_dir, sys );
2437
2438 #ifndef _WIN64
2439 if (is_wow64) init_redirects();
2440 #endif
2441 }
2442
2443
2444 /******************************************************************************
2445 * get_dos_device
2446 *
2447 * Get the Unix path of a DOS device.
2448 */
2449 static NTSTATUS get_dos_device( const WCHAR *name, UINT name_len, ANSI_STRING *unix_name_ret )
2450 {
2451 const char *config_dir = wine_get_config_dir();
2452 struct stat st;
2453 char *unix_name, *new_name, *dev;
2454 unsigned int i;
2455 int unix_len;
2456
2457 /* make sure the device name is ASCII */
2458 for (i = 0; i < name_len; i++)
2459 if (name[i] <= 32 || name[i] >= 127) return STATUS_BAD_DEVICE_TYPE;
2460
2461 unix_len = strlen(config_dir) + sizeof("/dosdevices/") + name_len + 1;
2462
2463 if (!(unix_name = RtlAllocateHeap( GetProcessHeap(), 0, unix_len )))
2464 return STATUS_NO_MEMORY;
2465
2466 strcpy( unix_name, config_dir );
2467 strcat( unix_name, "/dosdevices/" );
2468 dev = unix_name + strlen(unix_name);
2469
2470 for (i = 0; i < name_len; i++) dev[i] = (char)tolowerW(name[i]);
2471 dev[i] = 0;
2472
2473 /* special case for drive devices */
2474 if (name_len == 2 && dev[1] == ':')
2475 {
2476 dev[i++] = ':';
2477 dev[i] = 0;
2478 }
2479
2480 for (;;)
2481 {
2482 if (!stat( unix_name, &st ))
2483 {
2484 TRACE( "%s -> %s\n", debugstr_wn(name,name_len), debugstr_a(unix_name) );
2485 unix_name_ret->Buffer = unix_name;
2486 unix_name_ret->Length = strlen(unix_name);
2487 unix_name_ret->MaximumLength = unix_len;
2488 return STATUS_SUCCESS;
2489 }
2490 if (!dev) break;
2491
2492 /* now try some defaults for it */
2493 if (!strcmp( dev, "aux" ))
2494 {
2495 strcpy( dev, "com1" );
2496 continue;
2497 }
2498 if (!strcmp( dev, "prn" ))
2499 {
2500 strcpy( dev, "lpt1" );
2501 continue;
2502 }
2503 if (!strcmp( dev, "nul" ))
2504 {
2505 strcpy( unix_name, "/dev/null" );
2506 dev = NULL; /* last try */
2507 continue;
2508 }
2509
2510 new_name = NULL;
2511 if (dev[1] == ':' && dev[2] == ':') /* drive device */
2512 {
2513 dev[2] = 0; /* remove last ':' to get the drive mount point symlink */
2514 new_name = get_default_drive_device( unix_name );
2515 }
2516 else if (!strncmp( dev, "com", 3 )) new_name = get_default_com_device( atoi(dev + 3 ));
2517 else if (!strncmp( dev, "lpt", 3 )) new_name = get_default_lpt_device( atoi(dev + 3 ));
2518
2519 if (!new_name) break;
2520
2521 RtlFreeHeap( GetProcessHeap(), 0, unix_name );
2522 unix_name = new_name;
2523 unix_len = strlen(unix_name) + 1;
2524 dev = NULL; /* last try */
2525 }
2526 RtlFreeHeap( GetProcessHeap(), 0, unix_name );
2527 return STATUS_BAD_DEVICE_TYPE;
2528 }
2529
2530
2531 /* return the length of the DOS namespace prefix if any */
2532 static inline int get_dos_prefix_len( const UNICODE_STRING *name )
2533 {
2534 static const WCHAR nt_prefixW[] = {'\\','?','?','\\'};
2535 static const WCHAR dosdev_prefixW[] = {'\\','D','o','s','D','e','v','i','c','e','s','\\'};
2536
2537 if (name->Length > sizeof(nt_prefixW) &&
2538 !memcmp( name->Buffer, nt_prefixW, sizeof(nt_prefixW) ))
2539 return sizeof(nt_prefixW) / sizeof(WCHAR);
2540
2541 if (name->Length > sizeof(dosdev_prefixW) &&
2542 !memicmpW( name->Buffer, dosdev_prefixW, sizeof(dosdev_prefixW)/sizeof(WCHAR) ))
2543 return sizeof(dosdev_prefixW) / sizeof(WCHAR);
2544
2545 return 0;
2546 }
2547
2548
2549 /******************************************************************************
2550 * find_file_id
2551 *
2552 * Recursively search directories from the dir queue for a given inode.
2553 */
2554 static NTSTATUS find_file_id( ANSI_STRING *unix_name, ULONGLONG file_id, dev_t dev )
2555 {
2556 unsigned int pos;
2557 DIR *dir;
2558 struct dirent *de;
2559 NTSTATUS status;
2560 struct stat st;
2561
2562 while (!(status = next_dir_in_queue( unix_name->Buffer )))
2563 {
2564 if (!(dir = opendir( unix_name->Buffer ))) continue;
2565 TRACE( "searching %s for %s\n", unix_name->Buffer, wine_dbgstr_longlong(file_id) );
2566 pos = strlen( unix_name->Buffer );
2567 if (pos + MAX_DIR_ENTRY_LEN >= unix_name->MaximumLength/sizeof(WCHAR))
2568 {
2569 char *new = RtlReAllocateHeap( GetProcessHeap(), 0, unix_name->Buffer,
2570 unix_name->MaximumLength * 2 );
2571 if (!new)
2572 {
2573 closedir( dir );
2574 return STATUS_NO_MEMORY;
2575 }
2576 unix_name->MaximumLength *= 2;
2577 unix_name->Buffer = new;
2578 }
2579 unix_name->Buffer[pos++] = '/';
2580 while ((de = readdir( dir )))
2581 {
2582 if (!strcmp( de->d_name, "." ) || !strcmp( de->d_name, ".." )) continue;
2583 strcpy( unix_name->Buffer + pos, de->d_name );
2584 if (lstat( unix_name->Buffer, &st ) == -1) continue;
2585 if (st.st_dev != dev) continue;
2586 if (st.st_ino == file_id)
2587 {
2588 closedir( dir );
2589 return STATUS_SUCCESS;
2590 }
2591 if (!S_ISDIR( st.st_mode )) continue;
2592 if ((status = add_dir_to_queue( unix_name->Buffer )) != STATUS_SUCCESS)
2593 {
2594 closedir( dir );
2595 return status;
2596 }
2597 }
2598 closedir( dir );
2599 }
2600 return status;
2601 }
2602
2603
2604 /******************************************************************************
2605 * file_id_to_unix_file_name
2606 *
2607 * Lookup a file from its file id instead of its name.
2608 */
2609 NTSTATUS file_id_to_unix_file_name( const OBJECT_ATTRIBUTES *attr, ANSI_STRING *unix_name )
2610 {
2611 enum server_fd_type type;
2612 int old_cwd, root_fd, needs_close;
2613 NTSTATUS status;
2614 ULONGLONG file_id;
2615 struct stat st, root_st;
2616
2617 if (attr->ObjectName->Length != sizeof(ULONGLONG)) return STATUS_OBJECT_PATH_SYNTAX_BAD;
2618 if (!attr->RootDirectory) return STATUS_INVALID_PARAMETER;
2619 memcpy( &file_id, attr->ObjectName->Buffer, sizeof(file_id) );
2620
2621 unix_name->MaximumLength = 2 * MAX_DIR_ENTRY_LEN + 4;
2622 if (!(unix_name->Buffer = RtlAllocateHeap( GetProcessHeap(), 0, unix_name->MaximumLength )))
2623 return STATUS_NO_MEMORY;
2624 strcpy( unix_name->Buffer, "." );
2625
2626 if ((status = server_get_unix_fd( attr->RootDirectory, 0, &root_fd, &needs_close, &type, NULL )))
2627 goto done;
2628
2629 if (type != FD_TYPE_DIR)
2630 {
2631 status = STATUS_OBJECT_TYPE_MISMATCH;
2632 goto done;
2633 }
2634
2635 fstat( root_fd, &root_st );
2636 if (root_st.st_ino == file_id) /* shortcut for "." */
2637 {
2638 status = STATUS_SUCCESS;
2639 goto done;
2640 }
2641
2642 RtlEnterCriticalSection( &dir_section );
2643 if ((old_cwd = open( ".", O_RDONLY )) != -1 && fchdir( root_fd ) != -1)
2644 {
2645 /* shortcut for ".." */
2646 if (!stat( "..", &st ) && st.st_dev == root_st.st_dev && st.st_ino == file_id)
2647 {
2648 strcpy( unix_name->Buffer, ".." );
2649 status = STATUS_SUCCESS;
2650 }
2651 else
2652 {
2653 status = add_dir_to_queue( "." );
2654 if (!status)
2655 status = find_file_id( unix_name, file_id, root_st.st_dev );
2656 if (!status) /* get rid of "./" prefix */
2657 memmove( unix_name->Buffer, unix_name->Buffer + 2, strlen(unix_name->Buffer) - 1 );
2658 flush_dir_queue();
2659 }
2660 if (fchdir( old_cwd ) == -1) chdir( "/" );
2661 }
2662 else status = FILE_GetNtStatus();
2663 RtlLeaveCriticalSection( &dir_section );
2664 if (old_cwd != -1) close( old_cwd );
2665
2666 done:
2667 if (status == STATUS_SUCCESS)
2668 {
2669 TRACE( "%s -> %s\n", wine_dbgstr_longlong(file_id), debugstr_a(unix_name->Buffer) );
2670 unix_name->Length = strlen( unix_name->Buffer );
2671 }
2672 else
2673 {
2674 TRACE( "%s not found in dir %p\n", wine_dbgstr_longlong(file_id), attr->RootDirectory );
2675 RtlFreeHeap( GetProcessHeap(), 0, unix_name->Buffer );
2676 }
2677 if (needs_close) close( root_fd );
2678 return status;
2679 }
2680
2681
2682 /******************************************************************************
2683 * lookup_unix_name
2684 *
2685 * Helper for nt_to_unix_file_name
2686 */
2687 static NTSTATUS lookup_unix_name( const WCHAR *name, int name_len, char **buffer, int unix_len, int pos,
2688 UINT disposition, BOOLEAN check_case )
2689 {
2690 NTSTATUS status;
2691 int ret, used_default, len;
2692 struct stat st;
2693 char *unix_name = *buffer;
2694 const BOOL redirect = nb_redirects && ntdll_get_thread_data()->wow64_redir;
2695
2696 /* try a shortcut first */
2697
2698 ret = ntdll_wcstoumbs( 0, name, name_len, unix_name + pos, unix_len - pos - 1,
2699 NULL, &used_default );
2700
2701 while (name_len && IS_SEPARATOR(*name))
2702 {
2703 name++;
2704 name_len--;
2705 }
2706
2707 if (ret >= 0 && !used_default) /* if we used the default char the name didn't convert properly */
2708 {
2709 char *p;
2710 unix_name[pos + ret] = 0;
2711 for (p = unix_name + pos ; *p; p++) if (*p == '\\') *p = '/';
2712 if (!redirect || (!strstr( unix_name, "/windows/") && strncmp( unix_name, "windows/", 8 )))
2713 {
2714 if (!stat( unix_name, &st ))
2715 {
2716 /* creation fails with STATUS_ACCESS_DENIED for the root of the drive */
2717 if (disposition == FILE_CREATE)
2718 return name_len ? STATUS_OBJECT_NAME_COLLISION : STATUS_ACCESS_DENIED;
2719 return STATUS_SUCCESS;
2720 }
2721 }
2722 }
2723
2724 if (!name_len) /* empty name -> drive root doesn't exist */
2725 return STATUS_OBJECT_PATH_NOT_FOUND;
2726 if (check_case && !redirect && (disposition == FILE_OPEN || disposition == FILE_OVERWRITE))
2727 return STATUS_OBJECT_NAME_NOT_FOUND;
2728
2729 /* now do it component by component */
2730
2731 while (name_len)
2732 {
2733 const WCHAR *end, *next;
2734 int is_win_dir = 0;
2735
2736 end = name;
2737 while (end < name + name_len && !IS_SEPARATOR(*end)) end++;
2738 next = end;
2739 while (next < name + name_len && IS_SEPARATOR(*next)) next++;
2740 name_len -= next - name;
2741
2742 /* grow the buffer if needed */
2743
2744 if (unix_len - pos < MAX_DIR_ENTRY_LEN + 2)
2745 {
2746 char *new_name;
2747 unix_len += 2 * MAX_DIR_ENTRY_LEN;
2748 if (!(new_name = RtlReAllocateHeap( GetProcessHeap(), 0, unix_name, unix_len )))
2749 return STATUS_NO_MEMORY;
2750 unix_name = *buffer = new_name;
2751 }
2752
2753 status = find_file_in_dir( unix_name, pos, name, end - name,
2754 check_case, redirect ? &is_win_dir : NULL );
2755
2756 /* if this is the last element, not finding it is not necessarily fatal */
2757 if (!name_len)
2758 {
2759 if (status == STATUS_OBJECT_PATH_NOT_FOUND)
2760 {
2761 status = STATUS_OBJECT_NAME_NOT_FOUND;
2762 if (disposition != FILE_OPEN && disposition != FILE_OVERWRITE)
2763 {
2764 ret = ntdll_wcstoumbs( 0, name, end - name, unix_name + pos + 1,
2765 MAX_DIR_ENTRY_LEN, NULL, &used_default );
2766 if (ret > 0 && !used_default)
2767 {
2768 unix_name[pos] = '/';
2769 unix_name[pos + 1 + ret] = 0;
2770 status = STATUS_NO_SUCH_FILE;
2771 break;
2772 }
2773 }
2774 }
2775 else if (status == STATUS_SUCCESS && disposition == FILE_CREATE)
2776 {
2777 status = STATUS_OBJECT_NAME_COLLISION;
2778 }
2779 }
2780
2781 if (status != STATUS_SUCCESS) break;
2782
2783 pos += strlen( unix_name + pos );
2784 name = next;
2785
2786 if (is_win_dir && (len = get_redirect_path( unix_name, pos, name, name_len, check_case )))
2787 {
2788 name += len;
2789 name_len -= len;
2790 pos += strlen( unix_name + pos );
2791 TRACE( "redirecting -> %s + %s\n", debugstr_a(unix_name), debugstr_w(name) );
2792 }
2793 }
2794
2795 return status;
2796 }
2797
2798
2799 /******************************************************************************
2800 * nt_to_unix_file_name_attr
2801 */
2802 NTSTATUS nt_to_unix_file_name_attr( const OBJECT_ATTRIBUTES *attr, ANSI_STRING *unix_name_ret,
2803 UINT disposition )
2804 {
2805 static const WCHAR invalid_charsW[] = { INVALID_NT_CHARS, 0 };
2806 enum server_fd_type type;
2807 int old_cwd, root_fd, needs_close;
2808 const WCHAR *name, *p;
2809 char *unix_name;
2810 int name_len, unix_len;
2811 NTSTATUS status;
2812 BOOLEAN check_case = !(attr->Attributes & OBJ_CASE_INSENSITIVE);
2813
2814 if (!attr->RootDirectory) /* without root dir fall back to normal lookup */
2815 return wine_nt_to_unix_file_name( attr->ObjectName, unix_name_ret, disposition, check_case );
2816
2817 name = attr->ObjectName->Buffer;
2818 name_len = attr->ObjectName->Length / sizeof(WCHAR);
2819
2820 if (name_len && IS_SEPARATOR(name[0])) return STATUS_INVALID_PARAMETER;
2821
2822 /* check for invalid characters */
2823 for (p = name; p < name + name_len; p++)
2824 if (*p < 32 || strchrW( invalid_charsW, *p )) return STATUS_OBJECT_NAME_INVALID;
2825
2826 unix_len = ntdll_wcstoumbs( 0, name, name_len, NULL, 0, NULL, NULL );
2827 unix_len += MAX_DIR_ENTRY_LEN + 3;
2828 if (!(unix_name = RtlAllocateHeap( GetProcessHeap(), 0, unix_len )))
2829 return STATUS_NO_MEMORY;
2830 unix_name[0] = '.';
2831
2832 if (!(status = server_get_unix_fd( attr->RootDirectory, 0, &root_fd, &needs_close, &type, NULL )))
2833 {
2834 if (type != FD_TYPE_DIR)
2835 {
2836 if (needs_close) close( root_fd );
2837 status = STATUS_BAD_DEVICE_TYPE;
2838 }
2839 else
2840 {
2841 RtlEnterCriticalSection( &dir_section );
2842 if ((old_cwd = open( ".", O_RDONLY )) != -1 && fchdir( root_fd ) != -1)
2843 {
2844 status = lookup_unix_name( name, name_len, &unix_name, unix_len, 1,
2845 disposition, check_case );
2846 if (fchdir( old_cwd ) == -1) chdir( "/" );
2847 }
2848 else status = FILE_GetNtStatus();
2849 RtlLeaveCriticalSection( &dir_section );
2850 if (old_cwd != -1) close( old_cwd );
2851 if (needs_close) close( root_fd );
2852 }
2853 }
2854 else if (status == STATUS_OBJECT_TYPE_MISMATCH) status = STATUS_BAD_DEVICE_TYPE;
2855
2856 if (status == STATUS_SUCCESS || status == STATUS_NO_SUCH_FILE)
2857 {
2858 TRACE( "%s -> %s\n", debugstr_us(attr->ObjectName), debugstr_a(unix_name) );
2859 unix_name_ret->Buffer = unix_name;
2860 unix_name_ret->Length = strlen(unix_name);
2861 unix_name_ret->MaximumLength = unix_len;
2862 }
2863 else
2864 {
2865 TRACE( "%s not found in %s\n", debugstr_w(name), unix_name );
2866 RtlFreeHeap( GetProcessHeap(), 0, unix_name );
2867 }
2868 return status;
2869 }
2870
2871
2872 /******************************************************************************
2873 * wine_nt_to_unix_file_name (NTDLL.@) Not a Windows API
2874 *
2875 * Convert a file name from NT namespace to Unix namespace.
2876 *
2877 * If disposition is not FILE_OPEN or FILE_OVERWRITE, the last path
2878 * element doesn't have to exist; in that case STATUS_NO_SUCH_FILE is
2879 * returned, but the unix name is still filled in properly.
2880 */
2881 NTSTATUS CDECL wine_nt_to_unix_file_name( const UNICODE_STRING *nameW, ANSI_STRING *unix_name_ret,
2882 UINT disposition, BOOLEAN check_case )
2883 {
2884 static const WCHAR unixW[] = {'u','n','i','x'};
2885 static const WCHAR invalid_charsW[] = { INVALID_NT_CHARS, 0 };
2886
2887 NTSTATUS status = STATUS_SUCCESS;
2888 const char *config_dir = wine_get_config_dir();
2889 const WCHAR *name, *p;
2890 struct stat st;
2891 char *unix_name;
2892 int pos, ret, name_len, unix_len, prefix_len, used_default;
2893 WCHAR prefix[MAX_DIR_ENTRY_LEN];
2894 BOOLEAN is_unix = FALSE;
2895
2896 name = nameW->Buffer;
2897 name_len = nameW->Length / sizeof(WCHAR);
2898
2899 if (!name_len || !IS_SEPARATOR(name[0])) return STATUS_OBJECT_PATH_SYNTAX_BAD;
2900
2901 if (!(pos = get_dos_prefix_len( nameW )))
2902 return STATUS_BAD_DEVICE_TYPE; /* no DOS prefix, assume NT native name */
2903
2904 name += pos;
2905 name_len -= pos;
2906
2907 /* check for sub-directory */
2908 for (pos = 0; pos < name_len; pos++)
2909 {
2910 if (IS_SEPARATOR(name[pos])) break;
2911 if (name[pos] < 32 || strchrW( invalid_charsW, name[pos] ))
2912 return STATUS_OBJECT_NAME_INVALID;
2913 }
2914 if (pos > MAX_DIR_ENTRY_LEN)
2915 return STATUS_OBJECT_NAME_INVALID;
2916
2917 if (pos == name_len) /* no subdir, plain DOS device */
2918 return get_dos_device( name, name_len, unix_name_ret );
2919
2920 for (prefix_len = 0; prefix_len < pos; prefix_len++)
2921 prefix[prefix_len] = tolowerW(name[prefix_len]);
2922
2923 name += prefix_len;
2924 name_len -= prefix_len;
2925
2926 /* check for invalid characters (all chars except 0 are valid for unix) */
2927 is_unix = (prefix_len == 4 && !memcmp( prefix, unixW, sizeof(unixW) ));
2928 if (is_unix)
2929 {
2930 for (p = name; p < name + name_len; p++)
2931 if (!*p) return STATUS_OBJECT_NAME_INVALID;
2932 check_case = TRUE;
2933 }
2934 else
2935 {
2936 for (p = name; p < name + name_len; p++)
2937 if (*p < 32 || strchrW( invalid_charsW, *p )) return STATUS_OBJECT_NAME_INVALID;
2938 }
2939
2940 unix_len = ntdll_wcstoumbs( 0, prefix, prefix_len, NULL, 0, NULL, NULL );
2941 unix_len += ntdll_wcstoumbs( 0, name, name_len, NULL, 0, NULL, NULL );
2942 unix_len += MAX_DIR_ENTRY_LEN + 3;
2943 unix_len += strlen(config_dir) + sizeof("/dosdevices/");
2944 if (!(unix_name = RtlAllocateHeap( GetProcessHeap(), 0, unix_len )))
2945 return STATUS_NO_MEMORY;
2946 strcpy( unix_name, config_dir );
2947 strcat( unix_name, "/dosdevices/" );
2948 pos = strlen(unix_name);
2949
2950 ret = ntdll_wcstoumbs( 0, prefix, prefix_len, unix_name + pos, unix_len - pos - 1,
2951 NULL, &used_default );
2952 if (!ret || used_default)
2953 {
2954 RtlFreeHeap( GetProcessHeap(), 0, unix_name );
2955 return STATUS_OBJECT_NAME_INVALID;
2956 }
2957 pos += ret;
2958
2959 /* check if prefix exists (except for DOS drives to avoid extra stat calls) */
2960
2961 if (prefix_len != 2 || prefix[1] != ':')
2962 {
2963 unix_name[pos] = 0;
2964 if (lstat( unix_name, &st ) == -1 && errno == ENOENT)
2965 {
2966 if (!is_unix)
2967 {
2968 RtlFreeHeap( GetProcessHeap(), 0, unix_name );
2969 return STATUS_BAD_DEVICE_TYPE;
2970 }
2971 pos = 0; /* fall back to unix root */
2972 }
2973 }
2974
2975 status = lookup_unix_name( name, name_len, &unix_name, unix_len, pos, disposition, check_case );
2976 if (status == STATUS_SUCCESS || status == STATUS_NO_SUCH_FILE)
2977 {
2978 TRACE( "%s -> %s\n", debugstr_us(nameW), debugstr_a(unix_name) );
2979 unix_name_ret->Buffer = unix_name;
2980 unix_name_ret->Length = strlen(unix_name);
2981 unix_name_ret->MaximumLength = unix_len;
2982 }
2983 else
2984 {
2985 TRACE( "%s not found in %s\n", debugstr_w(name), unix_name );
2986 RtlFreeHeap( GetProcessHeap(), 0, unix_name );
2987 }
2988 return status;
2989 }
2990
2991
2992 /******************************************************************
2993 * RtlWow64EnableFsRedirection (NTDLL.@)
2994 */
2995 NTSTATUS WINAPI RtlWow64EnableFsRedirection( BOOLEAN enable )
2996 {
2997 if (!is_wow64) return STATUS_NOT_IMPLEMENTED;
2998 ntdll_get_thread_data()->wow64_redir = enable;
2999 return STATUS_SUCCESS;
3000 }
3001
3002
3003 /******************************************************************
3004 * RtlWow64EnableFsRedirectionEx (NTDLL.@)
3005 */
3006 NTSTATUS WINAPI RtlWow64EnableFsRedirectionEx( ULONG disable, ULONG *old_value )
3007 {
3008 if (!is_wow64) return STATUS_NOT_IMPLEMENTED;
3009 *old_value = !ntdll_get_thread_data()->wow64_redir;
3010 ntdll_get_thread_data()->wow64_redir = !disable;
3011 return STATUS_SUCCESS;
3012 }
3013
3014
3015 /******************************************************************
3016 * RtlDoesFileExists_U (NTDLL.@)
3017 */
3018 BOOLEAN WINAPI RtlDoesFileExists_U(LPCWSTR file_name)
3019 {
3020 UNICODE_STRING nt_name;
3021 FILE_BASIC_INFORMATION basic_info;
3022 OBJECT_ATTRIBUTES attr;
3023 BOOLEAN ret;
3024
3025 if (!RtlDosPathNameToNtPathName_U( file_name, &nt_name, NULL, NULL )) return FALSE;
3026
3027 attr.Length = sizeof(attr);
3028 attr.RootDirectory = 0;
3029 attr.ObjectName = &nt_name;
3030 attr.Attributes = OBJ_CASE_INSENSITIVE;
3031 attr.SecurityDescriptor = NULL;
3032 attr.SecurityQualityOfService = NULL;
3033
3034 ret = NtQueryAttributesFile(&attr, &basic_info) == STATUS_SUCCESS;
3035
3036 RtlFreeUnicodeString( &nt_name );
3037 return ret;
3038 }
3039
3040
3041 /***********************************************************************
3042 * DIR_unmount_device
3043 *
3044 * Unmount the specified device.
3045 */
3046 NTSTATUS DIR_unmount_device( HANDLE handle )
3047 {
3048 NTSTATUS status;
3049 int unix_fd, needs_close;
3050
3051 if (!(status = server_get_unix_fd( handle, 0, &unix_fd, &needs_close, NULL, NULL )))
3052 {
3053 struct stat st;
3054 char *mount_point = NULL;
3055
3056 if (fstat( unix_fd, &st ) == -1 || !is_valid_mounted_device( &st ))
3057 status = STATUS_INVALID_PARAMETER;
3058 else
3059 {
3060 if ((mount_point = get_device_mount_point( st.st_rdev )))
3061 {
3062 #ifdef __APPLE__
3063 static const char umount[] = "diskutil unmount >/dev/null 2>&1 ";
3064 #else
3065 static const char umount[] = "umount >/dev/null 2>&1 ";
3066 #endif
3067 char *cmd = RtlAllocateHeap( GetProcessHeap(), 0, strlen(mount_point)+sizeof(umount));
3068 if (cmd)
3069 {
3070 strcpy( cmd, umount );
3071 strcat( cmd, mount_point );
3072 system( cmd );
3073 RtlFreeHeap( GetProcessHeap(), 0, cmd );
3074 #ifdef linux
3075 /* umount will fail to release the loop device since we still have
3076 a handle to it, so we release it here */
3077 if (major(st.st_rdev) == LOOP_MAJOR) ioctl( unix_fd, 0x4c01 /*LOOP_CLR_FD*/, 0 );
3078 #endif
3079 }
3080 RtlFreeHeap( GetProcessHeap(), 0, mount_point );
3081 }
3082 }
3083 if (needs_close) close( unix_fd );
3084 }
3085 return status;
3086 }
3087
3088
3089 /******************************************************************************
3090 * DIR_get_unix_cwd
3091 *
3092 * Retrieve the Unix name of the current directory; helper for wine_unix_to_nt_file_name.
3093 * Returned value must be freed by caller.
3094 */
3095 NTSTATUS DIR_get_unix_cwd( char **cwd )
3096 {
3097 int old_cwd, unix_fd, needs_close;
3098 CURDIR *curdir;
3099 HANDLE handle;
3100 NTSTATUS status;
3101
3102 RtlAcquirePebLock();
3103
3104 if (NtCurrentTeb()->Tib.SubSystemTib) /* FIXME: hack */
3105 curdir = &((WIN16_SUBSYSTEM_TIB *)NtCurrentTeb()->Tib.SubSystemTib)->curdir;
3106 else
3107 curdir = &NtCurrentTeb()->Peb->ProcessParameters->CurrentDirectory;
3108
3109 if (!(handle = curdir->Handle))
3110 {
3111 UNICODE_STRING dirW;
3112 OBJECT_ATTRIBUTES attr;
3113 IO_STATUS_BLOCK io;
3114
3115 if (!RtlDosPathNameToNtPathName_U( curdir->DosPath.Buffer, &dirW, NULL, NULL ))
3116 {
3117 status = STATUS_OBJECT_NAME_INVALID;
3118 goto done;
3119 }
3120 attr.Length = sizeof(attr);
3121 attr.RootDirectory = 0;
3122 attr.Attributes = OBJ_CASE_INSENSITIVE;
3123 attr.ObjectName = &dirW;
3124 attr.SecurityDescriptor = NULL;
3125 attr.SecurityQualityOfService = NULL;
3126
3127 status = NtOpenFile( &handle, 0, &attr, &io, 0,
3128 FILE_DIRECTORY_FILE | FILE_SYNCHRONOUS_IO_NONALERT );
3129 RtlFreeUnicodeString( &dirW );
3130 if (status != STATUS_SUCCESS) goto done;
3131 }
3132
3133 if ((status = server_get_unix_fd( handle, 0, &unix_fd, &needs_close, NULL, NULL )) == STATUS_SUCCESS)
3134 {
3135 RtlEnterCriticalSection( &dir_section );
3136
3137 if ((old_cwd = open(".", O_RDONLY)) != -1 && fchdir( unix_fd ) != -1)
3138 {
3139 unsigned int size = 512;
3140
3141 for (;;)
3142 {
3143 if (!(*cwd = RtlAllocateHeap( GetProcessHeap(), 0, size )))
3144 {
3145 status = STATUS_NO_MEMORY;
3146 break;
3147 }
3148 if (getcwd( *cwd, size )) break;
3149 RtlFreeHeap( GetProcessHeap(), 0, *cwd );
3150 if (errno != ERANGE)
3151 {
3152 status = STATUS_OBJECT_PATH_INVALID;
3153 break;
3154 }
3155 size *= 2;
3156 }
3157 if (fchdir( old_cwd ) == -1) chdir( "/" );
3158 }
3159 else status = FILE_GetNtStatus();
3160
3161 RtlLeaveCriticalSection( &dir_section );
3162 if (old_cwd != -1) close( old_cwd );
3163 if (needs_close) close( unix_fd );
3164 }
3165 if (!curdir->Handle) NtClose( handle );
3166
3167 done:
3168 RtlReleasePebLock();
3169 return status;
3170 }
3171
3172 struct read_changes_info
3173 {
3174 HANDLE FileHandle;
3175 PVOID Buffer;
3176 ULONG BufferSize;
3177 PIO_APC_ROUTINE apc;
3178 void *apc_arg;
3179 };
3180
3181 /* callback for ioctl user APC */
3182 static void WINAPI read_changes_user_apc( void *arg, IO_STATUS_BLOCK *io, ULONG reserved )
3183 {
3184 struct read_changes_info *info = arg;
3185 if (info->apc) info->apc( info->apc_arg, io, reserved );
3186 RtlFreeHeap( GetProcessHeap(), 0, info );
3187 }
3188
3189 static NTSTATUS read_changes_apc( void *user, PIO_STATUS_BLOCK iosb, NTSTATUS status, void **apc )
3190 {
3191 struct read_changes_info *info = user;
3192 char data[PATH_MAX];
3193 NTSTATUS ret;
3194 int size;
3195
3196 SERVER_START_REQ( read_change )
3197 {
3198 req->handle = wine_server_obj_handle( info->FileHandle );
3199 wine_server_set_reply( req, data, PATH_MAX );
3200 ret = wine_server_call( req );
3201 size = wine_server_reply_size( reply );
3202 }
3203 SERVER_END_REQ;
3204
3205 if (ret == STATUS_SUCCESS && info->Buffer)
3206 {
3207 PFILE_NOTIFY_INFORMATION pfni = info->Buffer;
3208 int i, left = info->BufferSize;
3209 DWORD *last_entry_offset = NULL;
3210 struct filesystem_event *event = (struct filesystem_event*)data;
3211
3212 while (size && left >= sizeof(*pfni))
3213 {
3214 /* convert to an NT style path */
3215 for (i=0; i<event->len; i++)
3216 if (event->name[i] == '/')
3217 event->name[i] = '\\';
3218
3219 pfni->Action = event->action;
3220 pfni->FileNameLength = ntdll_umbstowcs( 0, event->name, event->len, pfni->FileName,
3221 (left - offsetof(FILE_NOTIFY_INFORMATION, FileName)) / sizeof(WCHAR));
3222 last_entry_offset = &pfni->NextEntryOffset;
3223
3224 if(pfni->FileNameLength == -1 || pfni->FileNameLength == -2)
3225 break;
3226
3227 i = offsetof(FILE_NOTIFY_INFORMATION, FileName[pfni->FileNameLength]);
3228 pfni->FileNameLength *= sizeof(WCHAR);
3229 pfni->NextEntryOffset = i;
3230 pfni = (FILE_NOTIFY_INFORMATION*)((char*)pfni + i);
3231 left -= i;
3232
3233 i = (offsetof(struct filesystem_event, name[event->len])
3234 + sizeof(int)-1) / sizeof(int) * sizeof(int);
3235 event = (struct filesystem_event*)((char*)event + i);
3236 size -= i;
3237 }
3238
3239 if (size)
3240 {
3241 ret = STATUS_NOTIFY_ENUM_DIR;
3242 size = 0;
3243 }
3244 else
3245 {
3246 *last_entry_offset = 0;
3247 size = info->BufferSize - left;
3248 }
3249 }
3250 else
3251 {
3252 ret = STATUS_NOTIFY_ENUM_DIR;
3253 size = 0;
3254 }
3255
3256 iosb->u.Status = ret;
3257 iosb->Information = size;
3258 *apc = read_changes_user_apc;
3259 return ret;
3260 }
3261
3262 #define FILE_NOTIFY_ALL ( \
3263 FILE_NOTIFY_CHANGE_FILE_NAME | \
3264 FILE_NOTIFY_CHANGE_DIR_NAME | \
3265 FILE_NOTIFY_CHANGE_ATTRIBUTES | \
3266 FILE_NOTIFY_CHANGE_SIZE | \
3267 FILE_NOTIFY_CHANGE_LAST_WRITE | \
3268 FILE_NOTIFY_CHANGE_LAST_ACCESS | \
3269 FILE_NOTIFY_CHANGE_CREATION | \
3270 FILE_NOTIFY_CHANGE_SECURITY )
3271
3272 /******************************************************************************
3273 * NtNotifyChangeDirectoryFile [NTDLL.@]
3274 */
3275 NTSTATUS WINAPI
3276 NtNotifyChangeDirectoryFile( HANDLE FileHandle, HANDLE Event,
3277 PIO_APC_ROUTINE ApcRoutine, PVOID ApcContext,
3278 PIO_STATUS_BLOCK IoStatusBlock, PVOID Buffer,
3279 ULONG BufferSize, ULONG CompletionFilter, BOOLEAN WatchTree )
3280 {
3281 struct read_changes_info *info;
3282 NTSTATUS status;
3283 ULONG_PTR cvalue = ApcRoutine ? 0 : (ULONG_PTR)ApcContext;
3284
3285 TRACE("%p %p %p %p %p %p %u %u %d\n",
3286 FileHandle, Event, ApcRoutine, ApcContext, IoStatusBlock,
3287 Buffer, BufferSize, CompletionFilter, WatchTree );
3288
3289 if (!IoStatusBlock)
3290 return STATUS_ACCESS_VIOLATION;
3291
3292 if (CompletionFilter == 0 || (CompletionFilter & ~FILE_NOTIFY_ALL))
3293 return STATUS_INVALID_PARAMETER;
3294
3295 info = RtlAllocateHeap( GetProcessHeap(), 0, sizeof *info );
3296 if (!info)
3297 return STATUS_NO_MEMORY;
3298
3299 info->FileHandle = FileHandle;
3300 info->Buffer = Buffer;
3301 info->BufferSize = BufferSize;
3302 info->apc = ApcRoutine;
3303 info->apc_arg = ApcContext;
3304
3305 SERVER_START_REQ( read_directory_changes )
3306 {
3307 req->filter = CompletionFilter;
3308 req->want_data = (Buffer != NULL);
3309 req->subtree = WatchTree;
3310 req->async.handle = wine_server_obj_handle( FileHandle );
3311 req->async.callback = wine_server_client_ptr( read_changes_apc );
3312 req->async.iosb = wine_server_client_ptr( IoStatusBlock );
3313 req->async.arg = wine_server_client_ptr( info );
3314 req->async.event = wine_server_obj_handle( Event );
3315 req->async.cvalue = cvalue;
3316 status = wine_server_call( req );
3317 }
3318 SERVER_END_REQ;
3319
3320 if (status != STATUS_PENDING)
3321 RtlFreeHeap( GetProcessHeap(), 0, info );
3322
3323 return status;
3324 }
Maarten's multimedia branch