jscript: Added parser.
[wine] / dlls / msvcrt / dir.c
1 /*
2  * msvcrt.dll drive/directory functions
3  *
4  * Copyright 1996,1998 Marcus Meissner
5  * Copyright 1996 Jukka Iivonen
6  * Copyright 1997,2000 Uwe Bonnes
7  * Copyright 2000 Jon Griffiths
8  *
9  * This library is free software; you can redistribute it and/or
10  * modify it under the terms of the GNU Lesser General Public
11  * License as published by the Free Software Foundation; either
12  * version 2.1 of the License, or (at your option) any later version.
13  *
14  * This library is distributed in the hope that it will be useful,
15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
17  * Lesser General Public License for more details.
18  *
19  * You should have received a copy of the GNU Lesser General Public
20  * License along with this library; if not, write to the Free Software
21  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22  */
23
24 #include "config.h"
25 #include "wine/port.h"
26
27 #include <stdarg.h>
28 #include <time.h>
29
30 #include "windef.h"
31 #include "winbase.h"
32 #include "winternl.h"
33 #include "wine/unicode.h"
34 #include "msvcrt.h"
35 #include "wine/debug.h"
36
37 WINE_DEFAULT_DEBUG_CHANNEL(msvcrt);
38
39 /* INTERNAL: Translate WIN32_FIND_DATAA to finddata_t  */
40 static void msvcrt_fttofd( const WIN32_FIND_DATAA *fd, struct MSVCRT__finddata_t* ft)
41 {
42   DWORD dw;
43
44   if (fd->dwFileAttributes == FILE_ATTRIBUTE_NORMAL)
45     ft->attrib = 0;
46   else
47     ft->attrib = fd->dwFileAttributes;
48
49   RtlTimeToSecondsSince1970( (const LARGE_INTEGER *)&fd->ftCreationTime, &dw );
50   ft->time_create = dw;
51   RtlTimeToSecondsSince1970( (const LARGE_INTEGER *)&fd->ftLastAccessTime, &dw );
52   ft->time_access = dw;
53   RtlTimeToSecondsSince1970( (const LARGE_INTEGER *)&fd->ftLastWriteTime, &dw );
54   ft->time_write = dw;
55   ft->size = fd->nFileSizeLow;
56   strcpy(ft->name, fd->cFileName);
57 }
58
59 /* INTERNAL: Translate WIN32_FIND_DATAW to wfinddata_t  */
60 static void msvcrt_wfttofd( const WIN32_FIND_DATAW *fd, struct MSVCRT__wfinddata_t* ft)
61 {
62   DWORD dw;
63
64   if (fd->dwFileAttributes == FILE_ATTRIBUTE_NORMAL)
65     ft->attrib = 0;
66   else
67     ft->attrib = fd->dwFileAttributes;
68
69   RtlTimeToSecondsSince1970( (const LARGE_INTEGER *)&fd->ftCreationTime, &dw );
70   ft->time_create = dw;
71   RtlTimeToSecondsSince1970( (const LARGE_INTEGER *)&fd->ftLastAccessTime, &dw );
72   ft->time_access = dw;
73   RtlTimeToSecondsSince1970( (const LARGE_INTEGER *)&fd->ftLastWriteTime, &dw );
74   ft->time_write = dw;
75   ft->size = fd->nFileSizeLow;
76   strcpyW(ft->name, fd->cFileName);
77 }
78
79 /* INTERNAL: Translate WIN32_FIND_DATAA to finddatai64_t  */
80 static void msvcrt_fttofdi64( const WIN32_FIND_DATAA *fd, struct MSVCRT__finddatai64_t* ft)
81 {
82   DWORD dw;
83
84   if (fd->dwFileAttributes == FILE_ATTRIBUTE_NORMAL)
85     ft->attrib = 0;
86   else
87     ft->attrib = fd->dwFileAttributes;
88
89   RtlTimeToSecondsSince1970( (const LARGE_INTEGER *)&fd->ftCreationTime, &dw );
90   ft->time_create = dw;
91   RtlTimeToSecondsSince1970( (const LARGE_INTEGER *)&fd->ftLastAccessTime, &dw );
92   ft->time_access = dw;
93   RtlTimeToSecondsSince1970( (const LARGE_INTEGER *)&fd->ftLastWriteTime, &dw );
94   ft->time_write = dw;
95   ft->size = ((__int64)fd->nFileSizeHigh) << 32 | fd->nFileSizeLow;
96   strcpy(ft->name, fd->cFileName);
97 }
98
99 /* INTERNAL: Translate WIN32_FIND_DATAW to wfinddatai64_t  */
100 static void msvcrt_wfttofdi64( const WIN32_FIND_DATAW *fd, struct MSVCRT__wfinddatai64_t* ft)
101 {
102   DWORD dw;
103
104   if (fd->dwFileAttributes == FILE_ATTRIBUTE_NORMAL)
105     ft->attrib = 0;
106   else
107     ft->attrib = fd->dwFileAttributes;
108
109   RtlTimeToSecondsSince1970( (const LARGE_INTEGER *)&fd->ftCreationTime, &dw );
110   ft->time_create = dw;
111   RtlTimeToSecondsSince1970( (const LARGE_INTEGER *)&fd->ftLastAccessTime, &dw );
112   ft->time_access = dw;
113   RtlTimeToSecondsSince1970( (const LARGE_INTEGER *)&fd->ftLastWriteTime, &dw );
114   ft->time_write = dw;
115   ft->size = ((__int64)fd->nFileSizeHigh) << 32 | fd->nFileSizeLow;
116   strcpyW(ft->name, fd->cFileName);
117 }
118
119 /*********************************************************************
120  *              _chdir (MSVCRT.@)
121  *
122  * Change the current working directory.
123  *
124  * PARAMS
125  *  newdir [I] Directory to change to
126  *
127  * RETURNS
128  *  Success: 0. The current working directory is set to newdir.
129  *  Failure: -1. errno indicates the error.
130  *
131  * NOTES
132  *  See SetCurrentDirectoryA.
133  */
134 int CDECL MSVCRT__chdir(const char * newdir)
135 {
136   if (!SetCurrentDirectoryA(newdir))
137   {
138     msvcrt_set_errno(newdir?GetLastError():0);
139     return -1;
140   }
141   return 0;
142 }
143
144 /*********************************************************************
145  *              _wchdir (MSVCRT.@)
146  *
147  * Unicode version of _chdir.
148  */
149 int CDECL _wchdir(const MSVCRT_wchar_t * newdir)
150 {
151   if (!SetCurrentDirectoryW(newdir))
152   {
153     msvcrt_set_errno(newdir?GetLastError():0);
154     return -1;
155   }
156   return 0;
157 }
158
159 /*********************************************************************
160  *              _chdrive (MSVCRT.@)
161  *
162  * Change the current drive.
163  *
164  * PARAMS
165  *  newdrive [I] Drive number to change to (1 = 'A', 2 = 'B', ...)
166  *
167  * RETURNS
168  *  Success: 0. The current drive is set to newdrive.
169  *  Failure: -1. errno indicates the error.
170  *
171  * NOTES
172  *  See SetCurrentDirectoryA.
173  */
174 int CDECL _chdrive(int newdrive)
175 {
176   WCHAR buffer[3] = {'A', ':', 0};
177
178   buffer[0] += newdrive - 1;
179   if (!SetCurrentDirectoryW( buffer ))
180   {
181     msvcrt_set_errno(GetLastError());
182     if (newdrive <= 0)
183       *MSVCRT__errno() = MSVCRT_EACCES;
184     return -1;
185   }
186   return 0;
187 }
188
189 /*********************************************************************
190  *              _findclose (MSVCRT.@)
191  *
192  * Close a handle returned by _findfirst().
193  *
194  * PARAMS
195  *  hand [I] Handle to close
196  *
197  * RETURNS
198  *  Success: 0. All resources associated with hand are freed.
199  *  Failure: -1. errno indicates the error.
200  *
201  * NOTES
202  *  See FindClose.
203  */
204 int CDECL MSVCRT__findclose(long hand)
205 {
206   TRACE(":handle %ld\n",hand);
207   if (!FindClose((HANDLE)hand))
208   {
209     msvcrt_set_errno(GetLastError());
210     return -1;
211   }
212   return 0;
213 }
214
215 /*********************************************************************
216  *              _findfirst (MSVCRT.@)
217  *
218  * Open a handle for iterating through a directory.
219  *
220  * PARAMS
221  *  fspec [I] File specification of files to iterate.
222  *  ft    [O] Information for the first file found.
223  *
224  * RETURNS
225  *  Success: A handle suitable for passing to _findnext() and _findclose().
226  *           ft is populated with the details of the found file.
227  *  Failure: -1. errno indicates the error.
228  *
229  * NOTES
230  *  See FindFirstFileA.
231  */
232 long CDECL MSVCRT__findfirst(const char * fspec, struct MSVCRT__finddata_t* ft)
233 {
234   WIN32_FIND_DATAA find_data;
235   HANDLE hfind;
236
237   hfind  = FindFirstFileA(fspec, &find_data);
238   if (hfind == INVALID_HANDLE_VALUE)
239   {
240     msvcrt_set_errno(GetLastError());
241     return -1;
242   }
243   msvcrt_fttofd(&find_data,ft);
244   TRACE(":got handle %p\n",hfind);
245   return (long)hfind;
246 }
247
248 /*********************************************************************
249  *              _wfindfirst (MSVCRT.@)
250  *
251  * Unicode version of _findfirst.
252  */
253 long CDECL MSVCRT__wfindfirst(const MSVCRT_wchar_t * fspec, struct MSVCRT__wfinddata_t* ft)
254 {
255   WIN32_FIND_DATAW find_data;
256   HANDLE hfind;
257
258   hfind  = FindFirstFileW(fspec, &find_data);
259   if (hfind == INVALID_HANDLE_VALUE)
260   {
261     msvcrt_set_errno(GetLastError());
262     return -1;
263   }
264   msvcrt_wfttofd(&find_data,ft);
265   TRACE(":got handle %p\n",hfind);
266   return (long)hfind;
267 }
268
269 /*********************************************************************
270  *              _findfirsti64 (MSVCRT.@)
271  *
272  * 64-bit version of _findfirst.
273  */
274 long CDECL MSVCRT__findfirsti64(const char * fspec, struct MSVCRT__finddatai64_t* ft)
275 {
276   WIN32_FIND_DATAA find_data;
277   HANDLE hfind;
278
279   hfind  = FindFirstFileA(fspec, &find_data);
280   if (hfind == INVALID_HANDLE_VALUE)
281   {
282     msvcrt_set_errno(GetLastError());
283     return -1;
284   }
285   msvcrt_fttofdi64(&find_data,ft);
286   TRACE(":got handle %p\n",hfind);
287   return (long)hfind;
288 }
289
290 /*********************************************************************
291  *              _wfindfirsti64 (MSVCRT.@)
292  *
293  * Unicode version of _findfirsti64.
294  */
295 long CDECL MSVCRT__wfindfirsti64(const MSVCRT_wchar_t * fspec, struct MSVCRT__wfinddatai64_t* ft)
296 {
297   WIN32_FIND_DATAW find_data;
298   HANDLE hfind;
299
300   hfind  = FindFirstFileW(fspec, &find_data);
301   if (hfind == INVALID_HANDLE_VALUE)
302   {
303     msvcrt_set_errno(GetLastError());
304     return -1;
305   }
306   msvcrt_wfttofdi64(&find_data,ft);
307   TRACE(":got handle %p\n",hfind);
308   return (long)hfind;
309 }
310
311 /*********************************************************************
312  *              _findnext (MSVCRT.@)
313  *
314  * Find the next file from a file search handle.
315  *
316  * PARAMS
317  *  hand  [I] Handle to the search returned from _findfirst().
318  *  ft    [O] Information for the file found.
319  *
320  * RETURNS
321  *  Success: 0. ft is populated with the details of the found file.
322  *  Failure: -1. errno indicates the error.
323  *
324  * NOTES
325  *  See FindNextFileA.
326  */
327 int CDECL MSVCRT__findnext(long hand, struct MSVCRT__finddata_t * ft)
328 {
329   WIN32_FIND_DATAA find_data;
330
331   if (!FindNextFileA((HANDLE)hand, &find_data))
332   {
333     *MSVCRT__errno() = MSVCRT_ENOENT;
334     return -1;
335   }
336
337   msvcrt_fttofd(&find_data,ft);
338   return 0;
339 }
340
341 /*********************************************************************
342  *              _wfindnext (MSVCRT.@)
343  *
344  * Unicode version of _findnext.
345  */
346 int CDECL MSVCRT__wfindnext(long hand, struct MSVCRT__wfinddata_t * ft)
347 {
348   WIN32_FIND_DATAW find_data;
349
350   if (!FindNextFileW((HANDLE)hand, &find_data))
351   {
352     *MSVCRT__errno() = MSVCRT_ENOENT;
353     return -1;
354   }
355
356   msvcrt_wfttofd(&find_data,ft);
357   return 0;
358 }
359
360 /*********************************************************************
361  *              _findnexti64 (MSVCRT.@)
362  *
363  * 64-bit version of _findnext.
364  */
365 int CDECL MSVCRT__findnexti64(long hand, struct MSVCRT__finddatai64_t * ft)
366 {
367   WIN32_FIND_DATAA find_data;
368
369   if (!FindNextFileA((HANDLE)hand, &find_data))
370   {
371     *MSVCRT__errno() = MSVCRT_ENOENT;
372     return -1;
373   }
374
375   msvcrt_fttofdi64(&find_data,ft);
376   return 0;
377 }
378
379 /*********************************************************************
380  *              _wfindnexti64 (MSVCRT.@)
381  *
382  * Unicode version of _findnexti64.
383  */
384 int CDECL MSVCRT__wfindnexti64(long hand, struct MSVCRT__wfinddatai64_t * ft)
385 {
386   WIN32_FIND_DATAW find_data;
387
388   if (!FindNextFileW((HANDLE)hand, &find_data))
389   {
390     *MSVCRT__errno() = MSVCRT_ENOENT;
391     return -1;
392   }
393
394   msvcrt_wfttofdi64(&find_data,ft);
395   return 0;
396 }
397
398 /*********************************************************************
399  *              _getcwd (MSVCRT.@)
400  *
401  * Get the current working directory.
402  *
403  * PARAMS
404  *  buf  [O] Destination for current working directory.
405  *  size [I] Size of buf in characters
406  *
407  * RETURNS
408  * Success: If buf is NULL, returns an allocated string containing the path.
409  *          Otherwise populates buf with the path and returns it.
410  * Failure: NULL. errno indicates the error.
411  */
412 char* CDECL _getcwd(char * buf, int size)
413 {
414   char dir[MAX_PATH];
415   int dir_len = GetCurrentDirectoryA(MAX_PATH,dir);
416
417   if (dir_len < 1)
418     return NULL; /* FIXME: Real return value untested */
419
420   if (!buf)
421   {
422       if (size <= dir_len) size = dir_len + 1;
423       if (!(buf = MSVCRT_malloc( size ))) return NULL;
424   }
425   else if (dir_len >= size)
426   {
427     *MSVCRT__errno() = MSVCRT_ERANGE;
428     return NULL; /* buf too small */
429   }
430   strcpy(buf,dir);
431   return buf;
432 }
433
434 /*********************************************************************
435  *              _wgetcwd (MSVCRT.@)
436  *
437  * Unicode version of _getcwd.
438  */
439 MSVCRT_wchar_t* CDECL _wgetcwd(MSVCRT_wchar_t * buf, int size)
440 {
441   MSVCRT_wchar_t dir[MAX_PATH];
442   int dir_len = GetCurrentDirectoryW(MAX_PATH,dir);
443
444   if (dir_len < 1)
445     return NULL; /* FIXME: Real return value untested */
446
447   if (!buf)
448   {
449       if (size <= dir_len) size = dir_len + 1;
450       if (!(buf = MSVCRT_malloc( size * sizeof(WCHAR) ))) return NULL;
451   }
452   if (dir_len >= size)
453   {
454     *MSVCRT__errno() = MSVCRT_ERANGE;
455     return NULL; /* buf too small */
456   }
457   strcpyW(buf,dir);
458   return buf;
459 }
460
461 /*********************************************************************
462  *              _getdrive (MSVCRT.@)
463  *
464  * Get the current drive number.
465  *
466  * PARAMS
467  *  None.
468  *
469  * RETURNS
470  *  Success: The drive letter number from 1 to 26 ("A:" to "Z:").
471  *  Failure: 0.
472  */
473 int CDECL _getdrive(void)
474 {
475     WCHAR buffer[MAX_PATH];
476     if (GetCurrentDirectoryW( MAX_PATH, buffer ) &&
477         buffer[0] >= 'A' && buffer[0] <= 'z' && buffer[1] == ':')
478         return toupperW(buffer[0]) - 'A' + 1;
479     return 0;
480 }
481
482 /*********************************************************************
483  *              _getdcwd (MSVCRT.@)
484  *
485  * Get the current working directory on a given disk.
486  * 
487  * PARAMS
488  *  drive [I] Drive letter to get the current working directory from.
489  *  buf   [O] Destination for the current working directory.
490  *  size  [I] Length of drive in characters.
491  *
492  * RETURNS
493  *  Success: If drive is NULL, returns an allocated string containing the path.
494  *           Otherwise populates drive with the path and returns it.
495  *  Failure: NULL. errno indicates the error.
496  */
497 char* CDECL _getdcwd(int drive, char * buf, int size)
498 {
499   static char* dummy;
500
501   TRACE(":drive %d(%c), size %d\n",drive, drive + 'A' - 1, size);
502
503   if (!drive || drive == _getdrive())
504     return _getcwd(buf,size); /* current */
505   else
506   {
507     char dir[MAX_PATH];
508     char drivespec[4] = {'A', ':', 0};
509     int dir_len;
510
511     drivespec[0] += drive - 1;
512     if (GetDriveTypeA(drivespec) < DRIVE_REMOVABLE)
513     {
514       *MSVCRT__errno() = MSVCRT_EACCES;
515       return NULL;
516     }
517
518     dir_len = GetFullPathNameA(drivespec,MAX_PATH,dir,&dummy);
519     if (dir_len >= size || dir_len < 1)
520     {
521       *MSVCRT__errno() = MSVCRT_ERANGE;
522       return NULL; /* buf too small */
523     }
524
525     TRACE(":returning '%s'\n", dir);
526     if (!buf)
527       return _strdup(dir); /* allocate */
528
529     strcpy(buf,dir);
530   }
531   return buf;
532 }
533
534 /*********************************************************************
535  *              _wgetdcwd (MSVCRT.@)
536  *
537  * Unicode version of _wgetdcwd.
538  */
539 MSVCRT_wchar_t* CDECL _wgetdcwd(int drive, MSVCRT_wchar_t * buf, int size)
540 {
541   static MSVCRT_wchar_t* dummy;
542
543   TRACE(":drive %d(%c), size %d\n",drive, drive + 'A' - 1, size);
544
545   if (!drive || drive == _getdrive())
546     return _wgetcwd(buf,size); /* current */
547   else
548   {
549     MSVCRT_wchar_t dir[MAX_PATH];
550     MSVCRT_wchar_t drivespec[4] = {'A', ':', '\\', 0};
551     int dir_len;
552
553     drivespec[0] += drive - 1;
554     if (GetDriveTypeW(drivespec) < DRIVE_REMOVABLE)
555     {
556       *MSVCRT__errno() = MSVCRT_EACCES;
557       return NULL;
558     }
559
560     dir_len = GetFullPathNameW(drivespec,MAX_PATH,dir,&dummy);
561     if (dir_len >= size || dir_len < 1)
562     {
563       *MSVCRT__errno() = MSVCRT_ERANGE;
564       return NULL; /* buf too small */
565     }
566
567     TRACE(":returning %s\n", debugstr_w(dir));
568     if (!buf)
569       return _wcsdup(dir); /* allocate */
570     strcpyW(buf,dir);
571   }
572   return buf;
573 }
574
575 /*********************************************************************
576  *              _getdiskfree (MSVCRT.@)
577  *
578  * Get information about the free space on a drive.
579  *
580  * PARAMS
581  *  disk [I] Drive number to get information about (1 = 'A', 2 = 'B', ...)
582  *  info [O] Destination for the resulting information.
583  *
584  * RETURNS
585  *  Success: 0. info is updated with the free space information.
586  *  Failure: An error code from GetLastError().
587  *
588  * NOTES
589  *  See GetLastError().
590  */
591 unsigned int CDECL MSVCRT__getdiskfree(unsigned int disk, struct MSVCRT__diskfree_t * d)
592 {
593   WCHAR drivespec[4] = {'@', ':', '\\', 0};
594   DWORD ret[4];
595   unsigned int err;
596
597   if (disk > 26)
598     return ERROR_INVALID_PARAMETER; /* MSVCRT doesn't set errno here */
599
600   drivespec[0] += disk; /* make a drive letter */
601
602   if (GetDiskFreeSpaceW(disk==0?NULL:drivespec,ret,ret+1,ret+2,ret+3))
603   {
604     d->sectors_per_cluster = ret[0];
605     d->bytes_per_sector = ret[1];
606     d->avail_clusters = ret[2];
607     d->total_clusters = ret[3];
608     return 0;
609   }
610   err = GetLastError();
611   msvcrt_set_errno(err);
612   return err;
613 }
614
615 /*********************************************************************
616  *              _mkdir (MSVCRT.@)
617  *
618  * Create a directory.
619  *
620  * PARAMS
621  *  newdir [I] Name of directory to create.
622  *
623  * RETURNS
624  *  Success: 0. The directory indicated by newdir is created.
625  *  Failure: -1. errno indicates the error.
626  *
627  * NOTES
628  *  See CreateDirectoryA.
629  */
630 int CDECL MSVCRT__mkdir(const char * newdir)
631 {
632   if (CreateDirectoryA(newdir,NULL))
633     return 0;
634   msvcrt_set_errno(GetLastError());
635   return -1;
636 }
637
638 /*********************************************************************
639  *              _wmkdir (MSVCRT.@)
640  *
641  * Unicode version of _mkdir.
642  */
643 int CDECL _wmkdir(const MSVCRT_wchar_t* newdir)
644 {
645   if (CreateDirectoryW(newdir,NULL))
646     return 0;
647   msvcrt_set_errno(GetLastError());
648   return -1;
649 }
650
651 /*********************************************************************
652  *              _rmdir (MSVCRT.@)
653  *
654  * Delete a directory.
655  *
656  * PARAMS
657  *  dir [I] Name of directory to delete.
658  *
659  * RETURNS
660  *  Success: 0. The directory indicated by newdir is deleted.
661  *  Failure: -1. errno indicates the error.
662  *
663  * NOTES
664  *  See RemoveDirectoryA.
665  */
666 int CDECL MSVCRT__rmdir(const char * dir)
667 {
668   if (RemoveDirectoryA(dir))
669     return 0;
670   msvcrt_set_errno(GetLastError());
671   return -1;
672 }
673
674 /*********************************************************************
675  *              _wrmdir (MSVCRT.@)
676  *
677  * Unicode version of _rmdir.
678  */
679 int CDECL _wrmdir(const MSVCRT_wchar_t * dir)
680 {
681   if (RemoveDirectoryW(dir))
682     return 0;
683   msvcrt_set_errno(GetLastError());
684   return -1;
685 }
686
687 /*********************************************************************
688  *              _wsplitpath (MSVCRT.@)
689  *
690  * Unicode version of _splitpath.
691  */
692 void CDECL _wsplitpath(const MSVCRT_wchar_t *inpath, MSVCRT_wchar_t *drv, MSVCRT_wchar_t *dir,
693                        MSVCRT_wchar_t *fname, MSVCRT_wchar_t *ext )
694 {
695     const MSVCRT_wchar_t *p, *end;
696
697     if (inpath[0] && inpath[1] == ':')
698     {
699         if (drv)
700         {
701             drv[0] = inpath[0];
702             drv[1] = inpath[1];
703             drv[2] = 0;
704         }
705         inpath += 2;
706     }
707     else if (drv) drv[0] = 0;
708
709     /* look for end of directory part */
710     end = NULL;
711     for (p = inpath; *p; p++) if (*p == '/' || *p == '\\') end = p + 1;
712
713     if (end)  /* got a directory */
714     {
715         if (dir)
716         {
717             memcpy( dir, inpath, (end - inpath) * sizeof(MSVCRT_wchar_t) );
718             dir[end - inpath] = 0;
719         }
720         inpath = end;
721     }
722     else if (dir) dir[0] = 0;
723
724     /* look for extension: what's after the last dot */
725     end = NULL;
726     for (p = inpath; *p; p++) if (*p == '.') end = p;
727
728     if (!end) end = p; /* there's no extension */
729
730     if (fname)
731     {
732         memcpy( fname, inpath, (end - inpath) * sizeof(MSVCRT_wchar_t) );
733         fname[end - inpath] = 0;
734     }
735     if (ext) strcpyW( ext, end );
736 }
737
738 /*********************************************************************
739  *              _wfullpath (MSVCRT.@)
740  *
741  * Unicode version of _fullpath.
742  */
743 MSVCRT_wchar_t * CDECL _wfullpath(MSVCRT_wchar_t * absPath, const MSVCRT_wchar_t* relPath, MSVCRT_size_t size)
744 {
745   DWORD rc;
746   WCHAR* buffer;
747   WCHAR* lastpart;
748   BOOL alloced = FALSE;
749
750   if (!relPath || !*relPath)
751     return _wgetcwd(absPath, size);
752
753   if (absPath == NULL)
754   {
755       buffer = MSVCRT_malloc(MAX_PATH * sizeof(WCHAR));
756       size = MAX_PATH;
757       alloced = TRUE;
758   }
759   else
760       buffer = absPath;
761
762   if (size < 4)
763   {
764     *MSVCRT__errno() = MSVCRT_ERANGE;
765     return NULL;
766   }
767
768   TRACE(":resolving relative path %s\n",debugstr_w(relPath));
769
770   rc = GetFullPathNameW(relPath,size,buffer,&lastpart);
771
772   if (rc > 0 && rc <= size )
773     return buffer;
774   else
775   {
776       if (alloced)
777           MSVCRT_free(buffer);
778         return NULL;
779   }
780 }
781
782 /*********************************************************************
783  *              _fullpath (MSVCRT.@)
784  *
785  * Create an absolute path from a relative path.
786  *
787  * PARAMS
788  *  absPath [O] Destination for absolute path
789  *  relPath [I] Relative path to convert to absolute
790  *  size    [I] Length of absPath in characters.
791  *
792  * RETURNS
793  * Success: If absPath is NULL, returns an allocated string containing the path.
794  *          Otherwise populates absPath with the path and returns it.
795  * Failure: NULL. errno indicates the error.
796  */
797 char * CDECL _fullpath(char * absPath, const char* relPath, unsigned int size)
798 {
799   DWORD rc;
800   char* lastpart;
801   char* buffer;
802   BOOL alloced = FALSE;
803
804   if (!relPath || !*relPath)
805     return _getcwd(absPath, size);
806
807   if (absPath == NULL)
808   {
809       buffer = MSVCRT_malloc(MAX_PATH);
810       size = MAX_PATH;
811       alloced = TRUE;
812   }
813   else
814       buffer = absPath;
815
816   if (size < 4)
817   {
818     *MSVCRT__errno() = MSVCRT_ERANGE;
819     return NULL;
820   }
821
822   TRACE(":resolving relative path '%s'\n",relPath);
823
824   rc = GetFullPathNameA(relPath,size,buffer,&lastpart);
825
826   if (rc > 0 && rc <= size)
827     return buffer;
828   else
829   {
830       if (alloced)
831           MSVCRT_free(buffer);
832         return NULL;
833   }
834 }
835
836 /*********************************************************************
837  *              _makepath (MSVCRT.@)
838  *
839  * Create a pathname.
840  *
841  * PARAMS
842  *  path      [O] Destination for created pathname
843  *  drive     [I] Drive letter (e.g. "A:")
844  *  directory [I] Directory
845  *  filename  [I] Name of the file, excluding extension
846  *  extension [I] File extension (e.g. ".TXT")
847  *
848  * RETURNS
849  *  Nothing. If path is not large enough to hold the resulting pathname,
850  *  random process memory will be overwritten.
851  */
852 VOID CDECL _makepath(char * path, const char * drive,
853                      const char *directory, const char * filename,
854                      const char * extension)
855 {
856     char *p = path;
857
858     TRACE("(%s %s %s %s)\n", debugstr_a(drive), debugstr_a(directory),
859           debugstr_a(filename), debugstr_a(extension) );
860
861     if ( !path )
862         return;
863
864     if (drive && drive[0])
865     {
866         *p++ = drive[0];
867         *p++ = ':';
868     }
869     if (directory && directory[0])
870     {
871         unsigned int len = strlen(directory);
872         memmove(p, directory, len);
873         p += len;
874         if (p[-1] != '/' && p[-1] != '\\')
875             *p++ = '\\';
876     }
877     if (filename && filename[0])
878     {
879         unsigned int len = strlen(filename);
880         memmove(p, filename, len);
881         p += len;
882     }
883     if (extension && extension[0])
884     {
885         if (extension[0] != '.')
886             *p++ = '.';
887         strcpy(p, extension);
888     }
889     else
890         *p = '\0';
891     TRACE("returning %s\n",path);
892 }
893
894 /*********************************************************************
895  *              _wmakepath (MSVCRT.@)
896  *
897  * Unicode version of _wmakepath.
898  */
899 VOID CDECL _wmakepath(MSVCRT_wchar_t *path, const MSVCRT_wchar_t *drive, const MSVCRT_wchar_t *directory,
900                       const MSVCRT_wchar_t *filename, const MSVCRT_wchar_t *extension)
901 {
902     MSVCRT_wchar_t *p = path;
903
904     TRACE("%s %s %s %s\n", debugstr_w(drive), debugstr_w(directory),
905           debugstr_w(filename), debugstr_w(extension));
906
907     if ( !path )
908         return;
909
910     if (drive && drive[0])
911     {
912         *p++ = drive[0];
913         *p++ = ':';
914     }
915     if (directory && directory[0])
916     {
917         unsigned int len = strlenW(directory);
918         memmove(p, directory, len * sizeof(MSVCRT_wchar_t));
919         p += len;
920         if (p[-1] != '/' && p[-1] != '\\')
921             *p++ = '\\';
922     }
923     if (filename && filename[0])
924     {
925         unsigned int len = strlenW(filename);
926         memmove(p, filename, len * sizeof(MSVCRT_wchar_t));
927         p += len;
928     }
929     if (extension && extension[0])
930     {
931         if (extension[0] != '.')
932             *p++ = '.';
933         strcpyW(p, extension);
934     }
935     else
936         *p = '\0';
937
938     TRACE("returning %s\n", debugstr_w(path));
939 }
940
941 /*********************************************************************
942  *              _searchenv (MSVCRT.@)
943  *
944  * Search for a file in a list of paths from an environment variable.
945  *
946  * PARAMS
947  *  file   [I] Name of the file to search for.
948  *  env    [I] Name of the environment variable containing a list of paths.
949  *  buf    [O] Destination for the found file path.
950  *
951  * RETURNS
952  *  Nothing. If the file is not found, buf will contain an empty string
953  *  and errno is set.
954  */
955 void CDECL _searchenv(const char* file, const char* env, char *buf)
956 {
957   char*envVal, *penv;
958   char curPath[MAX_PATH];
959
960   *buf = '\0';
961
962   /* Try CWD first */
963   if (GetFileAttributesA( file ) != INVALID_FILE_ATTRIBUTES)
964   {
965     GetFullPathNameA( file, MAX_PATH, buf, NULL );
966     /* Sigh. This error is *always* set, regardless of success */
967     msvcrt_set_errno(ERROR_FILE_NOT_FOUND);
968     return;
969   }
970
971   /* Search given environment variable */
972   envVal = MSVCRT_getenv(env);
973   if (!envVal)
974   {
975     msvcrt_set_errno(ERROR_FILE_NOT_FOUND);
976     return;
977   }
978
979   penv = envVal;
980   TRACE(":searching for %s in paths %s\n", file, envVal);
981
982   do
983   {
984     char *end = penv;
985
986     while(*end && *end != ';') end++; /* Find end of next path */
987     if (penv == end || !*penv)
988     {
989       msvcrt_set_errno(ERROR_FILE_NOT_FOUND);
990       return;
991     }
992     memcpy(curPath, penv, end - penv);
993     if (curPath[end - penv] != '/' || curPath[end - penv] != '\\')
994     {
995       curPath[end - penv] = '\\';
996       curPath[end - penv + 1] = '\0';
997     }
998     else
999       curPath[end - penv] = '\0';
1000
1001     strcat(curPath, file);
1002     TRACE("Checking for file %s\n", curPath);
1003     if (GetFileAttributesA( curPath ) != INVALID_FILE_ATTRIBUTES)
1004     {
1005       strcpy(buf, curPath);
1006       msvcrt_set_errno(ERROR_FILE_NOT_FOUND);
1007       return; /* Found */
1008     }
1009     penv = *end ? end + 1 : end;
1010   } while(1);
1011 }
1012
1013 /*********************************************************************
1014  *      _wsearchenv (MSVCRT.@)
1015  *
1016  * Unicode version of _searchenv
1017  */
1018 void CDECL _wsearchenv(const MSVCRT_wchar_t* file, const MSVCRT_wchar_t* env, MSVCRT_wchar_t *buf)
1019 {
1020   MSVCRT_wchar_t *envVal, *penv;
1021   MSVCRT_wchar_t curPath[MAX_PATH];
1022
1023   *buf = '\0';
1024
1025   /* Try CWD first */
1026   if (GetFileAttributesW( file ) != INVALID_FILE_ATTRIBUTES)
1027   {
1028     GetFullPathNameW( file, MAX_PATH, buf, NULL );
1029     /* Sigh. This error is *always* set, regardless of success */
1030     msvcrt_set_errno(ERROR_FILE_NOT_FOUND);
1031     return;
1032   }
1033
1034   /* Search given environment variable */
1035   envVal = _wgetenv(env);
1036   if (!envVal)
1037   {
1038     msvcrt_set_errno(ERROR_FILE_NOT_FOUND);
1039     return;
1040   }
1041
1042   penv = envVal;
1043   TRACE(":searching for %s in paths %s\n", debugstr_w(file), debugstr_w(envVal));
1044
1045   do
1046   {
1047     MSVCRT_wchar_t *end = penv;
1048
1049     while(*end && *end != ';') end++; /* Find end of next path */
1050     if (penv == end || !*penv)
1051     {
1052       msvcrt_set_errno(ERROR_FILE_NOT_FOUND);
1053       return;
1054     }
1055     memcpy(curPath, penv, (end - penv) * sizeof(MSVCRT_wchar_t));
1056     if (curPath[end - penv] != '/' || curPath[end - penv] != '\\')
1057     {
1058       curPath[end - penv] = '\\';
1059       curPath[end - penv + 1] = '\0';
1060     }
1061     else
1062       curPath[end - penv] = '\0';
1063
1064     strcatW(curPath, file);
1065     TRACE("Checking for file %s\n", debugstr_w(curPath));
1066     if (GetFileAttributesW( curPath ) != INVALID_FILE_ATTRIBUTES)
1067     {
1068       strcpyW(buf, curPath);
1069       msvcrt_set_errno(ERROR_FILE_NOT_FOUND);
1070       return; /* Found */
1071     }
1072     penv = *end ? end + 1 : end;
1073   } while(1);
1074 }