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