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

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