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