git.oblomov.eu Git - wine/blob - dlls/msvcrt/file.c

   1 /*
   2  * msvcrt.dll file 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  * Copyright 2004 Eric Pouech
   9  * Copyright 2004 Juan Lang
  10  *
  11  * This library is free software; you can redistribute it and/or
  12  * modify it under the terms of the GNU Lesser General Public
  13  * License as published by the Free Software Foundation; either
  14  * version 2.1 of the License, or (at your option) any later version.
  15  *
  16  * This library is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19  * Lesser General Public License for more details.
  20  *
  21  * You should have received a copy of the GNU Lesser General Public
  22  * License along with this library; if not, write to the Free Software
  23  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  24  *
  25  * TODO
  26  * Use the file flag hints O_SEQUENTIAL, O_RANDOM, O_SHORT_LIVED
  27  */
  28
  29 #include "config.h"
  30 #include "wine/port.h"
  31
  32 #include <time.h>
  33 #include <stdarg.h>
  34 #include <stdio.h>
  35 #ifdef HAVE_UNISTD_H
  36 # include <unistd.h>
  37 #endif
  38 #include <sys/types.h>
  39
  40 #include "windef.h"
  41 #include "winbase.h"
  42 #include "winreg.h"
  43 #include "winternl.h"
  44 #include "msvcrt.h"
  45
  46 #include "wine/unicode.h"
  47
  48 #include "wine/debug.h"
  49
  50 WINE_DEFAULT_DEBUG_CHANNEL(msvcrt);
  51
  52 /* for stat mode, permissions apply to all,owner and group */
  53 #define ALL_S_IREAD  (MSVCRT__S_IREAD  | (MSVCRT__S_IREAD  >> 3) | (MSVCRT__S_IREAD  >> 6))
  54 #define ALL_S_IWRITE (MSVCRT__S_IWRITE | (MSVCRT__S_IWRITE >> 3) | (MSVCRT__S_IWRITE >> 6))
  55 #define ALL_S_IEXEC  (MSVCRT__S_IEXEC  | (MSVCRT__S_IEXEC  >> 3) | (MSVCRT__S_IEXEC  >> 6))
  56
  57 /* _access() bit flags FIXME: incomplete */
  58 #define MSVCRT_W_OK      0x02
  59
  60 /* values for wxflag in file descriptor */
  61 #define WX_OPEN           0x01
  62 #define WX_ATEOF          0x02
  63 #define WX_DONTINHERIT    0x10
  64 #define WX_APPEND         0x20
  65 #define WX_TEXT           0x80
  66
  67 /* FIXME: this should be allocated dynamically */
  68 #define MSVCRT_MAX_FILES 2048
  69
  70 typedef struct {
  71     HANDLE              handle;
  72     unsigned char       wxflag;
  73     DWORD               unkn[7]; /* critical section and init flag */
  74 } ioinfo;
  75
  76 static ioinfo MSVCRT_fdesc[MSVCRT_MAX_FILES];
  77
  78 MSVCRT_FILE MSVCRT__iob[3];
  79
  80 static int MSVCRT_fdstart = 3; /* first unallocated fd */
  81 static int MSVCRT_fdend = 3; /* highest allocated fd */
  82
  83 static MSVCRT_FILE* MSVCRT_fstreams[2048];
  84 static int   MSVCRT_stream_idx;
  85
  86 /* INTERNAL: process umask */
  87 static int MSVCRT_umask = 0;
  88
  89 /* INTERNAL: Static buffer for temp file name */
  90 static char MSVCRT_tmpname[MAX_PATH];
  91
  92 static const unsigned int EXE = 'e' << 16 | 'x' << 8 | 'e';
  93 static const unsigned int BAT = 'b' << 16 | 'a' << 8 | 't';
  94 static const unsigned int CMD = 'c' << 16 | 'm' << 8 | 'd';
  95 static const unsigned int COM = 'c' << 16 | 'o' << 8 | 'm';
  96
  97 #define TOUL(x) (ULONGLONG)(x)
  98 static const ULONGLONG WCEXE = TOUL('e') << 32 | TOUL('x') << 16 | TOUL('e');
  99 static const ULONGLONG WCBAT = TOUL('b') << 32 | TOUL('a') << 16 | TOUL('t');
 100 static const ULONGLONG WCCMD = TOUL('c') << 32 | TOUL('m') << 16 | TOUL('d');
 101 static const ULONGLONG WCCOM = TOUL('c') << 32 | TOUL('o') << 16 | TOUL('m');
 102
 103 /* This critical section protects the tables MSVCRT_fdesc and MSVCRT_fstreams,
 104  * and their related indexes, MSVCRT_fdstart, MSVCRT_fdend,
 105  * and MSVCRT_stream_idx, from race conditions.
 106  * It doesn't protect against race conditions manipulating the underlying files
 107  * or flags; doing so would probably be better accomplished with per-file
 108  * protection, rather than locking the whole table for every change.
 109  */
 110 static CRITICAL_SECTION MSVCRT_file_cs;
 111 #define LOCK_FILES()    do { EnterCriticalSection(&MSVCRT_file_cs); } while (0)
 112 #define UNLOCK_FILES()  do { LeaveCriticalSection(&MSVCRT_file_cs); } while (0)
 113
 114 static void msvcrt_stat64_to_stat(const struct MSVCRT__stat64 *buf64, struct MSVCRT__stat *buf)
 115 {
 116     buf->st_dev   = buf64->st_dev;
 117     buf->st_ino   = buf64->st_ino;
 118     buf->st_mode  = buf64->st_mode;
 119     buf->st_nlink = buf64->st_nlink;
 120     buf->st_uid   = buf64->st_uid;
 121     buf->st_gid   = buf64->st_gid;
 122     buf->st_rdev  = buf64->st_rdev;
 123     buf->st_size  = buf64->st_size;
 124     buf->st_atime = buf64->st_atime;
 125     buf->st_mtime = buf64->st_mtime;
 126     buf->st_ctime = buf64->st_ctime;
 127 }
 128
 129 static void msvcrt_stat64_to_stati64(const struct MSVCRT__stat64 *buf64, struct MSVCRT__stati64 *buf)
 130 {
 131     buf->st_dev   = buf64->st_dev;
 132     buf->st_ino   = buf64->st_ino;
 133     buf->st_mode  = buf64->st_mode;
 134     buf->st_nlink = buf64->st_nlink;
 135     buf->st_uid   = buf64->st_uid;
 136     buf->st_gid   = buf64->st_gid;
 137     buf->st_rdev  = buf64->st_rdev;
 138     buf->st_size  = buf64->st_size;
 139     buf->st_atime = buf64->st_atime;
 140     buf->st_mtime = buf64->st_mtime;
 141     buf->st_ctime = buf64->st_ctime;
 142 }
 143
 144 static inline BOOL msvcrt_is_valid_fd(int fd)
 145 {
 146   return fd >= 0 && fd < MSVCRT_fdend && (MSVCRT_fdesc[fd].wxflag & WX_OPEN);
 147 }
 148
 149 /* INTERNAL: Get the HANDLE for a fd
 150  * This doesn't lock the table, because a failure will result in
 151  * INVALID_HANDLE_VALUE being returned, which should be handled correctly.  If
 152  * it returns a valid handle which is about to be closed, a subsequent call
 153  * will fail, most likely in a sane way.
 154  */
 155 static HANDLE msvcrt_fdtoh(int fd)
 156 {
 157   if (!msvcrt_is_valid_fd(fd))
 158   {
 159     WARN(":fd (%d) - no handle!\n",fd);
 160     *MSVCRT___doserrno() = 0;
 161     *MSVCRT__errno() = MSVCRT_EBADF;
 162     return INVALID_HANDLE_VALUE;
 163   }
 164   if (MSVCRT_fdesc[fd].handle == INVALID_HANDLE_VALUE) FIXME("wtf\n");
 165   return MSVCRT_fdesc[fd].handle;
 166 }
 167
 168 /* INTERNAL: free a file entry fd */
 169 static void msvcrt_free_fd(int fd)
 170 {
 171   LOCK_FILES();
 172   MSVCRT_fdesc[fd].handle = INVALID_HANDLE_VALUE;
 173   MSVCRT_fdesc[fd].wxflag = 0;
 174   TRACE(":fd (%d) freed\n",fd);
 175   if (fd < 3) /* don't use 0,1,2 for user files */
 176   {
 177     switch (fd)
 178     {
 179     case 0: SetStdHandle(STD_INPUT_HANDLE,  NULL); break;
 180     case 1: SetStdHandle(STD_OUTPUT_HANDLE, NULL); break;
 181     case 2: SetStdHandle(STD_ERROR_HANDLE,  NULL); break;
 182     }
 183   }
 184   else
 185   {
 186     if (fd == MSVCRT_fdend - 1)
 187       MSVCRT_fdend--;
 188     if (fd < MSVCRT_fdstart)
 189       MSVCRT_fdstart = fd;
 190   }
 191   UNLOCK_FILES();
 192 }
 193
 194 /* INTERNAL: Allocate an fd slot from a Win32 HANDLE, starting from fd */
 195 /* caller must hold the files lock */
 196 static int msvcrt_alloc_fd_from(HANDLE hand, int flag, int fd)
 197 {
 198   if (fd >= MSVCRT_MAX_FILES)
 199   {
 200     WARN(":files exhausted!\n");
 201     return -1;
 202   }
 203   MSVCRT_fdesc[fd].handle = hand;
 204   MSVCRT_fdesc[fd].wxflag = WX_OPEN | (flag & (WX_DONTINHERIT | WX_APPEND | WX_TEXT));
 205
 206   /* locate next free slot */
 207   if (fd == MSVCRT_fdstart && fd == MSVCRT_fdend)
 208     MSVCRT_fdstart = MSVCRT_fdend + 1;
 209   else
 210     while (MSVCRT_fdstart < MSVCRT_fdend &&
 211      MSVCRT_fdesc[MSVCRT_fdstart].handle != INVALID_HANDLE_VALUE)
 212       MSVCRT_fdstart++;
 213   /* update last fd in use */
 214   if (fd >= MSVCRT_fdend)
 215     MSVCRT_fdend = fd + 1;
 216   TRACE("fdstart is %d, fdend is %d\n", MSVCRT_fdstart, MSVCRT_fdend);
 217
 218   switch (fd)
 219   {
 220   case 0: SetStdHandle(STD_INPUT_HANDLE,  hand); break;
 221   case 1: SetStdHandle(STD_OUTPUT_HANDLE, hand); break;
 222   case 2: SetStdHandle(STD_ERROR_HANDLE,  hand); break;
 223   }
 224
 225   return fd;
 226 }
 227
 228 /* INTERNAL: Allocate an fd slot from a Win32 HANDLE */
 229 static int msvcrt_alloc_fd(HANDLE hand, int flag)
 230 {
 231   int ret;
 232
 233   LOCK_FILES();
 234   TRACE(":handle (%p) allocating fd (%d)\n",hand,MSVCRT_fdstart);
 235   ret = msvcrt_alloc_fd_from(hand, flag, MSVCRT_fdstart);
 236   UNLOCK_FILES();
 237   return ret;
 238 }
 239
 240 /* INTERNAL: Allocate a FILE* for an fd slot */
 241 /* caller must hold the files lock */
 242 static MSVCRT_FILE* msvcrt_alloc_fp(void)
 243 {
 244   unsigned int i;
 245
 246   for (i = 3; i < sizeof(MSVCRT_fstreams) / sizeof(MSVCRT_fstreams[0]); i++)
 247   {
 248     if (!MSVCRT_fstreams[i] || MSVCRT_fstreams[i]->_flag == 0)
 249     {
 250       if (!MSVCRT_fstreams[i])
 251       {
 252         if (!(MSVCRT_fstreams[i] = MSVCRT_calloc(sizeof(MSVCRT_FILE),1)))
 253           return NULL;
 254         if (i == MSVCRT_stream_idx) MSVCRT_stream_idx++;
 255       }
 256       return MSVCRT_fstreams[i];
 257     }
 258   }
 259   return NULL;
 260 }
 261
 262 /* INTERNAL: initialize a FILE* from an open fd */
 263 static int msvcrt_init_fp(MSVCRT_FILE* file, int fd, unsigned stream_flags)
 264 {
 265   TRACE(":fd (%d) allocating FILE*\n",fd);
 266   if (!msvcrt_is_valid_fd(fd))
 267   {
 268     WARN(":invalid fd %d\n",fd);
 269     *MSVCRT___doserrno() = 0;
 270     *MSVCRT__errno() = MSVCRT_EBADF;
 271     return -1;
 272   }
 273   memset(file, 0, sizeof(*file));
 274   file->_file = fd;
 275   file->_flag = stream_flags;
 276
 277   TRACE(":got FILE* (%p)\n",file);
 278   return 0;
 279 }
 280
 281 /* INTERNAL: Create an inheritance data block (for spawned process)
 282  * The inheritance block is made of:
 283  *      00      int     nb of file descriptor (NBFD)
 284  *      04      char    file flags (wxflag): repeated for each fd
 285  *      4+NBFD  HANDLE  file handle: repeated for each fd
 286  */
 287 unsigned msvcrt_create_io_inherit_block(STARTUPINFOA* si)
 288 {
 289   int         fd;
 290   char*       wxflag_ptr;
 291   HANDLE*     handle_ptr;
 292
 293   si->cbReserved2 = sizeof(unsigned) + (sizeof(char) + sizeof(HANDLE)) * MSVCRT_fdend;
 294   si->lpReserved2 = MSVCRT_calloc(si->cbReserved2, 1);
 295   if (!si->lpReserved2)
 296   {
 297     si->cbReserved2 = 0;
 298     return FALSE;
 299   }
 300   wxflag_ptr = (char*)si->lpReserved2 + sizeof(unsigned);
 301   handle_ptr = (HANDLE*)(wxflag_ptr + MSVCRT_fdend * sizeof(char));
 302
 303   *(unsigned*)si->lpReserved2 = MSVCRT_fdend;
 304   for (fd = 0; fd < MSVCRT_fdend; fd++)
 305   {
 306     /* to be inherited, we need it to be open, and that DONTINHERIT isn't set */
 307     if ((MSVCRT_fdesc[fd].wxflag & (WX_OPEN | WX_DONTINHERIT)) == WX_OPEN)
 308     {
 309       *wxflag_ptr = MSVCRT_fdesc[fd].wxflag;
 310       *handle_ptr = MSVCRT_fdesc[fd].handle;
 311     }
 312     else
 313     {
 314       *wxflag_ptr = 0;
 315       *handle_ptr = INVALID_HANDLE_VALUE;
 316     }
 317     wxflag_ptr++; handle_ptr++;
 318   }
 319   return TRUE;
 320 }
 321
 322 /* INTERNAL: Set up all file descriptors,
 323  * as well as default streams (stdin, stderr and stdout)
 324  */
 325 void msvcrt_init_io(void)
 326 {
 327   STARTUPINFOA  si;
 328   int           i;
 329
 330   InitializeCriticalSection(&MSVCRT_file_cs);
 331   GetStartupInfoA(&si);
 332   if (si.cbReserved2 != 0 && si.lpReserved2 != NULL)
 333   {
 334     char*       wxflag_ptr;
 335     HANDLE*     handle_ptr;
 336
 337     MSVCRT_fdend = *(unsigned*)si.lpReserved2;
 338
 339     wxflag_ptr = (char*)(si.lpReserved2 + sizeof(unsigned));
 340     handle_ptr = (HANDLE*)(wxflag_ptr + MSVCRT_fdend * sizeof(char));
 341
 342     MSVCRT_fdend = min(MSVCRT_fdend, sizeof(MSVCRT_fdesc) / sizeof(MSVCRT_fdesc[0]));
 343     for (i = 0; i < MSVCRT_fdend; i++)
 344     {
 345       if ((*wxflag_ptr & WX_OPEN) && *handle_ptr != INVALID_HANDLE_VALUE)
 346       {
 347         MSVCRT_fdesc[i].wxflag  = *wxflag_ptr;
 348         MSVCRT_fdesc[i].handle = *handle_ptr;
 349       }
 350       else
 351       {
 352         MSVCRT_fdesc[i].wxflag  = 0;
 353         MSVCRT_fdesc[i].handle = INVALID_HANDLE_VALUE;
 354       }
 355       wxflag_ptr++; handle_ptr++;
 356     }
 357     for (MSVCRT_fdstart = 3; MSVCRT_fdstart < MSVCRT_fdend; MSVCRT_fdstart++)
 358         if (MSVCRT_fdesc[MSVCRT_fdstart].handle == INVALID_HANDLE_VALUE) break;
 359   }
 360
 361   if (!(MSVCRT_fdesc[0].wxflag & WX_OPEN) || MSVCRT_fdesc[0].handle == INVALID_HANDLE_VALUE)
 362   {
 363     DuplicateHandle(GetCurrentProcess(), GetStdHandle(STD_INPUT_HANDLE),
 364                     GetCurrentProcess(), &MSVCRT_fdesc[0].handle, 0, TRUE,
 365                     DUPLICATE_SAME_ACCESS);
 366     MSVCRT_fdesc[0].wxflag = WX_OPEN | WX_TEXT;
 367   }
 368   if (!(MSVCRT_fdesc[1].wxflag & WX_OPEN) || MSVCRT_fdesc[1].handle == INVALID_HANDLE_VALUE)
 369   {
 370     DuplicateHandle(GetCurrentProcess(), GetStdHandle(STD_OUTPUT_HANDLE),
 371                     GetCurrentProcess(), &MSVCRT_fdesc[1].handle, 0, TRUE,
 372                     DUPLICATE_SAME_ACCESS);
 373     MSVCRT_fdesc[1].wxflag = WX_OPEN | WX_TEXT;
 374   }
 375   if (!(MSVCRT_fdesc[2].wxflag & WX_OPEN) || MSVCRT_fdesc[2].handle == INVALID_HANDLE_VALUE)
 376   {
 377     DuplicateHandle(GetCurrentProcess(), GetStdHandle(STD_ERROR_HANDLE),
 378                     GetCurrentProcess(), &MSVCRT_fdesc[2].handle, 0, TRUE,
 379                     DUPLICATE_SAME_ACCESS);
 380     MSVCRT_fdesc[2].wxflag = WX_OPEN | WX_TEXT;
 381   }
 382
 383   TRACE(":handles (%p)(%p)(%p)\n",MSVCRT_fdesc[0].handle,
 384         MSVCRT_fdesc[1].handle,MSVCRT_fdesc[2].handle);
 385
 386   memset(MSVCRT__iob,0,3*sizeof(MSVCRT_FILE));
 387   for (i = 0; i < 3; i++)
 388   {
 389     /* FILE structs for stdin/out/err are static and never deleted */
 390     MSVCRT_fstreams[i] = &MSVCRT__iob[i];
 391     MSVCRT__iob[i]._file = i;
 392     MSVCRT__iob[i]._tmpfname = NULL;
 393     MSVCRT__iob[i]._flag = (i == 0) ? MSVCRT__IOREAD : MSVCRT__IOWRT;
 394   }
 395   MSVCRT_stream_idx = 3;
 396 }
 397
 398 /* INTERNAL: Flush stdio file buffer */
 399 static int msvcrt_flush_buffer(MSVCRT_FILE* file)
 400 {
 401   if(file->_bufsiz) {
 402         int cnt=file->_ptr-file->_base;
 403         if(cnt>0 && _write(file->_file, file->_base, cnt) != cnt) {
 404             file->_flag |= MSVCRT__IOERR;
 405             return MSVCRT_EOF;
 406         }
 407         file->_ptr=file->_base;
 408         file->_cnt=file->_bufsiz;
 409   }
 410   return 0;
 411 }
 412
 413 /* INTERNAL: Allocate stdio file buffer */
 414 static void msvcrt_alloc_buffer(MSVCRT_FILE* file)
 415 {
 416         file->_base = MSVCRT_calloc(MSVCRT_BUFSIZ,1);
 417         if(file->_base) {
 418                 file->_bufsiz = MSVCRT_BUFSIZ;
 419                 file->_flag |= MSVCRT__IOMYBUF;
 420         } else {
 421                 file->_base = (char*)(&file->_charbuf);
 422                 /* put here 2 ??? */
 423                 file->_bufsiz = sizeof(file->_charbuf);
 424         }
 425         file->_ptr = file->_base;
 426         file->_cnt = 0;
 427 }
 428
 429 /* INTERNAL: Convert integer to base32 string (0-9a-v), 0 becomes "" */
 430 static void msvcrt_int_to_base32(int num, char *str)
 431 {
 432   char *p;
 433   int n = num;
 434   int digits = 0;
 435
 436   while (n != 0)
 437   {
 438     n >>= 5;
 439     digits++;
 440   }
 441   p = str + digits;
 442   *p = 0;
 443   while (--p >= str)
 444   {
 445     *p = (num & 31) + '0';
 446     if (*p > '9')
 447       *p += ('a' - '0' - 10);
 448     num >>= 5;
 449   }
 450 }
 451
 452 /*********************************************************************
 453  *              __p__iob(MSVCRT.@)
 454  */
 455 MSVCRT_FILE * CDECL __p__iob(void)
 456 {
 457  return &MSVCRT__iob[0];
 458 }
 459
 460 /*********************************************************************
 461  *              _access (MSVCRT.@)
 462  */
 463 int CDECL _access(const char *filename, int mode)
 464 {
 465   DWORD attr = GetFileAttributesA(filename);
 466
 467   TRACE("(%s,%d) %d\n",filename,mode,attr);
 468
 469   if (!filename || attr == INVALID_FILE_ATTRIBUTES)
 470   {
 471     msvcrt_set_errno(GetLastError());
 472     return -1;
 473   }
 474   if ((attr & FILE_ATTRIBUTE_READONLY) && (mode & MSVCRT_W_OK))
 475   {
 476     msvcrt_set_errno(ERROR_ACCESS_DENIED);
 477     return -1;
 478   }
 479   return 0;
 480 }
 481
 482 /*********************************************************************
 483  *              _waccess (MSVCRT.@)
 484  */
 485 int CDECL _waccess(const MSVCRT_wchar_t *filename, int mode)
 486 {
 487   DWORD attr = GetFileAttributesW(filename);
 488
 489   TRACE("(%s,%d) %d\n",debugstr_w(filename),mode,attr);
 490
 491   if (!filename || attr == INVALID_FILE_ATTRIBUTES)
 492   {
 493     msvcrt_set_errno(GetLastError());
 494     return -1;
 495   }
 496   if ((attr & FILE_ATTRIBUTE_READONLY) && (mode & MSVCRT_W_OK))
 497   {
 498     msvcrt_set_errno(ERROR_ACCESS_DENIED);
 499     return -1;
 500   }
 501   return 0;
 502 }
 503
 504 /*********************************************************************
 505  *              _chmod (MSVCRT.@)
 506  */
 507 int CDECL _chmod(const char *path, int flags)
 508 {
 509   DWORD oldFlags = GetFileAttributesA(path);
 510
 511   if (oldFlags != INVALID_FILE_ATTRIBUTES)
 512   {
 513     DWORD newFlags = (flags & MSVCRT__S_IWRITE)? oldFlags & ~FILE_ATTRIBUTE_READONLY:
 514       oldFlags | FILE_ATTRIBUTE_READONLY;
 515
 516     if (newFlags == oldFlags || SetFileAttributesA(path, newFlags))
 517       return 0;
 518   }
 519   msvcrt_set_errno(GetLastError());
 520   return -1;
 521 }
 522
 523 /*********************************************************************
 524  *              _wchmod (MSVCRT.@)
 525  */
 526 int CDECL _wchmod(const MSVCRT_wchar_t *path, int flags)
 527 {
 528   DWORD oldFlags = GetFileAttributesW(path);
 529
 530   if (oldFlags != INVALID_FILE_ATTRIBUTES)
 531   {
 532     DWORD newFlags = (flags & MSVCRT__S_IWRITE)? oldFlags & ~FILE_ATTRIBUTE_READONLY:
 533       oldFlags | FILE_ATTRIBUTE_READONLY;
 534
 535     if (newFlags == oldFlags || SetFileAttributesW(path, newFlags))
 536       return 0;
 537   }
 538   msvcrt_set_errno(GetLastError());
 539   return -1;
 540 }
 541
 542 /*********************************************************************
 543  *              _unlink (MSVCRT.@)
 544  */
 545 int CDECL _unlink(const char *path)
 546 {
 547   TRACE("%s\n",debugstr_a(path));
 548   if(DeleteFileA(path))
 549     return 0;
 550   TRACE("failed (%d)\n",GetLastError());
 551   msvcrt_set_errno(GetLastError());
 552   return -1;
 553 }
 554
 555 /*********************************************************************
 556  *              _wunlink (MSVCRT.@)
 557  */
 558 int CDECL _wunlink(const MSVCRT_wchar_t *path)
 559 {
 560   TRACE("(%s)\n",debugstr_w(path));
 561   if(DeleteFileW(path))
 562     return 0;
 563   TRACE("failed (%d)\n",GetLastError());
 564   msvcrt_set_errno(GetLastError());
 565   return -1;
 566 }
 567
 568 /* _flushall calls MSVCRT_fflush which calls _flushall */
 569 int CDECL MSVCRT_fflush(MSVCRT_FILE* file);
 570
 571 /*********************************************************************
 572  *              _flushall (MSVCRT.@)
 573  */
 574 int CDECL _flushall(void)
 575 {
 576   int i, num_flushed = 0;
 577
 578   LOCK_FILES();
 579   for (i = 3; i < MSVCRT_stream_idx; i++)
 580     if (MSVCRT_fstreams[i] && MSVCRT_fstreams[i]->_flag)
 581     {
 582 #if 0
 583       /* FIXME: flush, do not commit */
 584       if (_commit(i) == -1)
 585         if (MSVCRT_fstreams[i])
 586           MSVCRT_fstreams[i]->_flag |= MSVCRT__IOERR;
 587 #endif
 588       if(MSVCRT_fstreams[i]->_flag & MSVCRT__IOWRT) {
 589         MSVCRT_fflush(MSVCRT_fstreams[i]);
 590         num_flushed++;
 591       }
 592     }
 593   UNLOCK_FILES();
 594
 595   TRACE(":flushed (%d) handles\n",num_flushed);
 596   return num_flushed;
 597 }
 598
 599 /*********************************************************************
 600  *              fflush (MSVCRT.@)
 601  */
 602 int CDECL MSVCRT_fflush(MSVCRT_FILE* file)
 603 {
 604   if(!file) {
 605         _flushall();
 606   } else if(file->_flag & MSVCRT__IOWRT) {
 607         int res=msvcrt_flush_buffer(file);
 608         return res;
 609   }
 610   return 0;
 611 }
 612
 613 /*********************************************************************
 614  *              _close (MSVCRT.@)
 615  */
 616 int CDECL _close(int fd)
 617 {
 618   HANDLE hand;
 619   int ret;
 620
 621   LOCK_FILES();
 622   hand = msvcrt_fdtoh(fd);
 623   TRACE(":fd (%d) handle (%p)\n",fd,hand);
 624   if (hand == INVALID_HANDLE_VALUE)
 625     ret = -1;
 626   else if (!CloseHandle(hand))
 627   {
 628     WARN(":failed-last error (%d)\n",GetLastError());
 629     msvcrt_set_errno(GetLastError());
 630     ret = -1;
 631   }
 632   else
 633   {
 634     msvcrt_free_fd(fd);
 635     ret = 0;
 636   }
 637   UNLOCK_FILES();
 638   TRACE(":ok\n");
 639   return ret;
 640 }
 641
 642 /*********************************************************************
 643  *              _commit (MSVCRT.@)
 644  */
 645 int CDECL _commit(int fd)
 646 {
 647   HANDLE hand = msvcrt_fdtoh(fd);
 648
 649   TRACE(":fd (%d) handle (%p)\n",fd,hand);
 650   if (hand == INVALID_HANDLE_VALUE)
 651     return -1;
 652
 653   if (!FlushFileBuffers(hand))
 654   {
 655     if (GetLastError() == ERROR_INVALID_HANDLE)
 656     {
 657       /* FlushFileBuffers fails for console handles
 658        * so we ignore this error.
 659        */
 660       return 0;
 661     }
 662     TRACE(":failed-last error (%d)\n",GetLastError());
 663     msvcrt_set_errno(GetLastError());
 664     return -1;
 665   }
 666   TRACE(":ok\n");
 667   return 0;
 668 }
 669
 670 /*********************************************************************
 671  *              _dup2 (MSVCRT.@)
 672  * NOTES
 673  * MSDN isn't clear on this point, but the remarks for _pipe,
 674  * http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vclib/html/_crt__pipe.asp
 675  * indicate file descriptors duplicated with _dup and _dup2 are always
 676  * inheritable.
 677  */
 678 int CDECL _dup2(int od, int nd)
 679 {
 680   int ret;
 681
 682   TRACE("(od=%d, nd=%d)\n", od, nd);
 683   LOCK_FILES();
 684   if (nd < MSVCRT_MAX_FILES && msvcrt_is_valid_fd(od))
 685   {
 686     HANDLE handle;
 687
 688     if (DuplicateHandle(GetCurrentProcess(), MSVCRT_fdesc[od].handle,
 689      GetCurrentProcess(), &handle, 0, TRUE, DUPLICATE_SAME_ACCESS))
 690     {
 691       int wxflag = MSVCRT_fdesc[od].wxflag & ~MSVCRT__O_NOINHERIT;
 692
 693       if (msvcrt_is_valid_fd(nd))
 694         _close(nd);
 695       ret = msvcrt_alloc_fd_from(handle, wxflag, nd);
 696       if (ret == -1)
 697       {
 698         CloseHandle(handle);
 699         *MSVCRT__errno() = MSVCRT_EMFILE;
 700       }
 701       else
 702       {
 703         /* _dup2 returns 0, not nd, on success */
 704         ret = 0;
 705       }
 706     }
 707     else
 708     {
 709       ret = -1;
 710       msvcrt_set_errno(GetLastError());
 711     }
 712   }
 713   else
 714   {
 715     *MSVCRT__errno() = MSVCRT_EBADF;
 716     ret = -1;
 717   }
 718   UNLOCK_FILES();
 719   return ret;
 720 }
 721
 722 /*********************************************************************
 723  *              _dup (MSVCRT.@)
 724  */
 725 int CDECL _dup(int od)
 726 {
 727   int fd, ret;
 728
 729   LOCK_FILES();
 730   fd = MSVCRT_fdstart;
 731   if (_dup2(od, fd) == 0)
 732     ret = fd;
 733   else
 734     ret = -1;
 735   UNLOCK_FILES();
 736   return ret;
 737 }
 738
 739 /*********************************************************************
 740  *              _eof (MSVCRT.@)
 741  */
 742 int CDECL _eof(int fd)
 743 {
 744   DWORD curpos,endpos;
 745   LONG hcurpos,hendpos;
 746   HANDLE hand = msvcrt_fdtoh(fd);
 747
 748   TRACE(":fd (%d) handle (%p)\n",fd,hand);
 749
 750   if (hand == INVALID_HANDLE_VALUE)
 751     return -1;
 752
 753   if (MSVCRT_fdesc[fd].wxflag & WX_ATEOF) return TRUE;
 754
 755   /* Otherwise we do it the hard way */
 756   hcurpos = hendpos = 0;
 757   curpos = SetFilePointer(hand, 0, &hcurpos, FILE_CURRENT);
 758   endpos = SetFilePointer(hand, 0, &hendpos, FILE_END);
 759
 760   if (curpos == endpos && hcurpos == hendpos)
 761   {
 762     /* FIXME: shouldn't WX_ATEOF be set here? */
 763     return TRUE;
 764   }
 765
 766   SetFilePointer(hand, curpos, &hcurpos, FILE_BEGIN);
 767   return FALSE;
 768 }
 769
 770 /*********************************************************************
 771  *              _fcloseall (MSVCRT.@)
 772  */
 773 int CDECL MSVCRT__fcloseall(void)
 774 {
 775   int num_closed = 0, i;
 776
 777   LOCK_FILES();
 778   for (i = 3; i < MSVCRT_stream_idx; i++)
 779     if (MSVCRT_fstreams[i] && MSVCRT_fstreams[i]->_flag &&
 780         !MSVCRT_fclose(MSVCRT_fstreams[i]))
 781       num_closed++;
 782   UNLOCK_FILES();
 783
 784   TRACE(":closed (%d) handles\n",num_closed);
 785   return num_closed;
 786 }
 787
 788 /* free everything on process exit */
 789 void msvcrt_free_io(void)
 790 {
 791     MSVCRT__fcloseall();
 792     /* The Win32 _fcloseall() function explicitly doesn't close stdin,
 793      * stdout, and stderr (unlike GNU), so we need to fclose() them here
 794      * or they won't get flushed.
 795      */
 796     MSVCRT_fclose(&MSVCRT__iob[0]);
 797     MSVCRT_fclose(&MSVCRT__iob[1]);
 798     MSVCRT_fclose(&MSVCRT__iob[2]);
 799     DeleteCriticalSection(&MSVCRT_file_cs);
 800 }
 801
 802 /*********************************************************************
 803  *              _lseeki64 (MSVCRT.@)
 804  */
 805 __int64 CDECL _lseeki64(int fd, __int64 offset, int whence)
 806 {
 807   HANDLE hand = msvcrt_fdtoh(fd);
 808   LARGE_INTEGER ofs, ret;
 809
 810   TRACE(":fd (%d) handle (%p)\n",fd,hand);
 811   if (hand == INVALID_HANDLE_VALUE)
 812     return -1;
 813
 814   if (whence < 0 || whence > 2)
 815   {
 816     *MSVCRT__errno() = MSVCRT_EINVAL;
 817     return -1;
 818   }
 819
 820   TRACE(":fd (%d) to %s pos %s\n",
 821         fd,wine_dbgstr_longlong(offset),
 822         (whence==SEEK_SET)?"SEEK_SET":
 823         (whence==SEEK_CUR)?"SEEK_CUR":
 824         (whence==SEEK_END)?"SEEK_END":"UNKNOWN");
 825
 826   ofs.QuadPart = offset;
 827   if (SetFilePointerEx(hand, ofs, &ret, whence))
 828   {
 829     MSVCRT_fdesc[fd].wxflag &= ~WX_ATEOF;
 830     /* FIXME: What if we seek _to_ EOF - is EOF set? */
 831
 832     return ret.QuadPart;
 833   }
 834   TRACE(":error-last error (%d)\n",GetLastError());
 835   msvcrt_set_errno(GetLastError());
 836   return -1;
 837 }
 838
 839 /*********************************************************************
 840  *              _lseek (MSVCRT.@)
 841  */
 842 LONG CDECL _lseek(int fd, LONG offset, int whence)
 843 {
 844     return _lseeki64(fd, offset, whence);
 845 }
 846
 847 /*********************************************************************
 848  *              _locking (MSVCRT.@)
 849  *
 850  * This is untested; the underlying LockFile doesn't work yet.
 851  */
 852 int CDECL _locking(int fd, int mode, LONG nbytes)
 853 {
 854   BOOL ret;
 855   DWORD cur_locn;
 856   HANDLE hand = msvcrt_fdtoh(fd);
 857
 858   TRACE(":fd (%d) handle (%p)\n",fd,hand);
 859   if (hand == INVALID_HANDLE_VALUE)
 860     return -1;
 861
 862   if (mode < 0 || mode > 4)
 863   {
 864     *MSVCRT__errno() = MSVCRT_EINVAL;
 865     return -1;
 866   }
 867
 868   TRACE(":fd (%d) by 0x%08x mode %s\n",
 869         fd,nbytes,(mode==MSVCRT__LK_UNLCK)?"_LK_UNLCK":
 870         (mode==MSVCRT__LK_LOCK)?"_LK_LOCK":
 871         (mode==MSVCRT__LK_NBLCK)?"_LK_NBLCK":
 872         (mode==MSVCRT__LK_RLCK)?"_LK_RLCK":
 873         (mode==MSVCRT__LK_NBRLCK)?"_LK_NBRLCK":
 874                           "UNKNOWN");
 875
 876   if ((cur_locn = SetFilePointer(hand, 0L, NULL, SEEK_CUR)) == INVALID_SET_FILE_POINTER)
 877   {
 878     FIXME ("Seek failed\n");
 879     *MSVCRT__errno() = MSVCRT_EINVAL; /* FIXME */
 880     return -1;
 881   }
 882   if (mode == MSVCRT__LK_LOCK || mode == MSVCRT__LK_RLCK)
 883   {
 884     int nretry = 10;
 885     ret = 1; /* just to satisfy gcc */
 886     while (nretry--)
 887     {
 888       ret = LockFile(hand, cur_locn, 0L, nbytes, 0L);
 889       if (ret) break;
 890       Sleep(1);
 891     }
 892   }
 893   else if (mode == MSVCRT__LK_UNLCK)
 894     ret = UnlockFile(hand, cur_locn, 0L, nbytes, 0L);
 895   else
 896     ret = LockFile(hand, cur_locn, 0L, nbytes, 0L);
 897   /* FIXME - what about error settings? */
 898   return ret ? 0 : -1;
 899 }
 900
 901 /*********************************************************************
 902  *              fseek (MSVCRT.@)
 903  */
 904 int CDECL MSVCRT_fseek(MSVCRT_FILE* file, long offset, int whence)
 905 {
 906   /* Flush output if needed */
 907   if(file->_flag & MSVCRT__IOWRT)
 908         msvcrt_flush_buffer(file);
 909
 910   if(whence == SEEK_CUR && file->_flag & MSVCRT__IOREAD ) {
 911         offset -= file->_cnt;
 912   }
 913   /* Discard buffered input */
 914   file->_cnt = 0;
 915   file->_ptr = file->_base;
 916   /* Reset direction of i/o */
 917   if(file->_flag & MSVCRT__IORW) {
 918         file->_flag &= ~(MSVCRT__IOREAD|MSVCRT__IOWRT);
 919   }
 920   return (_lseek(file->_file,offset,whence) == -1)?-1:0;
 921 }
 922
 923 /*********************************************************************
 924  *              _chsize (MSVCRT.@)
 925  */
 926 int CDECL _chsize(int fd, long size)
 927 {
 928     LONG cur, pos;
 929     HANDLE handle;
 930     BOOL ret = FALSE;
 931
 932     TRACE("(fd=%d, size=%ld)\n", fd, size);
 933
 934     LOCK_FILES();
 935
 936     handle = msvcrt_fdtoh(fd);
 937     if (handle != INVALID_HANDLE_VALUE)
 938     {
 939         /* save the current file pointer */
 940         cur = _lseek(fd, 0, SEEK_CUR);
 941         if (cur >= 0)
 942         {
 943             pos = _lseek(fd, size, SEEK_SET);
 944             if (pos >= 0)
 945             {
 946                 ret = SetEndOfFile(handle);
 947                 if (!ret) msvcrt_set_errno(GetLastError());
 948             }
 949
 950             /* restore the file pointer */
 951             _lseek(fd, cur, SEEK_SET);
 952         }
 953     }
 954
 955     UNLOCK_FILES();
 956     return ret ? 0 : -1;
 957 }
 958
 959 /*********************************************************************
 960  *              clearerr (MSVCRT.@)
 961  */
 962 void CDECL MSVCRT_clearerr(MSVCRT_FILE* file)
 963 {
 964   TRACE(":file (%p) fd (%d)\n",file,file->_file);
 965   file->_flag &= ~(MSVCRT__IOERR | MSVCRT__IOEOF);
 966 }
 967
 968 /*********************************************************************
 969  *              rewind (MSVCRT.@)
 970  */
 971 void CDECL MSVCRT_rewind(MSVCRT_FILE* file)
 972 {
 973   TRACE(":file (%p) fd (%d)\n",file,file->_file);
 974   MSVCRT_fseek(file, 0L, SEEK_SET);
 975   MSVCRT_clearerr(file);
 976 }
 977
 978 static int msvcrt_get_flags(const char* mode, int *open_flags, int* stream_flags)
 979 {
 980   int plus = strchr(mode, '+') != NULL;
 981
 982   switch(*mode++)
 983   {
 984   case 'R': case 'r':
 985     *open_flags = plus ? MSVCRT__O_RDWR : MSVCRT__O_RDONLY;
 986     *stream_flags = plus ? MSVCRT__IORW : MSVCRT__IOREAD;
 987     break;
 988   case 'W': case 'w':
 989     *open_flags = MSVCRT__O_CREAT | MSVCRT__O_TRUNC | (plus  ? MSVCRT__O_RDWR : MSVCRT__O_WRONLY);
 990     *stream_flags = plus ? MSVCRT__IORW : MSVCRT__IOWRT;
 991     break;
 992   case 'A': case 'a':
 993     *open_flags = MSVCRT__O_CREAT | MSVCRT__O_APPEND | (plus  ? MSVCRT__O_RDWR : MSVCRT__O_WRONLY);
 994     *stream_flags = plus ? MSVCRT__IORW : MSVCRT__IOWRT;
 995     break;
 996   default:
 997     return -1;
 998   }
 999
1000   while (*mode)
1001     switch (*mode++)
1002     {
1003     case 'B': case 'b':
1004       *open_flags |=  MSVCRT__O_BINARY;
1005       *open_flags &= ~MSVCRT__O_TEXT;
1006       break;
1007     case 'T': case 't':
1008       *open_flags |=  MSVCRT__O_TEXT;
1009       *open_flags &= ~MSVCRT__O_BINARY;
1010       break;
1011     case '+':
1012       break;
1013     default:
1014       FIXME(":unknown flag %c not supported\n",mode[-1]);
1015     }
1016   return 0;
1017 }
1018
1019 /*********************************************************************
1020  *              _fdopen (MSVCRT.@)
1021  */
1022 MSVCRT_FILE* CDECL MSVCRT__fdopen(int fd, const char *mode)
1023 {
1024   int open_flags, stream_flags;
1025   MSVCRT_FILE* file;
1026
1027   if (msvcrt_get_flags(mode, &open_flags, &stream_flags) == -1) return NULL;
1028
1029   LOCK_FILES();
1030   if (!(file = msvcrt_alloc_fp()))
1031     file = NULL;
1032   else if (msvcrt_init_fp(file, fd, stream_flags) == -1)
1033   {
1034     file->_flag = 0;
1035     file = NULL;
1036   }
1037   else TRACE(":fd (%d) mode (%s) FILE* (%p)\n",fd,mode,file);
1038   UNLOCK_FILES();
1039
1040   return file;
1041 }
1042
1043 /*********************************************************************
1044  *              _wfdopen (MSVCRT.@)
1045  */
1046 MSVCRT_FILE* CDECL MSVCRT__wfdopen(int fd, const MSVCRT_wchar_t *mode)
1047 {
1048   unsigned mlen = strlenW(mode);
1049   char *modea = MSVCRT_calloc(mlen + 1, 1);
1050   MSVCRT_FILE* file = NULL;
1051   int open_flags, stream_flags;
1052
1053   if (modea &&
1054       WideCharToMultiByte(CP_ACP,0,mode,mlen,modea,mlen,NULL,NULL))
1055   {
1056       if (msvcrt_get_flags(modea, &open_flags, &stream_flags) == -1) return NULL;
1057       LOCK_FILES();
1058       if (!(file = msvcrt_alloc_fp()))
1059         file = NULL;
1060       else if (msvcrt_init_fp(file, fd, stream_flags) == -1)
1061       {
1062         file->_flag = 0;
1063         file = NULL;
1064       }
1065       else
1066       {
1067         if (file)
1068           MSVCRT_rewind(file); /* FIXME: is this needed ??? */
1069         TRACE(":fd (%d) mode (%s) FILE* (%p)\n",fd,debugstr_w(mode),file);
1070       }
1071       UNLOCK_FILES();
1072   }
1073   return file;
1074 }
1075
1076 /*********************************************************************
1077  *              _filelength (MSVCRT.@)
1078  */
1079 LONG CDECL _filelength(int fd)
1080 {
1081   LONG curPos = _lseek(fd, 0, SEEK_CUR);
1082   if (curPos != -1)
1083   {
1084     LONG endPos = _lseek(fd, 0, SEEK_END);
1085     if (endPos != -1)
1086     {
1087       if (endPos != curPos)
1088         _lseek(fd, curPos, SEEK_SET);
1089       return endPos;
1090     }
1091   }
1092   return -1;
1093 }
1094
1095 /*********************************************************************
1096  *              _filelengthi64 (MSVCRT.@)
1097  */
1098 __int64 CDECL _filelengthi64(int fd)
1099 {
1100   __int64 curPos = _lseeki64(fd, 0, SEEK_CUR);
1101   if (curPos != -1)
1102   {
1103     __int64 endPos = _lseeki64(fd, 0, SEEK_END);
1104     if (endPos != -1)
1105     {
1106       if (endPos != curPos)
1107         _lseeki64(fd, curPos, SEEK_SET);
1108       return endPos;
1109     }
1110   }
1111   return -1;
1112 }
1113
1114 /*********************************************************************
1115  *              _fileno (MSVCRT.@)
1116  */
1117 int CDECL MSVCRT__fileno(MSVCRT_FILE* file)
1118 {
1119   TRACE(":FILE* (%p) fd (%d)\n",file,file->_file);
1120   return file->_file;
1121 }
1122
1123 /*********************************************************************
1124  *              _fstat64 (MSVCRT.@)
1125  */
1126 int CDECL MSVCRT__fstat64(int fd, struct MSVCRT__stat64* buf)
1127 {
1128   DWORD dw;
1129   DWORD type;
1130   BY_HANDLE_FILE_INFORMATION hfi;
1131   HANDLE hand = msvcrt_fdtoh(fd);
1132
1133   TRACE(":fd (%d) stat (%p)\n",fd,buf);
1134   if (hand == INVALID_HANDLE_VALUE)
1135     return -1;
1136
1137   if (!buf)
1138   {
1139     WARN(":failed-NULL buf\n");
1140     msvcrt_set_errno(ERROR_INVALID_PARAMETER);
1141     return -1;
1142   }
1143
1144   memset(&hfi, 0, sizeof(hfi));
1145   memset(buf, 0, sizeof(struct MSVCRT__stat64));
1146   type = GetFileType(hand);
1147   if (type == FILE_TYPE_PIPE)
1148   {
1149     buf->st_dev = buf->st_rdev = fd;
1150     buf->st_mode = S_IFIFO;
1151     buf->st_nlink = 1;
1152   }
1153   else if (type == FILE_TYPE_CHAR)
1154   {
1155     buf->st_dev = buf->st_rdev = fd;
1156     buf->st_mode = S_IFCHR;
1157     buf->st_nlink = 1;
1158   }
1159   else /* FILE_TYPE_DISK etc. */
1160   {
1161     if (!GetFileInformationByHandle(hand, &hfi))
1162     {
1163       WARN(":failed-last error (%d)\n",GetLastError());
1164       msvcrt_set_errno(ERROR_INVALID_PARAMETER);
1165       return -1;
1166     }
1167     buf->st_mode = S_IFREG | S_IREAD;
1168     if (!(hfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY))
1169       buf->st_mode |= S_IWRITE;
1170     buf->st_size  = ((__int64)hfi.nFileSizeHigh << 32) + hfi.nFileSizeLow;
1171     RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastAccessTime, &dw);
1172     buf->st_atime = dw;
1173     RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastWriteTime, &dw);
1174     buf->st_mtime = buf->st_ctime = dw;
1175     buf->st_nlink = hfi.nNumberOfLinks;
1176   }
1177   TRACE(":dwFileAttributes = 0x%x, mode set to 0x%x\n",hfi.dwFileAttributes,
1178    buf->st_mode);
1179   return 0;
1180 }
1181
1182 /*********************************************************************
1183  *              _fstati64 (MSVCRT.@)
1184  */
1185 int CDECL MSVCRT__fstati64(int fd, struct MSVCRT__stati64* buf)
1186 {
1187   int ret;
1188   struct MSVCRT__stat64 buf64;
1189
1190   ret = MSVCRT__fstat64(fd, &buf64);
1191   if (!ret)
1192     msvcrt_stat64_to_stati64(&buf64, buf);
1193   return ret;
1194 }
1195
1196 /*********************************************************************
1197  *              _fstat (MSVCRT.@)
1198  */
1199 int CDECL MSVCRT__fstat(int fd, struct MSVCRT__stat* buf)
1200 { int ret;
1201   struct MSVCRT__stat64 buf64;
1202
1203   ret = MSVCRT__fstat64(fd, &buf64);
1204   if (!ret)
1205       msvcrt_stat64_to_stat(&buf64, buf);
1206   return ret;
1207 }
1208
1209 /*********************************************************************
1210  *              _futime (MSVCRT.@)
1211  */
1212 int CDECL _futime(int fd, struct MSVCRT__utimbuf *t)
1213 {
1214   HANDLE hand = msvcrt_fdtoh(fd);
1215   FILETIME at, wt;
1216
1217   if (!t)
1218   {
1219     MSVCRT_time_t currTime;
1220     MSVCRT_time(&currTime);
1221     RtlSecondsSince1970ToTime(currTime, (LARGE_INTEGER *)&at);
1222     memcpy(&wt, &at, sizeof(wt));
1223   }
1224   else
1225   {
1226     RtlSecondsSince1970ToTime(t->actime, (LARGE_INTEGER *)&at);
1227     if (t->actime == t->modtime)
1228       memcpy(&wt, &at, sizeof(wt));
1229     else
1230       RtlSecondsSince1970ToTime(t->modtime, (LARGE_INTEGER *)&wt);
1231   }
1232
1233   if (!SetFileTime(hand, NULL, &at, &wt))
1234   {
1235     msvcrt_set_errno(GetLastError());
1236     return -1 ;
1237   }
1238   return 0;
1239 }
1240
1241 /*********************************************************************
1242  *              _get_osfhandle (MSVCRT.@)
1243  */
1244 long CDECL _get_osfhandle(int fd)
1245 {
1246   HANDLE hand = msvcrt_fdtoh(fd);
1247   TRACE(":fd (%d) handle (%p)\n",fd,hand);
1248
1249   return (long)hand;
1250 }
1251
1252 /*********************************************************************
1253  *              _isatty (MSVCRT.@)
1254  */
1255 int CDECL _isatty(int fd)
1256 {
1257   HANDLE hand = msvcrt_fdtoh(fd);
1258
1259   TRACE(":fd (%d) handle (%p)\n",fd,hand);
1260   if (hand == INVALID_HANDLE_VALUE)
1261     return 0;
1262
1263   return GetFileType(hand) == FILE_TYPE_CHAR? 1 : 0;
1264 }
1265
1266 /*********************************************************************
1267  *              _mktemp (MSVCRT.@)
1268  */
1269 char * CDECL _mktemp(char *pattern)
1270 {
1271   int numX = 0;
1272   char *retVal = pattern;
1273   int id;
1274   char letter = 'a';
1275
1276   while(*pattern)
1277     numX = (*pattern++ == 'X')? numX + 1 : 0;
1278   if (numX < 5)
1279     return NULL;
1280   pattern--;
1281   id = GetCurrentProcessId();
1282   numX = 6;
1283   while(numX--)
1284   {
1285     int tempNum = id / 10;
1286     *pattern-- = id - (tempNum * 10) + '0';
1287     id = tempNum;
1288   }
1289   pattern++;
1290   do
1291   {
1292     *pattern = letter++;
1293     if (GetFileAttributesA(retVal) == INVALID_FILE_ATTRIBUTES &&
1294         GetLastError() == ERROR_FILE_NOT_FOUND)
1295       return retVal;
1296   } while(letter <= 'z');
1297   return NULL;
1298 }
1299
1300 /*********************************************************************
1301  *              _wmktemp (MSVCRT.@)
1302  */
1303 MSVCRT_wchar_t * CDECL _wmktemp(MSVCRT_wchar_t *pattern)
1304 {
1305   int numX = 0;
1306   MSVCRT_wchar_t *retVal = pattern;
1307   int id;
1308   MSVCRT_wchar_t letter = 'a';
1309
1310   while(*pattern)
1311     numX = (*pattern++ == 'X')? numX + 1 : 0;
1312   if (numX < 5)
1313     return NULL;
1314   pattern--;
1315   id = GetCurrentProcessId();
1316   numX = 6;
1317   while(numX--)
1318   {
1319     int tempNum = id / 10;
1320     *pattern-- = id - (tempNum * 10) + '0';
1321     id = tempNum;
1322   }
1323   pattern++;
1324   do
1325   {
1326     if (GetFileAttributesW(retVal) == INVALID_FILE_ATTRIBUTES &&
1327         GetLastError() == ERROR_FILE_NOT_FOUND)
1328       return retVal;
1329     *pattern = letter++;
1330   } while(letter != '|');
1331   return NULL;
1332 }
1333
1334 static unsigned split_oflags(unsigned oflags)
1335 {
1336     int         wxflags = 0;
1337     unsigned unsupp; /* until we support everything */
1338
1339     if (oflags & MSVCRT__O_APPEND)              wxflags |= WX_APPEND;
1340     if (oflags & MSVCRT__O_BINARY)              {/* Nothing to do */}
1341     else if (oflags & MSVCRT__O_TEXT)           wxflags |= WX_TEXT;
1342     else if (*__p__fmode() & MSVCRT__O_BINARY)  {/* Nothing to do */}
1343     else                                        wxflags |= WX_TEXT; /* default to TEXT*/
1344     if (oflags & MSVCRT__O_NOINHERIT)           wxflags |= WX_DONTINHERIT;
1345
1346     if ((unsupp = oflags & ~(
1347                     MSVCRT__O_BINARY|MSVCRT__O_TEXT|MSVCRT__O_APPEND|
1348                     MSVCRT__O_TRUNC|MSVCRT__O_EXCL|MSVCRT__O_CREAT|
1349                     MSVCRT__O_RDWR|MSVCRT__O_WRONLY|MSVCRT__O_TEMPORARY|
1350                     MSVCRT__O_NOINHERIT|
1351                     MSVCRT__O_SEQUENTIAL|MSVCRT__O_RANDOM|MSVCRT__O_SHORT_LIVED
1352                     )))
1353         ERR(":unsupported oflags 0x%04x\n",unsupp);
1354
1355     return wxflags;
1356 }
1357
1358 /*********************************************************************
1359  *              _pipe (MSVCRT.@)
1360  */
1361 int CDECL _pipe(int *pfds, unsigned int psize, int textmode)
1362 {
1363   int ret = -1;
1364   SECURITY_ATTRIBUTES sa;
1365   HANDLE readHandle, writeHandle;
1366
1367   if (!pfds)
1368   {
1369     *MSVCRT__errno() = MSVCRT_EINVAL;
1370     return -1;
1371   }
1372
1373   sa.nLength = sizeof(SECURITY_ATTRIBUTES);
1374   sa.bInheritHandle = !(textmode & MSVCRT__O_NOINHERIT);
1375   sa.lpSecurityDescriptor = NULL;
1376   if (CreatePipe(&readHandle, &writeHandle, &sa, psize))
1377   {
1378     unsigned int wxflags = split_oflags(textmode);
1379     int fd;
1380
1381     LOCK_FILES();
1382     fd = msvcrt_alloc_fd(readHandle, wxflags);
1383     if (fd != -1)
1384     {
1385       pfds[0] = fd;
1386       fd = msvcrt_alloc_fd(writeHandle, wxflags);
1387       if (fd != -1)
1388       {
1389         pfds[1] = fd;
1390         ret = 0;
1391       }
1392       else
1393       {
1394         _close(pfds[0]);
1395         CloseHandle(writeHandle);
1396         *MSVCRT__errno() = MSVCRT_EMFILE;
1397       }
1398     }
1399     else
1400     {
1401       CloseHandle(readHandle);
1402       CloseHandle(writeHandle);
1403       *MSVCRT__errno() = MSVCRT_EMFILE;
1404     }
1405     UNLOCK_FILES();
1406   }
1407   else
1408     msvcrt_set_errno(GetLastError());
1409
1410   return ret;
1411 }
1412
1413 /*********************************************************************
1414  *              _sopen (MSVCRT.@)
1415  */
1416 int CDECL MSVCRT__sopen( const char *path, int oflags, int shflags, ... )
1417 {
1418   va_list ap;
1419   int pmode;
1420   DWORD access = 0, creation = 0, attrib;
1421   DWORD sharing;
1422   int wxflag = 0, fd;
1423   HANDLE hand;
1424   SECURITY_ATTRIBUTES sa;
1425
1426
1427   TRACE(":file (%s) oflags: 0x%04x shflags: 0x%04x\n",
1428         path, oflags, shflags);
1429
1430   wxflag = split_oflags(oflags);
1431   switch (oflags & (MSVCRT__O_RDONLY | MSVCRT__O_WRONLY | MSVCRT__O_RDWR))
1432   {
1433   case MSVCRT__O_RDONLY: access |= GENERIC_READ; break;
1434   case MSVCRT__O_WRONLY: access |= GENERIC_WRITE; break;
1435   case MSVCRT__O_RDWR:   access |= GENERIC_WRITE | GENERIC_READ; break;
1436   }
1437
1438   if (oflags & MSVCRT__O_CREAT)
1439   {
1440     va_start(ap, shflags);
1441       pmode = va_arg(ap, int);
1442     va_end(ap);
1443
1444     if(pmode & ~(MSVCRT__S_IREAD | MSVCRT__S_IWRITE))
1445       FIXME(": pmode 0x%04x ignored\n", pmode);
1446     else
1447       WARN(": pmode 0x%04x ignored\n", pmode);
1448
1449     if (oflags & MSVCRT__O_EXCL)
1450       creation = CREATE_NEW;
1451     else if (oflags & MSVCRT__O_TRUNC)
1452       creation = CREATE_ALWAYS;
1453     else
1454       creation = OPEN_ALWAYS;
1455   }
1456   else  /* no MSVCRT__O_CREAT */
1457   {
1458     if (oflags & MSVCRT__O_TRUNC)
1459       creation = TRUNCATE_EXISTING;
1460     else
1461       creation = OPEN_EXISTING;
1462   }
1463
1464   switch( shflags )
1465   {
1466     case MSVCRT__SH_DENYRW:
1467       sharing = 0L;
1468       break;
1469     case MSVCRT__SH_DENYWR:
1470       sharing = FILE_SHARE_READ;
1471       break;
1472     case MSVCRT__SH_DENYRD:
1473       sharing = FILE_SHARE_WRITE;
1474       break;
1475     case MSVCRT__SH_DENYNO:
1476       sharing = FILE_SHARE_READ | FILE_SHARE_WRITE;
1477       break;
1478     default:
1479       ERR( "Unhandled shflags 0x%x\n", shflags );
1480       return -1;
1481   }
1482   attrib = FILE_ATTRIBUTE_NORMAL;
1483
1484   if (oflags & MSVCRT__O_TEMPORARY)
1485   {
1486       attrib |= FILE_FLAG_DELETE_ON_CLOSE;
1487       access |= DELETE;
1488       sharing |= FILE_SHARE_DELETE;
1489   }
1490
1491   sa.nLength              = sizeof( SECURITY_ATTRIBUTES );
1492   sa.lpSecurityDescriptor = NULL;
1493   sa.bInheritHandle       = (oflags & MSVCRT__O_NOINHERIT) ? FALSE : TRUE;
1494
1495   hand = CreateFileA(path, access, sharing, &sa, creation, attrib, 0);
1496
1497   if (hand == INVALID_HANDLE_VALUE)  {
1498     WARN(":failed-last error (%d)\n",GetLastError());
1499     msvcrt_set_errno(GetLastError());
1500     return -1;
1501   }
1502
1503   fd = msvcrt_alloc_fd(hand, wxflag);
1504
1505   TRACE(":fd (%d) handle (%p)\n",fd, hand);
1506   return fd;
1507 }
1508
1509 /*********************************************************************
1510  *              _wsopen (MSVCRT.@)
1511  */
1512 int CDECL MSVCRT__wsopen( const MSVCRT_wchar_t* path, int oflags, int shflags, ... )
1513 {
1514   const unsigned int len = strlenW(path);
1515   char *patha = MSVCRT_calloc(len + 1,1);
1516   va_list ap;
1517   int pmode;
1518
1519   va_start(ap, shflags);
1520   pmode = va_arg(ap, int);
1521   va_end(ap);
1522
1523   if (patha && WideCharToMultiByte(CP_ACP,0,path,len,patha,len,NULL,NULL))
1524   {
1525     int retval = MSVCRT__sopen(patha,oflags,shflags,pmode);
1526     MSVCRT_free(patha);
1527     return retval;
1528   }
1529
1530   msvcrt_set_errno(GetLastError());
1531   return -1;
1532 }
1533
1534 /*********************************************************************
1535  *              _open (MSVCRT.@)
1536  */
1537 int CDECL _open( const char *path, int flags, ... )
1538 {
1539   va_list ap;
1540
1541   if (flags & MSVCRT__O_CREAT)
1542   {
1543     int pmode;
1544     va_start(ap, flags);
1545     pmode = va_arg(ap, int);
1546     va_end(ap);
1547     return MSVCRT__sopen( path, flags, MSVCRT__SH_DENYNO, pmode );
1548   }
1549   else
1550     return MSVCRT__sopen( path, flags, MSVCRT__SH_DENYNO);
1551 }
1552
1553 /*********************************************************************
1554  *              _wopen (MSVCRT.@)
1555  */
1556 int CDECL _wopen(const MSVCRT_wchar_t *path,int flags,...)
1557 {
1558   const unsigned int len = strlenW(path);
1559   char *patha = MSVCRT_calloc(len + 1,1);
1560   va_list ap;
1561   int pmode;
1562
1563   va_start(ap, flags);
1564   pmode = va_arg(ap, int);
1565   va_end(ap);
1566
1567   if (patha && WideCharToMultiByte(CP_ACP,0,path,len,patha,len,NULL,NULL))
1568   {
1569     int retval = _open(patha,flags,pmode);
1570     MSVCRT_free(patha);
1571     return retval;
1572   }
1573
1574   msvcrt_set_errno(GetLastError());
1575   return -1;
1576 }
1577
1578 /*********************************************************************
1579  *              _creat (MSVCRT.@)
1580  */
1581 int CDECL _creat(const char *path, int flags)
1582 {
1583   int usedFlags = (flags & MSVCRT__O_TEXT)| MSVCRT__O_CREAT| MSVCRT__O_WRONLY| MSVCRT__O_TRUNC;
1584   return _open(path, usedFlags);
1585 }
1586
1587 /*********************************************************************
1588  *              _wcreat (MSVCRT.@)
1589  */
1590 int CDECL _wcreat(const MSVCRT_wchar_t *path, int flags)
1591 {
1592   int usedFlags = (flags & MSVCRT__O_TEXT)| MSVCRT__O_CREAT| MSVCRT__O_WRONLY| MSVCRT__O_TRUNC;
1593   return _wopen(path, usedFlags);
1594 }
1595
1596 /*********************************************************************
1597  *              _open_osfhandle (MSVCRT.@)
1598  */
1599 int CDECL _open_osfhandle(long handle, int oflags)
1600 {
1601   int fd;
1602
1603   /* MSVCRT__O_RDONLY (0) always matches, so set the read flag
1604    * MFC's CStdioFile clears O_RDONLY (0)! if it wants to write to the
1605    * file, so set the write flag. It also only sets MSVCRT__O_TEXT if it wants
1606    * text - it never sets MSVCRT__O_BINARY.
1607    */
1608   /* don't let split_oflags() decide the mode if no mode is passed */
1609   if (!(oflags & (MSVCRT__O_BINARY | MSVCRT__O_TEXT)))
1610       oflags |= MSVCRT__O_BINARY;
1611
1612   fd = msvcrt_alloc_fd((HANDLE)handle, split_oflags(oflags));
1613   TRACE(":handle (%ld) fd (%d) flags 0x%08x\n", handle, fd, oflags);
1614   return fd;
1615 }
1616
1617 /*********************************************************************
1618  *              _rmtmp (MSVCRT.@)
1619  */
1620 int CDECL _rmtmp(void)
1621 {
1622   int num_removed = 0, i;
1623
1624   LOCK_FILES();
1625   for (i = 3; i < MSVCRT_stream_idx; i++)
1626     if (MSVCRT_fstreams[i] && MSVCRT_fstreams[i]->_tmpfname)
1627     {
1628       MSVCRT_fclose(MSVCRT_fstreams[i]);
1629       num_removed++;
1630     }
1631   UNLOCK_FILES();
1632
1633   if (num_removed)
1634     TRACE(":removed (%d) temp files\n",num_removed);
1635   return num_removed;
1636 }
1637
1638 /*********************************************************************
1639  * (internal) remove_cr
1640  *
1641  *    Remove all \r inplace.
1642  * return the number of \r removed
1643  */
1644 static unsigned int remove_cr(char *buf, unsigned int count)
1645 {
1646     unsigned int i, j;
1647
1648     for (i = 0; i < count; i++) if (buf[i] == '\r') break;
1649     for (j = i + 1; j < count; j++) if (buf[j] != '\r') buf[i++] = buf[j];
1650     return count - i;
1651 }
1652
1653 /*********************************************************************
1654  * (internal) read_i
1655  */
1656 static int read_i(int fd, void *buf, unsigned int count)
1657 {
1658   DWORD num_read;
1659   char *bufstart = buf;
1660   HANDLE hand = msvcrt_fdtoh(fd);
1661
1662   /* Don't trace small reads, it gets *very* annoying */
1663   if (count > 4)
1664     TRACE(":fd (%d) handle (%p) buf (%p) len (%d)\n",fd,hand,buf,count);
1665   if (hand == INVALID_HANDLE_VALUE)
1666     return -1;
1667
1668   /* Reading single bytes in O_TEXT mode makes things slow
1669    * So read big chunks
1670    */
1671     if (ReadFile(hand, bufstart, count, &num_read, NULL))
1672     {
1673         if (MSVCRT_fdesc[fd].wxflag & WX_TEXT)
1674         {
1675             int i;
1676             /* in text mode, a ctrl-z signals EOF */
1677             for (i=0; i<num_read; i++)
1678             {
1679                 if (bufstart[i] == 0x1a)
1680                 {
1681                     num_read = i;
1682                     break;
1683                 }
1684             }
1685         }
1686         if (num_read != count)
1687         {
1688             MSVCRT_fdesc[fd].wxflag |= WX_ATEOF;
1689             TRACE(":EOF %s\n",debugstr_an(buf,num_read));
1690         }
1691     }
1692     else
1693     {
1694         TRACE(":failed-last error (%d)\n",GetLastError());
1695         return -1;
1696     }
1697
1698   if (count > 4)
1699       TRACE("(%u), %s\n",num_read,debugstr_an(buf, num_read));
1700   return num_read;
1701 }
1702
1703 /*********************************************************************
1704  *              _read (MSVCRT.@)
1705  */
1706 int CDECL _read(int fd, void *buf, unsigned int count)
1707 {
1708   int num_read;
1709   num_read = read_i(fd, buf, count);
1710   if (num_read>0 && MSVCRT_fdesc[fd].wxflag & WX_TEXT)
1711   {
1712       num_read -= remove_cr(buf,num_read);
1713   }
1714   return num_read;
1715 }
1716
1717 /*********************************************************************
1718  *              _setmode (MSVCRT.@)
1719  */
1720 int CDECL _setmode(int fd,int mode)
1721 {
1722   int ret = MSVCRT_fdesc[fd].wxflag & WX_TEXT ? MSVCRT__O_TEXT : MSVCRT__O_BINARY;
1723   if (mode & (~(MSVCRT__O_TEXT|MSVCRT__O_BINARY)))
1724     FIXME("fd (%d) mode (0x%08x) unknown\n",fd,mode);
1725   if ((mode & MSVCRT__O_TEXT) == MSVCRT__O_TEXT)
1726     MSVCRT_fdesc[fd].wxflag |= WX_TEXT;
1727   else
1728     MSVCRT_fdesc[fd].wxflag &= ~WX_TEXT;
1729   return ret;
1730 }
1731
1732 /*********************************************************************
1733  *              _stat64 (MSVCRT.@)
1734  */
1735 int CDECL MSVCRT__stat64(const char* path, struct MSVCRT__stat64 * buf)
1736 {
1737   DWORD dw;
1738   WIN32_FILE_ATTRIBUTE_DATA hfi;
1739   unsigned short mode = ALL_S_IREAD;
1740   int plen;
1741
1742   TRACE(":file (%s) buf(%p)\n",path,buf);
1743
1744   if (!GetFileAttributesExA(path, GetFileExInfoStandard, &hfi))
1745   {
1746       TRACE("failed (%d)\n",GetLastError());
1747       msvcrt_set_errno(ERROR_FILE_NOT_FOUND);
1748       return -1;
1749   }
1750
1751   memset(buf,0,sizeof(struct MSVCRT__stat64));
1752
1753   /* FIXME: rdev isn't drive num, despite what the docs say-what is it?
1754      Bon 011120: This FIXME seems incorrect
1755                  Also a letter as first char isn't enough to be classified
1756                  as a drive letter
1757   */
1758   if (isalpha(*path)&& (*(path+1)==':'))
1759     buf->st_dev = buf->st_rdev = toupper(*path) - 'A'; /* drive num */
1760   else
1761     buf->st_dev = buf->st_rdev = _getdrive() - 1;
1762
1763   plen = strlen(path);
1764
1765   /* Dir, or regular file? */
1766   if ((hfi.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) ||
1767       (path[plen-1] == '\\'))
1768     mode |= (MSVCRT__S_IFDIR | ALL_S_IEXEC);
1769   else
1770   {
1771     mode |= MSVCRT__S_IFREG;
1772     /* executable? */
1773     if (plen > 6 && path[plen-4] == '.')  /* shortest exe: "\x.exe" */
1774     {
1775       unsigned int ext = tolower(path[plen-1]) | (tolower(path[plen-2]) << 8) |
1776                                  (tolower(path[plen-3]) << 16);
1777       if (ext == EXE || ext == BAT || ext == CMD || ext == COM)
1778           mode |= ALL_S_IEXEC;
1779     }
1780   }
1781
1782   if (!(hfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY))
1783     mode |= ALL_S_IWRITE;
1784
1785   buf->st_mode  = mode;
1786   buf->st_nlink = 1;
1787   buf->st_size  = ((__int64)hfi.nFileSizeHigh << 32) + hfi.nFileSizeLow;
1788   RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastAccessTime, &dw);
1789   buf->st_atime = dw;
1790   RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastWriteTime, &dw);
1791   buf->st_mtime = buf->st_ctime = dw;
1792   TRACE("%d %d 0x%08lx%08lx %ld %ld %ld\n", buf->st_mode,buf->st_nlink,
1793         (long)(buf->st_size >> 32),(long)buf->st_size,
1794         (long)buf->st_atime,(long)buf->st_mtime,(long)buf->st_ctime);
1795   return 0;
1796 }
1797
1798 /*********************************************************************
1799  *              _stati64 (MSVCRT.@)
1800  */
1801 int CDECL MSVCRT__stati64(const char* path, struct MSVCRT__stati64 * buf)
1802 {
1803   int ret;
1804   struct MSVCRT__stat64 buf64;
1805
1806   ret = MSVCRT__stat64(path, &buf64);
1807   if (!ret)
1808     msvcrt_stat64_to_stati64(&buf64, buf);
1809   return ret;
1810 }
1811
1812 /*********************************************************************
1813  *              _stat (MSVCRT.@)
1814  */
1815 int CDECL MSVCRT__stat(const char* path, struct MSVCRT__stat * buf)
1816 { int ret;
1817   struct MSVCRT__stat64 buf64;
1818
1819   ret = MSVCRT__stat64( path, &buf64);
1820   if (!ret)
1821       msvcrt_stat64_to_stat(&buf64, buf);
1822   return ret;
1823 }
1824
1825 /*********************************************************************
1826  *              _wstat64 (MSVCRT.@)
1827  */
1828 int CDECL MSVCRT__wstat64(const MSVCRT_wchar_t* path, struct MSVCRT__stat64 * buf)
1829 {
1830   DWORD dw;
1831   WIN32_FILE_ATTRIBUTE_DATA hfi;
1832   unsigned short mode = ALL_S_IREAD;
1833   int plen;
1834
1835   TRACE(":file (%s) buf(%p)\n",debugstr_w(path),buf);
1836
1837   if (!GetFileAttributesExW(path, GetFileExInfoStandard, &hfi))
1838   {
1839       TRACE("failed (%d)\n",GetLastError());
1840       msvcrt_set_errno(ERROR_FILE_NOT_FOUND);
1841       return -1;
1842   }
1843
1844   memset(buf,0,sizeof(struct MSVCRT__stat64));
1845
1846   /* FIXME: rdev isn't drive num, despite what the docs says-what is it? */
1847   if (MSVCRT_iswalpha(*path))
1848     buf->st_dev = buf->st_rdev = toupperW(*path - 'A'); /* drive num */
1849   else
1850     buf->st_dev = buf->st_rdev = _getdrive() - 1;
1851
1852   plen = strlenW(path);
1853
1854   /* Dir, or regular file? */
1855   if ((hfi.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) ||
1856       (path[plen-1] == '\\'))
1857     mode |= (MSVCRT__S_IFDIR | ALL_S_IEXEC);
1858   else
1859   {
1860     mode |= MSVCRT__S_IFREG;
1861     /* executable? */
1862     if (plen > 6 && path[plen-4] == '.')  /* shortest exe: "\x.exe" */
1863     {
1864       ULONGLONG ext = tolowerW(path[plen-1]) | (tolowerW(path[plen-2]) << 16) |
1865                                ((ULONGLONG)tolowerW(path[plen-3]) << 32);
1866       if (ext == WCEXE || ext == WCBAT || ext == WCCMD || ext == WCCOM)
1867         mode |= ALL_S_IEXEC;
1868     }
1869   }
1870
1871   if (!(hfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY))
1872     mode |= ALL_S_IWRITE;
1873
1874   buf->st_mode  = mode;
1875   buf->st_nlink = 1;
1876   buf->st_size  = ((__int64)hfi.nFileSizeHigh << 32) + hfi.nFileSizeLow;
1877   RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastAccessTime, &dw);
1878   buf->st_atime = dw;
1879   RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastWriteTime, &dw);
1880   buf->st_mtime = buf->st_ctime = dw;
1881   TRACE("%d %d 0x%08lx%08lx %ld %ld %ld\n", buf->st_mode,buf->st_nlink,
1882         (long)(buf->st_size >> 32),(long)buf->st_size,
1883         (long)buf->st_atime,(long)buf->st_mtime,(long)buf->st_ctime);
1884   return 0;
1885 }
1886
1887 /*********************************************************************
1888  *              _wstati64 (MSVCRT.@)
1889  */
1890 int CDECL MSVCRT__wstati64(const MSVCRT_wchar_t* path, struct MSVCRT__stati64 * buf)
1891 {
1892   int ret;
1893   struct MSVCRT__stat64 buf64;
1894
1895   ret = MSVCRT__wstat64(path, &buf64);
1896   if (!ret)
1897     msvcrt_stat64_to_stati64(&buf64, buf);
1898   return ret;
1899 }
1900
1901 /*********************************************************************
1902  *              _wstat (MSVCRT.@)
1903  */
1904 int CDECL MSVCRT__wstat(const MSVCRT_wchar_t* path, struct MSVCRT__stat * buf)
1905 {
1906   int ret;
1907   struct MSVCRT__stat64 buf64;
1908
1909   ret = MSVCRT__wstat64( path, &buf64 );
1910   if (!ret) msvcrt_stat64_to_stat(&buf64, buf);
1911   return ret;
1912 }
1913
1914 /*********************************************************************
1915  *              _tell (MSVCRT.@)
1916  */
1917 long CDECL _tell(int fd)
1918 {
1919   return _lseek(fd, 0, SEEK_CUR);
1920 }
1921
1922 /*********************************************************************
1923  *              _telli64 (MSVCRT.@)
1924  */
1925 __int64 CDECL _telli64(int fd)
1926 {
1927   return _lseeki64(fd, 0, SEEK_CUR);
1928 }
1929
1930 /*********************************************************************
1931  *              _tempnam (MSVCRT.@)
1932  */
1933 char * CDECL _tempnam(const char *dir, const char *prefix)
1934 {
1935   char tmpbuf[MAX_PATH];
1936   const char *tmp_dir = MSVCRT_getenv("TMP");
1937
1938   if (tmp_dir) dir = tmp_dir;
1939
1940   TRACE("dir (%s) prefix (%s)\n",dir,prefix);
1941   if (GetTempFileNameA(dir,prefix,0,tmpbuf))
1942   {
1943     TRACE("got name (%s)\n",tmpbuf);
1944     DeleteFileA(tmpbuf);
1945     return _strdup(tmpbuf);
1946   }
1947   TRACE("failed (%d)\n",GetLastError());
1948   return NULL;
1949 }
1950
1951 /*********************************************************************
1952  *              _wtempnam (MSVCRT.@)
1953  */
1954 MSVCRT_wchar_t * CDECL _wtempnam(const MSVCRT_wchar_t *dir, const MSVCRT_wchar_t *prefix)
1955 {
1956   MSVCRT_wchar_t tmpbuf[MAX_PATH];
1957
1958   TRACE("dir (%s) prefix (%s)\n",debugstr_w(dir),debugstr_w(prefix));
1959   if (GetTempFileNameW(dir,prefix,0,tmpbuf))
1960   {
1961     TRACE("got name (%s)\n",debugstr_w(tmpbuf));
1962     DeleteFileW(tmpbuf);
1963     return _wcsdup(tmpbuf);
1964   }
1965   TRACE("failed (%d)\n",GetLastError());
1966   return NULL;
1967 }
1968
1969 /*********************************************************************
1970  *              _umask (MSVCRT.@)
1971  */
1972 int CDECL _umask(int umask)
1973 {
1974   int old_umask = MSVCRT_umask;
1975   TRACE("(%d)\n",umask);
1976   MSVCRT_umask = umask;
1977   return old_umask;
1978 }
1979
1980 /*********************************************************************
1981  *              _utime (MSVCRT.@)
1982  */
1983 int CDECL _utime(const char* path, struct MSVCRT__utimbuf *t)
1984 {
1985   int fd = _open(path, MSVCRT__O_WRONLY | MSVCRT__O_BINARY);
1986
1987   if (fd > 0)
1988   {
1989     int retVal = _futime(fd, t);
1990     _close(fd);
1991     return retVal;
1992   }
1993   return -1;
1994 }
1995
1996 /*********************************************************************
1997  *              _wutime (MSVCRT.@)
1998  */
1999 int CDECL _wutime(const MSVCRT_wchar_t* path, struct MSVCRT__utimbuf *t)
2000 {
2001   int fd = _wopen(path, MSVCRT__O_WRONLY | MSVCRT__O_BINARY);
2002
2003   if (fd > 0)
2004   {
2005     int retVal = _futime(fd, t);
2006     _close(fd);
2007     return retVal;
2008   }
2009   return -1;
2010 }
2011
2012 /*********************************************************************
2013  *              _write (MSVCRT.@)
2014  */
2015 int CDECL _write(int fd, const void* buf, unsigned int count)
2016 {
2017   DWORD num_written;
2018   HANDLE hand = msvcrt_fdtoh(fd);
2019
2020   /* Don't trace small writes, it gets *very* annoying */
2021 #if 0
2022   if (count > 32)
2023     TRACE(":fd (%d) handle (%d) buf (%p) len (%d)\n",fd,hand,buf,count);
2024 #endif
2025   if (hand == INVALID_HANDLE_VALUE)
2026     {
2027       *MSVCRT__errno() = MSVCRT_EBADF;
2028       return -1;
2029     }
2030
2031   /* If appending, go to EOF */
2032   if (MSVCRT_fdesc[fd].wxflag & WX_APPEND)
2033     _lseek(fd, 0, FILE_END);
2034
2035   if (!(MSVCRT_fdesc[fd].wxflag & WX_TEXT))
2036     {
2037       if (WriteFile(hand, buf, count, &num_written, NULL)
2038           &&  (num_written == count))
2039         return num_written;
2040       TRACE("WriteFile (fd %d, hand %p) failed-last error (%d)\n", fd,
2041        hand, GetLastError());
2042       *MSVCRT__errno() = MSVCRT_ENOSPC;
2043     }
2044   else
2045   {
2046       unsigned int i, j, nr_lf;
2047       char *p = NULL;
2048       const char *q;
2049       const char *s = (const char *)buf, *buf_start = (const char *)buf;
2050       /* find number of \n ( without preceding \r ) */
2051       for ( nr_lf=0,i = 0; i <count; i++)
2052       {
2053           if (s[i]== '\n')
2054           {
2055               nr_lf++;
2056               /*if ((i >1) && (s[i-1] == '\r')) nr_lf--; */
2057           }
2058       }
2059       if (nr_lf)
2060       {
2061           if ((q = p = MSVCRT_malloc(count + nr_lf)))
2062           {
2063               for (s = (const char *)buf, i = 0, j = 0; i < count; i++)
2064               {
2065                   if (s[i]== '\n')
2066                   {
2067                       p[j++] = '\r';
2068                       /*if ((i >1) && (s[i-1] == '\r'))j--;*/
2069                   }
2070                   p[j++] = s[i];
2071               }
2072           }
2073           else
2074           {
2075               FIXME("Malloc failed\n");
2076               nr_lf =0;
2077               q = buf;
2078           }
2079       }
2080       else
2081           q = buf;
2082
2083       if ((WriteFile(hand, q, count+nr_lf, &num_written, NULL) == 0 ) || (num_written != count+nr_lf))
2084       {
2085           TRACE("WriteFile (fd %d, hand %p) failed-last error (%d), num_written %d\n",
2086            fd, hand, GetLastError(), num_written);
2087           *MSVCRT__errno() = MSVCRT_ENOSPC;
2088           if(nr_lf)
2089               MSVCRT_free(p);
2090           return s - buf_start;
2091       }
2092       else
2093       {
2094           if(nr_lf)
2095               MSVCRT_free(p);
2096           return count;
2097       }
2098   }
2099   return -1;
2100 }
2101
2102 /*********************************************************************
2103  *              _putw (MSVCRT.@)
2104  */
2105 int CDECL MSVCRT__putw(int val, MSVCRT_FILE* file)
2106 {
2107   int len;
2108   len = _write(file->_file, &val, sizeof(val));
2109   if (len == sizeof(val)) return val;
2110   file->_flag |= MSVCRT__IOERR;
2111   return MSVCRT_EOF;
2112 }
2113
2114 /*********************************************************************
2115  *              fclose (MSVCRT.@)
2116  */
2117 int CDECL MSVCRT_fclose(MSVCRT_FILE* file)
2118 {
2119   int r, flag;
2120
2121   flag = file->_flag;
2122   MSVCRT_free(file->_tmpfname);
2123   file->_tmpfname = NULL;
2124   /* flush stdio buffers */
2125   if(file->_flag & MSVCRT__IOWRT)
2126       MSVCRT_fflush(file);
2127   if(file->_flag & MSVCRT__IOMYBUF)
2128       MSVCRT_free(file->_base);
2129
2130   r=_close(file->_file);
2131
2132   file->_flag = 0;
2133
2134   return ((r == -1) || (flag & MSVCRT__IOERR) ? MSVCRT_EOF : 0);
2135 }
2136
2137 /*********************************************************************
2138  *              feof (MSVCRT.@)
2139  */
2140 int CDECL MSVCRT_feof(MSVCRT_FILE* file)
2141 {
2142   return file->_flag & MSVCRT__IOEOF;
2143 }
2144
2145 /*********************************************************************
2146  *              ferror (MSVCRT.@)
2147  */
2148 int CDECL MSVCRT_ferror(MSVCRT_FILE* file)
2149 {
2150   return file->_flag & MSVCRT__IOERR;
2151 }
2152
2153 /*********************************************************************
2154  *              _filbuf (MSVCRT.@)
2155  */
2156 int CDECL MSVCRT__filbuf(MSVCRT_FILE* file)
2157 {
2158   /* Allocate buffer if needed */
2159   if(file->_bufsiz == 0 && !(file->_flag & MSVCRT__IONBF) ) {
2160         msvcrt_alloc_buffer(file);
2161   }
2162   if(!(file->_flag & MSVCRT__IOREAD)) {
2163         if(file->_flag & MSVCRT__IORW) {
2164                 file->_flag |= MSVCRT__IOREAD;
2165         } else {
2166                 return MSVCRT_EOF;
2167         }
2168   }
2169   if(file->_flag & MSVCRT__IONBF) {
2170         unsigned char c;
2171         int r;
2172         if ((r = read_i(file->_file,&c,1)) != 1) {
2173             file->_flag |= (r == 0) ? MSVCRT__IOEOF : MSVCRT__IOERR;
2174             return MSVCRT_EOF;
2175         }
2176         return c;
2177   } else {
2178         file->_cnt = read_i(file->_file, file->_base, file->_bufsiz);
2179         if(file->_cnt<=0) {
2180             file->_flag |= (file->_cnt == 0) ? MSVCRT__IOEOF : MSVCRT__IOERR;
2181             file->_cnt = 0;
2182             return MSVCRT_EOF;
2183         }
2184         file->_cnt--;
2185         file->_ptr = file->_base+1;
2186         return *(unsigned char *)file->_base;
2187   }
2188 }
2189
2190 /*********************************************************************
2191  *              fgetc (MSVCRT.@)
2192  */
2193 int CDECL MSVCRT_fgetc(MSVCRT_FILE* file)
2194 {
2195   unsigned char *i;
2196   unsigned int j;
2197   do {
2198     if (file->_cnt>0) {
2199       file->_cnt--;
2200       i = (unsigned char *)file->_ptr++;
2201       j = *i;
2202     } else
2203       j = MSVCRT__filbuf(file);
2204     if (!(MSVCRT_fdesc[file->_file].wxflag & WX_TEXT) || (j != '\r'))
2205       return j;
2206   } while(1);
2207 }
2208
2209 /*********************************************************************
2210  *              _fgetchar (MSVCRT.@)
2211  */
2212 int CDECL _fgetchar(void)
2213 {
2214   return MSVCRT_fgetc(MSVCRT_stdin);
2215 }
2216
2217 /*********************************************************************
2218  *              fgets (MSVCRT.@)
2219  */
2220 char * CDECL MSVCRT_fgets(char *s, int size, MSVCRT_FILE* file)
2221 {
2222   int    cc = MSVCRT_EOF;
2223   char * buf_start = s;
2224
2225   TRACE(":file(%p) fd (%d) str (%p) len (%d)\n",
2226         file,file->_file,s,size);
2227
2228   while ((size >1) && (cc = MSVCRT_fgetc(file)) != MSVCRT_EOF && cc != '\n')
2229     {
2230       *s++ = (char)cc;
2231       size --;
2232     }
2233   if ((cc == MSVCRT_EOF) && (s == buf_start)) /* If nothing read, return 0*/
2234   {
2235     TRACE(":nothing read\n");
2236     return NULL;
2237   }
2238   if ((cc != MSVCRT_EOF) && (size > 1))
2239     *s++ = cc;
2240   *s = '\0';
2241   TRACE(":got %s\n", debugstr_a(buf_start));
2242   return buf_start;
2243 }
2244
2245 /*********************************************************************
2246  *              fgetwc (MSVCRT.@)
2247  *
2248  * In MSVCRT__O_TEXT mode, multibyte characters are read from the file, dropping
2249  * the CR from CR/LF combinations
2250  */
2251 MSVCRT_wint_t CDECL MSVCRT_fgetwc(MSVCRT_FILE* file)
2252 {
2253   char c;
2254
2255   if (!(MSVCRT_fdesc[file->_file].wxflag & WX_TEXT))
2256     {
2257       MSVCRT_wchar_t wc;
2258       int i,j;
2259       char *chp, *wcp;
2260       wcp = (char *)&wc;
2261       for(i=0; i<sizeof(wc); i++)
2262       {
2263         if (file->_cnt>0)
2264         {
2265           file->_cnt--;
2266           chp = file->_ptr++;
2267           wcp[i] = *chp;
2268         }
2269         else
2270         {
2271           j = MSVCRT__filbuf(file);
2272           if(file->_cnt<=0)
2273           {
2274             file->_flag |= (file->_cnt == 0) ? MSVCRT__IOEOF : MSVCRT__IOERR;
2275             file->_cnt = 0;
2276             return MSVCRT_WEOF;
2277           }
2278           wcp[i] = j;
2279         }
2280       }
2281       return wc;
2282     }
2283
2284   c = MSVCRT_fgetc(file);
2285   if ((*__p___mb_cur_max() > 1) && MSVCRT_isleadbyte(c))
2286     {
2287       FIXME("Treat Multibyte characters\n");
2288     }
2289   if (c == MSVCRT_EOF)
2290     return MSVCRT_WEOF;
2291   else
2292     return (MSVCRT_wint_t)c;
2293 }
2294
2295 /*********************************************************************
2296  *              _getw (MSVCRT.@)
2297  */
2298 int CDECL MSVCRT__getw(MSVCRT_FILE* file)
2299 {
2300   char *ch;
2301   int i, j, k;
2302   ch = (char *)&i;
2303   for (j=0; j<sizeof(int); j++) {
2304     k = MSVCRT_fgetc(file);
2305     if (k == MSVCRT_EOF) {
2306       file->_flag |= MSVCRT__IOEOF;
2307       return EOF;
2308     }
2309     ch[j] = k;
2310   }
2311   return i;
2312 }
2313
2314 /*********************************************************************
2315  *              getwc (MSVCRT.@)
2316  */
2317 MSVCRT_wint_t CDECL MSVCRT_getwc(MSVCRT_FILE* file)
2318 {
2319   return MSVCRT_fgetwc(file);
2320 }
2321
2322 /*********************************************************************
2323  *              _fgetwchar (MSVCRT.@)
2324  */
2325 MSVCRT_wint_t CDECL _fgetwchar(void)
2326 {
2327   return MSVCRT_fgetwc(MSVCRT_stdin);
2328 }
2329
2330 /*********************************************************************
2331  *              getwchar (MSVCRT.@)
2332  */
2333 MSVCRT_wint_t CDECL MSVCRT_getwchar(void)
2334 {
2335   return _fgetwchar();
2336 }
2337
2338 /*********************************************************************
2339  *              fgetws (MSVCRT.@)
2340  */
2341 MSVCRT_wchar_t * CDECL MSVCRT_fgetws(MSVCRT_wchar_t *s, int size, MSVCRT_FILE* file)
2342 {
2343   int    cc = MSVCRT_WEOF;
2344   MSVCRT_wchar_t * buf_start = s;
2345
2346   TRACE(":file(%p) fd (%d) str (%p) len (%d)\n",
2347         file,file->_file,s,size);
2348
2349   while ((size >1) && (cc = MSVCRT_fgetwc(file)) != MSVCRT_WEOF && cc != '\n')
2350     {
2351       *s++ = (char)cc;
2352       size --;
2353     }
2354   if ((cc == MSVCRT_WEOF) && (s == buf_start)) /* If nothing read, return 0*/
2355   {
2356     TRACE(":nothing read\n");
2357     return NULL;
2358   }
2359   if ((cc != MSVCRT_WEOF) && (size > 1))
2360     *s++ = cc;
2361   *s = 0;
2362   TRACE(":got %s\n", debugstr_w(buf_start));
2363   return buf_start;
2364 }
2365
2366 /*********************************************************************
2367  *              fwrite (MSVCRT.@)
2368  */
2369 MSVCRT_size_t CDECL MSVCRT_fwrite(const void *ptr, MSVCRT_size_t size, MSVCRT_size_t nmemb, MSVCRT_FILE* file)
2370 {
2371   MSVCRT_size_t wrcnt=size * nmemb;
2372   int written = 0;
2373   if (size == 0)
2374       return 0;
2375   if(file->_cnt) {
2376         int pcnt=(file->_cnt>wrcnt)? wrcnt: file->_cnt;
2377         memcpy(file->_ptr, ptr, pcnt);
2378         file->_cnt -= pcnt;
2379         file->_ptr += pcnt;
2380         written = pcnt;
2381         wrcnt -= pcnt;
2382         ptr = (const char*)ptr + pcnt;
2383   } else if(!(file->_flag & MSVCRT__IOWRT)) {
2384         if(file->_flag & MSVCRT__IORW) {
2385                 file->_flag |= MSVCRT__IOWRT;
2386         } else
2387                 return 0;
2388   }
2389   if(wrcnt) {
2390         /* Flush buffer */
2391         int res=msvcrt_flush_buffer(file);
2392         if(!res) {
2393                 int pwritten = _write(file->_file, ptr, wrcnt);
2394                 if (pwritten <= 0)
2395                 {
2396                     file->_flag |= MSVCRT__IOERR;
2397                     pwritten=0;
2398                 }
2399                 written += pwritten;
2400         }
2401   }
2402   return written / size;
2403 }
2404
2405 /*********************************************************************
2406  *              fputwc (MSVCRT.@)
2407  */
2408 MSVCRT_wint_t CDECL MSVCRT_fputwc(MSVCRT_wint_t wc, MSVCRT_FILE* file)
2409 {
2410   MSVCRT_wchar_t mwc=wc;
2411   if (MSVCRT_fwrite( &mwc, sizeof(mwc), 1, file) != 1)
2412     return MSVCRT_WEOF;
2413   return wc;
2414 }
2415
2416 /*********************************************************************
2417  *              _fputwchar (MSVCRT.@)
2418  */
2419 MSVCRT_wint_t CDECL _fputwchar(MSVCRT_wint_t wc)
2420 {
2421   return MSVCRT_fputwc(wc, MSVCRT_stdout);
2422 }
2423
2424 /*********************************************************************
2425  *              _fsopen (MSVCRT.@)
2426  */
2427 MSVCRT_FILE * CDECL MSVCRT__fsopen(const char *path, const char *mode, int share)
2428 {
2429   MSVCRT_FILE* file;
2430   int open_flags, stream_flags, fd;
2431
2432   TRACE("(%s,%s)\n",path,mode);
2433
2434   /* map mode string to open() flags. "man fopen" for possibilities. */
2435   if (msvcrt_get_flags(mode, &open_flags, &stream_flags) == -1)
2436       return NULL;
2437
2438   LOCK_FILES();
2439   fd = MSVCRT__sopen(path, open_flags, share, MSVCRT__S_IREAD | MSVCRT__S_IWRITE);
2440   if (fd < 0)
2441     file = NULL;
2442   else if ((file = msvcrt_alloc_fp()) && msvcrt_init_fp(file, fd, stream_flags)
2443    != -1)
2444     TRACE(":fd (%d) mode (%s) FILE* (%p)\n",fd,mode,file);
2445   else if (file)
2446   {
2447     file->_flag = 0;
2448     file = NULL;
2449   }
2450
2451   TRACE(":got (%p)\n",file);
2452   if (fd >= 0 && !file)
2453     _close(fd);
2454   UNLOCK_FILES();
2455   return file;
2456 }
2457
2458 /*********************************************************************
2459  *              _wfsopen (MSVCRT.@)
2460  */
2461 MSVCRT_FILE * CDECL MSVCRT__wfsopen(const MSVCRT_wchar_t *path, const MSVCRT_wchar_t *mode, int share)
2462 {
2463   const unsigned int plen = strlenW(path), mlen = strlenW(mode);
2464   char *patha = MSVCRT_calloc(plen + 1, 1);
2465   char *modea = MSVCRT_calloc(mlen + 1, 1);
2466
2467   TRACE("(%s,%s)\n",debugstr_w(path),debugstr_w(mode));
2468
2469   if (patha && modea &&
2470       WideCharToMultiByte(CP_ACP,0,path,plen,patha,plen,NULL,NULL) &&
2471       WideCharToMultiByte(CP_ACP,0,mode,mlen,modea,mlen,NULL,NULL))
2472   {
2473     MSVCRT_FILE *retval = MSVCRT__fsopen(patha,modea,share);
2474     MSVCRT_free(patha);
2475     MSVCRT_free(modea);
2476     return retval;
2477   }
2478
2479   msvcrt_set_errno(GetLastError());
2480   return NULL;
2481 }
2482
2483 /*********************************************************************
2484  *              fopen (MSVCRT.@)
2485  */
2486 MSVCRT_FILE * CDECL MSVCRT_fopen(const char *path, const char *mode)
2487 {
2488     return MSVCRT__fsopen( path, mode, MSVCRT__SH_DENYNO );
2489 }
2490
2491 /*********************************************************************
2492  *              _wfopen (MSVCRT.@)
2493  */
2494 MSVCRT_FILE * CDECL MSVCRT__wfopen(const MSVCRT_wchar_t *path, const MSVCRT_wchar_t *mode)
2495 {
2496     return MSVCRT__wfsopen( path, mode, MSVCRT__SH_DENYNO );
2497 }
2498
2499 /* MSVCRT_fputc calls MSVCRT__flsbuf which calls MSVCRT_fputc */
2500 int CDECL MSVCRT__flsbuf(int c, MSVCRT_FILE* file);
2501
2502 /*********************************************************************
2503  *              fputc (MSVCRT.@)
2504  */
2505 int CDECL MSVCRT_fputc(int c, MSVCRT_FILE* file)
2506 {
2507   if(file->_cnt>0) {
2508     *file->_ptr++=c;
2509     file->_cnt--;
2510     if (c == '\n')
2511     {
2512       int res = msvcrt_flush_buffer(file);
2513       return res ? res : c;
2514     }
2515     else
2516       return c;
2517   } else {
2518     return MSVCRT__flsbuf(c, file);
2519   }
2520 }
2521
2522 /*********************************************************************
2523  *              _flsbuf (MSVCRT.@)
2524  */
2525 int CDECL MSVCRT__flsbuf(int c, MSVCRT_FILE* file)
2526 {
2527   /* Flush output buffer */
2528   if(file->_bufsiz == 0 && !(file->_flag & MSVCRT__IONBF)) {
2529         msvcrt_alloc_buffer(file);
2530   }
2531   if(!(file->_flag & MSVCRT__IOWRT)) {
2532         if(file->_flag & MSVCRT__IORW) {
2533                 file->_flag |= MSVCRT__IOWRT;
2534         } else {
2535                 return MSVCRT_EOF;
2536         }
2537   }
2538   if(file->_bufsiz) {
2539         int res=msvcrt_flush_buffer(file);
2540         return res?res : MSVCRT_fputc(c, file);
2541   } else {
2542         unsigned char cc=c;
2543         int len;
2544         len = _write(file->_file, &cc, 1);
2545         if (len == 1) return c;
2546         file->_flag |= MSVCRT__IOERR;
2547         return MSVCRT_EOF;
2548   }
2549 }
2550
2551 /*********************************************************************
2552  *              _fputchar (MSVCRT.@)
2553  */
2554 int CDECL _fputchar(int c)
2555 {
2556   return MSVCRT_fputc(c, MSVCRT_stdout);
2557 }
2558
2559 /*********************************************************************
2560  *              fread (MSVCRT.@)
2561  */
2562 MSVCRT_size_t CDECL MSVCRT_fread(void *ptr, MSVCRT_size_t size, MSVCRT_size_t nmemb, MSVCRT_FILE* file)
2563 { MSVCRT_size_t rcnt=size * nmemb;
2564   MSVCRT_size_t read=0;
2565   int pread=0;
2566
2567   if(!rcnt)
2568         return 0;
2569
2570   /* first buffered data */
2571   if(file->_cnt>0) {
2572         int pcnt= (rcnt>file->_cnt)? file->_cnt:rcnt;
2573         memcpy(ptr, file->_ptr, pcnt);
2574         file->_cnt -= pcnt;
2575         file->_ptr += pcnt;
2576         if (MSVCRT_fdesc[file->_file].wxflag & WX_TEXT)
2577             pcnt -= remove_cr(ptr,pcnt);
2578         read += pcnt ;
2579         rcnt -= pcnt ;
2580         ptr = (char*)ptr + pcnt;
2581   } else if(!(file->_flag & MSVCRT__IOREAD )) {
2582         if(file->_flag & MSVCRT__IORW) {
2583                 file->_flag |= MSVCRT__IOREAD;
2584         } else
2585             return 0;
2586   }
2587   while(rcnt>0)
2588   {
2589     int i;
2590     /* Fill the buffer on small reads.
2591      * TODO: Use a better buffering strategy.
2592      */
2593     if (!file->_cnt && size*nmemb <= MSVCRT_BUFSIZ/2 && !(file->_flag & MSVCRT__IONBF)) {
2594       if (file->_bufsiz == 0) {
2595         msvcrt_alloc_buffer(file);
2596       }
2597       file->_cnt = _read(file->_file, file->_base, file->_bufsiz);
2598       file->_ptr = file->_base;
2599       i = (file->_cnt<rcnt) ? file->_cnt : rcnt;
2600       /* If the buffer fill reaches eof but fread wouldn't, clear eof. */
2601       if (i > 0 && i < file->_cnt) {
2602         MSVCRT_fdesc[file->_file].wxflag &= ~WX_ATEOF;
2603         file->_flag &= ~MSVCRT__IOEOF;
2604       }
2605       if (i > 0) {
2606         memcpy(ptr, file->_ptr, i);
2607         file->_cnt -= i;
2608         file->_ptr += i;
2609       }
2610     } else {
2611       i = _read(file->_file,ptr, rcnt);
2612     }
2613     pread += i;
2614     rcnt -= i;
2615     ptr = (char *)ptr+i;
2616     /* expose feof condition in the flags
2617      * MFC tests file->_flag for feof, and doesn't call feof())
2618      */
2619     if ( MSVCRT_fdesc[file->_file].wxflag & WX_ATEOF)
2620         file->_flag |= MSVCRT__IOEOF;
2621     else if (i == -1)
2622     {
2623         file->_flag |= MSVCRT__IOERR;
2624         pread = 0;
2625         rcnt = 0;
2626     }
2627     if (i < 1) break;
2628   }
2629   read+=pread;
2630   return read / size;
2631 }
2632
2633 /*********************************************************************
2634  *              freopen (MSVCRT.@)
2635  *
2636  */
2637 MSVCRT_FILE* CDECL MSVCRT_freopen(const char *path, const char *mode,MSVCRT_FILE* file)
2638 {
2639   int open_flags, stream_flags, fd;
2640
2641   TRACE(":path (%p) mode (%s) file (%p) fd (%d)\n",path,mode,file,file->_file);
2642
2643   LOCK_FILES();
2644   if (!file || ((fd = file->_file) < 0) || fd > MSVCRT_fdend)
2645     file = NULL;
2646   else
2647   {
2648     MSVCRT_fclose(file);
2649     /* map mode string to open() flags. "man fopen" for possibilities. */
2650     if (msvcrt_get_flags(mode, &open_flags, &stream_flags) == -1)
2651       file = NULL;
2652     else
2653     {
2654       fd = _open(path, open_flags, MSVCRT__S_IREAD | MSVCRT__S_IWRITE);
2655       if (fd < 0)
2656         file = NULL;
2657       else if (msvcrt_init_fp(file, fd, stream_flags) == -1)
2658       {
2659           file->_flag = 0;
2660           WARN(":failed-last error (%d)\n",GetLastError());
2661           msvcrt_set_errno(GetLastError());
2662           file = NULL;
2663       }
2664     }
2665   }
2666   UNLOCK_FILES();
2667   return file;
2668 }
2669
2670 /*********************************************************************
2671  *              fsetpos (MSVCRT.@)
2672  */
2673 int CDECL MSVCRT_fsetpos(MSVCRT_FILE* file, MSVCRT_fpos_t *pos)
2674 {
2675   /* Note that all this has been lifted 'as is' from fseek */
2676   if(file->_flag & MSVCRT__IOWRT)
2677         msvcrt_flush_buffer(file);
2678
2679   /* Discard buffered input */
2680   file->_cnt = 0;
2681   file->_ptr = file->_base;
2682
2683   /* Reset direction of i/o */
2684   if(file->_flag & MSVCRT__IORW) {
2685         file->_flag &= ~(MSVCRT__IOREAD|MSVCRT__IOWRT);
2686   }
2687
2688   return (_lseeki64(file->_file,*pos,SEEK_SET) == -1) ? -1 : 0;
2689 }
2690
2691 /*********************************************************************
2692  *              ftell (MSVCRT.@)
2693  */
2694 LONG CDECL MSVCRT_ftell(MSVCRT_FILE* file)
2695 {
2696   int off=0;
2697   long pos;
2698   if(file->_bufsiz)  {
2699         if( file->_flag & MSVCRT__IOWRT ) {
2700                 off = file->_ptr - file->_base;
2701         } else {
2702                 off = -file->_cnt;
2703         }
2704   }
2705   pos = _tell(file->_file);
2706   if(pos == -1) return pos;
2707   return off + pos;
2708 }
2709
2710 /*********************************************************************
2711  *              fgetpos (MSVCRT.@)
2712  */
2713 int CDECL MSVCRT_fgetpos(MSVCRT_FILE* file, MSVCRT_fpos_t *pos)
2714 {
2715   /* This code has been lifted form the MSVCRT_ftell function */
2716   int off=0;
2717
2718   *pos = _lseeki64(file->_file,0,SEEK_CUR);
2719
2720   if (*pos == -1) return -1;
2721
2722   if(file->_bufsiz)  {
2723         if( file->_flag & MSVCRT__IOWRT ) {
2724                 off = file->_ptr - file->_base;
2725         } else {
2726                 off = -file->_cnt;
2727         }
2728   }
2729   *pos += off;
2730
2731   return 0;
2732 }
2733
2734 /*********************************************************************
2735  *              fputs (MSVCRT.@)
2736  */
2737 int CDECL MSVCRT_fputs(const char *s, MSVCRT_FILE* file)
2738 {
2739     size_t i, len = strlen(s);
2740     if (!(MSVCRT_fdesc[file->_file].wxflag & WX_TEXT))
2741       return MSVCRT_fwrite(s,sizeof(*s),len,file) == len ? 0 : MSVCRT_EOF;
2742     for (i=0; i<len; i++)
2743       if (MSVCRT_fputc(s[i], file) == MSVCRT_EOF)
2744         return MSVCRT_EOF;
2745     return 0;
2746 }
2747
2748 /*********************************************************************
2749  *              fputws (MSVCRT.@)
2750  */
2751 int CDECL MSVCRT_fputws(const MSVCRT_wchar_t *s, MSVCRT_FILE* file)
2752 {
2753     size_t i, len = strlenW(s);
2754     if (!(MSVCRT_fdesc[file->_file].wxflag & WX_TEXT))
2755       return MSVCRT_fwrite(s,sizeof(*s),len,file) == len ? 0 : MSVCRT_EOF;
2756     for (i=0; i<len; i++)
2757       {
2758         if ((s[i] == L'\n') && (MSVCRT_fputc('\r', file) == MSVCRT_EOF))
2759           return MSVCRT_WEOF;
2760         if (MSVCRT_fputwc(s[i], file) == MSVCRT_WEOF)
2761           return MSVCRT_WEOF;
2762       }
2763     return 0;
2764 }
2765
2766 /*********************************************************************
2767  *              getchar (MSVCRT.@)
2768  */
2769 int CDECL MSVCRT_getchar(void)
2770 {
2771   return MSVCRT_fgetc(MSVCRT_stdin);
2772 }
2773
2774 /*********************************************************************
2775  *              getc (MSVCRT.@)
2776  */
2777 int CDECL MSVCRT_getc(MSVCRT_FILE* file)
2778 {
2779   return MSVCRT_fgetc(file);
2780 }
2781
2782 /*********************************************************************
2783  *              gets (MSVCRT.@)
2784  */
2785 char * CDECL MSVCRT_gets(char *buf)
2786 {
2787   int    cc;
2788   char * buf_start = buf;
2789
2790   for(cc = MSVCRT_fgetc(MSVCRT_stdin); cc != MSVCRT_EOF && cc != '\n';
2791       cc = MSVCRT_fgetc(MSVCRT_stdin))
2792   if(cc != '\r') *buf++ = (char)cc;
2793
2794   *buf = '\0';
2795
2796   TRACE("got '%s'\n", buf_start);
2797   return buf_start;
2798 }
2799
2800 /*********************************************************************
2801  *              _getws (MSVCRT.@)
2802  */
2803 MSVCRT_wchar_t* CDECL MSVCRT__getws(MSVCRT_wchar_t* buf)
2804 {
2805     MSVCRT_wint_t cc;
2806     MSVCRT_wchar_t* ws = buf;
2807
2808     for (cc = MSVCRT_fgetwc(MSVCRT_stdin); cc != MSVCRT_WEOF && cc != '\n';
2809          cc = MSVCRT_fgetwc(MSVCRT_stdin))
2810     {
2811         if (cc != '\r')
2812             *buf++ = (MSVCRT_wchar_t)cc;
2813     }
2814     *buf = '\0';
2815
2816     TRACE("got %s\n", debugstr_w(ws));
2817     return ws;
2818 }
2819
2820 /*********************************************************************
2821  *              putc (MSVCRT.@)
2822  */
2823 int CDECL MSVCRT_putc(int c, MSVCRT_FILE* file)
2824 {
2825   return MSVCRT_fputc(c, file);
2826 }
2827
2828 /*********************************************************************
2829  *              putchar (MSVCRT.@)
2830  */
2831 int CDECL MSVCRT_putchar(int c)
2832 {
2833   return MSVCRT_fputc(c, MSVCRT_stdout);
2834 }
2835
2836 /*********************************************************************
2837  *              puts (MSVCRT.@)
2838  */
2839 int CDECL MSVCRT_puts(const char *s)
2840 {
2841     size_t len = strlen(s);
2842     if (MSVCRT_fwrite(s,sizeof(*s),len,MSVCRT_stdout) != len) return MSVCRT_EOF;
2843     return MSVCRT_fwrite("\n",1,1,MSVCRT_stdout) == 1 ? 0 : MSVCRT_EOF;
2844 }
2845
2846 /*********************************************************************
2847  *              _putws (MSVCRT.@)
2848  */
2849 int CDECL _putws(const MSVCRT_wchar_t *s)
2850 {
2851     static const MSVCRT_wchar_t nl = '\n';
2852     size_t len = strlenW(s);
2853     if (MSVCRT_fwrite(s,sizeof(*s),len,MSVCRT_stdout) != len) return MSVCRT_EOF;
2854     return MSVCRT_fwrite(&nl,sizeof(nl),1,MSVCRT_stdout) == 1 ? 0 : MSVCRT_EOF;
2855 }
2856
2857 /*********************************************************************
2858  *              remove (MSVCRT.@)
2859  */
2860 int CDECL MSVCRT_remove(const char *path)
2861 {
2862   TRACE("(%s)\n",path);
2863   if (DeleteFileA(path))
2864     return 0;
2865   TRACE(":failed (%d)\n",GetLastError());
2866   msvcrt_set_errno(GetLastError());
2867   return -1;
2868 }
2869
2870 /*********************************************************************
2871  *              _wremove (MSVCRT.@)
2872  */
2873 int CDECL _wremove(const MSVCRT_wchar_t *path)
2874 {
2875   TRACE("(%s)\n",debugstr_w(path));
2876   if (DeleteFileW(path))
2877     return 0;
2878   TRACE(":failed (%d)\n",GetLastError());
2879   msvcrt_set_errno(GetLastError());
2880   return -1;
2881 }
2882
2883 /*********************************************************************
2884  *              rename (MSVCRT.@)
2885  */
2886 int CDECL MSVCRT_rename(const char *oldpath,const char *newpath)
2887 {
2888   TRACE(":from %s to %s\n",oldpath,newpath);
2889   if (MoveFileExA(oldpath, newpath, MOVEFILE_COPY_ALLOWED))
2890     return 0;
2891   TRACE(":failed (%d)\n",GetLastError());
2892   msvcrt_set_errno(GetLastError());
2893   return -1;
2894 }
2895
2896 /*********************************************************************
2897  *              _wrename (MSVCRT.@)
2898  */
2899 int CDECL _wrename(const MSVCRT_wchar_t *oldpath,const MSVCRT_wchar_t *newpath)
2900 {
2901   TRACE(":from %s to %s\n",debugstr_w(oldpath),debugstr_w(newpath));
2902   if (MoveFileExW(oldpath, newpath, MOVEFILE_COPY_ALLOWED))
2903     return 0;
2904   TRACE(":failed (%d)\n",GetLastError());
2905   msvcrt_set_errno(GetLastError());
2906   return -1;
2907 }
2908
2909 /*********************************************************************
2910  *              setvbuf (MSVCRT.@)
2911  */
2912 int CDECL MSVCRT_setvbuf(MSVCRT_FILE* file, char *buf, int mode, MSVCRT_size_t size)
2913 {
2914   /* TODO: Check if file busy */
2915   if(file->_bufsiz) {
2916         MSVCRT_free(file->_base);
2917         file->_bufsiz = 0;
2918         file->_cnt = 0;
2919   }
2920   if(mode == MSVCRT__IOFBF) {
2921         file->_flag &= ~MSVCRT__IONBF;
2922         file->_base = file->_ptr = buf;
2923         if(buf) {
2924                 file->_bufsiz = size;
2925         }
2926   } else {
2927         file->_flag |= MSVCRT__IONBF;
2928   }
2929   return 0;
2930 }
2931
2932 /*********************************************************************
2933  *              setbuf (MSVCRT.@)
2934  */
2935 void CDECL MSVCRT_setbuf(MSVCRT_FILE* file, char *buf)
2936 {
2937   MSVCRT_setvbuf(file, buf, buf ? MSVCRT__IOFBF : MSVCRT__IONBF, MSVCRT_BUFSIZ);
2938 }
2939
2940 /*********************************************************************
2941  *              tmpnam (MSVCRT.@)
2942  */
2943 char * CDECL MSVCRT_tmpnam(char *s)
2944 {
2945   static int unique;
2946   char tmpstr[16];
2947   char *p;
2948   int count;
2949   if (s == 0)
2950     s = MSVCRT_tmpname;
2951   msvcrt_int_to_base32(GetCurrentProcessId(), tmpstr);
2952   p = s + sprintf(s, "\\s%s.", tmpstr);
2953   for (count = 0; count < MSVCRT_TMP_MAX; count++)
2954   {
2955     msvcrt_int_to_base32(unique++, tmpstr);
2956     strcpy(p, tmpstr);
2957     if (GetFileAttributesA(s) == INVALID_FILE_ATTRIBUTES &&
2958         GetLastError() == ERROR_FILE_NOT_FOUND)
2959       break;
2960   }
2961   return s;
2962 }
2963
2964 /*********************************************************************
2965  *              tmpfile (MSVCRT.@)
2966  */
2967 MSVCRT_FILE* CDECL MSVCRT_tmpfile(void)
2968 {
2969   char *filename = MSVCRT_tmpnam(NULL);
2970   int fd;
2971   MSVCRT_FILE* file = NULL;
2972
2973   LOCK_FILES();
2974   fd = _open(filename, MSVCRT__O_CREAT | MSVCRT__O_BINARY | MSVCRT__O_RDWR | MSVCRT__O_TEMPORARY);
2975   if (fd != -1 && (file = msvcrt_alloc_fp()))
2976   {
2977     if (msvcrt_init_fp(file, fd, MSVCRT__O_RDWR) == -1)
2978     {
2979         file->_flag = 0;
2980         file = NULL;
2981     }
2982     else file->_tmpfname = _strdup(filename);
2983   }
2984   UNLOCK_FILES();
2985   return file;
2986 }
2987
2988 /*********************************************************************
2989  *              vfprintf (MSVCRT.@)
2990  */
2991 int CDECL MSVCRT_vfprintf(MSVCRT_FILE* file, const char *format, va_list valist)
2992 {
2993   char buf[2048], *mem = buf;
2994   int written, resize = sizeof(buf), retval;
2995   /* There are two conventions for vsnprintf failing:
2996    * Return -1 if we truncated, or
2997    * Return the number of bytes that would have been written
2998    * The code below handles both cases
2999    */
3000   while ((written = MSVCRT_vsnprintf(mem, resize, format, valist)) == -1 ||
3001           written > resize)
3002   {
3003     resize = (written == -1 ? resize * 2 : written + 1);
3004     if (mem != buf)
3005       MSVCRT_free (mem);
3006     if (!(mem = (char *)MSVCRT_malloc(resize)))
3007       return MSVCRT_EOF;
3008   }
3009   retval = MSVCRT_fwrite(mem, sizeof(*mem), written, file);
3010   if (mem != buf)
3011     MSVCRT_free (mem);
3012   return retval;
3013 }
3014
3015 /*********************************************************************
3016  *              vfwprintf (MSVCRT.@)
3017  * FIXME:
3018  * Is final char included in written (then resize is too big) or not
3019  * (then we must test for equality too)?
3020  */
3021 int CDECL MSVCRT_vfwprintf(MSVCRT_FILE* file, const MSVCRT_wchar_t *format, va_list valist)
3022 {
3023   MSVCRT_wchar_t buf[2048], *mem = buf;
3024   int written, resize = sizeof(buf) / sizeof(MSVCRT_wchar_t), retval;
3025   /* See vfprintf comments */
3026   while ((written = MSVCRT_vsnwprintf(mem, resize, format, valist)) == -1 ||
3027           written > resize)
3028   {
3029     resize = (written == -1 ? resize * 2 : written + sizeof(MSVCRT_wchar_t));
3030     if (mem != buf)
3031       MSVCRT_free (mem);
3032     if (!(mem = (MSVCRT_wchar_t *)MSVCRT_malloc(resize*sizeof(*mem))))
3033       return MSVCRT_EOF;
3034   }
3035   retval = MSVCRT_fwrite(mem, sizeof(*mem), written, file);
3036   if (mem != buf)
3037     MSVCRT_free (mem);
3038   return retval;
3039 }
3040
3041 /*********************************************************************
3042  *              vprintf (MSVCRT.@)
3043  */
3044 int CDECL MSVCRT_vprintf(const char *format, va_list valist)
3045 {
3046   return MSVCRT_vfprintf(MSVCRT_stdout,format,valist);
3047 }
3048
3049 /*********************************************************************
3050  *              vwprintf (MSVCRT.@)
3051  */
3052 int CDECL MSVCRT_vwprintf(const MSVCRT_wchar_t *format, va_list valist)
3053 {
3054   return MSVCRT_vfwprintf(MSVCRT_stdout,format,valist);
3055 }
3056
3057 /*********************************************************************
3058  *              fprintf (MSVCRT.@)
3059  */
3060 int CDECL MSVCRT_fprintf(MSVCRT_FILE* file, const char *format, ...)
3061 {
3062     va_list valist;
3063     int res;
3064     va_start(valist, format);
3065     res = MSVCRT_vfprintf(file, format, valist);
3066     va_end(valist);
3067     return res;
3068 }
3069
3070 /*********************************************************************
3071  *              fwprintf (MSVCRT.@)
3072  */
3073 int CDECL MSVCRT_fwprintf(MSVCRT_FILE* file, const MSVCRT_wchar_t *format, ...)
3074 {
3075     va_list valist;
3076     int res;
3077     va_start(valist, format);
3078     res = MSVCRT_vfwprintf(file, format, valist);
3079     va_end(valist);
3080     return res;
3081 }
3082
3083 /*********************************************************************
3084  *              printf (MSVCRT.@)
3085  */
3086 int CDECL MSVCRT_printf(const char *format, ...)
3087 {
3088     va_list valist;
3089     int res;
3090     va_start(valist, format);
3091     res = MSVCRT_vfprintf(MSVCRT_stdout, format, valist);
3092     va_end(valist);
3093     return res;
3094 }
3095
3096 /*********************************************************************
3097  *              ungetc (MSVCRT.@)
3098  */
3099 int CDECL MSVCRT_ungetc(int c, MSVCRT_FILE * file)
3100 {
3101         if (c == MSVCRT_EOF)
3102                 return MSVCRT_EOF;
3103         if(file->_bufsiz == 0 && !(file->_flag & MSVCRT__IONBF)) {
3104                 msvcrt_alloc_buffer(file);
3105                 file->_ptr++;
3106         }
3107         if(file->_ptr>file->_base) {
3108                 file->_ptr--;
3109                 *file->_ptr=c;
3110                 file->_cnt++;
3111                 MSVCRT_clearerr(file);
3112                 return c;
3113         }
3114         return MSVCRT_EOF;
3115 }
3116
3117 /*********************************************************************
3118  *              ungetwc (MSVCRT.@)
3119  */
3120 MSVCRT_wint_t CDECL MSVCRT_ungetwc(MSVCRT_wint_t wc, MSVCRT_FILE * file)
3121 {
3122         MSVCRT_wchar_t mwc = wc;
3123         char * pp = (char *)&mwc;
3124         int i;
3125         for(i=sizeof(MSVCRT_wchar_t)-1;i>=0;i--) {
3126                 if(pp[i] != MSVCRT_ungetc(pp[i],file))
3127                         return MSVCRT_WEOF;
3128         }
3129         return mwc;
3130 }
3131
3132 /*********************************************************************
3133  *              wprintf (MSVCRT.@)
3134  */
3135 int CDECL MSVCRT_wprintf(const MSVCRT_wchar_t *format, ...)
3136 {
3137     va_list valist;
3138     int res;
3139     va_start(valist, format);
3140     res = MSVCRT_vwprintf(format, valist);
3141     va_end(valist);
3142     return res;
3143 }
3144
3145 /*********************************************************************
3146  *              _getmaxstdio (MSVCRT.@)
3147  */
3148 int CDECL _getmaxstdio(void)
3149 {
3150     FIXME("stub, always returns 512\n");
3151     return 512;
3152 }
3153
3154 /*********************************************************************
3155  *              _setmaxstdio_ (MSVCRT.@)
3156  */
3157 int CDECL _setmaxstdio(int newmax)
3158 {
3159     int res;
3160     if( newmax > 2048)
3161       res = -1;
3162     else
3163       res = newmax;
3164     FIXME("stub: setting new maximum for number of simultaneously open files not implemented,returning %d\n",res);
3165     return res;
3166 }
3167
3168 /*********************************************************************
3169  *              __pioinfo (MSVCRT.@)
3170  * FIXME: see MSVCRT_MAX_FILES define.
3171  */
3172 ioinfo * MSVCRT___pioinfo[] = { /* array of pointers to ioinfo arrays [64] */
3173     &MSVCRT_fdesc[0 * 64], &MSVCRT_fdesc[1 * 64], &MSVCRT_fdesc[2 * 64],
3174     &MSVCRT_fdesc[3 * 64], &MSVCRT_fdesc[4 * 64], &MSVCRT_fdesc[5 * 64],
3175     &MSVCRT_fdesc[6 * 64], &MSVCRT_fdesc[7 * 64], &MSVCRT_fdesc[8 * 64],
3176     &MSVCRT_fdesc[9 * 64], &MSVCRT_fdesc[10 * 64], &MSVCRT_fdesc[11 * 64],
3177     &MSVCRT_fdesc[12 * 64], &MSVCRT_fdesc[13 * 64], &MSVCRT_fdesc[14 * 64],
3178     &MSVCRT_fdesc[15 * 64], &MSVCRT_fdesc[16 * 64], &MSVCRT_fdesc[17 * 64],
3179     &MSVCRT_fdesc[18 * 64], &MSVCRT_fdesc[19 * 64], &MSVCRT_fdesc[20 * 64],
3180     &MSVCRT_fdesc[21 * 64], &MSVCRT_fdesc[22 * 64], &MSVCRT_fdesc[23 * 64],
3181     &MSVCRT_fdesc[24 * 64], &MSVCRT_fdesc[25 * 64], &MSVCRT_fdesc[26 * 64],
3182     &MSVCRT_fdesc[27 * 64], &MSVCRT_fdesc[28 * 64], &MSVCRT_fdesc[29 * 64],
3183     &MSVCRT_fdesc[30 * 64], &MSVCRT_fdesc[31 * 64]
3184 } ;
3185
3186 /*********************************************************************
3187  *              __badioinfo (MSVCRT.@)
3188  */
3189 ioinfo MSVCRT___badioinfo = { INVALID_HANDLE_VALUE, WX_TEXT };