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

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