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