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