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