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