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