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];
  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  *              __p__iob(MSVCRT.@)
 455  */
 456 MSVCRT_FILE * CDECL __p__iob(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  * http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vclib/html/_crt__pipe.asp
 676  * indicate file descriptors duplicated with _dup and _dup2 are always
 677  * inheritable.
 678  */
 679 int CDECL MSVCRT__dup2(int od, int nd)
 680 {
 681   int ret;
 682
 683   TRACE("(od=%d, nd=%d)\n", od, nd);
 684   LOCK_FILES();
 685   if (nd < MSVCRT_MAX_FILES && msvcrt_is_valid_fd(od))
 686   {
 687     HANDLE handle;
 688
 689     if (DuplicateHandle(GetCurrentProcess(), MSVCRT_fdesc[od].handle,
 690      GetCurrentProcess(), &handle, 0, TRUE, DUPLICATE_SAME_ACCESS))
 691     {
 692       int wxflag = MSVCRT_fdesc[od].wxflag & ~MSVCRT__O_NOINHERIT;
 693
 694       if (msvcrt_is_valid_fd(nd))
 695         MSVCRT__close(nd);
 696       ret = msvcrt_alloc_fd_from(handle, wxflag, nd);
 697       if (ret == -1)
 698       {
 699         CloseHandle(handle);
 700         *MSVCRT__errno() = MSVCRT_EMFILE;
 701       }
 702       else
 703       {
 704         /* _dup2 returns 0, not nd, on success */
 705         ret = 0;
 706       }
 707     }
 708     else
 709     {
 710       ret = -1;
 711       msvcrt_set_errno(GetLastError());
 712     }
 713   }
 714   else
 715   {
 716     *MSVCRT__errno() = MSVCRT_EBADF;
 717     ret = -1;
 718   }
 719   UNLOCK_FILES();
 720   return ret;
 721 }
 722
 723 /*********************************************************************
 724  *              _dup (MSVCRT.@)
 725  */
 726 int CDECL MSVCRT__dup(int od)
 727 {
 728   int fd, ret;
 729
 730   LOCK_FILES();
 731   fd = MSVCRT_fdstart;
 732   if (MSVCRT__dup2(od, fd) == 0)
 733     ret = fd;
 734   else
 735     ret = -1;
 736   UNLOCK_FILES();
 737   return ret;
 738 }
 739
 740 /*********************************************************************
 741  *              _eof (MSVCRT.@)
 742  */
 743 int CDECL _eof(int fd)
 744 {
 745   DWORD curpos,endpos;
 746   LONG hcurpos,hendpos;
 747   HANDLE hand = msvcrt_fdtoh(fd);
 748
 749   TRACE(":fd (%d) handle (%p)\n",fd,hand);
 750
 751   if (hand == INVALID_HANDLE_VALUE)
 752     return -1;
 753
 754   if (MSVCRT_fdesc[fd].wxflag & WX_ATEOF) return TRUE;
 755
 756   /* Otherwise we do it the hard way */
 757   hcurpos = hendpos = 0;
 758   curpos = SetFilePointer(hand, 0, &hcurpos, FILE_CURRENT);
 759   endpos = SetFilePointer(hand, 0, &hendpos, FILE_END);
 760
 761   if (curpos == endpos && hcurpos == hendpos)
 762   {
 763     /* FIXME: shouldn't WX_ATEOF be set here? */
 764     return TRUE;
 765   }
 766
 767   SetFilePointer(hand, curpos, &hcurpos, FILE_BEGIN);
 768   return FALSE;
 769 }
 770
 771 /*********************************************************************
 772  *              _fcloseall (MSVCRT.@)
 773  */
 774 int CDECL MSVCRT__fcloseall(void)
 775 {
 776   int num_closed = 0, i;
 777
 778   LOCK_FILES();
 779   for (i = 3; i < MSVCRT_stream_idx; i++)
 780     if (MSVCRT_fstreams[i] && MSVCRT_fstreams[i]->_flag &&
 781         !MSVCRT_fclose(MSVCRT_fstreams[i]))
 782       num_closed++;
 783   UNLOCK_FILES();
 784
 785   TRACE(":closed (%d) handles\n",num_closed);
 786   return num_closed;
 787 }
 788
 789 /* free everything on process exit */
 790 void msvcrt_free_io(void)
 791 {
 792     MSVCRT__fcloseall();
 793     /* The Win32 _fcloseall() function explicitly doesn't close stdin,
 794      * stdout, and stderr (unlike GNU), so we need to fclose() them here
 795      * or they won't get flushed.
 796      */
 797     MSVCRT_fclose(&MSVCRT__iob[0]);
 798     MSVCRT_fclose(&MSVCRT__iob[1]);
 799     MSVCRT_fclose(&MSVCRT__iob[2]);
 800     MSVCRT_file_cs.DebugInfo->Spare[0] = 0;
 801     DeleteCriticalSection(&MSVCRT_file_cs);
 802 }
 803
 804 /*********************************************************************
 805  *              _lseeki64 (MSVCRT.@)
 806  */
 807 __int64 CDECL _lseeki64(int fd, __int64 offset, int whence)
 808 {
 809   HANDLE hand = msvcrt_fdtoh(fd);
 810   LARGE_INTEGER ofs, ret;
 811
 812   TRACE(":fd (%d) handle (%p)\n",fd,hand);
 813   if (hand == INVALID_HANDLE_VALUE)
 814     return -1;
 815
 816   if (whence < 0 || whence > 2)
 817   {
 818     *MSVCRT__errno() = MSVCRT_EINVAL;
 819     return -1;
 820   }
 821
 822   TRACE(":fd (%d) to %s pos %s\n",
 823         fd,wine_dbgstr_longlong(offset),
 824         (whence==SEEK_SET)?"SEEK_SET":
 825         (whence==SEEK_CUR)?"SEEK_CUR":
 826         (whence==SEEK_END)?"SEEK_END":"UNKNOWN");
 827
 828   ofs.QuadPart = offset;
 829   if (SetFilePointerEx(hand, ofs, &ret, whence))
 830   {
 831     MSVCRT_fdesc[fd].wxflag &= ~(WX_ATEOF|WX_READEOF);
 832     /* FIXME: What if we seek _to_ EOF - is EOF set? */
 833
 834     return ret.QuadPart;
 835   }
 836   TRACE(":error-last error (%d)\n",GetLastError());
 837   msvcrt_set_errno(GetLastError());
 838   return -1;
 839 }
 840
 841 /*********************************************************************
 842  *              _lseek (MSVCRT.@)
 843  */
 844 LONG CDECL _lseek(int fd, LONG offset, int whence)
 845 {
 846     return _lseeki64(fd, offset, whence);
 847 }
 848
 849 /*********************************************************************
 850  *              _locking (MSVCRT.@)
 851  *
 852  * This is untested; the underlying LockFile doesn't work yet.
 853  */
 854 int CDECL _locking(int fd, int mode, LONG nbytes)
 855 {
 856   BOOL ret;
 857   DWORD cur_locn;
 858   HANDLE hand = msvcrt_fdtoh(fd);
 859
 860   TRACE(":fd (%d) handle (%p)\n",fd,hand);
 861   if (hand == INVALID_HANDLE_VALUE)
 862     return -1;
 863
 864   if (mode < 0 || mode > 4)
 865   {
 866     *MSVCRT__errno() = MSVCRT_EINVAL;
 867     return -1;
 868   }
 869
 870   TRACE(":fd (%d) by 0x%08x mode %s\n",
 871         fd,nbytes,(mode==MSVCRT__LK_UNLCK)?"_LK_UNLCK":
 872         (mode==MSVCRT__LK_LOCK)?"_LK_LOCK":
 873         (mode==MSVCRT__LK_NBLCK)?"_LK_NBLCK":
 874         (mode==MSVCRT__LK_RLCK)?"_LK_RLCK":
 875         (mode==MSVCRT__LK_NBRLCK)?"_LK_NBRLCK":
 876                           "UNKNOWN");
 877
 878   if ((cur_locn = SetFilePointer(hand, 0L, NULL, SEEK_CUR)) == INVALID_SET_FILE_POINTER)
 879   {
 880     FIXME ("Seek failed\n");
 881     *MSVCRT__errno() = MSVCRT_EINVAL; /* FIXME */
 882     return -1;
 883   }
 884   if (mode == MSVCRT__LK_LOCK || mode == MSVCRT__LK_RLCK)
 885   {
 886     int nretry = 10;
 887     ret = 1; /* just to satisfy gcc */
 888     while (nretry--)
 889     {
 890       ret = LockFile(hand, cur_locn, 0L, nbytes, 0L);
 891       if (ret) break;
 892       Sleep(1);
 893     }
 894   }
 895   else if (mode == MSVCRT__LK_UNLCK)
 896     ret = UnlockFile(hand, cur_locn, 0L, nbytes, 0L);
 897   else
 898     ret = LockFile(hand, cur_locn, 0L, nbytes, 0L);
 899   /* FIXME - what about error settings? */
 900   return ret ? 0 : -1;
 901 }
 902
 903 /*********************************************************************
 904  *              fseek (MSVCRT.@)
 905  */
 906 int CDECL MSVCRT_fseek(MSVCRT_FILE* file, long offset, int whence)
 907 {
 908   /* Flush output if needed */
 909   if(file->_flag & MSVCRT__IOWRT)
 910         msvcrt_flush_buffer(file);
 911
 912   if(whence == SEEK_CUR && file->_flag & MSVCRT__IOREAD ) {
 913         offset -= file->_cnt;
 914   }
 915   /* Discard buffered input */
 916   file->_cnt = 0;
 917   file->_ptr = file->_base;
 918   /* Reset direction of i/o */
 919   if(file->_flag & MSVCRT__IORW) {
 920         file->_flag &= ~(MSVCRT__IOREAD|MSVCRT__IOWRT);
 921   }
 922   return (_lseek(file->_file,offset,whence) == -1)?-1:0;
 923 }
 924
 925 /*********************************************************************
 926  *              _chsize (MSVCRT.@)
 927  */
 928 int CDECL _chsize(int fd, long size)
 929 {
 930     LONG cur, pos;
 931     HANDLE handle;
 932     BOOL ret = FALSE;
 933
 934     TRACE("(fd=%d, size=%ld)\n", fd, size);
 935
 936     LOCK_FILES();
 937
 938     handle = msvcrt_fdtoh(fd);
 939     if (handle != INVALID_HANDLE_VALUE)
 940     {
 941         /* save the current file pointer */
 942         cur = _lseek(fd, 0, SEEK_CUR);
 943         if (cur >= 0)
 944         {
 945             pos = _lseek(fd, size, SEEK_SET);
 946             if (pos >= 0)
 947             {
 948                 ret = SetEndOfFile(handle);
 949                 if (!ret) msvcrt_set_errno(GetLastError());
 950             }
 951
 952             /* restore the file pointer */
 953             _lseek(fd, cur, SEEK_SET);
 954         }
 955     }
 956
 957     UNLOCK_FILES();
 958     return ret ? 0 : -1;
 959 }
 960
 961 /*********************************************************************
 962  *              clearerr (MSVCRT.@)
 963  */
 964 void CDECL MSVCRT_clearerr(MSVCRT_FILE* file)
 965 {
 966   TRACE(":file (%p) fd (%d)\n",file,file->_file);
 967   file->_flag &= ~(MSVCRT__IOERR | MSVCRT__IOEOF);
 968 }
 969
 970 /*********************************************************************
 971  *              rewind (MSVCRT.@)
 972  */
 973 void CDECL MSVCRT_rewind(MSVCRT_FILE* file)
 974 {
 975   TRACE(":file (%p) fd (%d)\n",file,file->_file);
 976   MSVCRT_fseek(file, 0L, SEEK_SET);
 977   MSVCRT_clearerr(file);
 978 }
 979
 980 static int msvcrt_get_flags(const char* mode, int *open_flags, int* stream_flags)
 981 {
 982   int plus = strchr(mode, '+') != NULL;
 983
 984   switch(*mode++)
 985   {
 986   case 'R': case 'r':
 987     *open_flags = plus ? MSVCRT__O_RDWR : MSVCRT__O_RDONLY;
 988     *stream_flags = plus ? MSVCRT__IORW : MSVCRT__IOREAD;
 989     break;
 990   case 'W': case 'w':
 991     *open_flags = MSVCRT__O_CREAT | MSVCRT__O_TRUNC | (plus  ? MSVCRT__O_RDWR : MSVCRT__O_WRONLY);
 992     *stream_flags = plus ? MSVCRT__IORW : MSVCRT__IOWRT;
 993     break;
 994   case 'A': case 'a':
 995     *open_flags = MSVCRT__O_CREAT | MSVCRT__O_APPEND | (plus  ? MSVCRT__O_RDWR : MSVCRT__O_WRONLY);
 996     *stream_flags = plus ? MSVCRT__IORW : MSVCRT__IOWRT;
 997     break;
 998   default:
 999     return -1;
1000   }
1001
1002   while (*mode)
1003     switch (*mode++)
1004     {
1005     case 'B': case 'b':
1006       *open_flags |=  MSVCRT__O_BINARY;
1007       *open_flags &= ~MSVCRT__O_TEXT;
1008       break;
1009     case 'T': case 't':
1010       *open_flags |=  MSVCRT__O_TEXT;
1011       *open_flags &= ~MSVCRT__O_BINARY;
1012       break;
1013     case '+':
1014       break;
1015     default:
1016       FIXME(":unknown flag %c not supported\n",mode[-1]);
1017     }
1018   return 0;
1019 }
1020
1021 /*********************************************************************
1022  *              _fdopen (MSVCRT.@)
1023  */
1024 MSVCRT_FILE* CDECL MSVCRT__fdopen(int fd, const char *mode)
1025 {
1026   int open_flags, stream_flags;
1027   MSVCRT_FILE* file;
1028
1029   if (msvcrt_get_flags(mode, &open_flags, &stream_flags) == -1) return NULL;
1030
1031   LOCK_FILES();
1032   if (!(file = msvcrt_alloc_fp()))
1033     file = NULL;
1034   else if (msvcrt_init_fp(file, fd, stream_flags) == -1)
1035   {
1036     file->_flag = 0;
1037     file = NULL;
1038   }
1039   else TRACE(":fd (%d) mode (%s) FILE* (%p)\n",fd,mode,file);
1040   UNLOCK_FILES();
1041
1042   return file;
1043 }
1044
1045 /*********************************************************************
1046  *              _wfdopen (MSVCRT.@)
1047  */
1048 MSVCRT_FILE* CDECL MSVCRT__wfdopen(int fd, const MSVCRT_wchar_t *mode)
1049 {
1050   unsigned mlen = strlenW(mode);
1051   char *modea = MSVCRT_calloc(mlen + 1, 1);
1052   MSVCRT_FILE* file = NULL;
1053   int open_flags, stream_flags;
1054
1055   if (modea &&
1056       WideCharToMultiByte(CP_ACP,0,mode,mlen,modea,mlen,NULL,NULL))
1057   {
1058       if (msvcrt_get_flags(modea, &open_flags, &stream_flags) == -1) return NULL;
1059       LOCK_FILES();
1060       if (!(file = msvcrt_alloc_fp()))
1061         file = NULL;
1062       else if (msvcrt_init_fp(file, fd, stream_flags) == -1)
1063       {
1064         file->_flag = 0;
1065         file = NULL;
1066       }
1067       else
1068       {
1069         if (file)
1070           MSVCRT_rewind(file); /* FIXME: is this needed ??? */
1071         TRACE(":fd (%d) mode (%s) FILE* (%p)\n",fd,debugstr_w(mode),file);
1072       }
1073       UNLOCK_FILES();
1074   }
1075   return file;
1076 }
1077
1078 /*********************************************************************
1079  *              _filelength (MSVCRT.@)
1080  */
1081 LONG CDECL _filelength(int fd)
1082 {
1083   LONG curPos = _lseek(fd, 0, SEEK_CUR);
1084   if (curPos != -1)
1085   {
1086     LONG endPos = _lseek(fd, 0, SEEK_END);
1087     if (endPos != -1)
1088     {
1089       if (endPos != curPos)
1090         _lseek(fd, curPos, SEEK_SET);
1091       return endPos;
1092     }
1093   }
1094   return -1;
1095 }
1096
1097 /*********************************************************************
1098  *              _filelengthi64 (MSVCRT.@)
1099  */
1100 __int64 CDECL _filelengthi64(int fd)
1101 {
1102   __int64 curPos = _lseeki64(fd, 0, SEEK_CUR);
1103   if (curPos != -1)
1104   {
1105     __int64 endPos = _lseeki64(fd, 0, SEEK_END);
1106     if (endPos != -1)
1107     {
1108       if (endPos != curPos)
1109         _lseeki64(fd, curPos, SEEK_SET);
1110       return endPos;
1111     }
1112   }
1113   return -1;
1114 }
1115
1116 /*********************************************************************
1117  *              _fileno (MSVCRT.@)
1118  */
1119 int CDECL MSVCRT__fileno(MSVCRT_FILE* file)
1120 {
1121   TRACE(":FILE* (%p) fd (%d)\n",file,file->_file);
1122   return file->_file;
1123 }
1124
1125 /*********************************************************************
1126  *              _fstat64 (MSVCRT.@)
1127  */
1128 int CDECL MSVCRT__fstat64(int fd, struct MSVCRT__stat64* buf)
1129 {
1130   DWORD dw;
1131   DWORD type;
1132   BY_HANDLE_FILE_INFORMATION hfi;
1133   HANDLE hand = msvcrt_fdtoh(fd);
1134
1135   TRACE(":fd (%d) stat (%p)\n",fd,buf);
1136   if (hand == INVALID_HANDLE_VALUE)
1137     return -1;
1138
1139   if (!buf)
1140   {
1141     WARN(":failed-NULL buf\n");
1142     msvcrt_set_errno(ERROR_INVALID_PARAMETER);
1143     return -1;
1144   }
1145
1146   memset(&hfi, 0, sizeof(hfi));
1147   memset(buf, 0, sizeof(struct MSVCRT__stat64));
1148   type = GetFileType(hand);
1149   if (type == FILE_TYPE_PIPE)
1150   {
1151     buf->st_dev = buf->st_rdev = fd;
1152     buf->st_mode = S_IFIFO;
1153     buf->st_nlink = 1;
1154   }
1155   else if (type == FILE_TYPE_CHAR)
1156   {
1157     buf->st_dev = buf->st_rdev = fd;
1158     buf->st_mode = S_IFCHR;
1159     buf->st_nlink = 1;
1160   }
1161   else /* FILE_TYPE_DISK etc. */
1162   {
1163     if (!GetFileInformationByHandle(hand, &hfi))
1164     {
1165       WARN(":failed-last error (%d)\n",GetLastError());
1166       msvcrt_set_errno(ERROR_INVALID_PARAMETER);
1167       return -1;
1168     }
1169     buf->st_mode = S_IFREG | S_IREAD;
1170     if (!(hfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY))
1171       buf->st_mode |= S_IWRITE;
1172     buf->st_size  = ((__int64)hfi.nFileSizeHigh << 32) + hfi.nFileSizeLow;
1173     RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastAccessTime, &dw);
1174     buf->st_atime = dw;
1175     RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastWriteTime, &dw);
1176     buf->st_mtime = buf->st_ctime = dw;
1177     buf->st_nlink = hfi.nNumberOfLinks;
1178   }
1179   TRACE(":dwFileAttributes = 0x%x, mode set to 0x%x\n",hfi.dwFileAttributes,
1180    buf->st_mode);
1181   return 0;
1182 }
1183
1184 /*********************************************************************
1185  *              _fstati64 (MSVCRT.@)
1186  */
1187 int CDECL MSVCRT__fstati64(int fd, struct MSVCRT__stati64* buf)
1188 {
1189   int ret;
1190   struct MSVCRT__stat64 buf64;
1191
1192   ret = MSVCRT__fstat64(fd, &buf64);
1193   if (!ret)
1194     msvcrt_stat64_to_stati64(&buf64, buf);
1195   return ret;
1196 }
1197
1198 /*********************************************************************
1199  *              _fstat (MSVCRT.@)
1200  */
1201 int CDECL MSVCRT__fstat(int fd, struct MSVCRT__stat* buf)
1202 { int ret;
1203   struct MSVCRT__stat64 buf64;
1204
1205   ret = MSVCRT__fstat64(fd, &buf64);
1206   if (!ret)
1207       msvcrt_stat64_to_stat(&buf64, buf);
1208   return ret;
1209 }
1210
1211 /*********************************************************************
1212  *              _futime (MSVCRT.@)
1213  */
1214 int CDECL _futime(int fd, struct MSVCRT__utimbuf *t)
1215 {
1216   HANDLE hand = msvcrt_fdtoh(fd);
1217   FILETIME at, wt;
1218
1219   if (!t)
1220   {
1221     MSVCRT_time_t currTime;
1222     MSVCRT_time(&currTime);
1223     RtlSecondsSince1970ToTime(currTime, (LARGE_INTEGER *)&at);
1224     memcpy(&wt, &at, sizeof(wt));
1225   }
1226   else
1227   {
1228     RtlSecondsSince1970ToTime(t->actime, (LARGE_INTEGER *)&at);
1229     if (t->actime == t->modtime)
1230       memcpy(&wt, &at, sizeof(wt));
1231     else
1232       RtlSecondsSince1970ToTime(t->modtime, (LARGE_INTEGER *)&wt);
1233   }
1234
1235   if (!SetFileTime(hand, NULL, &at, &wt))
1236   {
1237     msvcrt_set_errno(GetLastError());
1238     return -1 ;
1239   }
1240   return 0;
1241 }
1242
1243 /*********************************************************************
1244  *              _get_osfhandle (MSVCRT.@)
1245  */
1246 long CDECL _get_osfhandle(int fd)
1247 {
1248   HANDLE hand = msvcrt_fdtoh(fd);
1249   TRACE(":fd (%d) handle (%p)\n",fd,hand);
1250
1251   return (long)hand;
1252 }
1253
1254 /*********************************************************************
1255  *              _isatty (MSVCRT.@)
1256  */
1257 int CDECL _isatty(int fd)
1258 {
1259   HANDLE hand = msvcrt_fdtoh(fd);
1260
1261   TRACE(":fd (%d) handle (%p)\n",fd,hand);
1262   if (hand == INVALID_HANDLE_VALUE)
1263     return 0;
1264
1265   return GetFileType(hand) == FILE_TYPE_CHAR? 1 : 0;
1266 }
1267
1268 /*********************************************************************
1269  *              _mktemp (MSVCRT.@)
1270  */
1271 char * CDECL _mktemp(char *pattern)
1272 {
1273   int numX = 0;
1274   char *retVal = pattern;
1275   int id;
1276   char letter = 'a';
1277
1278   while(*pattern)
1279     numX = (*pattern++ == 'X')? numX + 1 : 0;
1280   if (numX < 5)
1281     return NULL;
1282   pattern--;
1283   id = GetCurrentProcessId();
1284   numX = 6;
1285   while(numX--)
1286   {
1287     int tempNum = id / 10;
1288     *pattern-- = id - (tempNum * 10) + '0';
1289     id = tempNum;
1290   }
1291   pattern++;
1292   do
1293   {
1294     *pattern = letter++;
1295     if (GetFileAttributesA(retVal) == INVALID_FILE_ATTRIBUTES &&
1296         GetLastError() == ERROR_FILE_NOT_FOUND)
1297       return retVal;
1298   } while(letter <= 'z');
1299   return NULL;
1300 }
1301
1302 /*********************************************************************
1303  *              _wmktemp (MSVCRT.@)
1304  */
1305 MSVCRT_wchar_t * CDECL _wmktemp(MSVCRT_wchar_t *pattern)
1306 {
1307   int numX = 0;
1308   MSVCRT_wchar_t *retVal = pattern;
1309   int id;
1310   MSVCRT_wchar_t letter = 'a';
1311
1312   while(*pattern)
1313     numX = (*pattern++ == 'X')? numX + 1 : 0;
1314   if (numX < 5)
1315     return NULL;
1316   pattern--;
1317   id = GetCurrentProcessId();
1318   numX = 6;
1319   while(numX--)
1320   {
1321     int tempNum = id / 10;
1322     *pattern-- = id - (tempNum * 10) + '0';
1323     id = tempNum;
1324   }
1325   pattern++;
1326   do
1327   {
1328     if (GetFileAttributesW(retVal) == INVALID_FILE_ATTRIBUTES &&
1329         GetLastError() == ERROR_FILE_NOT_FOUND)
1330       return retVal;
1331     *pattern = letter++;
1332   } while(letter != '|');
1333   return NULL;
1334 }
1335
1336 static unsigned split_oflags(unsigned oflags)
1337 {
1338     int         wxflags = 0;
1339     unsigned unsupp; /* until we support everything */
1340
1341     if (oflags & MSVCRT__O_APPEND)              wxflags |= WX_APPEND;
1342     if (oflags & MSVCRT__O_BINARY)              {/* Nothing to do */}
1343     else if (oflags & MSVCRT__O_TEXT)           wxflags |= WX_TEXT;
1344     else if (*__p__fmode() & MSVCRT__O_BINARY)  {/* Nothing to do */}
1345     else                                        wxflags |= WX_TEXT; /* default to TEXT*/
1346     if (oflags & MSVCRT__O_NOINHERIT)           wxflags |= WX_DONTINHERIT;
1347
1348     if ((unsupp = oflags & ~(
1349                     MSVCRT__O_BINARY|MSVCRT__O_TEXT|MSVCRT__O_APPEND|
1350                     MSVCRT__O_TRUNC|MSVCRT__O_EXCL|MSVCRT__O_CREAT|
1351                     MSVCRT__O_RDWR|MSVCRT__O_WRONLY|MSVCRT__O_TEMPORARY|
1352                     MSVCRT__O_NOINHERIT|
1353                     MSVCRT__O_SEQUENTIAL|MSVCRT__O_RANDOM|MSVCRT__O_SHORT_LIVED
1354                     )))
1355         ERR(":unsupported oflags 0x%04x\n",unsupp);
1356
1357     return wxflags;
1358 }
1359
1360 /*********************************************************************
1361  *              _pipe (MSVCRT.@)
1362  */
1363 int CDECL MSVCRT__pipe(int *pfds, unsigned int psize, int textmode)
1364 {
1365   int ret = -1;
1366   SECURITY_ATTRIBUTES sa;
1367   HANDLE readHandle, writeHandle;
1368
1369   if (!pfds)
1370   {
1371     *MSVCRT__errno() = MSVCRT_EINVAL;
1372     return -1;
1373   }
1374
1375   sa.nLength = sizeof(SECURITY_ATTRIBUTES);
1376   sa.bInheritHandle = !(textmode & MSVCRT__O_NOINHERIT);
1377   sa.lpSecurityDescriptor = NULL;
1378   if (CreatePipe(&readHandle, &writeHandle, &sa, psize))
1379   {
1380     unsigned int wxflags = split_oflags(textmode);
1381     int fd;
1382
1383     LOCK_FILES();
1384     fd = msvcrt_alloc_fd(readHandle, wxflags);
1385     if (fd != -1)
1386     {
1387       pfds[0] = fd;
1388       fd = msvcrt_alloc_fd(writeHandle, wxflags);
1389       if (fd != -1)
1390       {
1391         pfds[1] = fd;
1392         ret = 0;
1393       }
1394       else
1395       {
1396         MSVCRT__close(pfds[0]);
1397         CloseHandle(writeHandle);
1398         *MSVCRT__errno() = MSVCRT_EMFILE;
1399       }
1400     }
1401     else
1402     {
1403       CloseHandle(readHandle);
1404       CloseHandle(writeHandle);
1405       *MSVCRT__errno() = MSVCRT_EMFILE;
1406     }
1407     UNLOCK_FILES();
1408   }
1409   else
1410     msvcrt_set_errno(GetLastError());
1411
1412   return ret;
1413 }
1414
1415 /*********************************************************************
1416  *              _sopen (MSVCRT.@)
1417  */
1418 int CDECL MSVCRT__sopen( const char *path, int oflags, int shflags, ... )
1419 {
1420   va_list ap;
1421   int pmode;
1422   DWORD access = 0, creation = 0, attrib;
1423   DWORD sharing;
1424   int wxflag = 0, fd;
1425   HANDLE hand;
1426   SECURITY_ATTRIBUTES sa;
1427
1428
1429   TRACE(":file (%s) oflags: 0x%04x shflags: 0x%04x\n",
1430         path, oflags, shflags);
1431
1432   wxflag = split_oflags(oflags);
1433   switch (oflags & (MSVCRT__O_RDONLY | MSVCRT__O_WRONLY | MSVCRT__O_RDWR))
1434   {
1435   case MSVCRT__O_RDONLY: access |= GENERIC_READ; break;
1436   case MSVCRT__O_WRONLY: access |= GENERIC_WRITE; break;
1437   case MSVCRT__O_RDWR:   access |= GENERIC_WRITE | GENERIC_READ; break;
1438   }
1439
1440   if (oflags & MSVCRT__O_CREAT)
1441   {
1442     va_start(ap, shflags);
1443       pmode = va_arg(ap, int);
1444     va_end(ap);
1445
1446     if(pmode & ~(MSVCRT__S_IREAD | MSVCRT__S_IWRITE))
1447       FIXME(": pmode 0x%04x ignored\n", pmode);
1448     else
1449       WARN(": pmode 0x%04x ignored\n", pmode);
1450
1451     if (oflags & MSVCRT__O_EXCL)
1452       creation = CREATE_NEW;
1453     else if (oflags & MSVCRT__O_TRUNC)
1454       creation = CREATE_ALWAYS;
1455     else
1456       creation = OPEN_ALWAYS;
1457   }
1458   else  /* no MSVCRT__O_CREAT */
1459   {
1460     if (oflags & MSVCRT__O_TRUNC)
1461       creation = TRUNCATE_EXISTING;
1462     else
1463       creation = OPEN_EXISTING;
1464   }
1465
1466   switch( shflags )
1467   {
1468     case MSVCRT__SH_DENYRW:
1469       sharing = 0L;
1470       break;
1471     case MSVCRT__SH_DENYWR:
1472       sharing = FILE_SHARE_READ;
1473       break;
1474     case MSVCRT__SH_DENYRD:
1475       sharing = FILE_SHARE_WRITE;
1476       break;
1477     case MSVCRT__SH_DENYNO:
1478       sharing = FILE_SHARE_READ | FILE_SHARE_WRITE;
1479       break;
1480     default:
1481       ERR( "Unhandled shflags 0x%x\n", shflags );
1482       return -1;
1483   }
1484   attrib = FILE_ATTRIBUTE_NORMAL;
1485
1486   if (oflags & MSVCRT__O_TEMPORARY)
1487   {
1488       attrib |= FILE_FLAG_DELETE_ON_CLOSE;
1489       access |= DELETE;
1490       sharing |= FILE_SHARE_DELETE;
1491   }
1492
1493   sa.nLength              = sizeof( SECURITY_ATTRIBUTES );
1494   sa.lpSecurityDescriptor = NULL;
1495   sa.bInheritHandle       = (oflags & MSVCRT__O_NOINHERIT) ? FALSE : TRUE;
1496
1497   hand = CreateFileA(path, access, sharing, &sa, creation, attrib, 0);
1498
1499   if (hand == INVALID_HANDLE_VALUE)  {
1500     WARN(":failed-last error (%d)\n",GetLastError());
1501     msvcrt_set_errno(GetLastError());
1502     return -1;
1503   }
1504
1505   fd = msvcrt_alloc_fd(hand, wxflag);
1506
1507   TRACE(":fd (%d) handle (%p)\n",fd, hand);
1508   return fd;
1509 }
1510
1511 /*********************************************************************
1512  *              _wsopen (MSVCRT.@)
1513  */
1514 int CDECL MSVCRT__wsopen( const MSVCRT_wchar_t* path, int oflags, int shflags, ... )
1515 {
1516   const unsigned int len = strlenW(path);
1517   char *patha = MSVCRT_calloc(len + 1,1);
1518   va_list ap;
1519   int pmode;
1520
1521   va_start(ap, shflags);
1522   pmode = va_arg(ap, int);
1523   va_end(ap);
1524
1525   if (patha && WideCharToMultiByte(CP_ACP,0,path,len,patha,len,NULL,NULL))
1526   {
1527     int retval = MSVCRT__sopen(patha,oflags,shflags,pmode);
1528     MSVCRT_free(patha);
1529     return retval;
1530   }
1531
1532   msvcrt_set_errno(GetLastError());
1533   return -1;
1534 }
1535
1536 /*********************************************************************
1537  *              _open (MSVCRT.@)
1538  */
1539 int CDECL MSVCRT__open( const char *path, int flags, ... )
1540 {
1541   va_list ap;
1542
1543   if (flags & MSVCRT__O_CREAT)
1544   {
1545     int pmode;
1546     va_start(ap, flags);
1547     pmode = va_arg(ap, int);
1548     va_end(ap);
1549     return MSVCRT__sopen( path, flags, MSVCRT__SH_DENYNO, pmode );
1550   }
1551   else
1552     return MSVCRT__sopen( path, flags, MSVCRT__SH_DENYNO);
1553 }
1554
1555 /*********************************************************************
1556  *              _wopen (MSVCRT.@)
1557  */
1558 int CDECL _wopen(const MSVCRT_wchar_t *path,int flags,...)
1559 {
1560   const unsigned int len = strlenW(path);
1561   char *patha = MSVCRT_calloc(len + 1,1);
1562   va_list ap;
1563   int pmode;
1564
1565   va_start(ap, flags);
1566   pmode = va_arg(ap, int);
1567   va_end(ap);
1568
1569   if (patha && WideCharToMultiByte(CP_ACP,0,path,len,patha,len,NULL,NULL))
1570   {
1571     int retval = MSVCRT__open(patha,flags,pmode);
1572     MSVCRT_free(patha);
1573     return retval;
1574   }
1575
1576   msvcrt_set_errno(GetLastError());
1577   return -1;
1578 }
1579
1580 /*********************************************************************
1581  *              _creat (MSVCRT.@)
1582  */
1583 int CDECL MSVCRT__creat(const char *path, int flags)
1584 {
1585   int usedFlags = (flags & MSVCRT__O_TEXT)| MSVCRT__O_CREAT| MSVCRT__O_WRONLY| MSVCRT__O_TRUNC;
1586   return MSVCRT__open(path, usedFlags);
1587 }
1588
1589 /*********************************************************************
1590  *              _wcreat (MSVCRT.@)
1591  */
1592 int CDECL _wcreat(const MSVCRT_wchar_t *path, int flags)
1593 {
1594   int usedFlags = (flags & MSVCRT__O_TEXT)| MSVCRT__O_CREAT| MSVCRT__O_WRONLY| MSVCRT__O_TRUNC;
1595   return _wopen(path, usedFlags);
1596 }
1597
1598 /*********************************************************************
1599  *              _open_osfhandle (MSVCRT.@)
1600  */
1601 int CDECL _open_osfhandle(long handle, int oflags)
1602 {
1603   int fd;
1604
1605   /* MSVCRT__O_RDONLY (0) always matches, so set the read flag
1606    * MFC's CStdioFile clears O_RDONLY (0)! if it wants to write to the
1607    * file, so set the write flag. It also only sets MSVCRT__O_TEXT if it wants
1608    * text - it never sets MSVCRT__O_BINARY.
1609    */
1610   /* don't let split_oflags() decide the mode if no mode is passed */
1611   if (!(oflags & (MSVCRT__O_BINARY | MSVCRT__O_TEXT)))
1612       oflags |= MSVCRT__O_BINARY;
1613
1614   fd = msvcrt_alloc_fd((HANDLE)handle, split_oflags(oflags));
1615   TRACE(":handle (%ld) fd (%d) flags 0x%08x\n", handle, fd, oflags);
1616   return fd;
1617 }
1618
1619 /*********************************************************************
1620  *              _rmtmp (MSVCRT.@)
1621  */
1622 int CDECL _rmtmp(void)
1623 {
1624   int num_removed = 0, i;
1625
1626   LOCK_FILES();
1627   for (i = 3; i < MSVCRT_stream_idx; i++)
1628     if (MSVCRT_fstreams[i] && MSVCRT_fstreams[i]->_tmpfname)
1629     {
1630       MSVCRT_fclose(MSVCRT_fstreams[i]);
1631       num_removed++;
1632     }
1633   UNLOCK_FILES();
1634
1635   if (num_removed)
1636     TRACE(":removed (%d) temp files\n",num_removed);
1637   return num_removed;
1638 }
1639
1640 /*********************************************************************
1641  * (internal) remove_cr
1642  *
1643  * Translate all \r\n to \n inplace.
1644  * return the number of \r removed
1645  * Corner cases required by some apps:
1646  *   \r\r\n -> \r\n
1647  * BUG: should save state across calls somehow, so CR LF that
1648  * straddles buffer boundary gets recognized properly?
1649  */
1650 static unsigned int remove_cr(char *buf, unsigned int count)
1651 {
1652     unsigned int i, j;
1653
1654     for (i=0, j=0; j < count; j++)
1655         if ((buf[j] != '\r') || ((j+1) < count && buf[j+1] != '\n'))
1656             buf[i++] = buf[j];
1657
1658     return count - i;
1659 }
1660
1661 /*********************************************************************
1662  * (internal) read_i
1663  */
1664 static int read_i(int fd, void *buf, unsigned int count)
1665 {
1666   DWORD num_read;
1667   char *bufstart = buf;
1668   HANDLE hand = msvcrt_fdtoh(fd);
1669
1670   if (MSVCRT_fdesc[fd].wxflag & WX_READEOF) {
1671      MSVCRT_fdesc[fd].wxflag |= WX_ATEOF;
1672      TRACE("already at EOF, returning 0\n");
1673      return 0;
1674   }
1675   /* Don't trace small reads, it gets *very* annoying */
1676   if (count > 4)
1677     TRACE(":fd (%d) handle (%p) buf (%p) len (%d)\n",fd,hand,buf,count);
1678   if (hand == INVALID_HANDLE_VALUE)
1679     return -1;
1680
1681   /* Reading single bytes in O_TEXT mode makes things slow
1682    * So read big chunks
1683    */
1684     if (ReadFile(hand, bufstart, count, &num_read, NULL))
1685     {
1686         if (MSVCRT_fdesc[fd].wxflag & WX_TEXT)
1687         {
1688             int i;
1689             /* in text mode, a ctrl-z signals EOF */
1690             for (i=0; i<num_read; i++)
1691             {
1692                 if (bufstart[i] == 0x1a)
1693                 {
1694                     num_read = i;
1695                     MSVCRT_fdesc[fd].wxflag |= (WX_ATEOF|WX_READEOF);
1696                     TRACE(":^Z EOF %s\n",debugstr_an(buf,num_read));
1697                     break;
1698                 }
1699             }
1700         }
1701         if (count != 0 && num_read == 0)
1702         {
1703             MSVCRT_fdesc[fd].wxflag |= (WX_ATEOF|WX_READEOF);
1704             TRACE(":EOF %s\n",debugstr_an(buf,num_read));
1705         }
1706     }
1707     else
1708     {
1709         if (GetLastError() == ERROR_BROKEN_PIPE)
1710         {
1711             TRACE(":end-of-pipe\n");
1712             MSVCRT_fdesc[fd].wxflag |= (WX_ATEOF|WX_READEOF);
1713             return 0;
1714         }
1715         else
1716         {
1717             TRACE(":failed-last error (%d)\n",GetLastError());
1718             return -1;
1719         }
1720     }
1721
1722   if (count > 4)
1723       TRACE("(%u), %s\n",num_read,debugstr_an(buf, num_read));
1724   return num_read;
1725 }
1726
1727 /*********************************************************************
1728  *              _read (MSVCRT.@)
1729  */
1730 int CDECL MSVCRT__read(int fd, void *buf, unsigned int count)
1731 {
1732   int num_read;
1733   num_read = read_i(fd, buf, count);
1734   if (num_read>0 && MSVCRT_fdesc[fd].wxflag & WX_TEXT)
1735   {
1736       num_read -= remove_cr(buf,num_read);
1737   }
1738   return num_read;
1739 }
1740
1741 /*********************************************************************
1742  *              _setmode (MSVCRT.@)
1743  */
1744 int CDECL _setmode(int fd,int mode)
1745 {
1746   int ret = MSVCRT_fdesc[fd].wxflag & WX_TEXT ? MSVCRT__O_TEXT : MSVCRT__O_BINARY;
1747   if (mode & (~(MSVCRT__O_TEXT|MSVCRT__O_BINARY)))
1748     FIXME("fd (%d) mode (0x%08x) unknown\n",fd,mode);
1749   if ((mode & MSVCRT__O_TEXT) == MSVCRT__O_TEXT)
1750     MSVCRT_fdesc[fd].wxflag |= WX_TEXT;
1751   else
1752     MSVCRT_fdesc[fd].wxflag &= ~WX_TEXT;
1753   return ret;
1754 }
1755
1756 /*********************************************************************
1757  *              _stat64 (MSVCRT.@)
1758  */
1759 int CDECL MSVCRT__stat64(const char* path, struct MSVCRT__stat64 * buf)
1760 {
1761   DWORD dw;
1762   WIN32_FILE_ATTRIBUTE_DATA hfi;
1763   unsigned short mode = ALL_S_IREAD;
1764   int plen;
1765
1766   TRACE(":file (%s) buf(%p)\n",path,buf);
1767
1768   if (!GetFileAttributesExA(path, GetFileExInfoStandard, &hfi))
1769   {
1770       TRACE("failed (%d)\n",GetLastError());
1771       msvcrt_set_errno(ERROR_FILE_NOT_FOUND);
1772       return -1;
1773   }
1774
1775   memset(buf,0,sizeof(struct MSVCRT__stat64));
1776
1777   /* FIXME: rdev isn't drive num, despite what the docs say-what is it?
1778      Bon 011120: This FIXME seems incorrect
1779                  Also a letter as first char isn't enough to be classified
1780                  as a drive letter
1781   */
1782   if (isalpha(*path)&& (*(path+1)==':'))
1783     buf->st_dev = buf->st_rdev = toupper(*path) - 'A'; /* drive num */
1784   else
1785     buf->st_dev = buf->st_rdev = _getdrive() - 1;
1786
1787   plen = strlen(path);
1788
1789   /* Dir, or regular file? */
1790   if ((hfi.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) ||
1791       (path[plen-1] == '\\'))
1792     mode |= (MSVCRT__S_IFDIR | ALL_S_IEXEC);
1793   else
1794   {
1795     mode |= MSVCRT__S_IFREG;
1796     /* executable? */
1797     if (plen > 6 && path[plen-4] == '.')  /* shortest exe: "\x.exe" */
1798     {
1799       unsigned int ext = tolower(path[plen-1]) | (tolower(path[plen-2]) << 8) |
1800                                  (tolower(path[plen-3]) << 16);
1801       if (ext == EXE || ext == BAT || ext == CMD || ext == COM)
1802           mode |= ALL_S_IEXEC;
1803     }
1804   }
1805
1806   if (!(hfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY))
1807     mode |= ALL_S_IWRITE;
1808
1809   buf->st_mode  = mode;
1810   buf->st_nlink = 1;
1811   buf->st_size  = ((__int64)hfi.nFileSizeHigh << 32) + hfi.nFileSizeLow;
1812   RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastAccessTime, &dw);
1813   buf->st_atime = dw;
1814   RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastWriteTime, &dw);
1815   buf->st_mtime = buf->st_ctime = dw;
1816   TRACE("%d %d 0x%08lx%08lx %ld %ld %ld\n", buf->st_mode,buf->st_nlink,
1817         (long)(buf->st_size >> 32),(long)buf->st_size,
1818         (long)buf->st_atime,(long)buf->st_mtime,(long)buf->st_ctime);
1819   return 0;
1820 }
1821
1822 /*********************************************************************
1823  *              _stati64 (MSVCRT.@)
1824  */
1825 int CDECL MSVCRT__stati64(const char* path, struct MSVCRT__stati64 * buf)
1826 {
1827   int ret;
1828   struct MSVCRT__stat64 buf64;
1829
1830   ret = MSVCRT__stat64(path, &buf64);
1831   if (!ret)
1832     msvcrt_stat64_to_stati64(&buf64, buf);
1833   return ret;
1834 }
1835
1836 /*********************************************************************
1837  *              _stat (MSVCRT.@)
1838  */
1839 int CDECL MSVCRT__stat(const char* path, struct MSVCRT__stat * buf)
1840 { int ret;
1841   struct MSVCRT__stat64 buf64;
1842
1843   ret = MSVCRT__stat64( path, &buf64);
1844   if (!ret)
1845       msvcrt_stat64_to_stat(&buf64, buf);
1846   return ret;
1847 }
1848
1849 /*********************************************************************
1850  *              _wstat64 (MSVCRT.@)
1851  */
1852 int CDECL MSVCRT__wstat64(const MSVCRT_wchar_t* path, struct MSVCRT__stat64 * buf)
1853 {
1854   DWORD dw;
1855   WIN32_FILE_ATTRIBUTE_DATA hfi;
1856   unsigned short mode = ALL_S_IREAD;
1857   int plen;
1858
1859   TRACE(":file (%s) buf(%p)\n",debugstr_w(path),buf);
1860
1861   if (!GetFileAttributesExW(path, GetFileExInfoStandard, &hfi))
1862   {
1863       TRACE("failed (%d)\n",GetLastError());
1864       msvcrt_set_errno(ERROR_FILE_NOT_FOUND);
1865       return -1;
1866   }
1867
1868   memset(buf,0,sizeof(struct MSVCRT__stat64));
1869
1870   /* FIXME: rdev isn't drive num, despite what the docs says-what is it? */
1871   if (MSVCRT_iswalpha(*path))
1872     buf->st_dev = buf->st_rdev = toupperW(*path - 'A'); /* drive num */
1873   else
1874     buf->st_dev = buf->st_rdev = _getdrive() - 1;
1875
1876   plen = strlenW(path);
1877
1878   /* Dir, or regular file? */
1879   if ((hfi.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) ||
1880       (path[plen-1] == '\\'))
1881     mode |= (MSVCRT__S_IFDIR | ALL_S_IEXEC);
1882   else
1883   {
1884     mode |= MSVCRT__S_IFREG;
1885     /* executable? */
1886     if (plen > 6 && path[plen-4] == '.')  /* shortest exe: "\x.exe" */
1887     {
1888       ULONGLONG ext = tolowerW(path[plen-1]) | (tolowerW(path[plen-2]) << 16) |
1889                                ((ULONGLONG)tolowerW(path[plen-3]) << 32);
1890       if (ext == WCEXE || ext == WCBAT || ext == WCCMD || ext == WCCOM)
1891         mode |= ALL_S_IEXEC;
1892     }
1893   }
1894
1895   if (!(hfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY))
1896     mode |= ALL_S_IWRITE;
1897
1898   buf->st_mode  = mode;
1899   buf->st_nlink = 1;
1900   buf->st_size  = ((__int64)hfi.nFileSizeHigh << 32) + hfi.nFileSizeLow;
1901   RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastAccessTime, &dw);
1902   buf->st_atime = dw;
1903   RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastWriteTime, &dw);
1904   buf->st_mtime = buf->st_ctime = dw;
1905   TRACE("%d %d 0x%08lx%08lx %ld %ld %ld\n", buf->st_mode,buf->st_nlink,
1906         (long)(buf->st_size >> 32),(long)buf->st_size,
1907         (long)buf->st_atime,(long)buf->st_mtime,(long)buf->st_ctime);
1908   return 0;
1909 }
1910
1911 /*********************************************************************
1912  *              _wstati64 (MSVCRT.@)
1913  */
1914 int CDECL MSVCRT__wstati64(const MSVCRT_wchar_t* path, struct MSVCRT__stati64 * buf)
1915 {
1916   int ret;
1917   struct MSVCRT__stat64 buf64;
1918
1919   ret = MSVCRT__wstat64(path, &buf64);
1920   if (!ret)
1921     msvcrt_stat64_to_stati64(&buf64, buf);
1922   return ret;
1923 }
1924
1925 /*********************************************************************
1926  *              _wstat (MSVCRT.@)
1927  */
1928 int CDECL MSVCRT__wstat(const MSVCRT_wchar_t* path, struct MSVCRT__stat * buf)
1929 {
1930   int ret;
1931   struct MSVCRT__stat64 buf64;
1932
1933   ret = MSVCRT__wstat64( path, &buf64 );
1934   if (!ret) msvcrt_stat64_to_stat(&buf64, buf);
1935   return ret;
1936 }
1937
1938 /*********************************************************************
1939  *              _tell (MSVCRT.@)
1940  */
1941 long CDECL _tell(int fd)
1942 {
1943   return _lseek(fd, 0, SEEK_CUR);
1944 }
1945
1946 /*********************************************************************
1947  *              _telli64 (MSVCRT.@)
1948  */
1949 __int64 CDECL _telli64(int fd)
1950 {
1951   return _lseeki64(fd, 0, SEEK_CUR);
1952 }
1953
1954 /*********************************************************************
1955  *              _tempnam (MSVCRT.@)
1956  */
1957 char * CDECL _tempnam(const char *dir, const char *prefix)
1958 {
1959   char tmpbuf[MAX_PATH];
1960   const char *tmp_dir = MSVCRT_getenv("TMP");
1961
1962   if (tmp_dir) dir = tmp_dir;
1963
1964   TRACE("dir (%s) prefix (%s)\n",dir,prefix);
1965   if (GetTempFileNameA(dir,prefix,0,tmpbuf))
1966   {
1967     TRACE("got name (%s)\n",tmpbuf);
1968     DeleteFileA(tmpbuf);
1969     return _strdup(tmpbuf);
1970   }
1971   TRACE("failed (%d)\n",GetLastError());
1972   return NULL;
1973 }
1974
1975 /*********************************************************************
1976  *              _wtempnam (MSVCRT.@)
1977  */
1978 MSVCRT_wchar_t * CDECL _wtempnam(const MSVCRT_wchar_t *dir, const MSVCRT_wchar_t *prefix)
1979 {
1980   MSVCRT_wchar_t tmpbuf[MAX_PATH];
1981
1982   TRACE("dir (%s) prefix (%s)\n",debugstr_w(dir),debugstr_w(prefix));
1983   if (GetTempFileNameW(dir,prefix,0,tmpbuf))
1984   {
1985     TRACE("got name (%s)\n",debugstr_w(tmpbuf));
1986     DeleteFileW(tmpbuf);
1987     return _wcsdup(tmpbuf);
1988   }
1989   TRACE("failed (%d)\n",GetLastError());
1990   return NULL;
1991 }
1992
1993 /*********************************************************************
1994  *              _umask (MSVCRT.@)
1995  */
1996 int CDECL MSVCRT__umask(int umask)
1997 {
1998   int old_umask = MSVCRT_umask;
1999   TRACE("(%d)\n",umask);
2000   MSVCRT_umask = umask;
2001   return old_umask;
2002 }
2003
2004 /*********************************************************************
2005  *              _utime (MSVCRT.@)
2006  */
2007 int CDECL _utime(const char* path, struct MSVCRT__utimbuf *t)
2008 {
2009   int fd = MSVCRT__open(path, MSVCRT__O_WRONLY | MSVCRT__O_BINARY);
2010
2011   if (fd > 0)
2012   {
2013     int retVal = _futime(fd, t);
2014     MSVCRT__close(fd);
2015     return retVal;
2016   }
2017   return -1;
2018 }
2019
2020 /*********************************************************************
2021  *              _wutime (MSVCRT.@)
2022  */
2023 int CDECL _wutime(const MSVCRT_wchar_t* path, struct MSVCRT__utimbuf *t)
2024 {
2025   int fd = _wopen(path, MSVCRT__O_WRONLY | MSVCRT__O_BINARY);
2026
2027   if (fd > 0)
2028   {
2029     int retVal = _futime(fd, t);
2030     MSVCRT__close(fd);
2031     return retVal;
2032   }
2033   return -1;
2034 }
2035
2036 /*********************************************************************
2037  *              _write (MSVCRT.@)
2038  */
2039 int CDECL MSVCRT__write(int fd, const void* buf, unsigned int count)
2040 {
2041   DWORD num_written;
2042   HANDLE hand = msvcrt_fdtoh(fd);
2043
2044   /* Don't trace small writes, it gets *very* annoying */
2045 #if 0
2046   if (count > 32)
2047     TRACE(":fd (%d) handle (%d) buf (%p) len (%d)\n",fd,hand,buf,count);
2048 #endif
2049   if (hand == INVALID_HANDLE_VALUE)
2050     {
2051       *MSVCRT__errno() = MSVCRT_EBADF;
2052       return -1;
2053     }
2054
2055   /* If appending, go to EOF */
2056   if (MSVCRT_fdesc[fd].wxflag & WX_APPEND)
2057     _lseek(fd, 0, FILE_END);
2058
2059   if (!(MSVCRT_fdesc[fd].wxflag & WX_TEXT))
2060     {
2061       if (WriteFile(hand, buf, count, &num_written, NULL)
2062           &&  (num_written == count))
2063         return num_written;
2064       TRACE("WriteFile (fd %d, hand %p) failed-last error (%d)\n", fd,
2065        hand, GetLastError());
2066       *MSVCRT__errno() = MSVCRT_ENOSPC;
2067     }
2068   else
2069   {
2070       unsigned int i, j, nr_lf;
2071       char *p = NULL;
2072       const char *q;
2073       const char *s = (const char *)buf, *buf_start = (const char *)buf;
2074       /* find number of \n ( without preceding \r ) */
2075       for ( nr_lf=0,i = 0; i <count; i++)
2076       {
2077           if (s[i]== '\n')
2078           {
2079               nr_lf++;
2080               /*if ((i >1) && (s[i-1] == '\r')) nr_lf--; */
2081           }
2082       }
2083       if (nr_lf)
2084       {
2085           if ((q = p = MSVCRT_malloc(count + nr_lf)))
2086           {
2087               for (s = (const char *)buf, i = 0, j = 0; i < count; i++)
2088               {
2089                   if (s[i]== '\n')
2090                   {
2091                       p[j++] = '\r';
2092                       /*if ((i >1) && (s[i-1] == '\r'))j--;*/
2093                   }
2094                   p[j++] = s[i];
2095               }
2096           }
2097           else
2098           {
2099               FIXME("Malloc failed\n");
2100               nr_lf =0;
2101               q = buf;
2102           }
2103       }
2104       else
2105           q = buf;
2106
2107       if ((WriteFile(hand, q, count+nr_lf, &num_written, NULL) == 0 ) || (num_written != count+nr_lf))
2108       {
2109           TRACE("WriteFile (fd %d, hand %p) failed-last error (%d), num_written %d\n",
2110            fd, hand, GetLastError(), num_written);
2111           *MSVCRT__errno() = MSVCRT_ENOSPC;
2112           if(nr_lf)
2113               MSVCRT_free(p);
2114           return s - buf_start;
2115       }
2116       else
2117       {
2118           if(nr_lf)
2119               MSVCRT_free(p);
2120           return count;
2121       }
2122   }
2123   return -1;
2124 }
2125
2126 /*********************************************************************
2127  *              _putw (MSVCRT.@)
2128  */
2129 int CDECL MSVCRT__putw(int val, MSVCRT_FILE* file)
2130 {
2131   int len;
2132   len = MSVCRT__write(file->_file, &val, sizeof(val));
2133   if (len == sizeof(val)) return val;
2134   file->_flag |= MSVCRT__IOERR;
2135   return MSVCRT_EOF;
2136 }
2137
2138 /*********************************************************************
2139  *              fclose (MSVCRT.@)
2140  */
2141 int CDECL MSVCRT_fclose(MSVCRT_FILE* file)
2142 {
2143   int r, flag;
2144
2145   flag = file->_flag;
2146   MSVCRT_free(file->_tmpfname);
2147   file->_tmpfname = NULL;
2148   /* flush stdio buffers */
2149   if(file->_flag & MSVCRT__IOWRT)
2150       MSVCRT_fflush(file);
2151   if(file->_flag & MSVCRT__IOMYBUF)
2152       MSVCRT_free(file->_base);
2153
2154   r=MSVCRT__close(file->_file);
2155
2156   file->_flag = 0;
2157
2158   return ((r == -1) || (flag & MSVCRT__IOERR) ? MSVCRT_EOF : 0);
2159 }
2160
2161 /*********************************************************************
2162  *              feof (MSVCRT.@)
2163  */
2164 int CDECL MSVCRT_feof(MSVCRT_FILE* file)
2165 {
2166   return file->_flag & MSVCRT__IOEOF;
2167 }
2168
2169 /*********************************************************************
2170  *              ferror (MSVCRT.@)
2171  */
2172 int CDECL MSVCRT_ferror(MSVCRT_FILE* file)
2173 {
2174   return file->_flag & MSVCRT__IOERR;
2175 }
2176
2177 /*********************************************************************
2178  *              _filbuf (MSVCRT.@)
2179  */
2180 int CDECL MSVCRT__filbuf(MSVCRT_FILE* file)
2181 {
2182   /* Allocate buffer if needed */
2183   if(file->_bufsiz == 0 && !(file->_flag & MSVCRT__IONBF) ) {
2184         msvcrt_alloc_buffer(file);
2185   }
2186   if(!(file->_flag & MSVCRT__IOREAD)) {
2187         if(file->_flag & MSVCRT__IORW) {
2188                 file->_flag |= MSVCRT__IOREAD;
2189         } else {
2190                 return MSVCRT_EOF;
2191         }
2192   }
2193   if(file->_flag & MSVCRT__IONBF) {
2194         unsigned char c;
2195         int r;
2196         if ((r = read_i(file->_file,&c,1)) != 1) {
2197             file->_flag |= (r == 0) ? MSVCRT__IOEOF : MSVCRT__IOERR;
2198             return MSVCRT_EOF;
2199         }
2200         return c;
2201   } else {
2202         file->_cnt = read_i(file->_file, file->_base, file->_bufsiz);
2203         if(file->_cnt<=0) {
2204             file->_flag |= (file->_cnt == 0) ? MSVCRT__IOEOF : MSVCRT__IOERR;
2205             file->_cnt = 0;
2206             return MSVCRT_EOF;
2207         }
2208         file->_cnt--;
2209         file->_ptr = file->_base+1;
2210         return *(unsigned char *)file->_base;
2211   }
2212 }
2213
2214 /*********************************************************************
2215  *              fgetc (MSVCRT.@)
2216  */
2217 int CDECL MSVCRT_fgetc(MSVCRT_FILE* file)
2218 {
2219   unsigned char *i;
2220   unsigned int j;
2221   do {
2222     if (file->_cnt>0) {
2223       file->_cnt--;
2224       i = (unsigned char *)file->_ptr++;
2225       j = *i;
2226     } else
2227       j = MSVCRT__filbuf(file);
2228     if (!(MSVCRT_fdesc[file->_file].wxflag & WX_TEXT)
2229     || ((j != '\r') || (file->_cnt && file->_ptr[0] != '\n')))
2230         return j;
2231   } while(1);
2232 }
2233
2234 /*********************************************************************
2235  *              _fgetchar (MSVCRT.@)
2236  */
2237 int CDECL _fgetchar(void)
2238 {
2239   return MSVCRT_fgetc(MSVCRT_stdin);
2240 }
2241
2242 /*********************************************************************
2243  *              fgets (MSVCRT.@)
2244  */
2245 char * CDECL MSVCRT_fgets(char *s, int size, MSVCRT_FILE* file)
2246 {
2247   int    cc = MSVCRT_EOF;
2248   char * buf_start = s;
2249
2250   TRACE(":file(%p) fd (%d) str (%p) len (%d)\n",
2251         file,file->_file,s,size);
2252
2253   while ((size >1) && (cc = MSVCRT_fgetc(file)) != MSVCRT_EOF && cc != '\n')
2254     {
2255       *s++ = (char)cc;
2256       size --;
2257     }
2258   if ((cc == MSVCRT_EOF) && (s == buf_start)) /* If nothing read, return 0*/
2259   {
2260     TRACE(":nothing read\n");
2261     return NULL;
2262   }
2263   if ((cc != MSVCRT_EOF) && (size > 1))
2264     *s++ = cc;
2265   *s = '\0';
2266   TRACE(":got %s\n", debugstr_a(buf_start));
2267   return buf_start;
2268 }
2269
2270 /*********************************************************************
2271  *              fgetwc (MSVCRT.@)
2272  *
2273  * In MSVCRT__O_TEXT mode, multibyte characters are read from the file, dropping
2274  * the CR from CR/LF combinations
2275  */
2276 MSVCRT_wint_t CDECL MSVCRT_fgetwc(MSVCRT_FILE* file)
2277 {
2278   char c;
2279
2280   if (!(MSVCRT_fdesc[file->_file].wxflag & WX_TEXT))
2281     {
2282       MSVCRT_wchar_t wc;
2283       int i,j;
2284       char *chp, *wcp;
2285       wcp = (char *)&wc;
2286       for(i=0; i<sizeof(wc); i++)
2287       {
2288         if (file->_cnt>0)
2289         {
2290           file->_cnt--;
2291           chp = file->_ptr++;
2292           wcp[i] = *chp;
2293         }
2294         else
2295         {
2296           j = MSVCRT__filbuf(file);
2297           if(file->_cnt<=0)
2298           {
2299             file->_flag |= (file->_cnt == 0) ? MSVCRT__IOEOF : MSVCRT__IOERR;
2300             file->_cnt = 0;
2301             return MSVCRT_WEOF;
2302           }
2303           wcp[i] = j;
2304         }
2305       }
2306       return wc;
2307     }
2308
2309   c = MSVCRT_fgetc(file);
2310   if ((*__p___mb_cur_max() > 1) && MSVCRT_isleadbyte(c))
2311     {
2312       FIXME("Treat Multibyte characters\n");
2313     }
2314   if (c == MSVCRT_EOF)
2315     return MSVCRT_WEOF;
2316   else
2317     return (MSVCRT_wint_t)c;
2318 }
2319
2320 /*********************************************************************
2321  *              _getw (MSVCRT.@)
2322  */
2323 int CDECL MSVCRT__getw(MSVCRT_FILE* file)
2324 {
2325   char *ch;
2326   int i, j, k;
2327   ch = (char *)&i;
2328   for (j=0; j<sizeof(int); j++) {
2329     k = MSVCRT_fgetc(file);
2330     if (k == MSVCRT_EOF) {
2331       file->_flag |= MSVCRT__IOEOF;
2332       return EOF;
2333     }
2334     ch[j] = k;
2335   }
2336   return i;
2337 }
2338
2339 /*********************************************************************
2340  *              getwc (MSVCRT.@)
2341  */
2342 MSVCRT_wint_t CDECL MSVCRT_getwc(MSVCRT_FILE* file)
2343 {
2344   return MSVCRT_fgetwc(file);
2345 }
2346
2347 /*********************************************************************
2348  *              _fgetwchar (MSVCRT.@)
2349  */
2350 MSVCRT_wint_t CDECL _fgetwchar(void)
2351 {
2352   return MSVCRT_fgetwc(MSVCRT_stdin);
2353 }
2354
2355 /*********************************************************************
2356  *              getwchar (MSVCRT.@)
2357  */
2358 MSVCRT_wint_t CDECL MSVCRT_getwchar(void)
2359 {
2360   return _fgetwchar();
2361 }
2362
2363 /*********************************************************************
2364  *              fgetws (MSVCRT.@)
2365  */
2366 MSVCRT_wchar_t * CDECL MSVCRT_fgetws(MSVCRT_wchar_t *s, int size, MSVCRT_FILE* file)
2367 {
2368   int    cc = MSVCRT_WEOF;
2369   MSVCRT_wchar_t * buf_start = s;
2370
2371   TRACE(":file(%p) fd (%d) str (%p) len (%d)\n",
2372         file,file->_file,s,size);
2373
2374   while ((size >1) && (cc = MSVCRT_fgetwc(file)) != MSVCRT_WEOF && cc != '\n')
2375     {
2376       *s++ = (char)cc;
2377       size --;
2378     }
2379   if ((cc == MSVCRT_WEOF) && (s == buf_start)) /* If nothing read, return 0*/
2380   {
2381     TRACE(":nothing read\n");
2382     return NULL;
2383   }
2384   if ((cc != MSVCRT_WEOF) && (size > 1))
2385     *s++ = cc;
2386   *s = 0;
2387   TRACE(":got %s\n", debugstr_w(buf_start));
2388   return buf_start;
2389 }
2390
2391 /*********************************************************************
2392  *              fwrite (MSVCRT.@)
2393  */
2394 MSVCRT_size_t CDECL MSVCRT_fwrite(const void *ptr, MSVCRT_size_t size, MSVCRT_size_t nmemb, MSVCRT_FILE* file)
2395 {
2396   MSVCRT_size_t wrcnt=size * nmemb;
2397   int written = 0;
2398   if (size == 0)
2399       return 0;
2400   if(file->_cnt) {
2401         int pcnt=(file->_cnt>wrcnt)? wrcnt: file->_cnt;
2402         memcpy(file->_ptr, ptr, pcnt);
2403         file->_cnt -= pcnt;
2404         file->_ptr += pcnt;
2405         written = pcnt;
2406         wrcnt -= pcnt;
2407         ptr = (const char*)ptr + pcnt;
2408   } else if(!(file->_flag & MSVCRT__IOWRT)) {
2409         if(file->_flag & MSVCRT__IORW) {
2410                 file->_flag |= MSVCRT__IOWRT;
2411         } else
2412                 return 0;
2413   }
2414   if(wrcnt) {
2415         /* Flush buffer */
2416         int res=msvcrt_flush_buffer(file);
2417         if(!res) {
2418                 int pwritten = MSVCRT__write(file->_file, ptr, wrcnt);
2419                 if (pwritten <= 0)
2420                 {
2421                     file->_flag |= MSVCRT__IOERR;
2422                     pwritten=0;
2423                 }
2424                 written += pwritten;
2425         }
2426   }
2427   return written / size;
2428 }
2429
2430 /*********************************************************************
2431  *              fputwc (MSVCRT.@)
2432  */
2433 MSVCRT_wint_t CDECL MSVCRT_fputwc(MSVCRT_wint_t wc, MSVCRT_FILE* file)
2434 {
2435   MSVCRT_wchar_t mwc=wc;
2436   if (MSVCRT_fwrite( &mwc, sizeof(mwc), 1, file) != 1)
2437     return MSVCRT_WEOF;
2438   return wc;
2439 }
2440
2441 /*********************************************************************
2442  *              _fputwchar (MSVCRT.@)
2443  */
2444 MSVCRT_wint_t CDECL _fputwchar(MSVCRT_wint_t wc)
2445 {
2446   return MSVCRT_fputwc(wc, MSVCRT_stdout);
2447 }
2448
2449 /*********************************************************************
2450  *              _fsopen (MSVCRT.@)
2451  */
2452 MSVCRT_FILE * CDECL MSVCRT__fsopen(const char *path, const char *mode, int share)
2453 {
2454   MSVCRT_FILE* file;
2455   int open_flags, stream_flags, fd;
2456
2457   TRACE("(%s,%s)\n",path,mode);
2458
2459   /* map mode string to open() flags. "man fopen" for possibilities. */
2460   if (msvcrt_get_flags(mode, &open_flags, &stream_flags) == -1)
2461       return NULL;
2462
2463   LOCK_FILES();
2464   fd = MSVCRT__sopen(path, open_flags, share, MSVCRT__S_IREAD | MSVCRT__S_IWRITE);
2465   if (fd < 0)
2466     file = NULL;
2467   else if ((file = msvcrt_alloc_fp()) && msvcrt_init_fp(file, fd, stream_flags)
2468    != -1)
2469     TRACE(":fd (%d) mode (%s) FILE* (%p)\n",fd,mode,file);
2470   else if (file)
2471   {
2472     file->_flag = 0;
2473     file = NULL;
2474   }
2475
2476   TRACE(":got (%p)\n",file);
2477   if (fd >= 0 && !file)
2478     MSVCRT__close(fd);
2479   UNLOCK_FILES();
2480   return file;
2481 }
2482
2483 /*********************************************************************
2484  *              _wfsopen (MSVCRT.@)
2485  */
2486 MSVCRT_FILE * CDECL MSVCRT__wfsopen(const MSVCRT_wchar_t *path, const MSVCRT_wchar_t *mode, int share)
2487 {
2488   const unsigned int plen = strlenW(path), mlen = strlenW(mode);
2489   char *patha = MSVCRT_calloc(plen + 1, 1);
2490   char *modea = MSVCRT_calloc(mlen + 1, 1);
2491
2492   TRACE("(%s,%s)\n",debugstr_w(path),debugstr_w(mode));
2493
2494   if (patha && modea &&
2495       WideCharToMultiByte(CP_ACP,0,path,plen,patha,plen,NULL,NULL) &&
2496       WideCharToMultiByte(CP_ACP,0,mode,mlen,modea,mlen,NULL,NULL))
2497   {
2498     MSVCRT_FILE *retval = MSVCRT__fsopen(patha,modea,share);
2499     MSVCRT_free(patha);
2500     MSVCRT_free(modea);
2501     return retval;
2502   }
2503
2504   msvcrt_set_errno(GetLastError());
2505   return NULL;
2506 }
2507
2508 /*********************************************************************
2509  *              fopen (MSVCRT.@)
2510  */
2511 MSVCRT_FILE * CDECL MSVCRT_fopen(const char *path, const char *mode)
2512 {
2513     return MSVCRT__fsopen( path, mode, MSVCRT__SH_DENYNO );
2514 }
2515
2516 /*********************************************************************
2517  *              _wfopen (MSVCRT.@)
2518  */
2519 MSVCRT_FILE * CDECL MSVCRT__wfopen(const MSVCRT_wchar_t *path, const MSVCRT_wchar_t *mode)
2520 {
2521     return MSVCRT__wfsopen( path, mode, MSVCRT__SH_DENYNO );
2522 }
2523
2524 /* MSVCRT_fputc calls MSVCRT__flsbuf which calls MSVCRT_fputc */
2525 int CDECL MSVCRT__flsbuf(int c, MSVCRT_FILE* file);
2526
2527 /*********************************************************************
2528  *              fputc (MSVCRT.@)
2529  */
2530 int CDECL MSVCRT_fputc(int c, MSVCRT_FILE* file)
2531 {
2532   if(file->_cnt>0) {
2533     *file->_ptr++=c;
2534     file->_cnt--;
2535     if (c == '\n')
2536     {
2537       int res = msvcrt_flush_buffer(file);
2538       return res ? res : c;
2539     }
2540     else
2541       return c;
2542   } else {
2543     return MSVCRT__flsbuf(c, file);
2544   }
2545 }
2546
2547 /*********************************************************************
2548  *              _flsbuf (MSVCRT.@)
2549  */
2550 int CDECL MSVCRT__flsbuf(int c, MSVCRT_FILE* file)
2551 {
2552   /* Flush output buffer */
2553   if(file->_bufsiz == 0 && !(file->_flag & MSVCRT__IONBF)) {
2554         msvcrt_alloc_buffer(file);
2555   }
2556   if(!(file->_flag & MSVCRT__IOWRT)) {
2557         if(file->_flag & MSVCRT__IORW) {
2558                 file->_flag |= MSVCRT__IOWRT;
2559         } else {
2560                 return MSVCRT_EOF;
2561         }
2562   }
2563   if(file->_bufsiz) {
2564         int res=msvcrt_flush_buffer(file);
2565         return res?res : MSVCRT_fputc(c, file);
2566   } else {
2567         unsigned char cc=c;
2568         int len;
2569         len = MSVCRT__write(file->_file, &cc, 1);
2570         if (len == 1) return c;
2571         file->_flag |= MSVCRT__IOERR;
2572         return MSVCRT_EOF;
2573   }
2574 }
2575
2576 /*********************************************************************
2577  *              _fputchar (MSVCRT.@)
2578  */
2579 int CDECL _fputchar(int c)
2580 {
2581   return MSVCRT_fputc(c, MSVCRT_stdout);
2582 }
2583
2584 /*********************************************************************
2585  *              fread (MSVCRT.@)
2586  */
2587 MSVCRT_size_t CDECL MSVCRT_fread(void *ptr, MSVCRT_size_t size, MSVCRT_size_t nmemb, MSVCRT_FILE* file)
2588 { MSVCRT_size_t rcnt=size * nmemb;
2589   MSVCRT_size_t read=0;
2590   int pread=0;
2591
2592   if(!rcnt)
2593         return 0;
2594
2595   /* first buffered data */
2596   if(file->_cnt>0) {
2597         int pcnt= (rcnt>file->_cnt)? file->_cnt:rcnt;
2598         memcpy(ptr, file->_ptr, pcnt);
2599         file->_cnt -= pcnt;
2600         file->_ptr += pcnt;
2601         if (MSVCRT_fdesc[file->_file].wxflag & WX_TEXT)
2602             pcnt -= remove_cr(ptr,pcnt);
2603         read += pcnt ;
2604         rcnt -= pcnt ;
2605         ptr = (char*)ptr + pcnt;
2606   } else if(!(file->_flag & MSVCRT__IOREAD )) {
2607         if(file->_flag & MSVCRT__IORW) {
2608                 file->_flag |= MSVCRT__IOREAD;
2609         } else
2610             return 0;
2611   }
2612   while(rcnt>0)
2613   {
2614     int i;
2615     /* Fill the buffer on small reads.
2616      * TODO: Use a better buffering strategy.
2617      */
2618     if (!file->_cnt && size*nmemb <= MSVCRT_BUFSIZ/2 && !(file->_flag & MSVCRT__IONBF)) {
2619       if (file->_bufsiz == 0) {
2620         msvcrt_alloc_buffer(file);
2621       }
2622       file->_cnt = MSVCRT__read(file->_file, file->_base, file->_bufsiz);
2623       file->_ptr = file->_base;
2624       i = (file->_cnt<rcnt) ? file->_cnt : rcnt;
2625       /* If the buffer fill reaches eof but fread wouldn't, clear eof. */
2626       if (i > 0 && i < file->_cnt) {
2627         MSVCRT_fdesc[file->_file].wxflag &= ~WX_ATEOF;
2628         file->_flag &= ~MSVCRT__IOEOF;
2629       }
2630       if (i > 0) {
2631         memcpy(ptr, file->_ptr, i);
2632         file->_cnt -= i;
2633         file->_ptr += i;
2634       }
2635     } else {
2636       i = MSVCRT__read(file->_file,ptr, rcnt);
2637     }
2638     pread += i;
2639     rcnt -= i;
2640     ptr = (char *)ptr+i;
2641     /* expose feof condition in the flags
2642      * MFC tests file->_flag for feof, and doesn't call feof())
2643      */
2644     if ( MSVCRT_fdesc[file->_file].wxflag & WX_ATEOF)
2645         file->_flag |= MSVCRT__IOEOF;
2646     else if (i == -1)
2647     {
2648         file->_flag |= MSVCRT__IOERR;
2649         pread = 0;
2650         rcnt = 0;
2651     }
2652     if (i < 1) break;
2653   }
2654   read+=pread;
2655   return read / size;
2656 }
2657
2658 /*********************************************************************
2659  *              freopen (MSVCRT.@)
2660  *
2661  */
2662 MSVCRT_FILE* CDECL MSVCRT_freopen(const char *path, const char *mode,MSVCRT_FILE* file)
2663 {
2664   int open_flags, stream_flags, fd;
2665
2666   TRACE(":path (%p) mode (%s) file (%p) fd (%d)\n",path,mode,file,file->_file);
2667
2668   LOCK_FILES();
2669   if (!file || ((fd = file->_file) < 0) || fd > MSVCRT_fdend)
2670     file = NULL;
2671   else
2672   {
2673     MSVCRT_fclose(file);
2674     /* map mode string to open() flags. "man fopen" for possibilities. */
2675     if (msvcrt_get_flags(mode, &open_flags, &stream_flags) == -1)
2676       file = NULL;
2677     else
2678     {
2679       fd = MSVCRT__open(path, open_flags, MSVCRT__S_IREAD | MSVCRT__S_IWRITE);
2680       if (fd < 0)
2681         file = NULL;
2682       else if (msvcrt_init_fp(file, fd, stream_flags) == -1)
2683       {
2684           file->_flag = 0;
2685           WARN(":failed-last error (%d)\n",GetLastError());
2686           msvcrt_set_errno(GetLastError());
2687           file = NULL;
2688       }
2689     }
2690   }
2691   UNLOCK_FILES();
2692   return file;
2693 }
2694
2695 /*********************************************************************
2696  *              fsetpos (MSVCRT.@)
2697  */
2698 int CDECL MSVCRT_fsetpos(MSVCRT_FILE* file, MSVCRT_fpos_t *pos)
2699 {
2700   /* Note that all this has been lifted 'as is' from fseek */
2701   if(file->_flag & MSVCRT__IOWRT)
2702         msvcrt_flush_buffer(file);
2703
2704   /* Discard buffered input */
2705   file->_cnt = 0;
2706   file->_ptr = file->_base;
2707
2708   /* Reset direction of i/o */
2709   if(file->_flag & MSVCRT__IORW) {
2710         file->_flag &= ~(MSVCRT__IOREAD|MSVCRT__IOWRT);
2711   }
2712
2713   return (_lseeki64(file->_file,*pos,SEEK_SET) == -1) ? -1 : 0;
2714 }
2715
2716 /*********************************************************************
2717  *              ftell (MSVCRT.@)
2718  */
2719 LONG CDECL MSVCRT_ftell(MSVCRT_FILE* file)
2720 {
2721   int off=0;
2722   long pos;
2723   if(file->_bufsiz)  {
2724         if( file->_flag & MSVCRT__IOWRT ) {
2725                 off = file->_ptr - file->_base;
2726         } else {
2727                 off = -file->_cnt;
2728         }
2729   }
2730   pos = _tell(file->_file);
2731   if(pos == -1) return pos;
2732   return off + pos;
2733 }
2734
2735 /*********************************************************************
2736  *              fgetpos (MSVCRT.@)
2737  */
2738 int CDECL MSVCRT_fgetpos(MSVCRT_FILE* file, MSVCRT_fpos_t *pos)
2739 {
2740   /* This code has been lifted form the MSVCRT_ftell function */
2741   int off=0;
2742
2743   *pos = _lseeki64(file->_file,0,SEEK_CUR);
2744
2745   if (*pos == -1) return -1;
2746
2747   if(file->_bufsiz)  {
2748         if( file->_flag & MSVCRT__IOWRT ) {
2749                 off = file->_ptr - file->_base;
2750         } else {
2751                 off = -file->_cnt;
2752         }
2753   }
2754   *pos += off;
2755
2756   return 0;
2757 }
2758
2759 /*********************************************************************
2760  *              fputs (MSVCRT.@)
2761  */
2762 int CDECL MSVCRT_fputs(const char *s, MSVCRT_FILE* file)
2763 {
2764     size_t i, len = strlen(s);
2765     if (!(MSVCRT_fdesc[file->_file].wxflag & WX_TEXT))
2766       return MSVCRT_fwrite(s,sizeof(*s),len,file) == len ? 0 : MSVCRT_EOF;
2767     for (i=0; i<len; i++)
2768       if (MSVCRT_fputc(s[i], file) == MSVCRT_EOF)
2769         return MSVCRT_EOF;
2770     return 0;
2771 }
2772
2773 /*********************************************************************
2774  *              fputws (MSVCRT.@)
2775  */
2776 int CDECL MSVCRT_fputws(const MSVCRT_wchar_t *s, MSVCRT_FILE* file)
2777 {
2778     size_t i, len = strlenW(s);
2779     if (!(MSVCRT_fdesc[file->_file].wxflag & WX_TEXT))
2780       return MSVCRT_fwrite(s,sizeof(*s),len,file) == len ? 0 : MSVCRT_EOF;
2781     for (i=0; i<len; i++)
2782       {
2783         if ((s[i] == '\n') && (MSVCRT_fputc('\r', file) == MSVCRT_EOF))
2784           return MSVCRT_WEOF;
2785         if (MSVCRT_fputwc(s[i], file) == MSVCRT_WEOF)
2786           return MSVCRT_WEOF;
2787       }
2788     return 0;
2789 }
2790
2791 /*********************************************************************
2792  *              getchar (MSVCRT.@)
2793  */
2794 int CDECL MSVCRT_getchar(void)
2795 {
2796   return MSVCRT_fgetc(MSVCRT_stdin);
2797 }
2798
2799 /*********************************************************************
2800  *              getc (MSVCRT.@)
2801  */
2802 int CDECL MSVCRT_getc(MSVCRT_FILE* file)
2803 {
2804   return MSVCRT_fgetc(file);
2805 }
2806
2807 /*********************************************************************
2808  *              gets (MSVCRT.@)
2809  */
2810 char * CDECL MSVCRT_gets(char *buf)
2811 {
2812   int    cc;
2813   char * buf_start = buf;
2814
2815   for(cc = MSVCRT_fgetc(MSVCRT_stdin); cc != MSVCRT_EOF && cc != '\n';
2816       cc = MSVCRT_fgetc(MSVCRT_stdin))
2817   if(cc != '\r') *buf++ = (char)cc;
2818
2819   *buf = '\0';
2820
2821   TRACE("got '%s'\n", buf_start);
2822   return buf_start;
2823 }
2824
2825 /*********************************************************************
2826  *              _getws (MSVCRT.@)
2827  */
2828 MSVCRT_wchar_t* CDECL MSVCRT__getws(MSVCRT_wchar_t* buf)
2829 {
2830     MSVCRT_wint_t cc;
2831     MSVCRT_wchar_t* ws = buf;
2832
2833     for (cc = MSVCRT_fgetwc(MSVCRT_stdin); cc != MSVCRT_WEOF && cc != '\n';
2834          cc = MSVCRT_fgetwc(MSVCRT_stdin))
2835     {
2836         if (cc != '\r')
2837             *buf++ = (MSVCRT_wchar_t)cc;
2838     }
2839     *buf = '\0';
2840
2841     TRACE("got %s\n", debugstr_w(ws));
2842     return ws;
2843 }
2844
2845 /*********************************************************************
2846  *              putc (MSVCRT.@)
2847  */
2848 int CDECL MSVCRT_putc(int c, MSVCRT_FILE* file)
2849 {
2850   return MSVCRT_fputc(c, file);
2851 }
2852
2853 /*********************************************************************
2854  *              putchar (MSVCRT.@)
2855  */
2856 int CDECL MSVCRT_putchar(int c)
2857 {
2858   return MSVCRT_fputc(c, MSVCRT_stdout);
2859 }
2860
2861 /*********************************************************************
2862  *              puts (MSVCRT.@)
2863  */
2864 int CDECL MSVCRT_puts(const char *s)
2865 {
2866     size_t len = strlen(s);
2867     if (MSVCRT_fwrite(s,sizeof(*s),len,MSVCRT_stdout) != len) return MSVCRT_EOF;
2868     return MSVCRT_fwrite("\n",1,1,MSVCRT_stdout) == 1 ? 0 : MSVCRT_EOF;
2869 }
2870
2871 /*********************************************************************
2872  *              _putws (MSVCRT.@)
2873  */
2874 int CDECL _putws(const MSVCRT_wchar_t *s)
2875 {
2876     static const MSVCRT_wchar_t nl = '\n';
2877     size_t len = strlenW(s);
2878     if (MSVCRT_fwrite(s,sizeof(*s),len,MSVCRT_stdout) != len) return MSVCRT_EOF;
2879     return MSVCRT_fwrite(&nl,sizeof(nl),1,MSVCRT_stdout) == 1 ? 0 : MSVCRT_EOF;
2880 }
2881
2882 /*********************************************************************
2883  *              remove (MSVCRT.@)
2884  */
2885 int CDECL MSVCRT_remove(const char *path)
2886 {
2887   TRACE("(%s)\n",path);
2888   if (DeleteFileA(path))
2889     return 0;
2890   TRACE(":failed (%d)\n",GetLastError());
2891   msvcrt_set_errno(GetLastError());
2892   return -1;
2893 }
2894
2895 /*********************************************************************
2896  *              _wremove (MSVCRT.@)
2897  */
2898 int CDECL _wremove(const MSVCRT_wchar_t *path)
2899 {
2900   TRACE("(%s)\n",debugstr_w(path));
2901   if (DeleteFileW(path))
2902     return 0;
2903   TRACE(":failed (%d)\n",GetLastError());
2904   msvcrt_set_errno(GetLastError());
2905   return -1;
2906 }
2907
2908 /*********************************************************************
2909  *              rename (MSVCRT.@)
2910  */
2911 int CDECL MSVCRT_rename(const char *oldpath,const char *newpath)
2912 {
2913   TRACE(":from %s to %s\n",oldpath,newpath);
2914   if (MoveFileExA(oldpath, newpath, MOVEFILE_COPY_ALLOWED))
2915     return 0;
2916   TRACE(":failed (%d)\n",GetLastError());
2917   msvcrt_set_errno(GetLastError());
2918   return -1;
2919 }
2920
2921 /*********************************************************************
2922  *              _wrename (MSVCRT.@)
2923  */
2924 int CDECL _wrename(const MSVCRT_wchar_t *oldpath,const MSVCRT_wchar_t *newpath)
2925 {
2926   TRACE(":from %s to %s\n",debugstr_w(oldpath),debugstr_w(newpath));
2927   if (MoveFileExW(oldpath, newpath, MOVEFILE_COPY_ALLOWED))
2928     return 0;
2929   TRACE(":failed (%d)\n",GetLastError());
2930   msvcrt_set_errno(GetLastError());
2931   return -1;
2932 }
2933
2934 /*********************************************************************
2935  *              setvbuf (MSVCRT.@)
2936  */
2937 int CDECL MSVCRT_setvbuf(MSVCRT_FILE* file, char *buf, int mode, MSVCRT_size_t size)
2938 {
2939   /* TODO: Check if file busy */
2940   if(file->_bufsiz) {
2941         MSVCRT_free(file->_base);
2942         file->_bufsiz = 0;
2943         file->_cnt = 0;
2944   }
2945   if(mode == MSVCRT__IOFBF) {
2946         file->_flag &= ~MSVCRT__IONBF;
2947         file->_base = file->_ptr = buf;
2948         if(buf) {
2949                 file->_bufsiz = size;
2950         }
2951   } else {
2952         file->_flag |= MSVCRT__IONBF;
2953   }
2954   return 0;
2955 }
2956
2957 /*********************************************************************
2958  *              setbuf (MSVCRT.@)
2959  */
2960 void CDECL MSVCRT_setbuf(MSVCRT_FILE* file, char *buf)
2961 {
2962   MSVCRT_setvbuf(file, buf, buf ? MSVCRT__IOFBF : MSVCRT__IONBF, MSVCRT_BUFSIZ);
2963 }
2964
2965 /*********************************************************************
2966  *              tmpnam (MSVCRT.@)
2967  */
2968 char * CDECL MSVCRT_tmpnam(char *s)
2969 {
2970   static int unique;
2971   char tmpstr[16];
2972   char *p;
2973   int count;
2974   if (s == 0)
2975     s = MSVCRT_tmpname;
2976   msvcrt_int_to_base32(GetCurrentProcessId(), tmpstr);
2977   p = s + sprintf(s, "\\s%s.", tmpstr);
2978   for (count = 0; count < MSVCRT_TMP_MAX; count++)
2979   {
2980     msvcrt_int_to_base32(unique++, tmpstr);
2981     strcpy(p, tmpstr);
2982     if (GetFileAttributesA(s) == INVALID_FILE_ATTRIBUTES &&
2983         GetLastError() == ERROR_FILE_NOT_FOUND)
2984       break;
2985   }
2986   return s;
2987 }
2988
2989 /*********************************************************************
2990  *              tmpfile (MSVCRT.@)
2991  */
2992 MSVCRT_FILE* CDECL MSVCRT_tmpfile(void)
2993 {
2994   char *filename = MSVCRT_tmpnam(NULL);
2995   int fd;
2996   MSVCRT_FILE* file = NULL;
2997
2998   LOCK_FILES();
2999   fd = MSVCRT__open(filename, MSVCRT__O_CREAT | MSVCRT__O_BINARY | MSVCRT__O_RDWR | MSVCRT__O_TEMPORARY);
3000   if (fd != -1 && (file = msvcrt_alloc_fp()))
3001   {
3002     if (msvcrt_init_fp(file, fd, MSVCRT__O_RDWR) == -1)
3003     {
3004         file->_flag = 0;
3005         file = NULL;
3006     }
3007     else file->_tmpfname = _strdup(filename);
3008   }
3009   UNLOCK_FILES();
3010   return file;
3011 }
3012
3013 /*********************************************************************
3014  *              vfprintf (MSVCRT.@)
3015  */
3016 int CDECL MSVCRT_vfprintf(MSVCRT_FILE* file, const char *format, va_list valist)
3017 {
3018   char buf[2048], *mem = buf;
3019   int written, resize = sizeof(buf), retval;
3020   /* There are two conventions for vsnprintf failing:
3021    * Return -1 if we truncated, or
3022    * Return the number of bytes that would have been written
3023    * The code below handles both cases
3024    */
3025   while ((written = MSVCRT_vsnprintf(mem, resize, format, valist)) == -1 ||
3026           written > resize)
3027   {
3028     resize = (written == -1 ? resize * 2 : written + 1);
3029     if (mem != buf)
3030       MSVCRT_free (mem);
3031     if (!(mem = MSVCRT_malloc(resize)))
3032       return MSVCRT_EOF;
3033   }
3034   retval = MSVCRT_fwrite(mem, sizeof(*mem), written, file);
3035   if (mem != buf)
3036     MSVCRT_free (mem);
3037   return retval;
3038 }
3039
3040 /*********************************************************************
3041  *              vfwprintf (MSVCRT.@)
3042  * FIXME:
3043  * Is final char included in written (then resize is too big) or not
3044  * (then we must test for equality too)?
3045  */
3046 int CDECL MSVCRT_vfwprintf(MSVCRT_FILE* file, const MSVCRT_wchar_t *format, va_list valist)
3047 {
3048   MSVCRT_wchar_t buf[2048], *mem = buf;
3049   int written, resize = sizeof(buf) / sizeof(MSVCRT_wchar_t), retval;
3050   /* See vfprintf comments */
3051   while ((written = MSVCRT_vsnwprintf(mem, resize, format, valist)) == -1 ||
3052           written > resize)
3053   {
3054     resize = (written == -1 ? resize * 2 : written + sizeof(MSVCRT_wchar_t));
3055     if (mem != buf)
3056       MSVCRT_free (mem);
3057     if (!(mem = MSVCRT_malloc(resize*sizeof(*mem))))
3058       return MSVCRT_EOF;
3059   }
3060   retval = MSVCRT_fwrite(mem, sizeof(*mem), written, file);
3061   if (mem != buf)
3062     MSVCRT_free (mem);
3063   return retval;
3064 }
3065
3066 /*********************************************************************
3067  *              vprintf (MSVCRT.@)
3068  */
3069 int CDECL MSVCRT_vprintf(const char *format, va_list valist)
3070 {
3071   return MSVCRT_vfprintf(MSVCRT_stdout,format,valist);
3072 }
3073
3074 /*********************************************************************
3075  *              vwprintf (MSVCRT.@)
3076  */
3077 int CDECL MSVCRT_vwprintf(const MSVCRT_wchar_t *format, va_list valist)
3078 {
3079   return MSVCRT_vfwprintf(MSVCRT_stdout,format,valist);
3080 }
3081
3082 /*********************************************************************
3083  *              fprintf (MSVCRT.@)
3084  */
3085 int CDECL MSVCRT_fprintf(MSVCRT_FILE* file, const char *format, ...)
3086 {
3087     va_list valist;
3088     int res;
3089     va_start(valist, format);
3090     res = MSVCRT_vfprintf(file, format, valist);
3091     va_end(valist);
3092     return res;
3093 }
3094
3095 /*********************************************************************
3096  *              fwprintf (MSVCRT.@)
3097  */
3098 int CDECL MSVCRT_fwprintf(MSVCRT_FILE* file, const MSVCRT_wchar_t *format, ...)
3099 {
3100     va_list valist;
3101     int res;
3102     va_start(valist, format);
3103     res = MSVCRT_vfwprintf(file, format, valist);
3104     va_end(valist);
3105     return res;
3106 }
3107
3108 /*********************************************************************
3109  *              printf (MSVCRT.@)
3110  */
3111 int CDECL MSVCRT_printf(const char *format, ...)
3112 {
3113     va_list valist;
3114     int res;
3115     va_start(valist, format);
3116     res = MSVCRT_vfprintf(MSVCRT_stdout, format, valist);
3117     va_end(valist);
3118     return res;
3119 }
3120
3121 /*********************************************************************
3122  *              ungetc (MSVCRT.@)
3123  */
3124 int CDECL MSVCRT_ungetc(int c, MSVCRT_FILE * file)
3125 {
3126         if (c == MSVCRT_EOF)
3127                 return MSVCRT_EOF;
3128         if(file->_bufsiz == 0 && !(file->_flag & MSVCRT__IONBF)) {
3129                 msvcrt_alloc_buffer(file);
3130                 file->_ptr++;
3131         }
3132         if(file->_ptr>file->_base) {
3133                 file->_ptr--;
3134                 *file->_ptr=c;
3135                 file->_cnt++;
3136                 MSVCRT_clearerr(file);
3137                 return c;
3138         }
3139         return MSVCRT_EOF;
3140 }
3141
3142 /*********************************************************************
3143  *              ungetwc (MSVCRT.@)
3144  */
3145 MSVCRT_wint_t CDECL MSVCRT_ungetwc(MSVCRT_wint_t wc, MSVCRT_FILE * file)
3146 {
3147         MSVCRT_wchar_t mwc = wc;
3148         char * pp = (char *)&mwc;
3149         int i;
3150         for(i=sizeof(MSVCRT_wchar_t)-1;i>=0;i--) {
3151                 if(pp[i] != MSVCRT_ungetc(pp[i],file))
3152                         return MSVCRT_WEOF;
3153         }
3154         return mwc;
3155 }
3156
3157 /*********************************************************************
3158  *              wprintf (MSVCRT.@)
3159  */
3160 int CDECL MSVCRT_wprintf(const MSVCRT_wchar_t *format, ...)
3161 {
3162     va_list valist;
3163     int res;
3164     va_start(valist, format);
3165     res = MSVCRT_vwprintf(format, valist);
3166     va_end(valist);
3167     return res;
3168 }
3169
3170 /*********************************************************************
3171  *              _getmaxstdio (MSVCRT.@)
3172  */
3173 int CDECL _getmaxstdio(void)
3174 {
3175     FIXME("stub, always returns 512\n");
3176     return 512;
3177 }
3178
3179 /*********************************************************************
3180  *              _setmaxstdio_ (MSVCRT.@)
3181  */
3182 int CDECL _setmaxstdio(int newmax)
3183 {
3184     int res;
3185     if( newmax > 2048)
3186       res = -1;
3187     else
3188       res = newmax;
3189     FIXME("stub: setting new maximum for number of simultaneously open files not implemented,returning %d\n",res);
3190     return res;
3191 }
3192
3193 /*********************************************************************
3194  *              __pioinfo (MSVCRT.@)
3195  * FIXME: see MSVCRT_MAX_FILES define.
3196  */
3197 ioinfo * MSVCRT___pioinfo[] = { /* array of pointers to ioinfo arrays [64] */
3198     &MSVCRT_fdesc[0 * 64], &MSVCRT_fdesc[1 * 64], &MSVCRT_fdesc[2 * 64],
3199     &MSVCRT_fdesc[3 * 64], &MSVCRT_fdesc[4 * 64], &MSVCRT_fdesc[5 * 64],
3200     &MSVCRT_fdesc[6 * 64], &MSVCRT_fdesc[7 * 64], &MSVCRT_fdesc[8 * 64],
3201     &MSVCRT_fdesc[9 * 64], &MSVCRT_fdesc[10 * 64], &MSVCRT_fdesc[11 * 64],
3202     &MSVCRT_fdesc[12 * 64], &MSVCRT_fdesc[13 * 64], &MSVCRT_fdesc[14 * 64],
3203     &MSVCRT_fdesc[15 * 64], &MSVCRT_fdesc[16 * 64], &MSVCRT_fdesc[17 * 64],
3204     &MSVCRT_fdesc[18 * 64], &MSVCRT_fdesc[19 * 64], &MSVCRT_fdesc[20 * 64],
3205     &MSVCRT_fdesc[21 * 64], &MSVCRT_fdesc[22 * 64], &MSVCRT_fdesc[23 * 64],
3206     &MSVCRT_fdesc[24 * 64], &MSVCRT_fdesc[25 * 64], &MSVCRT_fdesc[26 * 64],
3207     &MSVCRT_fdesc[27 * 64], &MSVCRT_fdesc[28 * 64], &MSVCRT_fdesc[29 * 64],
3208     &MSVCRT_fdesc[30 * 64], &MSVCRT_fdesc[31 * 64]
3209 } ;
3210
3211 /*********************************************************************
3212  *              __badioinfo (MSVCRT.@)
3213  */
3214 ioinfo MSVCRT___badioinfo = { INVALID_HANDLE_VALUE, WX_TEXT };