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

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