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