dlls/crtdll/file.c

   1 /*
   2  * CRTDLL 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  * Implementation Notes:
  10  * Mapping is performed between FILE*, fd and HANDLE's. This allows us to
  11  * implement all calls using the Win32 API, support remapping fd's to
  12  * FILES and do some other tricks as well (like closeall, _get_osfhandle).
  13  * For mix and matching with the host libc, processes can use the Win32 HANDLE
  14  * to get a real unix fd from the wineserver. Or we could do this once
  15  * on create, and provide a function to return it quickly (store it
  16  * in the mapping table). Note that If you actuall _do_ this, you should
  17  * call rewind() before using any other crt functions on the file. To avoid
  18  * the confusion I got when reading the API docs, fd is always refered
  19  * to as a file descriptor here. In the API docs its called a file handle
  20  * which is confusing with Win32 HANDLES.
  21  * M$ CRT includes inline versions of some of these functions (like feof()).
  22  * These inlines check/modify bitfields in the FILE structure, so we set
  23  * _flags/_file/_cnt in the FILE* to be binary compatable with the win dll.
  24  * lcc defines _IOAPPEND as one of the flags for a FILE*, but testing shows
  25  * that M$ CRT never sets it. So we keep the flag in our mapping table but
  26  * mask it out when we populate a FILE* with it. Then when we write we seek
  27  * to EOF if _IOAPPEND is set for the underlying fd.
  28  *
  29  * FIXME:
  30  * Not MT safe. Need locking around file access and allocation for this.
  31  * NT has no effective limit on files - neither should we. This will be fixed
  32  * with dynamic allocation of the file mapping array.
  33  * Buffering is handled differently. Have to investigate a) how much control
  34  * we have over buffering in win32, and b) if we care ;-)
  35  */
  36
  37 #include "crtdll.h"
  38 #include <stdarg.h>
  39 #include <string.h>
  40 #include <ctype.h>
  41 #include <errno.h>
  42 #include "ntddk.h"
  43
  44 DEFAULT_DEBUG_CHANNEL(crtdll);
  45
  46 /* FIXME: Make this dynamic */
  47 #define CRTDLL_MAX_FILES 257
  48
  49 HANDLE __CRTDLL_handles[CRTDLL_MAX_FILES];
  50 CRTDLL_FILE* __CRTDLL_files[CRTDLL_MAX_FILES];
  51 INT  __CRTDLL_flags[CRTDLL_MAX_FILES];
  52 CRTDLL_FILE __CRTDLL_iob[3];
  53
  54 static int __CRTDLL_fdstart = 3; /* first unallocated fd */
  55 static int __CRTDLL_fdend = 3; /* highest allocated fd */
  56
  57 /* INTERNAL: process umask */
  58 static INT __CRTDLL_umask = 0;
  59
  60 /* INTERNAL: Static buffer for temp file name */
  61 static char CRTDLL_tmpname[MAX_PATH];
  62
  63 /* file extentions recognised as executables */
  64 static const unsigned int EXE = 'e' << 16 | 'x' << 8 | 'e';
  65 static const unsigned int BAT = 'b' << 16 | 'a' << 8 | 't';
  66 static const unsigned int CMD = 'c' << 16 | 'm' << 8 | 'd';
  67 static const unsigned int COM = 'c' << 16 | 'o' << 8 | 'm';
  68
  69 /* for stat mode, permissions apply to all,owner and group */
  70 #define CRTDLL_S_IREAD  (_S_IREAD  | (_S_IREAD  >> 3) | (_S_IREAD  >> 6))
  71 #define CRTDLL_S_IWRITE (_S_IWRITE | (_S_IWRITE >> 3) | (_S_IWRITE >> 6))
  72 #define CRTDLL_S_IEXEC  (_S_IEXEC  | (_S_IEXEC  >> 3) | (_S_IEXEC  >> 6))
  73
  74
  75 /* INTERNAL: Get the HANDLE for a fd */
  76 static HANDLE __CRTDLL__fdtoh(INT fd);
  77 static HANDLE __CRTDLL__fdtoh(INT fd)
  78 {
  79   if (fd < 0 || fd >= __CRTDLL_fdend ||
  80       __CRTDLL_handles[fd] == INVALID_HANDLE_VALUE)
  81   {
  82     WARN(":fd (%d) - no handle!\n",fd);
  83     CRTDLL_doserrno = 0;
  84     CRTDLL_errno = EBADF;
  85    return INVALID_HANDLE_VALUE;
  86   }
  87   return __CRTDLL_handles[fd];
  88 }
  89
  90
  91 /* INTERNAL: free a file entry fd */
  92 static void __CRTDLL__free_fd(INT fd);
  93 static void __CRTDLL__free_fd(INT fd)
  94 {
  95   __CRTDLL_handles[fd] = INVALID_HANDLE_VALUE;
  96   __CRTDLL_files[fd] = 0;
  97   __CRTDLL_flags[fd] = 0;
  98   TRACE(":fd (%d) freed\n",fd);
  99   if (fd < 3)
 100     return; /* dont use 0,1,2 for user files */
 101   if (fd == __CRTDLL_fdend - 1)
 102     __CRTDLL_fdend--;
 103   if (fd < __CRTDLL_fdstart)
 104     __CRTDLL_fdstart = fd;
 105 }
 106
 107
 108 /* INTERNAL: Allocate an fd slot from a Win32 HANDLE */
 109 static INT __CRTDLL__alloc_fd(HANDLE hand, INT flag);
 110 static INT __CRTDLL__alloc_fd(HANDLE hand, INT flag)
 111 {
 112   INT fd = __CRTDLL_fdstart;
 113
 114   TRACE(":handle (%d) allocating fd (%d)\n",hand,fd);
 115   if (fd >= CRTDLL_MAX_FILES)
 116   {
 117     WARN(":files exhausted!\n");
 118     return -1;
 119   }
 120   __CRTDLL_handles[fd] = hand;
 121   __CRTDLL_flags[fd] = flag;
 122
 123   /* locate next free slot */
 124   if (fd == __CRTDLL_fdend)
 125     __CRTDLL_fdstart = ++__CRTDLL_fdend;
 126   else
 127     while(__CRTDLL_fdstart < __CRTDLL_fdend &&
 128           __CRTDLL_handles[__CRTDLL_fdstart] != INVALID_HANDLE_VALUE)
 129       __CRTDLL_fdstart++;
 130
 131   return fd;
 132 }
 133
 134
 135 /* INTERNAL: Allocate a FILE* for an fd slot
 136  * This is done lazily to avoid memory wastage for low level open/write
 137  * usage when a FILE* is not requested (but may be later).
 138  */
 139 static CRTDLL_FILE* __CRTDLL__alloc_fp(INT fd);
 140 static CRTDLL_FILE* __CRTDLL__alloc_fp(INT fd)
 141 {
 142   TRACE(":fd (%d) allocating FILE*\n",fd);
 143   if (fd < 0 || fd >= __CRTDLL_fdend ||
 144       __CRTDLL_handles[fd] == INVALID_HANDLE_VALUE)
 145   {
 146     WARN(":invalid fd %d\n",fd);
 147     CRTDLL_doserrno = 0;
 148     CRTDLL_errno = EBADF;
 149     return NULL;
 150   }
 151   if (!__CRTDLL_files[fd])
 152   {
 153     if ((__CRTDLL_files[fd] = CRTDLL_calloc(sizeof(CRTDLL_FILE),1)))
 154     {
 155       __CRTDLL_files[fd]->_file = fd;
 156       __CRTDLL_files[fd]->_flag = __CRTDLL_flags[fd];
 157       __CRTDLL_files[fd]->_flag &= ~_IOAPPEND; /* mask out, see above */
 158     }
 159   }
 160   TRACE(":got FILE* (%p)\n",__CRTDLL_files[fd]);
 161   return __CRTDLL_files[fd];
 162 }
 163
 164
 165 /* INTERNAL: Set up stdin, stderr and stdout */
 166 VOID __CRTDLL__init_io(VOID)
 167 {
 168   int i;
 169   memset(__CRTDLL_iob,0,3*sizeof(CRTDLL_FILE));
 170   __CRTDLL_handles[0] = GetStdHandle(STD_INPUT_HANDLE);
 171   __CRTDLL_flags[0] = __CRTDLL_iob[0]._flag = _IOREAD;
 172   __CRTDLL_handles[1] = GetStdHandle(STD_OUTPUT_HANDLE);
 173   __CRTDLL_flags[1] = __CRTDLL_iob[1]._flag = _IOWRT;
 174   __CRTDLL_handles[2] = GetStdHandle(STD_ERROR_HANDLE);
 175   __CRTDLL_flags[2] = __CRTDLL_iob[2]._flag = _IOWRT;
 176
 177   TRACE(":handles (%d)(%d)(%d)\n",__CRTDLL_handles[0],
 178         __CRTDLL_handles[1],__CRTDLL_handles[2]);
 179
 180   for (i = 0; i < 3; i++)
 181   {
 182     /* FILE structs for stdin/out/err are static and never deleted */
 183     __CRTDLL_files[i] = &__CRTDLL_iob[i];
 184     __CRTDLL_iob[i]._file = i;
 185   }
 186 }
 187
 188
 189 /*********************************************************************
 190  *                  _access          (CRTDLL.37)
 191  */
 192 INT __cdecl CRTDLL__access(LPCSTR filename, INT mode)
 193 {
 194   DWORD attr = GetFileAttributesA(filename);
 195
 196   if (attr == 0xffffffff)
 197   {
 198     if (!filename)
 199     {
 200         /* FIXME: Should GetFileAttributesA() return this? */
 201       __CRTDLL__set_errno(ERROR_INVALID_DATA);
 202       return -1;
 203     }
 204     __CRTDLL__set_errno(GetLastError());
 205     return -1;
 206   }
 207   if ((attr & FILE_ATTRIBUTE_READONLY) && (mode & W_OK))
 208   {
 209     __CRTDLL__set_errno(ERROR_ACCESS_DENIED);
 210     return -1;
 211   }
 212   TRACE(":file %s, mode (%d) ok\n",filename,mode);
 213   return 0;
 214 }
 215
 216
 217 /*********************************************************************
 218  *                  _close           (CRTDLL.57)
 219  *
 220  * Close an open file descriptor.
 221  */
 222 INT __cdecl CRTDLL__close(INT fd)
 223 {
 224   HANDLE hand = __CRTDLL__fdtoh(fd);
 225
 226   TRACE(":fd (%d) handle (%d)\n",fd,hand);
 227   if (hand == INVALID_HANDLE_VALUE)
 228     return -1;
 229
 230   /* Dont free std FILE*'s, they are not dynamic */
 231   if (fd > 2 && __CRTDLL_files[fd])
 232     CRTDLL_free(__CRTDLL_files[fd]);
 233
 234   __CRTDLL__free_fd(fd);
 235
 236   if (!CloseHandle(hand))
 237   {
 238     WARN(":failed-last error (%ld)\n",GetLastError());
 239     __CRTDLL__set_errno(GetLastError());
 240     return -1;
 241   }
 242   TRACE(":ok\n");
 243   return 0;
 244 }
 245
 246
 247 /*********************************************************************
 248  *                  _commit           (CRTDLL.58)
 249  *
 250  * Ensure all file operations have been flushed to the drive.
 251  */
 252 INT __cdecl CRTDLL__commit(INT fd)
 253 {
 254   HANDLE hand = __CRTDLL__fdtoh(fd);
 255
 256   TRACE(":fd (%d) handle (%d)\n",fd,hand);
 257   if (hand == INVALID_HANDLE_VALUE)
 258     return -1;
 259
 260   if (!FlushFileBuffers(hand))
 261   {
 262     if (GetLastError() == ERROR_INVALID_HANDLE)
 263     {
 264       /* FlushFileBuffers fails for console handles
 265        * so we ignore this error.
 266        */
 267       return 0;
 268     }
 269     TRACE(":failed-last error (%ld)\n",GetLastError());
 270     __CRTDLL__set_errno(GetLastError());
 271     return -1;
 272   }
 273   TRACE(":ok\n");
 274   return 0;
 275 }
 276
 277
 278 /*********************************************************************
 279  *                  _creat         (CRTDLL.066)
 280  *
 281  * Open a file, creating it if it is not present.
 282  */
 283 INT __cdecl CTRDLL__creat(LPCSTR path, INT flags)
 284 {
 285   INT usedFlags = (flags & _O_TEXT)| _O_CREAT| _O_WRONLY| _O_TRUNC;
 286   return CRTDLL__open(path, usedFlags);
 287 }
 288
 289
 290 /*********************************************************************
 291  *                  _eof           (CRTDLL.076)
 292  *
 293  * Determine if the file pointer is at the end of a file.
 294  */
 295 /* FIXME: Care for large files */
 296 INT __cdecl CRTDLL__eof( INT fd )
 297 {
 298   DWORD curpos,endpos;
 299   HANDLE hand = __CRTDLL__fdtoh(fd);
 300
 301   TRACE(":fd (%d) handle (%d)\n",fd,hand);
 302
 303   if (hand == INVALID_HANDLE_VALUE)
 304     return -1;
 305
 306   /* If we have a FILE* for this file, the EOF flag
 307    * will be set by the read()/write() functions.
 308    */
 309   if (__CRTDLL_files[fd])
 310     return __CRTDLL_files[fd]->_flag & _IOEOF;
 311
 312   /* Otherwise we do it the hard way */
 313   curpos = SetFilePointer( hand, 0, NULL, SEEK_CUR );
 314   endpos = SetFilePointer( hand, 0, NULL, FILE_END );
 315
 316   if (curpos == endpos)
 317     return TRUE;
 318
 319   SetFilePointer( hand, curpos, 0, FILE_BEGIN);
 320   return FALSE;
 321 }
 322
 323
 324 /*********************************************************************
 325  *                  _fcloseall     (CRTDLL.089)
 326  *
 327  * Close all open files except stdin/stdout/stderr.
 328  */
 329 INT __cdecl CRTDLL__fcloseall(VOID)
 330 {
 331   int num_closed = 0, i = 3;
 332
 333   while(i < __CRTDLL_fdend)
 334     if (__CRTDLL_handles[i] != INVALID_HANDLE_VALUE)
 335     {
 336       CRTDLL__close(i);
 337       num_closed++;
 338     }
 339
 340   TRACE(":closed (%d) handles\n",num_closed);
 341   return num_closed;
 342 }
 343
 344
 345 /*********************************************************************
 346  *                  _fdopen     (CRTDLL.091)
 347  *
 348  * Get a FILE* from a low level file descriptor.
 349  */
 350 CRTDLL_FILE* __cdecl CRTDLL__fdopen(INT fd, LPCSTR mode)
 351 {
 352   CRTDLL_FILE* file = __CRTDLL__alloc_fp(fd);
 353
 354   TRACE(":fd (%d) mode (%s) FILE* (%p)\n",fd,mode,file);
 355   if (file)
 356     CRTDLL_rewind(file);
 357
 358   return file;
 359 }
 360
 361
 362 /*********************************************************************
 363  *                  _fgetchar       (CRTDLL.092)
 364  */
 365 INT __cdecl CRTDLL__fgetchar( VOID )
 366 {
 367   return CRTDLL_fgetc(CRTDLL_stdin);
 368 }
 369
 370
 371 /*********************************************************************
 372  *                  _filbuf     (CRTDLL.094)
 373  *
 374  * NOTES
 375  * The macro version of getc calls this function whenever FILE->_cnt
 376  * becomes negative. We ensure that _cnt is always 0 after any read
 377  * so this function is always called. Our implementation simply calls
 378  * fgetc as all the underlying buffering is handled by Wines
 379  * implementation of the Win32 file I/O calls.
 380  */
 381 INT __cdecl CRTDLL__filbuf(CRTDLL_FILE* file)
 382 {
 383   return CRTDLL_fgetc(file);
 384 }
 385
 386
 387 /*********************************************************************
 388  *                  _fileno     (CRTDLL.097)
 389  *
 390  * Get the file descriptor from a FILE*.
 391  *
 392  * NOTES
 393  * This returns the CRTDLL fd, _not_ the underlying *nix fd.
 394  */
 395 INT __cdecl CRTDLL__fileno(CRTDLL_FILE* file)
 396 {
 397   TRACE(":FILE* (%p) fd (%d)\n",file,file->_file);
 398   return file->_file;
 399 }
 400
 401
 402 /*********************************************************************
 403  *                  _flsbuf     (CRTDLL.102)
 404  *
 405  * NOTES
 406  * The macro version of putc calls this function whenever FILE->_cnt
 407  * becomes negative. We ensure that _cnt is always 0 after any write
 408  * so this function is always called. Our implementation simply calls
 409  * fputc as all the underlying buffering is handled by Wines
 410  * implementation of the Win32 file I/O calls.
 411  */
 412 INT __cdecl CRTDLL__flsbuf(INT c, CRTDLL_FILE* file)
 413 {
 414   return CRTDLL_fputc(c,file);
 415 }
 416
 417
 418 /*********************************************************************
 419  *                  _flushall     (CRTDLL.103)
 420  *
 421  * Flush all open files.
 422  */
 423 INT __cdecl CRTDLL__flushall(VOID)
 424 {
 425   int num_flushed = 0, i = 3;
 426
 427   while(i < __CRTDLL_fdend)
 428     if (__CRTDLL_handles[i] != INVALID_HANDLE_VALUE)
 429     {
 430       if (CRTDLL__commit(i) == -1)
 431         if (__CRTDLL_files[i])
 432           __CRTDLL_files[i]->_flag |= _IOERR;
 433       num_flushed++;
 434     }
 435
 436   TRACE(":flushed (%d) handles\n",num_flushed);
 437   return num_flushed;
 438 }
 439
 440
 441 /*********************************************************************
 442  *                  _fputchar     (CRTDLL.108)
 443  *
 444  * Put a character to a file.
 445  */
 446 INT __cdecl CRTDLL__fputchar(INT c)
 447 {
 448   return CRTDLL_fputc(c, CRTDLL_stdout);
 449 }
 450
 451
 452 /*********************************************************************
 453  *                  _fsopen     (CRTDLL.110)
 454  *
 455  * Open a FILE* with sharing.
 456  */
 457 CRTDLL_FILE*  __cdecl CRTDLL__fsopen(LPCSTR path, LPCSTR mode, INT share)
 458 {
 459   FIXME(":(%s,%s,%d),ignoring share mode!\n",path,mode,share);
 460   return CRTDLL_fopen(path,mode);
 461 }
 462
 463
 464 /*********************************************************************
 465  *                  _fstat        (CRTDLL.111)
 466  *
 467  * Get information about an open file.
 468  */
 469 int __cdecl CRTDLL__fstat(int fd, struct _stat* buf)
 470 {
 471   DWORD dw;
 472   BY_HANDLE_FILE_INFORMATION hfi;
 473   HANDLE hand = __CRTDLL__fdtoh(fd);
 474
 475   TRACE(":fd (%d) stat (%p)\n",fd,buf);
 476   if (hand == INVALID_HANDLE_VALUE)
 477     return -1;
 478
 479   if (!buf)
 480   {
 481     WARN(":failed-NULL buf\n");
 482     __CRTDLL__set_errno(ERROR_INVALID_PARAMETER);
 483     return -1;
 484   }
 485
 486   memset(&hfi, 0, sizeof(hfi));
 487   memset(buf, 0, sizeof(struct _stat));
 488   if (!GetFileInformationByHandle(hand, &hfi))
 489   {
 490     WARN(":failed-last error (%ld)\n",GetLastError());
 491     __CRTDLL__set_errno(ERROR_INVALID_PARAMETER);
 492     return -1;
 493   }
 494   FIXME(":dwFileAttributes = %d, mode set to 0",hfi.dwFileAttributes);
 495   buf->st_nlink = hfi.nNumberOfLinks;
 496   buf->st_size  = hfi.nFileSizeLow;
 497   RtlTimeToSecondsSince1970( &hfi.ftLastAccessTime, &dw );
 498   buf->st_atime = dw;
 499   RtlTimeToSecondsSince1970( &hfi.ftLastWriteTime, &dw );
 500   buf->st_mtime = buf->st_ctime = dw;
 501   return 0;
 502 }
 503
 504
 505 /*********************************************************************
 506  *                  _futime        (CRTDLL.115)
 507  *
 508  * Set the file access/modification times on an open file.
 509  */
 510 INT __cdecl CRTDLL__futime(INT fd, struct _utimbuf *t)
 511 {
 512   HANDLE hand = __CRTDLL__fdtoh(fd);
 513   FILETIME at, wt;
 514
 515   if (!t)
 516   {
 517     time_t currTime;
 518     CRTDLL_time(&currTime);
 519     RtlSecondsSince1970ToTime( currTime, &at );
 520     memcpy( &wt, &at, sizeof(wt) );
 521   }
 522   else
 523   {
 524     RtlSecondsSince1970ToTime( t->actime, &at );
 525     if (t->actime == t->modtime)
 526       memcpy( &wt, &at, sizeof(wt) );
 527     else
 528       RtlSecondsSince1970ToTime( t->modtime, &wt );
 529   }
 530
 531   if (!SetFileTime( hand, NULL, &at, &wt ))
 532   {
 533     __CRTDLL__set_errno(GetLastError());
 534     return -1 ;
 535   }
 536   return 0;
 537 }
 538
 539
 540 /*********************************************************************
 541  *                  _get_osfhandle     (CRTDLL.117)
 542  *
 543  * Return a Win32 HANDLE from a file descriptor.
 544  *
 545  * PARAMS
 546  * fd [in] A valid file descriptor
 547  *
 548  * RETURNS
 549  * Success: A Win32 HANDLE
 550  *
 551  * Failure: INVALID_HANDLE_VALUE.
 552  *
 553  */
 554 HANDLE CRTDLL__get_osfhandle(INT fd)
 555 {
 556   HANDLE hand = __CRTDLL__fdtoh(fd);
 557   HANDLE newhand = hand;
 558   TRACE(":fd (%d) handle (%d)\n",fd,hand);
 559
 560   if (hand != INVALID_HANDLE_VALUE)
 561   {
 562     /* FIXME: I'm not convinced that I should be copying the
 563      * handle here - it may be leaked if the app doesn't
 564      * close it (and the API docs dont say that it should)
 565      * Not duplicating it means that it can't be inherited
 566      * and so lcc's wedit doesn't cope when it passes it to
 567      * child processes. I've an idea that it should either
 568      * be copied by CreateProcess, or marked as inheritable
 569      * when initialised, or maybe both? JG 21-9-00.
 570      */
 571     DuplicateHandle(GetCurrentProcess(),hand,GetCurrentProcess(),
 572                     &newhand,0,TRUE,DUPLICATE_SAME_ACCESS );
 573   }
 574   return newhand;
 575 }
 576
 577
 578 /*********************************************************************
 579  *                  _isatty       (CRTDLL.137)
 580  *
 581  * Return non zero if fd is a character device (e.g console).
 582  */
 583 INT __cdecl CRTDLL__isatty(INT fd)
 584 {
 585   HANDLE hand = __CRTDLL__fdtoh(fd);
 586
 587   TRACE(":fd (%d) handle (%d)\n",fd,hand);
 588   if (hand == INVALID_HANDLE_VALUE)
 589     return 0;
 590
 591   return GetFileType(fd) == FILE_TYPE_CHAR? 1 : 0;
 592 }
 593
 594
 595 /*********************************************************************
 596  *                  _lseek     (CRTDLL.179)
 597  *
 598  * Move the file pointer within a file.
 599  */
 600 LONG __cdecl CRTDLL__lseek( INT fd, LONG offset, INT whence)
 601 {
 602   DWORD ret;
 603   HANDLE hand = __CRTDLL__fdtoh(fd);
 604
 605   TRACE(":fd (%d) handle (%d)\n",fd,hand);
 606   if (hand == INVALID_HANDLE_VALUE)
 607     return -1;
 608
 609   if (whence < 0 || whence > 2)
 610   {
 611     CRTDLL_errno = EINVAL;
 612     return -1;
 613   }
 614
 615   TRACE(":fd (%d) to 0x%08lx pos %s\n",
 616         fd,offset,(whence==SEEK_SET)?"SEEK_SET":
 617         (whence==SEEK_CUR)?"SEEK_CUR":
 618         (whence==SEEK_END)?"SEEK_END":"UNKNOWN");
 619
 620   if ((ret = SetFilePointer( hand, offset, NULL, whence )) != 0xffffffff)
 621   {
 622     if ( __CRTDLL_files[fd])
 623       __CRTDLL_files[fd]->_flag &= ~_IOEOF;
 624     /* FIXME: What if we seek _to_ EOF - is EOF set? */
 625     return ret;
 626   }
 627   TRACE(":error-last error (%ld)\n",GetLastError());
 628   if ( __CRTDLL_files[fd])
 629     switch(GetLastError())
 630     {
 631     case ERROR_NEGATIVE_SEEK:
 632     case ERROR_SEEK_ON_DEVICE:
 633       __CRTDLL__set_errno(GetLastError());
 634       __CRTDLL_files[fd]->_flag |= _IOERR;
 635       break;
 636     default:
 637       break;
 638     }
 639   return -1;
 640 }
 641
 642
 643 /*********************************************************************
 644  *                  _open           (CRTDLL.239)
 645  * Open a file.
 646  */
 647 INT __cdecl CRTDLL__open(LPCSTR path,INT flags)
 648 {
 649   DWORD access = 0, creation = 0;
 650   INT ioflag = 0, fd;
 651   HANDLE hand;
 652
 653   TRACE(":file (%s) mode 0x%04x\n",path,flags);
 654
 655   switch(flags & (_O_RDONLY | _O_WRONLY | _O_RDWR))
 656   {
 657   case _O_RDONLY:
 658     access |= GENERIC_READ;
 659     ioflag |= _IOREAD;
 660     break;
 661   case _O_WRONLY:
 662     access |= GENERIC_WRITE;
 663     ioflag |= _IOWRT;
 664     break;
 665   case _O_RDWR:
 666     access |= GENERIC_WRITE | GENERIC_READ;
 667     ioflag |= _IORW;
 668     break;
 669   }
 670
 671   if (flags & _O_CREAT)
 672   {
 673     if (flags & _O_EXCL)
 674       creation = CREATE_NEW;
 675     else if (flags & _O_TRUNC)
 676       creation = CREATE_ALWAYS;
 677     else
 678       creation = OPEN_ALWAYS;
 679   }
 680   else  /* no _O_CREAT */
 681   {
 682     if (flags & _O_TRUNC)
 683       creation = TRUNCATE_EXISTING;
 684     else
 685       creation = OPEN_EXISTING;
 686   }
 687   if (flags & _O_APPEND)
 688     ioflag |= _IOAPPEND;
 689
 690
 691   flags |= _O_BINARY; /* FIXME: Default to text */
 692
 693   if (flags & _O_TEXT)
 694   {
 695     /* Dont warn when writing */
 696     if (ioflag & GENERIC_READ)
 697       FIXME(":TEXT node not implemented\n");
 698     flags &= ~_O_TEXT;
 699   }
 700
 701   if (flags & ~(_O_BINARY|_O_TEXT|_O_APPEND|_O_TRUNC|_O_EXCL|_O_CREAT|_O_RDWR))
 702     TRACE(":unsupported flags 0x%04x\n",flags);
 703
 704   /* clear those pesky flags ;-) */
 705   flags &= (_O_BINARY|_O_TEXT|_O_APPEND|_O_TRUNC|_O_EXCL|_O_CREAT|_O_RDWR);
 706
 707   hand = CreateFileA( path, access, FILE_SHARE_READ | FILE_SHARE_WRITE,
 708                       NULL, creation, FILE_ATTRIBUTE_NORMAL, -1);
 709
 710   if (hand == INVALID_HANDLE_VALUE)
 711   {
 712     WARN(":failed-last error (%ld)\n",GetLastError());
 713     __CRTDLL__set_errno(GetLastError());
 714     return -1;
 715   }
 716
 717   fd = __CRTDLL__alloc_fd(hand,ioflag);
 718
 719   TRACE(":fd (%d) handle (%d)\n",fd, hand);
 720
 721   if (flags & _IOAPPEND && fd > 0)
 722     CRTDLL__lseek(fd, 0, FILE_END );
 723
 724   return fd;
 725 }
 726
 727
 728 /*********************************************************************
 729  *                  _open_osfhandle         (CRTDLL.240)
 730  *
 731  * Create a file descriptor for a file HANDLE.
 732  */
 733 INT __cdecl CRTDLL__open_osfhandle(HANDLE hand, INT flags)
 734 {
 735   INT fd = __CRTDLL__alloc_fd(hand,flags);
 736   TRACE(":handle (%d) fd (%d)\n",hand,fd);
 737   return fd;
 738 }
 739
 740
 741 /*********************************************************************
 742  *                  _read     (CRTDLL.256)
 743  *
 744  * Read data from a file.
 745  */
 746 INT __cdecl CRTDLL__read(INT fd, LPVOID buf, UINT count)
 747 {
 748   DWORD num_read;
 749   HANDLE hand = __CRTDLL__fdtoh(fd);
 750
 751   /* Dont trace small reads, it gets *very* annoying */
 752   if (count > 4)
 753     TRACE(":fd (%d) handle (%d) buf (%p) len (%d)\n",fd,hand,buf,count);
 754   if (hand == INVALID_HANDLE_VALUE)
 755     return -1;
 756
 757   /* Set _cnt to 0 so optimised binaries will call our implementation
 758    * of putc/getc. See _filbuf/_flsbuf comments.
 759    */
 760   if (__CRTDLL_files[fd])
 761     __CRTDLL_files[fd]->_cnt = 0;
 762
 763   if (ReadFile(hand, buf, count, &num_read, NULL))
 764   {
 765     if (num_read != count && __CRTDLL_files[fd])
 766     {
 767       TRACE(":EOF\n");
 768       __CRTDLL_files[fd]->_flag |= _IOEOF;
 769     }
 770     return num_read;
 771   }
 772   TRACE(":failed-last error (%ld)\n",GetLastError());
 773   if ( __CRTDLL_files[fd])
 774      __CRTDLL_files[fd]->_flag |= _IOERR;
 775   return -1;
 776 }
 777
 778
 779 /*********************************************************************
 780  *                  _setmode           (CRTDLL.265)
 781  *
 782  * FIXME: At present we ignore the request to translate CR/LF to LF.
 783  *
 784  * We always translate when we read with fgets, we never do with fread
 785  *
 786  */
 787 INT __cdecl CRTDLL__setmode(INT fd,INT mode)
 788 {
 789   if (mode & _O_TEXT)
 790     FIXME("fd (%d) mode (%d) TEXT not implemented\n",fd,mode);
 791   return 0;
 792 }
 793
 794
 795 /*********************************************************************
 796  *                  _stat          (CRTDLL.280)
 797  */
 798 INT __cdecl CRTDLL__stat(const char* path, struct _stat * buf)
 799 {
 800   DWORD dw;
 801   WIN32_FILE_ATTRIBUTE_DATA hfi;
 802   unsigned short mode = CRTDLL_S_IREAD;
 803   int plen;
 804
 805   TRACE(":file (%s) buf(%p)\n",path,buf);
 806
 807   if (!GetFileAttributesExA( path, GetFileExInfoStandard, &hfi ))
 808   {
 809       TRACE("failed-last error (%ld)\n",GetLastError());
 810       __CRTDLL__set_errno(ERROR_FILE_NOT_FOUND);
 811       return -1;
 812   }
 813
 814   memset(buf,0,sizeof(struct _stat));
 815
 816   /* FIXME: rdev isnt drive num,despite what the docs say-what is it? */
 817   if (isalpha(*path))
 818     buf->st_dev = buf->st_rdev = toupper(*path - 'A'); /* drive num */
 819   else
 820     buf->st_dev = buf->st_rdev = CRTDLL__getdrive() - 1;
 821
 822   plen = strlen(path);
 823
 824   /* Dir, or regular file? */
 825   if ((hfi.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY) ||
 826       (path[plen-1] == '\\'))
 827     mode |= (_S_IFDIR | CRTDLL_S_IEXEC);
 828   else
 829   {
 830     mode |= _S_IFREG;
 831     /* executable? */
 832     if (plen > 6 && path[plen-4] == '.')  /* shortest exe: "\x.exe" */
 833     {
 834       unsigned int ext = tolower(path[plen-1]) | (tolower(path[plen-2]) << 8)
 835         | (tolower(path[plen-3]) << 16);
 836       if (ext == EXE || ext == BAT || ext == CMD || ext == COM)
 837         mode |= CRTDLL_S_IEXEC;
 838     }
 839   }
 840
 841   if (!(hfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY))
 842     mode |= CRTDLL_S_IWRITE;
 843
 844   buf->st_mode  = mode;
 845   buf->st_nlink = 1;
 846   buf->st_size  = hfi.nFileSizeLow;
 847   RtlTimeToSecondsSince1970( &hfi.ftLastAccessTime, &dw );
 848   buf->st_atime = dw;
 849   RtlTimeToSecondsSince1970( &hfi.ftLastWriteTime, &dw );
 850   buf->st_mtime = buf->st_ctime = dw;
 851   TRACE("\n%d %d %d %d %d %d\n", buf->st_mode,buf->st_nlink,buf->st_size,
 852         buf->st_atime,buf->st_mtime, buf->st_ctime);
 853   return 0;
 854 }
 855
 856
 857 /*********************************************************************
 858  *                  _tell           (CRTDLL.302)
 859  *
 860  * Get current file position.
 861  */
 862 LONG __cdecl CRTDLL__tell(INT fd)
 863 {
 864   return CRTDLL__lseek(fd, 0, SEEK_CUR);
 865 }
 866
 867
 868 /*********************************************************************
 869  *                  _tempnam           (CRTDLL.305)
 870  *
 871  */
 872 LPSTR __cdecl CRTDLL__tempnam(LPCSTR dir, LPCSTR prefix)
 873 {
 874   char tmpbuf[MAX_PATH];
 875
 876   TRACE("dir (%s) prefix (%s)\n",dir,prefix);
 877   if (GetTempFileNameA(dir,prefix,0,tmpbuf))
 878   {
 879     TRACE("got name (%s)\n",tmpbuf);
 880     return CRTDLL__strdup(tmpbuf);
 881   }
 882   TRACE("failed-last error (%ld)\n",GetLastError());
 883   return NULL;
 884 }
 885
 886
 887 /*********************************************************************
 888  *                  _umask           (CRTDLL.310)
 889  *
 890  * Set the process-wide umask.
 891  */
 892 INT __cdecl CRTDLL__umask(INT umask)
 893 {
 894   INT old_umask = __CRTDLL_umask;
 895   TRACE("umask (%d)\n",umask);
 896   __CRTDLL_umask = umask;
 897   return old_umask;
 898 }
 899
 900
 901 /*********************************************************************
 902  *                  _utime         (CRTDLL.314)
 903  *
 904  * Set the file access/modification times on a file.
 905  */
 906 INT __cdecl CRTDLL__utime(LPCSTR path, struct _utimbuf *t)
 907 {
 908   INT fd = CRTDLL__open( path, _O_WRONLY | _O_BINARY );
 909
 910   if (fd > 0)
 911   {
 912     INT retVal = CRTDLL__futime(fd, t);
 913     CRTDLL__close(fd);
 914     return retVal;
 915   }
 916   return -1;
 917 }
 918
 919
 920 /*********************************************************************
 921  *                  _unlink           (CRTDLL.315)
 922  *
 923  * Delete a file.
 924  */
 925 INT __cdecl CRTDLL__unlink(LPCSTR path)
 926 {
 927   TRACE("path (%s)\n",path);
 928   if(DeleteFileA( path ))
 929     return 0;
 930
 931   TRACE("failed-last error (%ld)\n",GetLastError());
 932   __CRTDLL__set_errno(GetLastError());
 933   return -1;
 934 }
 935
 936
 937 /*********************************************************************
 938  *                  _write        (CRTDLL.332)
 939  *
 940  * Write data to a file.
 941  */
 942 UINT __cdecl CRTDLL__write(INT fd, LPCVOID buf, UINT count)
 943 {
 944   DWORD num_written;
 945   HANDLE hand = __CRTDLL__fdtoh(fd);
 946
 947   /* Dont trace small writes, it gets *very* annoying */
 948   if (count > 4)
 949     TRACE(":fd (%d) handle (%d) buf (%p) len (%d)\n",fd,hand,buf,count);
 950   if (hand == INVALID_HANDLE_VALUE)
 951     return -1;
 952
 953   /* If appending, go to EOF */
 954   if (__CRTDLL_flags[fd] & _IOAPPEND)
 955     CRTDLL__lseek(fd, 0, FILE_END );
 956
 957   /* Set _cnt to 0 so optimised binaries will call our implementation
 958    * of putc/getc. See _filbuf/_flsbuf comments.
 959    */
 960   if (__CRTDLL_files[fd])
 961     __CRTDLL_files[fd]->_cnt = 0;
 962
 963   if (WriteFile(hand, buf, count, &num_written, NULL)
 964       &&  (num_written == count))
 965     return num_written;
 966
 967   TRACE(":failed-last error (%ld)\n",GetLastError());
 968   if ( __CRTDLL_files[fd])
 969      __CRTDLL_files[fd]->_flag |= _IOERR;
 970
 971   return -1;
 972 }
 973
 974
 975 /*********************************************************************
 976  *                  clearerr     (CRTDLL.349)
 977  *
 978  * Clear a FILE's error indicator.
 979  */
 980 VOID __cdecl CRTDLL_clearerr(CRTDLL_FILE* file)
 981 {
 982   TRACE(":file (%p) fd (%d)\n",file,file->_file);
 983   file->_flag &= ~(_IOERR | _IOEOF);
 984 }
 985
 986
 987 /*********************************************************************
 988  *                  fclose           (CRTDLL.362)
 989  *
 990  * Close an open file.
 991  */
 992 INT __cdecl CRTDLL_fclose( CRTDLL_FILE* file )
 993 {
 994   return CRTDLL__close(file->_file);
 995 }
 996
 997
 998 /*********************************************************************
 999  *                  feof           (CRTDLL.363)
1000  *
1001  * Check the eof indicator on a file.
1002  */
1003 INT __cdecl CRTDLL_feof( CRTDLL_FILE* file )
1004 {
1005   return file->_flag & _IOEOF;
1006 }
1007
1008
1009 /*********************************************************************
1010  *                  ferror         (CRTDLL.361)
1011  *
1012  * Check the error indicator on a file.
1013  */
1014 INT __cdecl CRTDLL_ferror( CRTDLL_FILE* file )
1015 {
1016   return file->_flag & _IOERR;
1017 }
1018
1019
1020 /*********************************************************************
1021  *                  fflush        (CRTDLL.362)
1022  */
1023 INT __cdecl CRTDLL_fflush( CRTDLL_FILE* file )
1024 {
1025   return CRTDLL__commit(file->_file);
1026 }
1027
1028
1029 /*********************************************************************
1030  *                  fgetc       (CRTDLL.363)
1031  */
1032 INT __cdecl CRTDLL_fgetc( CRTDLL_FILE* file )
1033 {
1034   char c;
1035   if (CRTDLL__read(file->_file,&c,1) != 1)
1036     return EOF;
1037   return c;
1038 }
1039
1040
1041 /*********************************************************************
1042  *                  fgetpos       (CRTDLL.364)
1043  */
1044 INT __cdecl CRTDLL_fgetpos( CRTDLL_FILE* file, fpos_t *pos)
1045 {
1046   *pos = CRTDLL__tell(file->_file);
1047   return (*pos == -1? -1 : 0);
1048 }
1049
1050
1051 /*********************************************************************
1052  *                  fgets       (CRTDLL.365)
1053  */
1054 CHAR* __cdecl CRTDLL_fgets(LPSTR s, INT size, CRTDLL_FILE* file)
1055 {
1056   int    cc;
1057   LPSTR  buf_start = s;
1058
1059   TRACE(":file(%p) fd (%d) str (%p) len (%d)\n",
1060         file,file->_file,s,size);
1061
1062   /* BAD, for the whole WINE process blocks... just done this way to test
1063    * windows95's ftp.exe.
1064    * JG - Is this true now we use ReadFile() on stdin too?
1065    */
1066   for(cc = CRTDLL_fgetc(file); cc != EOF && cc != '\n';
1067       cc = CRTDLL_fgetc(file))
1068     if (cc != '\r')
1069     {
1070       if (--size <= 0) break;
1071       *s++ = (char)cc;
1072     }
1073   if ((cc == EOF) && (s == buf_start)) /* If nothing read, return 0*/
1074   {
1075     TRACE(":nothing read\n");
1076     return 0;
1077   }
1078   if (cc == '\n')
1079     if (--size > 0)
1080       *s++ = '\n';
1081   *s = '\0';
1082   TRACE(":got '%s'\n", buf_start);
1083   return buf_start;
1084 }
1085
1086
1087 /*********************************************************************
1088  *                  fputs       (CRTDLL.375)
1089  */
1090 INT __cdecl CRTDLL_fputs( LPCSTR s, CRTDLL_FILE* file )
1091 {
1092   return CRTDLL_fwrite(s,strlen(s),1,file);
1093 }
1094
1095
1096 /*********************************************************************
1097  *                  fprintf       (CRTDLL.370)
1098  */
1099 INT __cdecl CRTDLL_fprintf( CRTDLL_FILE* file, LPCSTR format, ... )
1100 {
1101     va_list valist;
1102     INT res;
1103
1104     va_start( valist, format );
1105     res = CRTDLL_vfprintf( file, format, valist );
1106     va_end( valist );
1107     return res;
1108 }
1109
1110
1111 /*********************************************************************
1112  *                  fopen     (CRTDLL.372)
1113  *
1114  * Open a file.
1115  */
1116 CRTDLL_FILE* __cdecl CRTDLL_fopen(LPCSTR path, LPCSTR mode)
1117 {
1118   CRTDLL_FILE* file;
1119   INT flags = 0, plus = 0, fd;
1120   const char* search = mode;
1121
1122   TRACE(":path (%s) mode (%s)\n",path,mode);
1123
1124   while (*search)
1125     if (*search++ == '+')
1126       plus = 1;
1127
1128   /* map mode string to open() flags. "man fopen" for possibilities. */
1129   switch(*mode++)
1130   {
1131   case 'R': case 'r':
1132     flags = (plus ? _O_RDWR : _O_RDONLY);
1133     break;
1134   case 'W': case 'w':
1135     flags = _O_CREAT | _O_TRUNC | (plus  ? _O_RDWR : _O_WRONLY);
1136     break;
1137   case 'A': case 'a':
1138     flags = _O_CREAT | _O_APPEND | (plus  ? _O_RDWR : _O_WRONLY);
1139     break;
1140   default:
1141     return NULL;
1142   }
1143
1144   while (*mode)
1145     switch (*mode++)
1146     {
1147     case 'B': case 'b':
1148       flags |=  _O_BINARY;
1149       flags &= ~_O_TEXT;
1150       break;
1151     case 'T': case 't':
1152       flags |=  _O_TEXT;
1153       flags &= ~_O_BINARY;
1154       break;
1155     case '+':
1156       break;
1157     default:
1158       FIXME(":unknown flag %c not supported\n",mode[-1]);
1159     }
1160
1161   fd = CRTDLL__open(path, flags);
1162
1163   if (fd < 0)
1164     return NULL;
1165
1166   file = __CRTDLL__alloc_fp(fd);
1167   TRACE(":get file (%p)\n",file);
1168   if (!file)
1169     CRTDLL__close(fd);
1170
1171   return file;
1172 }
1173
1174
1175 /*********************************************************************
1176  *                  fputc       (CRTDLL.374)
1177  */
1178 INT __cdecl CRTDLL_fputc( INT c, CRTDLL_FILE* file )
1179 {
1180   return CRTDLL__write(file->_file, &c, 1) == 1? c : EOF;
1181 }
1182
1183
1184 /*********************************************************************
1185  *                  fread     (CRTDLL.377)
1186  */
1187 DWORD __cdecl CRTDLL_fread(LPVOID ptr, INT size, INT nmemb, CRTDLL_FILE* file)
1188 {
1189   DWORD read = CRTDLL__read(file->_file,ptr, size * nmemb);
1190   if (read <= 0)
1191     return 0;
1192   return read / size;
1193 }
1194
1195
1196 /*********************************************************************
1197  *                  freopen    (CRTDLL.379)
1198  *
1199  */
1200 CRTDLL_FILE* __cdecl CRTDLL_freopen(LPCSTR path, LPCSTR mode,CRTDLL_FILE* file)
1201 {
1202   CRTDLL_FILE* newfile;
1203   INT fd;
1204
1205   TRACE(":path (%p) mode (%s) file (%p) fd (%d)\n",path,mode,file,file->_file);
1206   if (!file || ((fd = file->_file) < 0) || fd > __CRTDLL_fdend)
1207     return NULL;
1208
1209   if (fd > 2)
1210   {
1211     FIXME(":reopen on user file not implemented!\n");
1212     __CRTDLL__set_errno(ERROR_CALL_NOT_IMPLEMENTED);
1213     return NULL;
1214   }
1215
1216   /* first, create the new file */
1217   if ((newfile = CRTDLL_fopen(path,mode)) == NULL)
1218     return NULL;
1219
1220   if (fd < 3 && SetStdHandle(fd == 0 ? STD_INPUT_HANDLE :
1221      (fd == 1? STD_OUTPUT_HANDLE : STD_ERROR_HANDLE),
1222       __CRTDLL_handles[newfile->_file]))
1223   {
1224     /* Redirecting std handle to file , copy over.. */
1225     __CRTDLL_handles[fd] = __CRTDLL_handles[newfile->_file];
1226     __CRTDLL_flags[fd] = __CRTDLL_flags[newfile->_file];
1227     memcpy(&__CRTDLL_iob[fd], newfile, sizeof (CRTDLL_FILE));
1228     __CRTDLL_iob[fd]._file = fd;
1229     /* And free up the resources allocated by fopen, but
1230      * not the HANDLE we copied. */
1231     CRTDLL_free(__CRTDLL_files[fd]);
1232     __CRTDLL__free_fd(newfile->_file);
1233     return &__CRTDLL_iob[fd];
1234   }
1235
1236   WARN(":failed-last error (%ld)\n",GetLastError());
1237   CRTDLL_fclose(newfile);
1238   __CRTDLL__set_errno(GetLastError());
1239   return NULL;
1240 }
1241
1242
1243 /*********************************************************************
1244  *                  fsetpos       (CRTDLL.380)
1245  */
1246 INT __cdecl CRTDLL_fsetpos( CRTDLL_FILE* file, fpos_t *pos)
1247 {
1248   return CRTDLL__lseek(file->_file,*pos,SEEK_SET);
1249 }
1250
1251
1252 /*********************************************************************
1253  *                  fscanf     (CRTDLL.381)
1254  */
1255 INT __cdecl CRTDLL_fscanf( CRTDLL_FILE* file, LPSTR format, ... )
1256 {
1257     INT rd = 0;
1258     int nch;
1259     va_list ap;
1260     if (!*format) return 0;
1261     WARN("%p (\"%s\"): semi-stub\n", file, format);
1262     nch = CRTDLL_fgetc(file);
1263     va_start(ap, format);
1264     while (*format) {
1265         if (*format == ' ') {
1266             /* skip whitespace */
1267             while ((nch!=EOF) && isspace(nch))
1268                 nch = CRTDLL_fgetc(file);
1269         }
1270         else if (*format == '%') {
1271             int st = 0;
1272             format++;
1273             switch(*format) {
1274             case 'd': { /* read an integer */
1275                     int*val = va_arg(ap, int*);
1276                     int cur = 0;
1277                     /* skip initial whitespace */
1278                     while ((nch!=EOF) && isspace(nch))
1279                         nch = CRTDLL_fgetc(file);
1280                     /* get sign and first digit */
1281                     if (nch == '-') {
1282                         nch = CRTDLL_fgetc(file);
1283                         if (isdigit(nch))
1284                             cur = -(nch - '0');
1285                         else break;
1286                     } else {
1287                         if (isdigit(nch))
1288                             cur = nch - '0';
1289                         else break;
1290                     }
1291                     nch = CRTDLL_fgetc(file);
1292                     /* read until no more digits */
1293                     while ((nch!=EOF) && isdigit(nch)) {
1294                         cur = cur*10 + (nch - '0');
1295                         nch = CRTDLL_fgetc(file);
1296                     }
1297                     st = 1;
1298                     *val = cur;
1299                 }
1300                 break;
1301             case 'f': { /* read a float */
1302                     float*val = va_arg(ap, float*);
1303                     float cur = 0;
1304                     /* skip initial whitespace */
1305                     while ((nch!=EOF) && isspace(nch))
1306                         nch = CRTDLL_fgetc(file);
1307                     /* get sign and first digit */
1308                     if (nch == '-') {
1309                         nch = CRTDLL_fgetc(file);
1310                         if (isdigit(nch))
1311                             cur = -(nch - '0');
1312                         else break;
1313                     } else {
1314                         if (isdigit(nch))
1315                             cur = nch - '0';
1316                         else break;
1317                     }
1318                     /* read until no more digits */
1319                     while ((nch!=EOF) && isdigit(nch)) {
1320                         cur = cur*10 + (nch - '0');
1321                         nch = CRTDLL_fgetc(file);
1322                     }
1323                     if (nch == '.') {
1324                         /* handle decimals */
1325                         float dec = 1;
1326                         nch = CRTDLL_fgetc(file);
1327                         while ((nch!=EOF) && isdigit(nch)) {
1328                             dec /= 10;
1329                             cur += dec * (nch - '0');
1330                             nch = CRTDLL_fgetc(file);
1331                         }
1332                     }
1333                     st = 1;
1334                     *val = cur;
1335                 }
1336                 break;
1337             case 's': { /* read a word */
1338                     char*str = va_arg(ap, char*);
1339                     char*sptr = str;
1340                     /* skip initial whitespace */
1341                     while ((nch!=EOF) && isspace(nch))
1342                         nch = CRTDLL_fgetc(file);
1343                     /* read until whitespace */
1344                     while ((nch!=EOF) && !isspace(nch)) {
1345                         *sptr++ = nch; st++;
1346                         nch = CRTDLL_fgetc(file);
1347                     }
1348                     /* terminate */
1349                     *sptr = 0;
1350                     TRACE("read word: %s\n", str);
1351                 }
1352                 break;
1353             default: FIXME("unhandled: %%%c\n", *format);
1354             }
1355             if (st) rd++;
1356             else break;
1357         }
1358         else {
1359             /* check for character match */
1360             if (nch == *format)
1361                nch = CRTDLL_fgetc(file);
1362             else break;
1363         }
1364         format++;
1365     }
1366     va_end(ap);
1367     if (nch!=EOF) {
1368         WARN("need ungetch\n");
1369     }
1370     TRACE("returning %d\n", rd);
1371     return rd;
1372 }
1373
1374
1375 /*********************************************************************
1376  *                  fseek     (CRTDLL.382)
1377  */
1378 LONG __cdecl CRTDLL_fseek( CRTDLL_FILE* file, LONG offset, INT whence)
1379 {
1380   return CRTDLL__lseek(file->_file,offset,whence);
1381 }
1382
1383
1384 /*********************************************************************
1385  *                  ftell     (CRTDLL.381)
1386  */
1387 LONG __cdecl CRTDLL_ftell( CRTDLL_FILE* file )
1388 {
1389   return CRTDLL__tell(file->_file);
1390 }
1391
1392
1393 /*********************************************************************
1394  *                  fwrite     (CRTDLL.383)
1395  */
1396 UINT __cdecl CRTDLL_fwrite( LPCVOID ptr, INT size, INT nmemb, CRTDLL_FILE* file )
1397 {
1398   UINT written = CRTDLL__write(file->_file, ptr, size * nmemb);
1399   if (written <= 0)
1400     return 0;
1401   return written / size;
1402 }
1403
1404
1405 /*********************************************************************
1406  *                  getchar       (CRTDLL.386)
1407  */
1408 INT __cdecl CRTDLL_getchar( VOID )
1409 {
1410   return CRTDLL_fgetc(CRTDLL_stdin);
1411 }
1412
1413
1414 /*********************************************************************
1415  *                  getc       (CRTDLL.388)
1416  */
1417 INT __cdecl CRTDLL_getc( CRTDLL_FILE* file )
1418 {
1419     return CRTDLL_fgetc( file );
1420 }
1421
1422
1423 /*********************************************************************
1424  *                  gets          (CRTDLL.391)
1425  */
1426 LPSTR __cdecl CRTDLL_gets(LPSTR buf)
1427 {
1428     int    cc;
1429     LPSTR  buf_start = buf;
1430
1431     /* BAD, for the whole WINE process blocks... just done this way to test
1432      * windows95's ftp.exe.
1433      * JG 19/9/00: Is this still true, now we are using ReadFile?
1434      */
1435     for(cc = CRTDLL_fgetc(CRTDLL_stdin); cc != EOF && cc != '\n';
1436         cc = CRTDLL_fgetc(CRTDLL_stdin))
1437         if(cc != '\r') *buf++ = (char)cc;
1438
1439     *buf = '\0';
1440
1441     TRACE("got '%s'\n", buf_start);
1442     return buf_start;
1443 }
1444
1445
1446 /*********************************************************************
1447  *                  putc       (CRTDLL.441)
1448  */
1449 INT __cdecl CRTDLL_putc( INT c, CRTDLL_FILE* file )
1450 {
1451   return CRTDLL_fputc( c, file );
1452 }
1453
1454
1455 /*********************************************************************
1456  *                  putchar       (CRTDLL.442)
1457  */
1458 void __cdecl CRTDLL_putchar( INT c )
1459 {
1460   CRTDLL_fputc(c, CRTDLL_stdout);
1461 }
1462
1463
1464 /*********************************************************************
1465  *                  puts       (CRTDLL.443)
1466  */
1467 INT __cdecl CRTDLL_puts(LPCSTR s)
1468 {
1469   return CRTDLL_fputs(s, CRTDLL_stdout);
1470 }
1471
1472
1473 /*********************************************************************
1474  *                  rewind     (CRTDLL.447)
1475  *
1476  * Set the file pointer to the start of a file and clear any error
1477  * indicators.
1478  */
1479 VOID __cdecl CRTDLL_rewind(CRTDLL_FILE* file)
1480 {
1481   TRACE(":file (%p) fd (%d)\n",file,file->_file);
1482   CRTDLL__lseek(file->_file,0,SEEK_SET);
1483   file->_flag &= ~(_IOEOF | _IOERR);
1484 }
1485
1486
1487 /*********************************************************************
1488  *                  remove           (CRTDLL.448)
1489  */
1490 INT __cdecl CRTDLL_remove(LPCSTR path)
1491 {
1492   TRACE(":path (%s)\n",path);
1493   if (DeleteFileA(path))
1494     return 0;
1495   TRACE(":failed-last error (%ld)\n",GetLastError());
1496   __CRTDLL__set_errno(GetLastError());
1497   return -1;
1498 }
1499
1500
1501 /*********************************************************************
1502  *                  rename           (CRTDLL.449)
1503  */
1504 INT __cdecl CRTDLL_rename(LPCSTR oldpath,LPCSTR newpath)
1505 {
1506   TRACE(":from %s to %s\n",oldpath,newpath);
1507   if (MoveFileExA( oldpath, newpath, MOVEFILE_REPLACE_EXISTING))
1508     return 0;
1509   TRACE(":failed-last error (%ld)\n",GetLastError());
1510   __CRTDLL__set_errno(GetLastError());
1511   return -1;
1512 }
1513
1514
1515 /*********************************************************************
1516  *                  setbuf     (CRTDLL.452)
1517  */
1518 INT __cdecl CRTDLL_setbuf(CRTDLL_FILE* file, LPSTR buf)
1519 {
1520   TRACE(":file (%p) fd (%d) buf (%p)\n", file, file->_file,buf);
1521   if (buf)
1522     WARN(":user buffer will not be used!\n");
1523   /* FIXME: no buffering for now */
1524   return 0;
1525 }
1526
1527
1528 /*********************************************************************
1529  *                  tmpnam           (CRTDLL.490)
1530  *
1531  * lcclnk from lcc-win32 relies on a terminating dot in the name returned
1532  *
1533  */
1534 LPSTR __cdecl CRTDLL_tmpnam(LPSTR s)
1535 {
1536   char tmpbuf[MAX_PATH];
1537   char* prefix = "TMP";
1538   if (!GetTempPathA(MAX_PATH,tmpbuf) ||
1539       !GetTempFileNameA(tmpbuf,prefix,0,CRTDLL_tmpname))
1540   {
1541     TRACE(":failed-last error (%ld)\n",GetLastError());
1542     return NULL;
1543   }
1544   TRACE(":got tmpnam %s\n",CRTDLL_tmpname);
1545   return CRTDLL_tmpname;
1546 }
1547
1548
1549 /*********************************************************************
1550  *                  vfprintf       (CRTDLL.494)
1551  *
1552  * Write formatted output to a file.
1553  */
1554 /* we have avoided libc stdio.h so far, lets not start now */
1555 extern int vsprintf(void *, const void *, va_list);
1556
1557 INT __cdecl CRTDLL_vfprintf( CRTDLL_FILE* file, LPCSTR format, va_list args )
1558 {
1559   /* FIXME: We should parse the format string, calculate the maximum,
1560    * length of each arg, malloc a buffer, print to it, and fwrite that.
1561    * Yes this sucks, but not as much as crashing 1/2 way through an
1562    * app writing to a file :-(
1563    */
1564   char buffer[2048];
1565   TRACE(":file (%p) fd (%d) fmt (%s)\n",file,file->_file,format);
1566
1567   vsprintf( buffer, format, args );
1568   return CRTDLL_fwrite( buffer, 1, strlen(buffer), file );
1569 }
1570