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