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