projects / reactos.git / blob
? search:


64a4cc04b10565c4c55e47ac2b89afcafc1cda64
[reactos.git] / reactos / lib / sdk / crt / stdio / file.c
1 /*
2 * PROJECT: ReactOS CRT library
3 * LICENSE: LGPL - See COPYING in the top level directory
4 * FILE: lib/sdk/crt/stdio/file.c
5 * PURPOSE: File CRT functions
6 * PROGRAMMERS: Wine team
7 * Ported to ReactOS by Aleksey Bragin (aleksey@reactos.org)
8 */
9
10 /*********************************************
11 * This file contains ReactOS changes!!
12 * Don't blindly sync it with Wine code!
13 *
14 * If you break Unicode output on the console again, please update this counter:
15 * int hours_wasted_on_this = 42;
16 *********************************************/
17
18 /*
19 * msvcrt.dll file functions
20 *
21 * Copyright 1996,1998 Marcus Meissner
22 * Copyright 1996 Jukka Iivonen
23 * Copyright 1997,2000 Uwe Bonnes
24 * Copyright 2000 Jon Griffiths
25 * Copyright 2004 Eric Pouech
26 * Copyright 2004 Juan Lang
27 *
28 * This library is free software; you can redistribute it and/or
29 * modify it under the terms of the GNU Lesser General Public
30 * License as published by the Free Software Foundation; either
31 * version 2.1 of the License, or (at your option) any later version.
32 *
33 * This library is distributed in the hope that it will be useful,
34 * but WITHOUT ANY WARRANTY; without even the implied warranty of
35 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
36 * Lesser General Public License for more details.
37 *
38 * You should have received a copy of the GNU Lesser General Public
39 * License along with this library; if not, write to the Free Software
40 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
41 *
42 * TODO
43 * Use the file flag hints O_SEQUENTIAL, O_RANDOM, O_SHORT_LIVED
44 */
45
46 #include <precomp.h>
47 #include "wine/unicode.h"
48
49 #include <sys/utime.h>
50 #include <direct.h>
51
52 int *__p__fmode(void);
53 int *__p___mb_cur_max(void);
54
55 extern int _commode;
56
57 #ifndef _IOCOMMIT
58 #define _IOCOMMIT 0x4000
59 #endif
60
61 #ifdef feof
62 #undef feof
63 #endif
64 #ifdef _fileno
65 #undef _fileno
66 #endif
67 #ifdef ferror
68 #undef ferror
69 #endif
70 #ifdef clearerr
71 #undef clearerr
72 #endif
73
74 #undef getc
75 #undef getwc
76 #undef getchar
77 #undef getwchar
78 #undef putc
79 #undef putwc
80 #undef putchar
81 #undef putwchar
82
83 #undef vprintf
84 #undef vwprintf
85
86 /* _access() bit flags FIXME: incomplete */
87 /* defined in crt/io.h */
88
89 /* values for wxflag in file descriptor */
90 #define WX_OPEN 0x01
91 #define WX_ATEOF 0x02
92 #define WX_READNL 0x04 /* read started with \n */
93 #define WX_READEOF 0x04 /* like ATEOF, but for underlying file rather than buffer */
94 #define WX_PIPE 0x08
95 #define WX_READCR 0x08 /* underlying file is at \r */
96 #define WX_DONTINHERIT 0x10
97 #define WX_APPEND 0x20
98 #define WX_NOSEEK 0x40
99 #define WX_TEXT 0x80
100
101 /* values for exflag - it's used differently in msvcr90.dll*/
102 #define EF_UTF8 0x01
103 #define EF_UTF16 0x02
104
105 /* FIXME: this should be allocated dynamically */
106 #define MAX_FILES 2048
107 #define FD_BLOCK_SIZE 64
108
109 /* ioinfo structure size is different in msvcrXX.dll's */
110 typedef struct {
111 HANDLE handle;
112 unsigned char wxflag;
113 char lookahead[3];
114 int exflag;
115 CRITICAL_SECTION crit;
116 } ioinfo;
117
118 /*********************************************************************
119 * __pioinfo (MSVCRT.@)
120 * array of pointers to ioinfo arrays [64]
121 */
122 ioinfo * __pioinfo[MAX_FILES/FD_BLOCK_SIZE] = { 0 };
123
124 /*********************************************************************
125 * __badioinfo (MSVCRT.@)
126 */
127 ioinfo __badioinfo = { INVALID_HANDLE_VALUE, WX_TEXT };
128
129 static int fdstart = 3; /* first unallocated fd */
130 static int fdend = 3; /* highest allocated fd */
131
132 typedef struct {
133 FILE file;
134 CRITICAL_SECTION crit;
135 } file_crit;
136
137 FILE _iob[_IOB_ENTRIES] = { { 0 } };
138 static file_crit* fstream[MAX_FILES/FD_BLOCK_SIZE] = { NULL };
139 static int max_streams = 512, stream_idx;
140
141 /* INTERNAL: process umask */
142 static int MSVCRT_umask = 0;
143
144 /* INTERNAL: static data for tmpnam and _wtmpname functions */
145 static int tmpnam_unique;
146
147 /* This critical section protects the tables __pioinfo and fstreams,
148 * and their related indexes, fdstart, fdend,
149 * and stream_idx, from race conditions.
150 * It doesn't protect against race conditions manipulating the underlying files
151 * or flags; doing so would probably be better accomplished with per-file
152 * protection, rather than locking the whole table for every change.
153 */
154 static CRITICAL_SECTION file_cs;
155 #define LOCK_FILES() do { EnterCriticalSection(&file_cs); } while (0)
156 #define UNLOCK_FILES() do { LeaveCriticalSection(&file_cs); } while (0)
157
158 static inline ioinfo* get_ioinfo(int fd)
159 {
160 ioinfo *ret = NULL;
161 if(fd < MAX_FILES)
162 ret = __pioinfo[fd/FD_BLOCK_SIZE];
163 if(!ret)
164 return &__badioinfo;
165
166 return ret + (fd%FD_BLOCK_SIZE);
167 }
168
169 static inline FILE* get_file(int i)
170 {
171 file_crit *ret;
172
173 if(i >= max_streams)
174 return NULL;
175
176 if(i < _IOB_ENTRIES)
177 return &_iob[i];
178
179 ret = fstream[i/FD_BLOCK_SIZE];
180 if(!ret) {
181 fstream[i/FD_BLOCK_SIZE] = calloc(FD_BLOCK_SIZE, sizeof(file_crit));
182 if(!fstream[i/FD_BLOCK_SIZE]) {
183 ERR("out of memory\n");
184 *_errno() = ENOMEM;
185 return NULL;
186 }
187
188 ret = fstream[i/FD_BLOCK_SIZE] + (i%FD_BLOCK_SIZE);
189 } else
190 ret += i%FD_BLOCK_SIZE;
191
192 return &ret->file;
193 }
194
195 static inline BOOL is_valid_fd(int fd)
196 {
197 return fd >= 0 && fd < fdend && (get_ioinfo(fd)->wxflag & WX_OPEN);
198 }
199
200 /* INTERNAL: Get the HANDLE for a fd
201 * This doesn't lock the table, because a failure will result in
202 * INVALID_HANDLE_VALUE being returned, which should be handled correctly. If
203 * it returns a valid handle which is about to be closed, a subsequent call
204 * will fail, most likely in a sane way.
205 */
206 /*static*/ HANDLE fdtoh(int fd)
207 {
208 if (!is_valid_fd(fd))
209 {
210 WARN(":fd (%d) - no handle!\n",fd);
211 *__doserrno() = 0;
212 *_errno() = EBADF;
213 return INVALID_HANDLE_VALUE;
214 }
215 //if (get_ioinfo(fd)->handle == INVALID_HANDLE_VALUE)
216 //FIXME("returning INVALID_HANDLE_VALUE for %d\n", fd);
217 return get_ioinfo(fd)->handle;
218 }
219
220 /* INTERNAL: free a file entry fd */
221 static void free_fd(int fd)
222 {
223 HANDLE old_handle;
224 ioinfo *fdinfo;
225
226 LOCK_FILES();
227 fdinfo = get_ioinfo(fd);
228 old_handle = fdinfo->handle;
229 if(fdinfo != &__badioinfo)
230 {
231 fdinfo->handle = INVALID_HANDLE_VALUE;
232 fdinfo->wxflag = 0;
233 }
234 TRACE(":fd (%d) freed\n",fd);
235 if (fd < 3) /* don't use 0,1,2 for user files */
236 {
237 switch (fd)
238 {
239 case 0:
240 if (GetStdHandle(STD_INPUT_HANDLE) == old_handle) SetStdHandle(STD_INPUT_HANDLE, 0);
241 break;
242 case 1:
243 if (GetStdHandle(STD_OUTPUT_HANDLE) == old_handle) SetStdHandle(STD_OUTPUT_HANDLE, 0);
244 break;
245 case 2:
246 if (GetStdHandle(STD_ERROR_HANDLE) == old_handle) SetStdHandle(STD_ERROR_HANDLE, 0);
247 break;
248 }
249 }
250 else
251 {
252 if (fd == fdend - 1)
253 fdend--;
254 if (fd < fdstart)
255 fdstart = fd;
256 }
257 UNLOCK_FILES();
258 }
259
260 /* INTERNAL: Allocate an fd slot from a Win32 HANDLE, starting from fd */
261 /* caller must hold the files lock */
262 static int set_fd(HANDLE hand, int flag, int fd)
263 {
264 ioinfo *fdinfo;
265
266 if (fd >= MAX_FILES)
267 {
268 WARN(":files exhausted!\n");
269 *_errno() = ENFILE;
270 return -1;
271 }
272
273 fdinfo = get_ioinfo(fd);
274 if(fdinfo == &__badioinfo) {
275 int i;
276
277 __pioinfo[fd/FD_BLOCK_SIZE] = calloc(FD_BLOCK_SIZE, sizeof(ioinfo));
278 if(!__pioinfo[fd/FD_BLOCK_SIZE]) {
279 WARN(":out of memory!\n");
280 *_errno() = ENOMEM;
281 return -1;
282 }
283
284 for(i=0; i<FD_BLOCK_SIZE; i++)
285 __pioinfo[fd/FD_BLOCK_SIZE][i].handle = INVALID_HANDLE_VALUE;
286
287 fdinfo = get_ioinfo(fd);
288 }
289
290 fdinfo->handle = hand;
291 fdinfo->wxflag = WX_OPEN | (flag & (WX_DONTINHERIT | WX_APPEND | WX_TEXT | WX_PIPE | WX_NOSEEK));
292 fdinfo->lookahead[0] = '\n';
293 fdinfo->lookahead[1] = '\n';
294 fdinfo->lookahead[2] = '\n';
295 fdinfo->exflag = 0;
296
297 /* locate next free slot */
298 if (fd == fdstart && fd == fdend)
299 fdstart = fdend + 1;
300 else
301 while (fdstart < fdend &&
302 get_ioinfo(fdstart)->handle != INVALID_HANDLE_VALUE)
303 fdstart++;
304 /* update last fd in use */
305 if (fd >= fdend)
306 fdend = fd + 1;
307 TRACE("fdstart is %d, fdend is %d\n", fdstart, fdend);
308
309 switch (fd)
310 {
311 case 0: SetStdHandle(STD_INPUT_HANDLE, hand); break;
312 case 1: SetStdHandle(STD_OUTPUT_HANDLE, hand); break;
313 case 2: SetStdHandle(STD_ERROR_HANDLE, hand); break;
314 }
315
316 return fd;
317 }
318
319 /* INTERNAL: Allocate an fd slot from a Win32 HANDLE */
320 /*static*/ int alloc_fd(HANDLE hand, int flag)
321 {
322 int ret;
323
324 LOCK_FILES();
325 TRACE(":handle (%p) allocating fd (%d)\n",hand,fdstart);
326 ret = set_fd(hand, flag, fdstart);
327 UNLOCK_FILES();
328 return ret;
329 }
330
331 /* INTERNAL: Allocate a FILE* for an fd slot */
332 /* caller must hold the files lock */
333 static FILE* alloc_fp(void)
334 {
335 unsigned int i;
336 FILE *file;
337
338 for (i = 3; i < (unsigned int)max_streams; i++)
339 {
340 file = get_file(i);
341 if (!file)
342 return NULL;
343
344 if (file->_flag == 0)
345 {
346 if (i == stream_idx) stream_idx++;
347 return file;
348 }
349 }
350
351 return NULL;
352 }
353
354 /* INTERNAL: initialize a FILE* from an open fd */
355 static int init_fp(FILE* file, int fd, unsigned stream_flags)
356 {
357 TRACE(":fd (%d) allocating FILE*\n",fd);
358 if (!is_valid_fd(fd))
359 {
360 WARN(":invalid fd %d\n",fd);
361 *__doserrno() = 0;
362 *_errno() = EBADF;
363 return -1;
364 }
365 memset(file, 0, sizeof(*file));
366 file->_file = fd;
367 file->_flag = stream_flags;
368
369 if(file<_iob || file>=_iob+_IOB_ENTRIES)
370 InitializeCriticalSection(&((file_crit*)file)->crit);
371
372 TRACE(":got FILE* (%p)\n",file);
373 return 0;
374 }
375
376 /* INTERNAL: Create an inheritance data block (for spawned process)
377 * The inheritance block is made of:
378 * 00 int nb of file descriptor (NBFD)
379 * 04 char file flags (wxflag): repeated for each fd
380 * 4+NBFD HANDLE file handle: repeated for each fd
381 */
382 unsigned create_io_inherit_block(WORD *size, BYTE **block)
383 {
384 int fd;
385 char* wxflag_ptr;
386 HANDLE* handle_ptr;
387 ioinfo* fdinfo;
388
389 *size = sizeof(unsigned) + (sizeof(char) + sizeof(HANDLE)) * fdend;
390 *block = calloc(*size, 1);
391 if (!*block)
392 {
393 *size = 0;
394 return FALSE;
395 }
396 wxflag_ptr = (char*)*block + sizeof(unsigned);
397 handle_ptr = (HANDLE*)(wxflag_ptr + fdend * sizeof(char));
398
399 *(unsigned*)*block = fdend;
400 for (fd = 0; fd < fdend; fd++)
401 {
402 /* to be inherited, we need it to be open, and that DONTINHERIT isn't set */
403 fdinfo = get_ioinfo(fd);
404 if ((fdinfo->wxflag & (WX_OPEN | WX_DONTINHERIT)) == WX_OPEN)
405 {
406 *wxflag_ptr = fdinfo->wxflag;
407 *handle_ptr = fdinfo->handle;
408 }
409 else
410 {
411 *wxflag_ptr = 0;
412 *handle_ptr = INVALID_HANDLE_VALUE;
413 }
414 wxflag_ptr++; handle_ptr++;
415 }
416 return TRUE;
417 }
418
419 /* INTERNAL: Set up all file descriptors,
420 * as well as default streams (stdin, stderr and stdout)
421 */
422 void msvcrt_init_io(void)
423 {
424 STARTUPINFOA si;
425 unsigned int i;
426 ioinfo *fdinfo;
427
428 InitializeCriticalSection(&file_cs);
429 file_cs.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": file_cs");
430 GetStartupInfoA(&si);
431 if (si.cbReserved2 >= sizeof(unsigned int) && si.lpReserved2 != NULL)
432 {
433 BYTE* wxflag_ptr;
434 HANDLE* handle_ptr;
435 unsigned int count;
436
437 count = *(unsigned*)si.lpReserved2;
438 wxflag_ptr = si.lpReserved2 + sizeof(unsigned);
439 handle_ptr = (HANDLE*)(wxflag_ptr + count);
440
441 count = min(count, (si.cbReserved2 - sizeof(unsigned)) / (sizeof(HANDLE) + 1));
442 count = min(count, MAX_FILES);
443 for (i = 0; i < count; i++)
444 {
445 if ((*wxflag_ptr & WX_OPEN) && *handle_ptr != INVALID_HANDLE_VALUE)
446 set_fd(*handle_ptr, *wxflag_ptr, i);
447
448 wxflag_ptr++; handle_ptr++;
449 }
450 fdend = max( 3, count );
451 for (fdstart = 3; fdstart < fdend; fdstart++)
452 if (get_ioinfo(fdstart)->handle == INVALID_HANDLE_VALUE) break;
453 }
454
455 if(!__pioinfo[0])
456 set_fd(INVALID_HANDLE_VALUE, 0, 3);
457
458 fdinfo = get_ioinfo(0);
459 if (!(fdinfo->wxflag & WX_OPEN) || fdinfo->handle == INVALID_HANDLE_VALUE)
460 {
461 HANDLE std = GetStdHandle(STD_INPUT_HANDLE);
462 #ifndef __REACTOS__
463 if (std != INVALID_HANDLE_VALUE && DuplicateHandle(GetCurrentProcess(), std,
464 GetCurrentProcess(), &fdinfo->handle,
465 0, TRUE, DUPLICATE_SAME_ACCESS))
466 #else
467 fdinfo->handle = std;
468 #endif
469 fdinfo->wxflag = WX_OPEN | WX_TEXT;
470 }
471
472 fdinfo = get_ioinfo(1);
473 if (!(fdinfo->wxflag & WX_OPEN) || fdinfo->handle == INVALID_HANDLE_VALUE)
474 {
475 HANDLE std = GetStdHandle(STD_OUTPUT_HANDLE);
476 #ifndef __REACTOS__
477 if (std != INVALID_HANDLE_VALUE && DuplicateHandle(GetCurrentProcess(), std,
478 GetCurrentProcess(), &fdinfo->handle,
479 0, TRUE, DUPLICATE_SAME_ACCESS))
480 #else
481 fdinfo->handle = std;
482 #endif
483 fdinfo->wxflag = WX_OPEN | WX_TEXT;
484 }
485
486 fdinfo = get_ioinfo(2);
487 if (!(fdinfo->wxflag & WX_OPEN) || fdinfo->handle == INVALID_HANDLE_VALUE)
488 {
489 HANDLE std = GetStdHandle(STD_ERROR_HANDLE);
490 #ifndef __REACTOS__
491 if (std != INVALID_HANDLE_VALUE && DuplicateHandle(GetCurrentProcess(), std,
492 GetCurrentProcess(), &fdinfo->handle,
493 0, TRUE, DUPLICATE_SAME_ACCESS))
494 #else
495 fdinfo->handle = std;
496 #endif
497 fdinfo->wxflag = WX_OPEN | WX_TEXT;
498 }
499
500 TRACE(":handles (%p)(%p)(%p)\n", get_ioinfo(0)->handle,
501 get_ioinfo(1)->handle, get_ioinfo(2)->handle);
502
503 memset(_iob,0,3*sizeof(FILE));
504 for (i = 0; i < 3; i++)
505 {
506 /* FILE structs for stdin/out/err are static and never deleted */
507 _iob[i]._file = i;
508 _iob[i]._tmpfname = NULL;
509 _iob[i]._flag = (i == 0) ? _IOREAD : _IOWRT;
510 }
511 stream_idx = 3;
512 }
513
514 /* INTERNAL: Flush stdio file buffer */
515 static int flush_buffer(FILE* file)
516 {
517 if(file->_bufsiz) {
518 int cnt=file->_ptr-file->_base;
519 if(cnt>0 && _write(file->_file, file->_base, cnt) != cnt) {
520 file->_flag |= _IOERR;
521 return EOF;
522 }
523 file->_ptr=file->_base;
524 file->_cnt=file->_bufsiz;
525 }
526 return 0;
527 }
528
529 /* INTERNAL: Allocate stdio file buffer */
530 /*static*/ void alloc_buffer(FILE* file)
531 {
532 file->_base = calloc(BUFSIZ,1);
533 if(file->_base) {
534 file->_bufsiz = BUFSIZ;
535 file->_flag |= _IOMYBUF;
536 } else {
537 file->_base = (char*)(&file->_charbuf);
538 /* put here 2 ??? */
539 file->_bufsiz = sizeof(file->_charbuf);
540 }
541 file->_ptr = file->_base;
542 file->_cnt = 0;
543 }
544
545 /* INTERNAL: Convert integer to base32 string (0-9a-v), 0 becomes "" */
546 static int int_to_base32(int num, char *str)
547 {
548 char *p;
549 int n = num;
550 int digits = 0;
551
552 while (n != 0)
553 {
554 n >>= 5;
555 digits++;
556 }
557 p = str + digits;
558 *p = 0;
559 while (--p >= str)
560 {
561 *p = (num & 31) + '0';
562 if (*p > '9')
563 *p += ('a' - '0' - 10);
564 num >>= 5;
565 }
566
567 return digits;
568 }
569
570 /* INTERNAL: wide character version of int_to_base32 */
571 static int int_to_base32_w(int num, wchar_t *str)
572 {
573 wchar_t *p;
574 int n = num;
575 int digits = 0;
576
577 while (n != 0)
578 {
579 n >>= 5;
580 digits++;
581 }
582 p = str + digits;
583 *p = 0;
584 while (--p >= str)
585 {
586 *p = (num & 31) + '0';
587 if (*p > '9')
588 *p += ('a' - '0' - 10);
589 num >>= 5;
590 }
591
592 return digits;
593 }
594
595 /* INTERNAL: Create a wide string from an ascii string */
596 wchar_t *msvcrt_wstrdupa(const char *str)
597 {
598 const unsigned int len = strlen(str) + 1 ;
599 wchar_t *wstr = malloc(len* sizeof (wchar_t));
600 if (!wstr)
601 return NULL;
602 MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED,str,len,wstr,len);
603 return wstr;
604 }
605
606 /*********************************************************************
607 * __iob_func(MSVCRT.@)
608 */
609 FILE * CDECL __iob_func(void)
610 {
611 return &_iob[0];
612 }
613
614 /*********************************************************************
615 * _access (MSVCRT.@)
616 */
617 int CDECL _access(const char *filename, int mode)
618 {
619 DWORD attr = GetFileAttributesA(filename);
620
621 TRACE("(%s,%d) %d\n",filename,mode,attr);
622
623 if (!filename || attr == INVALID_FILE_ATTRIBUTES)
624 {
625 _dosmaperr(GetLastError());
626 return -1;
627 }
628 if ((attr & FILE_ATTRIBUTE_READONLY) && (mode & W_OK))
629 {
630 _set_errno(ERROR_ACCESS_DENIED);
631 return -1;
632 }
633 return 0;
634 }
635
636 /*********************************************************************
637 * _access_s (MSVCRT.@)
638 */
639 int CDECL _access_s(const char *filename, int mode)
640 {
641 if (!MSVCRT_CHECK_PMT(filename != NULL) ||
642 !MSVCRT_CHECK_PMT((mode & ~(R_OK | W_OK)) == 0))
643 {
644 _set_errno(EINVAL);
645 return -1;
646 }
647
648 return _access(filename, mode);
649 }
650
651 /*********************************************************************
652 * _waccess (MSVCRT.@)
653 */
654 int CDECL _waccess(const wchar_t *filename, int mode)
655 {
656 DWORD attr = GetFileAttributesW(filename);
657
658 TRACE("(%s,%d) %d\n",debugstr_w(filename),mode,attr);
659
660 if (!filename || attr == INVALID_FILE_ATTRIBUTES)
661 {
662 _dosmaperr(GetLastError());
663 return -1;
664 }
665 if ((attr & FILE_ATTRIBUTE_READONLY) && (mode & W_OK))
666 {
667 _set_errno(ERROR_ACCESS_DENIED);
668 return -1;
669 }
670 return 0;
671 }
672
673 /*********************************************************************
674 * _waccess_s (MSVCRT.@)
675 */
676 int CDECL _waccess_s(const wchar_t *filename, int mode)
677 {
678 if (!MSVCRT_CHECK_PMT(filename != NULL) ||
679 !MSVCRT_CHECK_PMT((mode & ~(R_OK | W_OK)) == 0))
680 {
681 *_errno() = EINVAL;
682 return -1;
683 }
684
685 return _waccess(filename, mode);
686 }
687
688 /*********************************************************************
689 * _chmod (MSVCRT.@)
690 */
691 int CDECL _chmod(const char *path, int flags)
692 {
693 DWORD oldFlags = GetFileAttributesA(path);
694
695 if (oldFlags != INVALID_FILE_ATTRIBUTES)
696 {
697 DWORD newFlags = (flags & _S_IWRITE)? oldFlags & ~FILE_ATTRIBUTE_READONLY:
698 oldFlags | FILE_ATTRIBUTE_READONLY;
699
700 if (newFlags == oldFlags || SetFileAttributesA(path, newFlags))
701 return 0;
702 }
703 _dosmaperr(GetLastError());
704 return -1;
705 }
706
707 /*********************************************************************
708 * _wchmod (MSVCRT.@)
709 */
710 int CDECL _wchmod(const wchar_t *path, int flags)
711 {
712 DWORD oldFlags = GetFileAttributesW(path);
713
714 if (oldFlags != INVALID_FILE_ATTRIBUTES)
715 {
716 DWORD newFlags = (flags & _S_IWRITE)? oldFlags & ~FILE_ATTRIBUTE_READONLY:
717 oldFlags | FILE_ATTRIBUTE_READONLY;
718
719 if (newFlags == oldFlags || SetFileAttributesW(path, newFlags))
720 return 0;
721 }
722 _dosmaperr(GetLastError());
723 return -1;
724 }
725
726 /*********************************************************************
727 * _unlink (MSVCRT.@)
728 */
729 int CDECL _unlink(const char *path)
730 {
731 TRACE("%s\n",debugstr_a(path));
732 if(DeleteFileA(path))
733 return 0;
734 TRACE("failed (%d)\n",GetLastError());
735 _dosmaperr(GetLastError());
736 return -1;
737 }
738
739 /*********************************************************************
740 * _wunlink (MSVCRT.@)
741 */
742 int CDECL _wunlink(const wchar_t *path)
743 {
744 TRACE("(%s)\n",debugstr_w(path));
745 if(DeleteFileW(path))
746 return 0;
747 TRACE("failed (%d)\n",GetLastError());
748 _dosmaperr(GetLastError());
749 return -1;
750 }
751
752 /* _flushall calls fflush which calls _flushall */
753 int CDECL fflush(FILE* file);
754
755 /* INTERNAL: Flush all stream buffer */
756 static int flush_all_buffers(int mask)
757 {
758 int i, num_flushed = 0;
759 FILE *file;
760
761 LOCK_FILES();
762 for (i = 3; i < stream_idx; i++) {
763 file = get_file(i);
764
765 if (file->_flag)
766 {
767 if(file->_flag & mask) {
768 fflush(file);
769 num_flushed++;
770 }
771 }
772 }
773 UNLOCK_FILES();
774
775 TRACE(":flushed (%d) handles\n",num_flushed);
776 return num_flushed;
777 }
778
779 /*********************************************************************
780 * _flushall (MSVCRT.@)
781 */
782 int CDECL _flushall(void)
783 {
784 return flush_all_buffers(_IOWRT | _IOREAD);
785 }
786
787 /*********************************************************************
788 * fflush (MSVCRT.@)
789 */
790 int CDECL fflush(FILE* file)
791 {
792 if(!file) {
793 flush_all_buffers(_IOWRT);
794 } else if(file->_flag & _IOWRT) {
795 int res;
796
797 _lock_file(file);
798 res = flush_buffer(file);
799 /* FIXME
800 if(!res && (file->_flag & _IOCOMMIT))
801 res = _commit(file->_file) ? EOF : 0;
802 */
803 _unlock_file(file);
804
805 return res;
806 } else if(file->_flag & _IOREAD) {
807 _lock_file(file);
808 file->_cnt = 0;
809 file->_ptr = file->_base;
810 _unlock_file(file);
811
812 return 0;
813 }
814 return 0;
815 }
816
817 /*********************************************************************
818 * _close (MSVCRT.@)
819 */
820 int CDECL _close(int fd)
821 {
822 HANDLE hand;
823 int ret;
824
825 LOCK_FILES();
826 hand = fdtoh(fd);
827 TRACE(":fd (%d) handle (%p)\n",fd,hand);
828 if (hand == INVALID_HANDLE_VALUE)
829 ret = -1;
830 else if (!CloseHandle(hand))
831 {
832 WARN(":failed-last error (%d)\n",GetLastError());
833 _dosmaperr(GetLastError());
834 ret = -1;
835 }
836 else
837 {
838 free_fd(fd);
839 ret = 0;
840 }
841 UNLOCK_FILES();
842 TRACE(":ok\n");
843 return ret;
844 }
845
846 /*********************************************************************
847 * _commit (MSVCRT.@)
848 */
849 int CDECL _commit(int fd)
850 {
851 HANDLE hand = fdtoh(fd);
852
853 TRACE(":fd (%d) handle (%p)\n",fd,hand);
854 if (hand == INVALID_HANDLE_VALUE)
855 return -1;
856
857 if (!FlushFileBuffers(hand))
858 {
859 if (GetLastError() == ERROR_INVALID_HANDLE)
860 {
861 /* FlushFileBuffers fails for console handles
862 * so we ignore this error.
863 */
864 return 0;
865 }
866 TRACE(":failed-last error (%d)\n",GetLastError());
867 _dosmaperr(GetLastError());
868 return -1;
869 }
870 TRACE(":ok\n");
871 return 0;
872 }
873
874 /*********************************************************************
875 * _dup2 (MSVCRT.@)
876 * NOTES
877 * MSDN isn't clear on this point, but the remarks for _pipe
878 * indicate file descriptors duplicated with _dup and _dup2 are always
879 * inheritable.
880 */
881 int CDECL _dup2(int od, int nd)
882 {
883 int ret;
884
885 TRACE("(od=%d, nd=%d)\n", od, nd);
886 LOCK_FILES();
887 if (nd < MAX_FILES && nd >= 0 && is_valid_fd(od))
888 {
889 HANDLE handle;
890
891 if (DuplicateHandle(GetCurrentProcess(), get_ioinfo(od)->handle,
892 GetCurrentProcess(), &handle, 0, TRUE, DUPLICATE_SAME_ACCESS))
893 {
894 int wxflag = get_ioinfo(od)->wxflag & ~_O_NOINHERIT;
895
896 if (is_valid_fd(nd))
897 _close(nd);
898 ret = set_fd(handle, wxflag, nd);
899 if (ret == -1)
900 {
901 CloseHandle(handle);
902 *_errno() = EMFILE;
903 }
904 else
905 {
906 /* _dup2 returns 0, not nd, on success */
907 ret = 0;
908 }
909 }
910 else
911 {
912 ret = -1;
913 _dosmaperr(GetLastError());
914 }
915 }
916 else
917 {
918 *_errno() = EBADF;
919 ret = -1;
920 }
921 UNLOCK_FILES();
922 return ret;
923 }
924
925 /*********************************************************************
926 * _dup (MSVCRT.@)
927 */
928 int CDECL _dup(int od)
929 {
930 int fd, ret;
931
932 LOCK_FILES();
933 fd = fdstart;
934 if (_dup2(od, fd) == 0)
935 ret = fd;
936 else
937 ret = -1;
938 UNLOCK_FILES();
939 return ret;
940 }
941
942 /*********************************************************************
943 * _eof (MSVCRT.@)
944 */
945 int CDECL _eof(int fd)
946 {
947 DWORD curpos,endpos;
948 LONG hcurpos,hendpos;
949 HANDLE hand = fdtoh(fd);
950
951 TRACE(":fd (%d) handle (%p)\n",fd,hand);
952
953 if (hand == INVALID_HANDLE_VALUE)
954 return -1;
955
956 if (get_ioinfo(fd)->wxflag & WX_ATEOF) return TRUE;
957
958 /* Otherwise we do it the hard way */
959 hcurpos = hendpos = 0;
960 curpos = SetFilePointer(hand, 0, &hcurpos, FILE_CURRENT);
961 endpos = SetFilePointer(hand, 0, &hendpos, FILE_END);
962
963 if (curpos == endpos && hcurpos == hendpos)
964 {
965 /* FIXME: shouldn't WX_ATEOF be set here? */
966 return TRUE;
967 }
968
969 SetFilePointer(hand, curpos, &hcurpos, FILE_BEGIN);
970 return FALSE;
971 }
972
973 /*********************************************************************
974 * _fcloseall (MSVCRT.@)
975 */
976 int CDECL _fcloseall(void)
977 {
978 int num_closed = 0, i;
979 FILE *file;
980
981 LOCK_FILES();
982 for (i = 3; i < stream_idx; i++) {
983 file = get_file(i);
984
985 if (file->_flag && !fclose(file))
986 num_closed++;
987 }
988 UNLOCK_FILES();
989
990 TRACE(":closed (%d) handles\n",num_closed);
991 return num_closed;
992 }
993
994 /* free everything on process exit */
995 void msvcrt_free_io(void)
996 {
997 int i;
998
999 _fcloseall();
1000 /* The Win32 _fcloseall() function explicitly doesn't close stdin,
1001 * stdout, and stderr (unlike GNU), so we need to fclose() them here
1002 * or they won't get flushed.
1003 */
1004 fclose(&_iob[0]);
1005 fclose(&_iob[1]);
1006 fclose(&_iob[2]);
1007
1008 for(i=0; i<sizeof(__pioinfo)/sizeof(__pioinfo[0]); i++)
1009 free(__pioinfo[i]);
1010
1011 for(i=0; i<sizeof(fstream)/sizeof(fstream[0]); i++)
1012 free(fstream[i]);
1013
1014 file_cs.DebugInfo->Spare[0] = 0;
1015 DeleteCriticalSection(&file_cs);
1016 }
1017
1018 /*********************************************************************
1019 * _lseeki64 (MSVCRT.@)
1020 */
1021 __int64 CDECL _lseeki64(int fd, __int64 offset, int whence)
1022 {
1023 HANDLE hand = fdtoh(fd);
1024 LARGE_INTEGER ofs;
1025
1026 TRACE(":fd (%d) handle (%p)\n",fd,hand);
1027 if (hand == INVALID_HANDLE_VALUE)
1028 return -1;
1029
1030 if (whence < 0 || whence > 2)
1031 {
1032 *_errno() = EINVAL;
1033 return -1;
1034 }
1035
1036 TRACE(":fd (%d) to %s pos %s\n",
1037 fd,wine_dbgstr_longlong(offset),
1038 (whence==SEEK_SET)?"SEEK_SET":
1039 (whence==SEEK_CUR)?"SEEK_CUR":
1040 (whence==SEEK_END)?"SEEK_END":"UNKNOWN");
1041
1042 /* The MoleBox protection scheme expects msvcrt to use SetFilePointer only,
1043 * so a LARGE_INTEGER offset cannot be passed directly via SetFilePointerEx. */
1044 ofs.QuadPart = offset;
1045 if ((ofs.u.LowPart = SetFilePointer(hand, ofs.u.LowPart, &ofs.u.HighPart, whence)) != INVALID_SET_FILE_POINTER ||
1046 GetLastError() == ERROR_SUCCESS)
1047 {
1048 get_ioinfo(fd)->wxflag &= ~(WX_ATEOF|WX_READEOF);
1049 /* FIXME: What if we seek _to_ EOF - is EOF set? */
1050
1051 return ofs.QuadPart;
1052 }
1053 TRACE(":error-last error (%d)\n",GetLastError());
1054 _dosmaperr(GetLastError());
1055 return -1;
1056 }
1057
1058 /*********************************************************************
1059 * _lseek (MSVCRT.@)
1060 */
1061 LONG CDECL _lseek(int fd, LONG offset, int whence)
1062 {
1063 return (LONG)_lseeki64(fd, offset, whence);
1064 }
1065
1066 /*********************************************************************
1067 * _lock_file (MSVCRT.@)
1068 */
1069 void CDECL _lock_file(FILE *file)
1070 {
1071 if(file>=_iob && file<_iob+_IOB_ENTRIES)
1072 _lock(_STREAM_LOCKS+(file-_iob));
1073 /* ReactOS: string streams dont need to be locked */
1074 else if(!(file->_flag & _IOSTRG))
1075 EnterCriticalSection(&((file_crit*)file)->crit);
1076 }
1077
1078 /*********************************************************************
1079 * _unlock_file (MSVCRT.@)
1080 */
1081 void CDECL _unlock_file(FILE *file)
1082 {
1083 if(file>=_iob && file<_iob+_IOB_ENTRIES)
1084 _unlock(_STREAM_LOCKS+(file-_iob));
1085 /* ReactOS: string streams dont need to be locked */
1086 else if(!(file->_flag & _IOSTRG))
1087 LeaveCriticalSection(&((file_crit*)file)->crit);
1088
1089 }
1090
1091 /*********************************************************************
1092 * _locking (MSVCRT.@)
1093 *
1094 * This is untested; the underlying LockFile doesn't work yet.
1095 */
1096 int CDECL _locking(int fd, int mode, LONG nbytes)
1097 {
1098 BOOL ret;
1099 DWORD cur_locn;
1100 HANDLE hand = fdtoh(fd);
1101
1102 TRACE(":fd (%d) handle (%p)\n",fd,hand);
1103 if (hand == INVALID_HANDLE_VALUE)
1104 return -1;
1105
1106 if (mode < 0 || mode > 4)
1107 {
1108 *_errno() = EINVAL;
1109 return -1;
1110 }
1111
1112 TRACE(":fd (%d) by 0x%08x mode %s\n",
1113 fd,nbytes,(mode==_LK_UNLCK)?"_LK_UNLCK":
1114 (mode==_LK_LOCK)?"_LK_LOCK":
1115 (mode==_LK_NBLCK)?"_LK_NBLCK":
1116 (mode==_LK_RLCK)?"_LK_RLCK":
1117 (mode==_LK_NBRLCK)?"_LK_NBRLCK":
1118 "UNKNOWN");
1119
1120 if ((cur_locn = SetFilePointer(hand, 0L, NULL, SEEK_CUR)) == INVALID_SET_FILE_POINTER)
1121 {
1122 FIXME ("Seek failed\n");
1123 *_errno() = EINVAL; /* FIXME */
1124 return -1;
1125 }
1126 if (mode == _LK_LOCK || mode == _LK_RLCK)
1127 {
1128 int nretry = 10;
1129 ret = 1; /* just to satisfy gcc */
1130 while (nretry--)
1131 {
1132 ret = LockFile(hand, cur_locn, 0L, nbytes, 0L);
1133 if (ret) break;
1134 Sleep(1);
1135 }
1136 }
1137 else if (mode == _LK_UNLCK)
1138 ret = UnlockFile(hand, cur_locn, 0L, nbytes, 0L);
1139 else
1140 ret = LockFile(hand, cur_locn, 0L, nbytes, 0L);
1141 /* FIXME - what about error settings? */
1142 return ret ? 0 : -1;
1143 }
1144
1145 /*********************************************************************
1146 * _fseeki64 (MSVCRT.@)
1147 */
1148 int CDECL _fseeki64(FILE* file, __int64 offset, int whence)
1149 {
1150 int ret;
1151
1152 _lock_file(file);
1153 /* Flush output if needed */
1154 if(file->_flag & _IOWRT)
1155 flush_buffer(file);
1156
1157 if(whence == SEEK_CUR && file->_flag & _IOREAD ) {
1158 offset -= file->_cnt;
1159 if (get_ioinfo(file->_file)->wxflag & WX_TEXT) {
1160 /* Black magic correction for CR removal */
1161 int i;
1162 for (i=0; i<file->_cnt; i++) {
1163 if (file->_ptr[i] == '\n')
1164 offset--;
1165 }
1166 /* Black magic when reading CR at buffer boundary*/
1167 if(get_ioinfo(file->_file)->wxflag & WX_READCR)
1168 offset--;
1169 }
1170 }
1171 /* Discard buffered input */
1172 file->_cnt = 0;
1173 file->_ptr = file->_base;
1174 /* Reset direction of i/o */
1175 if(file->_flag & _IORW) {
1176 file->_flag &= ~(_IOREAD|_IOWRT);
1177 }
1178 /* Clear end of file flag */
1179 file->_flag &= ~_IOEOF;
1180 ret = (_lseeki64(file->_file,offset,whence) == -1)?-1:0;
1181
1182 _unlock_file(file);
1183 return ret;
1184 }
1185
1186 /*********************************************************************
1187 * fseek (MSVCRT.@)
1188 */
1189 int CDECL fseek(FILE* file, long offset, int whence)
1190 {
1191 return _fseeki64( file, offset, whence );
1192 }
1193
1194 /*********************************************************************
1195 * _chsize (MSVCRT.@)
1196 */
1197 int CDECL _chsize(int fd, long size)
1198 {
1199 LONG cur, pos;
1200 HANDLE handle;
1201 BOOL ret = FALSE;
1202
1203 TRACE("(fd=%d, size=%d)\n", fd, size);
1204
1205 LOCK_FILES();
1206
1207 handle = fdtoh(fd);
1208 if (handle != INVALID_HANDLE_VALUE)
1209 {
1210 /* save the current file pointer */
1211 cur = _lseek(fd, 0, SEEK_CUR);
1212 if (cur >= 0)
1213 {
1214 pos = _lseek(fd, size, SEEK_SET);
1215 if (pos >= 0)
1216 {
1217 ret = SetEndOfFile(handle);
1218 if (!ret) _dosmaperr(GetLastError());
1219 }
1220
1221 /* restore the file pointer */
1222 _lseek(fd, cur, SEEK_SET);
1223 }
1224 }
1225
1226 UNLOCK_FILES();
1227 return ret ? 0 : -1;
1228 }
1229
1230 /*********************************************************************
1231 * clearerr (MSVCRT.@)
1232 */
1233 void CDECL clearerr(FILE* file)
1234 {
1235 TRACE(":file (%p) fd (%d)\n",file,file->_file);
1236
1237 _lock_file(file);
1238 file->_flag &= ~(_IOERR | _IOEOF);
1239 _unlock_file(file);
1240 }
1241
1242 /*********************************************************************
1243 * rewind (MSVCRT.@)
1244 */
1245 void CDECL rewind(FILE* file)
1246 {
1247 TRACE(":file (%p) fd (%d)\n",file,file->_file);
1248
1249 _lock_file(file);
1250 fseek(file, 0L, SEEK_SET);
1251 clearerr(file);
1252 _unlock_file(file);
1253 }
1254
1255 static int get_flags(const wchar_t* mode, int *open_flags, int* stream_flags)
1256 {
1257 int plus = strchrW(mode, '+') != NULL;
1258
1259 TRACE("%s\n", debugstr_w(mode));
1260
1261 while(*mode == ' ') mode++;
1262
1263 switch(*mode++)
1264 {
1265 case 'R': case 'r':
1266 *open_flags = plus ? _O_RDWR : _O_RDONLY;
1267 *stream_flags = plus ? _IORW : _IOREAD;
1268 break;
1269 case 'W': case 'w':
1270 *open_flags = _O_CREAT | _O_TRUNC | (plus ? _O_RDWR : _O_WRONLY);
1271 *stream_flags = plus ? _IORW : _IOWRT;
1272 break;
1273 case 'A': case 'a':
1274 *open_flags = _O_CREAT | _O_APPEND | (plus ? _O_RDWR : _O_WRONLY);
1275 *stream_flags = plus ? _IORW : _IOWRT;
1276 break;
1277 default:
1278 MSVCRT_INVALID_PMT(0, EINVAL);
1279 return -1;
1280 }
1281
1282 *stream_flags |= _commode;
1283
1284 while (*mode && *mode!=',')
1285 switch (*mode++)
1286 {
1287 case 'B': case 'b':
1288 *open_flags |= _O_BINARY;
1289 *open_flags &= ~_O_TEXT;
1290 break;
1291 case 't':
1292 *open_flags |= _O_TEXT;
1293 *open_flags &= ~_O_BINARY;
1294 break;
1295 case 'D':
1296 *open_flags |= _O_TEMPORARY;
1297 break;
1298 case 'T':
1299 *open_flags |= _O_SHORT_LIVED;
1300 break;
1301 case 'c':
1302 *stream_flags |= _IOCOMMIT;
1303 break;
1304 case 'n':
1305 *stream_flags &= ~_IOCOMMIT;
1306 break;
1307 case 'N':
1308 *open_flags |= _O_NOINHERIT;
1309 break;
1310 case '+':
1311 case ' ':
1312 case 'a':
1313 case 'w':
1314 break;
1315 case 'S':
1316 case 'R':
1317 FIXME("ignoring cache optimization flag: %c\n", mode[-1]);
1318 break;
1319 default:
1320 ERR("incorrect mode flag: %c\n", mode[-1]);
1321 break;
1322 }
1323
1324 if(*mode == ',')
1325 {
1326 static const WCHAR ccs[] = {'c','c','s'};
1327 static const WCHAR utf8[] = {'u','t','f','-','8'};
1328 static const WCHAR utf16le[] = {'u','t','f','-','1','6','l','e'};
1329 static const WCHAR unicode[] = {'u','n','i','c','o','d','e'};
1330
1331 mode++;
1332 while(*mode == ' ') mode++;
1333 if(!MSVCRT_CHECK_PMT(!strncmpW(ccs, mode, sizeof(ccs)/sizeof(ccs[0]))))
1334 return -1;
1335 mode += sizeof(ccs)/sizeof(ccs[0]);
1336 while(*mode == ' ') mode++;
1337 if(!MSVCRT_CHECK_PMT(*mode == '='))
1338 return -1;
1339 mode++;
1340 while(*mode == ' ') mode++;
1341
1342 if(!strncmpiW(utf8, mode, sizeof(utf8)/sizeof(utf8[0])))
1343 {
1344 *open_flags |= _O_U8TEXT;
1345 mode += sizeof(utf8)/sizeof(utf8[0]);
1346 }
1347 else if(!strncmpiW(utf16le, mode, sizeof(utf16le)/sizeof(utf16le[0])))
1348 {
1349 *open_flags |= _O_U16TEXT;
1350 mode += sizeof(utf16le)/sizeof(utf16le[0]);
1351 }
1352 else if(!strncmpiW(unicode, mode, sizeof(unicode)/sizeof(unicode[0])))
1353 {
1354 *open_flags |= _O_WTEXT;
1355 mode += sizeof(unicode)/sizeof(unicode[0]);
1356 }
1357 else
1358 {
1359 MSVCRT_INVALID_PMT(0, EINVAL);
1360 return -1;
1361 }
1362
1363 while(*mode == ' ') mode++;
1364 }
1365
1366 if(!MSVCRT_CHECK_PMT(*mode == 0))
1367 return -1;
1368 return 0;
1369 }
1370
1371 /*********************************************************************
1372 * _fdopen (MSVCRT.@)
1373 */
1374 FILE* CDECL _fdopen(int fd, const char *mode)
1375 {
1376 FILE *ret;
1377 wchar_t *modeW = NULL;
1378
1379 if (mode && !(modeW = msvcrt_wstrdupa(mode))) return NULL;
1380
1381 ret = _wfdopen(fd, modeW);
1382
1383 free(modeW);
1384 return ret;
1385 }
1386
1387 /*********************************************************************
1388 * _wfdopen (MSVCRT.@)
1389 */
1390 FILE* CDECL _wfdopen(int fd, const wchar_t *mode)
1391 {
1392 int open_flags, stream_flags;
1393 FILE* file;
1394
1395 if (get_flags(mode, &open_flags, &stream_flags) == -1) return NULL;
1396
1397 LOCK_FILES();
1398 if (!(file = alloc_fp()))
1399 file = NULL;
1400 else if (init_fp(file, fd, stream_flags) == -1)
1401 {
1402 file->_flag = 0;
1403 file = NULL;
1404 }
1405 else TRACE(":fd (%d) mode (%s) FILE* (%p)\n", fd, debugstr_w(mode), file);
1406 UNLOCK_FILES();
1407
1408 return file;
1409 }
1410
1411 /*********************************************************************
1412 * _filelength (MSVCRT.@)
1413 */
1414 LONG CDECL _filelength(int fd)
1415 {
1416 LONG curPos = _lseek(fd, 0, SEEK_CUR);
1417 if (curPos != -1)
1418 {
1419 LONG endPos = _lseek(fd, 0, SEEK_END);
1420 if (endPos != -1)
1421 {
1422 if (endPos != curPos)
1423 _lseek(fd, curPos, SEEK_SET);
1424 return endPos;
1425 }
1426 }
1427 return -1;
1428 }
1429
1430 /*********************************************************************
1431 * _filelengthi64 (MSVCRT.@)
1432 */
1433 __int64 CDECL _filelengthi64(int fd)
1434 {
1435 __int64 curPos = _lseeki64(fd, 0, SEEK_CUR);
1436 if (curPos != -1)
1437 {
1438 __int64 endPos = _lseeki64(fd, 0, SEEK_END);
1439 if (endPos != -1)
1440 {
1441 if (endPos != curPos)
1442 _lseeki64(fd, curPos, SEEK_SET);
1443 return endPos;
1444 }
1445 }
1446 return -1;
1447 }
1448
1449 /*********************************************************************
1450 * _fileno (MSVCRT.@)
1451 */
1452 int CDECL _fileno(FILE* file)
1453 {
1454 TRACE(":FILE* (%p) fd (%d)\n",file,file->_file);
1455 return file->_file;
1456 }
1457
1458 /*********************************************************************
1459 * _get_osfhandle (MSVCRT.@)
1460 */
1461 intptr_t CDECL _get_osfhandle(int fd)
1462 {
1463 HANDLE hand = fdtoh(fd);
1464 TRACE(":fd (%d) handle (%p)\n",fd,hand);
1465
1466 return (intptr_t)hand;
1467 }
1468
1469 /*********************************************************************
1470 * _isatty (MSVCRT.@)
1471 */
1472 int CDECL _isatty(int fd)
1473 {
1474 HANDLE hand = fdtoh(fd);
1475
1476 TRACE(":fd (%d) handle (%p)\n",fd,hand);
1477 if (hand == INVALID_HANDLE_VALUE)
1478 return 0;
1479
1480 return GetFileType(hand) == FILE_TYPE_CHAR? 1 : 0;
1481 }
1482
1483 /*********************************************************************
1484 * _mktemp (MSVCRT.@)
1485 */
1486 char * CDECL _mktemp(char *pattern)
1487 {
1488 int numX = 0;
1489 char *retVal = pattern;
1490 int id;
1491 char letter = 'a';
1492
1493 if(!pattern)
1494 return NULL;
1495
1496 while(*pattern)
1497 numX = (*pattern++ == 'X')? numX + 1 : 0;
1498 if (numX < 6)
1499 return NULL;
1500 pattern--;
1501 id = GetCurrentProcessId();
1502 numX = 6;
1503 while(numX--)
1504 {
1505 int tempNum = id / 10;
1506 *pattern-- = id - (tempNum * 10) + '0';
1507 id = tempNum;
1508 }
1509 pattern++;
1510 do
1511 {
1512 *pattern = letter++;
1513 if (GetFileAttributesA(retVal) == INVALID_FILE_ATTRIBUTES)
1514 return retVal;
1515 } while(letter <= 'z');
1516 return NULL;
1517 }
1518
1519 /*********************************************************************
1520 * _wmktemp (MSVCRT.@)
1521 */
1522 wchar_t * CDECL _wmktemp(wchar_t *pattern)
1523 {
1524 int numX = 0;
1525 wchar_t *retVal = pattern;
1526 int id;
1527 wchar_t letter = 'a';
1528
1529 while(*pattern)
1530 numX = (*pattern++ == 'X')? numX + 1 : 0;
1531 if (numX < 5)
1532 return NULL;
1533 pattern--;
1534 id = GetCurrentProcessId();
1535 numX = 6;
1536 while(numX--)
1537 {
1538 int tempNum = id / 10;
1539 *pattern-- = id - (tempNum * 10) + '0';
1540 id = tempNum;
1541 }
1542 pattern++;
1543 do
1544 {
1545 if (GetFileAttributesW(retVal) == INVALID_FILE_ATTRIBUTES &&
1546 GetLastError() == ERROR_FILE_NOT_FOUND)
1547 return retVal;
1548 *pattern = letter++;
1549 } while(letter != '|');
1550 return NULL;
1551 }
1552
1553 /*static*/ unsigned split_oflags(unsigned oflags)
1554 {
1555 int wxflags = 0;
1556 unsigned unsupp; /* until we support everything */
1557
1558 if (oflags & _O_APPEND) wxflags |= WX_APPEND;
1559 if (oflags & _O_BINARY) {/* Nothing to do */}
1560 else if (oflags & _O_TEXT) wxflags |= WX_TEXT;
1561 else if (*__p__fmode() & _O_BINARY) {/* Nothing to do */}
1562 else wxflags |= WX_TEXT; /* default to TEXT*/
1563 if (oflags & _O_NOINHERIT) wxflags |= WX_DONTINHERIT;
1564
1565 if ((unsupp = oflags & ~(
1566 _O_BINARY|_O_TEXT|_O_APPEND|
1567 _O_TRUNC|_O_EXCL|_O_CREAT|
1568 _O_RDWR|_O_WRONLY|_O_TEMPORARY|
1569 _O_NOINHERIT|
1570 _O_SEQUENTIAL|_O_RANDOM|_O_SHORT_LIVED
1571 )))
1572 ERR(":unsupported oflags 0x%04x\n",unsupp);
1573
1574 return wxflags;
1575 }
1576
1577 /*********************************************************************
1578 * _pipe (MSVCRT.@)
1579 */
1580 int CDECL _pipe(int *pfds, unsigned int psize, int textmode)
1581 {
1582 int ret = -1;
1583 SECURITY_ATTRIBUTES sa;
1584 HANDLE readHandle, writeHandle;
1585
1586 if (!pfds)
1587 {
1588 *_errno() = EINVAL;
1589 return -1;
1590 }
1591
1592 sa.nLength = sizeof(SECURITY_ATTRIBUTES);
1593 sa.bInheritHandle = !(textmode & _O_NOINHERIT);
1594 sa.lpSecurityDescriptor = NULL;
1595 if (CreatePipe(&readHandle, &writeHandle, &sa, psize))
1596 {
1597 unsigned int wxflags = split_oflags(textmode);
1598 int fd;
1599
1600 LOCK_FILES();
1601 fd = alloc_fd(readHandle, wxflags);
1602 if (fd != -1)
1603 {
1604 pfds[0] = fd;
1605 fd = alloc_fd(writeHandle, wxflags);
1606 if (fd != -1)
1607 {
1608 pfds[1] = fd;
1609 ret = 0;
1610 }
1611 else
1612 {
1613 _close(pfds[0]);
1614 CloseHandle(writeHandle);
1615 *_errno() = EMFILE;
1616 }
1617 }
1618 else
1619 {
1620 CloseHandle(readHandle);
1621 CloseHandle(writeHandle);
1622 *_errno() = EMFILE;
1623 }
1624 UNLOCK_FILES();
1625 }
1626 else
1627 _dosmaperr(GetLastError());
1628
1629 return ret;
1630 }
1631
1632 /*********************************************************************
1633 * _sopen_s (MSVCRT.@)
1634 */
1635 int CDECL _sopen_s( int *fd, const char *path, int oflags, int shflags, int pmode )
1636 {
1637 DWORD access = 0, creation = 0, attrib;
1638 DWORD sharing;
1639 int wxflag;
1640 HANDLE hand;
1641 SECURITY_ATTRIBUTES sa;
1642
1643 TRACE("fd*: %p file: (%s) oflags: 0x%04x shflags: 0x%04x pmode: 0x%04x\n",
1644 fd, path, oflags, shflags, pmode);
1645
1646 if (!fd)
1647 {
1648 MSVCRT_INVALID_PMT("null out fd pointer", EINVAL);
1649 return EINVAL;
1650 }
1651
1652 *fd = -1;
1653 wxflag = split_oflags(oflags);
1654 switch (oflags & (_O_RDONLY | _O_WRONLY | _O_RDWR))
1655 {
1656 case _O_RDONLY: access |= GENERIC_READ; break;
1657 case _O_WRONLY: access |= GENERIC_WRITE; break;
1658 case _O_RDWR: access |= GENERIC_WRITE | GENERIC_READ; break;
1659 }
1660
1661 if (oflags & _O_CREAT)
1662 {
1663 if(pmode & ~(_S_IREAD | _S_IWRITE))
1664 FIXME(": pmode 0x%04x ignored\n", pmode);
1665 else
1666 WARN(": pmode 0x%04x ignored\n", pmode);
1667
1668 if (oflags & _O_EXCL)
1669 creation = CREATE_NEW;
1670 else if (oflags & _O_TRUNC)
1671 creation = CREATE_ALWAYS;
1672 else
1673 creation = OPEN_ALWAYS;
1674 }
1675 else /* no _O_CREAT */
1676 {
1677 if (oflags & _O_TRUNC)
1678 creation = TRUNCATE_EXISTING;
1679 else
1680 creation = OPEN_EXISTING;
1681 }
1682
1683 switch( shflags )
1684 {
1685 case _SH_DENYRW:
1686 sharing = 0L;
1687 break;
1688 case _SH_DENYWR:
1689 sharing = FILE_SHARE_READ;
1690 break;
1691 case _SH_DENYRD:
1692 sharing = FILE_SHARE_WRITE;
1693 break;
1694 case _SH_DENYNO:
1695 sharing = FILE_SHARE_READ | FILE_SHARE_WRITE;
1696 break;
1697 default:
1698 ERR( "Unhandled shflags 0x%x\n", shflags );
1699 return EINVAL;
1700 }
1701 attrib = FILE_ATTRIBUTE_NORMAL;
1702
1703 if (oflags & _O_TEMPORARY)
1704 {
1705 attrib |= FILE_FLAG_DELETE_ON_CLOSE;
1706 access |= DELETE;
1707 sharing |= FILE_SHARE_DELETE;
1708 }
1709
1710 sa.nLength = sizeof( SECURITY_ATTRIBUTES );
1711 sa.lpSecurityDescriptor = NULL;
1712 sa.bInheritHandle = (oflags & _O_NOINHERIT) ? FALSE : TRUE;
1713
1714 hand = CreateFileA(path, access, sharing, &sa, creation, attrib, 0);
1715 if (hand == INVALID_HANDLE_VALUE) {
1716 WARN(":failed-last error (%d)\n", GetLastError());
1717 _dosmaperr(GetLastError());
1718 return *_errno();
1719 }
1720
1721 *fd = alloc_fd(hand, wxflag);
1722
1723 TRACE(":fd (%d) handle (%p)\n", *fd, hand);
1724 return 0;
1725 }
1726
1727 /*********************************************************************
1728 * _sopen (MSVCRT.@)
1729 */
1730 int CDECL _sopen( const char *path, int oflags, int shflags, ... )
1731 {
1732 int pmode;
1733 int fd;
1734
1735 if (oflags & _O_CREAT)
1736 {
1737 va_list ap;
1738
1739 va_start(ap, shflags);
1740 pmode = va_arg(ap, int);
1741 va_end(ap);
1742 }
1743 else
1744 pmode = 0;
1745
1746 _sopen_s(&fd, path, oflags, shflags, pmode);
1747 return fd;
1748 }
1749
1750 /*********************************************************************
1751 * _wsopen_s (MSVCRT.@)
1752 */
1753 int CDECL _wsopen_s( int *fd, const wchar_t* path, int oflags, int shflags, int pmode )
1754 {
1755 DWORD access = 0, creation = 0, attrib;
1756 SECURITY_ATTRIBUTES sa;
1757 DWORD sharing;
1758 int wxflag;
1759 HANDLE hand;
1760
1761 TRACE("fd*: %p :file (%s) oflags: 0x%04x shflags: 0x%04x pmode: 0x%04x\n",
1762 fd, debugstr_w(path), oflags, shflags, pmode);
1763
1764 if (!fd)
1765 {
1766 MSVCRT_INVALID_PMT("null out fd pointer", EINVAL);
1767 return EINVAL;
1768 }
1769
1770 *fd = -1;
1771 wxflag = split_oflags(oflags);
1772 switch (oflags & (_O_RDONLY | _O_WRONLY | _O_RDWR))
1773 {
1774 case _O_RDONLY: access |= GENERIC_READ; break;
1775 case _O_WRONLY: access |= GENERIC_WRITE; break;
1776 case _O_RDWR: access |= GENERIC_WRITE | GENERIC_READ; break;
1777 }
1778
1779 if (oflags & _O_CREAT)
1780 {
1781 if(pmode & ~(_S_IREAD | _S_IWRITE))
1782 FIXME(": pmode 0x%04x ignored\n", pmode);
1783 else
1784 WARN(": pmode 0x%04x ignored\n", pmode);
1785
1786 if (oflags & _O_EXCL)
1787 creation = CREATE_NEW;
1788 else if (oflags & _O_TRUNC)
1789 creation = CREATE_ALWAYS;
1790 else
1791 creation = OPEN_ALWAYS;
1792 }
1793 else /* no _O_CREAT */
1794 {
1795 if (oflags & _O_TRUNC)
1796 creation = TRUNCATE_EXISTING;
1797 else
1798 creation = OPEN_EXISTING;
1799 }
1800
1801 switch( shflags )
1802 {
1803 case _SH_DENYRW:
1804 sharing = 0L;
1805 break;
1806 case _SH_DENYWR:
1807 sharing = FILE_SHARE_READ;
1808 break;
1809 case _SH_DENYRD:
1810 sharing = FILE_SHARE_WRITE;
1811 break;
1812 case _SH_DENYNO:
1813 sharing = FILE_SHARE_READ | FILE_SHARE_WRITE;
1814 break;
1815 default:
1816 ERR( "Unhandled shflags 0x%x\n", shflags );
1817 return EINVAL;
1818 }
1819 attrib = FILE_ATTRIBUTE_NORMAL;
1820
1821 if (oflags & _O_TEMPORARY)
1822 {
1823 attrib |= FILE_FLAG_DELETE_ON_CLOSE;
1824 access |= DELETE;
1825 sharing |= FILE_SHARE_DELETE;
1826 }
1827
1828 sa.nLength = sizeof( SECURITY_ATTRIBUTES );
1829 sa.lpSecurityDescriptor = NULL;
1830 sa.bInheritHandle = (oflags & _O_NOINHERIT) ? FALSE : TRUE;
1831
1832 hand = CreateFileW(path, access, sharing, &sa, creation, attrib, 0);
1833
1834 if (hand == INVALID_HANDLE_VALUE) {
1835 WARN(":failed-last error (%d)\n",GetLastError());
1836 _dosmaperr(GetLastError());
1837 return *_errno();
1838 }
1839
1840 *fd = alloc_fd(hand, wxflag);
1841
1842 TRACE(":fd (%d) handle (%p)\n", *fd, hand);
1843 return 0;
1844 }
1845
1846 /*********************************************************************
1847 * _wsopen (MSVCRT.@)
1848 */
1849 int CDECL _wsopen( const wchar_t *path, int oflags, int shflags, ... )
1850 {
1851 int pmode;
1852 int fd;
1853
1854 if (oflags & _O_CREAT)
1855 {
1856 va_list ap;
1857
1858 va_start(ap, shflags);
1859 pmode = va_arg(ap, int);
1860 va_end(ap);
1861 }
1862 else
1863 pmode = 0;
1864
1865 _wsopen_s(&fd, path, oflags, shflags, pmode);
1866 return fd;
1867 }
1868
1869 /*********************************************************************
1870 * _open (MSVCRT.@)
1871 */
1872 int CDECL _open( const char *path, int flags, ... )
1873 {
1874 va_list ap;
1875
1876 if (flags & _O_CREAT)
1877 {
1878 int pmode;
1879 va_start(ap, flags);
1880 pmode = va_arg(ap, int);
1881 va_end(ap);
1882 return _sopen( path, flags, _SH_DENYNO, pmode );
1883 }
1884 else
1885 return _sopen( path, flags, _SH_DENYNO);
1886 }
1887
1888 /*********************************************************************
1889 * _wopen (MSVCRT.@)
1890 */
1891 int CDECL _wopen(const wchar_t *path,int flags,...)
1892 {
1893 va_list ap;
1894
1895 if (flags & _O_CREAT)
1896 {
1897 int pmode;
1898 va_start(ap, flags);
1899 pmode = va_arg(ap, int);
1900 va_end(ap);
1901 return _wsopen( path, flags, _SH_DENYNO, pmode );
1902 }
1903 else
1904 return _wsopen( path, flags, _SH_DENYNO);
1905 }
1906
1907 /*********************************************************************
1908 * _creat (MSVCRT.@)
1909 */
1910 int CDECL _creat(const char *path, int flags)
1911 {
1912 int usedFlags = (flags & _O_TEXT)| _O_CREAT| _O_WRONLY| _O_TRUNC;
1913 return _open(path, usedFlags);
1914 }
1915
1916 /*********************************************************************
1917 * _wcreat (MSVCRT.@)
1918 */
1919 int CDECL _wcreat(const wchar_t *path, int flags)
1920 {
1921 int usedFlags = (flags & _O_TEXT)| _O_CREAT| _O_WRONLY| _O_TRUNC;
1922 return _wopen(path, usedFlags);
1923 }
1924
1925 /*********************************************************************
1926 * _open_osfhandle (MSVCRT.@)
1927 */
1928 int CDECL _open_osfhandle(intptr_t handle, int oflags)
1929 {
1930 DWORD flags;
1931 int fd;
1932
1933 /* _O_RDONLY (0) always matches, so set the read flag
1934 * MFC's CStdioFile clears O_RDONLY (0)! if it wants to write to the
1935 * file, so set the write flag. It also only sets _O_TEXT if it wants
1936 * text - it never sets _O_BINARY.
1937 */
1938 /* don't let split_oflags() decide the mode if no mode is passed */
1939 if (!(oflags & (_O_BINARY | _O_TEXT)))
1940 oflags |= _O_BINARY;
1941
1942 flags = GetFileType((HANDLE)handle);
1943 if (flags==FILE_TYPE_UNKNOWN && GetLastError()!=NO_ERROR)
1944 {
1945 _dosmaperr(GetLastError());
1946 return -1;
1947 }
1948
1949 if (flags == FILE_TYPE_CHAR)
1950 flags = WX_NOSEEK;
1951 else if (flags == FILE_TYPE_PIPE)
1952 flags = WX_PIPE;
1953 else
1954 flags = 0;
1955 flags |= split_oflags(oflags);
1956
1957 fd = alloc_fd((HANDLE)handle, flags);
1958 TRACE(":handle (%ld) fd (%d) flags 0x%08x\n", handle, fd, flags);
1959 return fd;
1960 }
1961
1962 /*********************************************************************
1963 * _rmtmp (MSVCRT.@)
1964 */
1965 int CDECL _rmtmp(void)
1966 {
1967 int num_removed = 0, i;
1968 FILE *file;
1969
1970 LOCK_FILES();
1971 for (i = 3; i < stream_idx; i++) {
1972 file = get_file(i);
1973
1974 if (file->_tmpfname)
1975 {
1976 fclose(file);
1977 num_removed++;
1978 }
1979 }
1980 UNLOCK_FILES();
1981
1982 if (num_removed)
1983 TRACE(":removed (%d) temp files\n",num_removed);
1984 return num_removed;
1985 }
1986
1987 /*********************************************************************
1988 * (internal) read_i
1989 *
1990 * When reading \r as last character in text mode, read() positions
1991 * the file pointer on the \r character while getc() goes on to
1992 * the following \n
1993 */
1994 static int read_i(int fd, void *buf, unsigned int count)
1995 {
1996 DWORD num_read;
1997 char *bufstart = buf;
1998 HANDLE hand = fdtoh(fd);
1999 ioinfo *fdinfo = get_ioinfo(fd);
2000
2001 if (count == 0)
2002 return 0;
2003
2004 if (fdinfo->wxflag & WX_READEOF) {
2005 fdinfo->wxflag |= WX_ATEOF;
2006 TRACE("already at EOF, returning 0\n");
2007 return 0;
2008 }
2009 /* Don't trace small reads, it gets *very* annoying */
2010 if (count > 4)
2011 TRACE(":fd (%d) handle (%p) buf (%p) len (%d)\n",fd,hand,buf,count);
2012 if (hand == INVALID_HANDLE_VALUE)
2013 return -1;
2014
2015 /* Reading single bytes in O_TEXT mode makes things slow
2016 * So read big chunks
2017 */
2018 if (ReadFile(hand, bufstart, count, &num_read, NULL))
2019 {
2020 if (count != 0 && num_read == 0)
2021 {
2022 fdinfo->wxflag |= (WX_ATEOF|WX_READEOF);
2023 TRACE(":EOF %s\n",debugstr_an(buf,num_read));
2024 }
2025 else if (fdinfo->wxflag & WX_TEXT)
2026 {
2027 DWORD i, j;
2028 if (bufstart[num_read-1] == '\r')
2029 {
2030 if(count == 1)
2031 {
2032 fdinfo->wxflag &= ~WX_READCR;
2033 ReadFile(hand, bufstart, 1, &num_read, NULL);
2034 }
2035 else
2036 {
2037 fdinfo->wxflag |= WX_READCR;
2038 num_read--;
2039 }
2040 }
2041 else
2042 fdinfo->wxflag &= ~WX_READCR;
2043 for (i=0, j=0; i<num_read; i++)
2044 {
2045 /* in text mode, a ctrl-z signals EOF */
2046 if (bufstart[i] == 0x1a)
2047 {
2048 fdinfo->wxflag |= (WX_ATEOF|WX_READEOF);
2049 TRACE(":^Z EOF %s\n",debugstr_an(buf,num_read));
2050 break;
2051 }
2052 /* in text mode, strip \r if followed by \n.
2053 * BUG: should save state across calls somehow, so CR LF that
2054 * straddles buffer boundary gets recognized properly?
2055 */
2056 if ((bufstart[i] != '\r')
2057 || ((i+1) < num_read && bufstart[i+1] != '\n'))
2058 bufstart[j++] = bufstart[i];
2059 }
2060 num_read = j;
2061 }
2062 }
2063 else
2064 {
2065 if (GetLastError() == ERROR_BROKEN_PIPE)
2066 {
2067 TRACE(":end-of-pipe\n");
2068 fdinfo->wxflag |= (WX_ATEOF|WX_READEOF);
2069 return 0;
2070 }
2071 else
2072 {
2073 TRACE(":failed-last error (%d)\n",GetLastError());
2074 return -1;
2075 }
2076 }
2077
2078 if (count > 4)
2079 TRACE("(%u), %s\n",num_read,debugstr_an(buf, num_read));
2080 return num_read;
2081 }
2082
2083 /*********************************************************************
2084 * _read (MSVCRT.@)
2085 */
2086 int CDECL _read(int fd, void *buf, unsigned int count)
2087 {
2088 int num_read;
2089 num_read = read_i(fd, buf, count);
2090 return num_read;
2091 }
2092
2093 /*********************************************************************
2094 * _setmode (MSVCRT.@)
2095 */
2096 int CDECL _setmode(int fd,int mode)
2097 {
2098 int ret = get_ioinfo(fd)->wxflag & WX_TEXT ? _O_TEXT : _O_BINARY;
2099 if(ret==_O_TEXT && (get_ioinfo(fd)->exflag & (EF_UTF8|EF_UTF16)))
2100 ret = _O_WTEXT;
2101
2102 if(mode!=_O_TEXT && mode!=_O_BINARY && mode!=_O_WTEXT
2103 && mode!=_O_U16TEXT && mode!=_O_U8TEXT) {
2104 *_errno() = EINVAL;
2105 return -1;
2106 }
2107
2108 if(mode == _O_BINARY) {
2109 get_ioinfo(fd)->wxflag &= ~WX_TEXT;
2110 get_ioinfo(fd)->exflag &= ~(EF_UTF8|EF_UTF16);
2111 return ret;
2112 }
2113
2114 get_ioinfo(fd)->wxflag |= WX_TEXT;
2115 if(mode == _O_TEXT)
2116 get_ioinfo(fd)->exflag &= ~(EF_UTF8|EF_UTF16);
2117 else if(mode == _O_U8TEXT)
2118 get_ioinfo(fd)->exflag = (get_ioinfo(fd)->exflag & ~EF_UTF16) | EF_UTF8;
2119 else
2120 get_ioinfo(fd)->exflag = (get_ioinfo(fd)->exflag & ~EF_UTF8) | EF_UTF16;
2121
2122 return ret;
2123
2124 }
2125
2126 /*********************************************************************
2127 * _tell (MSVCRT.@)
2128 */
2129 long CDECL _tell(int fd)
2130 {
2131 return _lseek(fd, 0, SEEK_CUR);
2132 }
2133
2134 /*********************************************************************
2135 * _telli64 (MSVCRT.@)
2136 */
2137 __int64 CDECL _telli64(int fd)
2138 {
2139 return _lseeki64(fd, 0, SEEK_CUR);
2140 }
2141
2142 /*********************************************************************
2143 * _tempnam (MSVCRT.@)
2144 */
2145 char * CDECL _tempnam(const char *dir, const char *prefix)
2146 {
2147 char tmpbuf[MAX_PATH];
2148 const char *tmp_dir = getenv("TMP");
2149
2150 if (tmp_dir) dir = tmp_dir;
2151
2152 TRACE("dir (%s) prefix (%s)\n",dir,prefix);
2153 if (GetTempFileNameA(dir,prefix,0,tmpbuf))
2154 {
2155 TRACE("got name (%s)\n",tmpbuf);
2156 DeleteFileA(tmpbuf);
2157 return _strdup(tmpbuf);
2158 }
2159 TRACE("failed (%d)\n",GetLastError());
2160 return NULL;
2161 }
2162
2163 /*********************************************************************
2164 * _wtempnam (MSVCRT.@)
2165 */
2166 wchar_t * CDECL _wtempnam(const wchar_t *dir, const wchar_t *prefix)
2167 {
2168 wchar_t tmpbuf[MAX_PATH];
2169
2170 TRACE("dir (%s) prefix (%s)\n",debugstr_w(dir),debugstr_w(prefix));
2171 if (GetTempFileNameW(dir,prefix,0,tmpbuf))
2172 {
2173 TRACE("got name (%s)\n",debugstr_w(tmpbuf));
2174 DeleteFileW(tmpbuf);
2175 return _wcsdup(tmpbuf);
2176 }
2177 TRACE("failed (%d)\n",GetLastError());
2178 return NULL;
2179 }
2180
2181 /*********************************************************************
2182 * _umask (MSVCRT.@)
2183 */
2184 int CDECL _umask(int umask)
2185 {
2186 int old_umask = umask;
2187 TRACE("(%d)\n",umask);
2188 MSVCRT_umask = umask;
2189 return old_umask;
2190 }
2191
2192 /*********************************************************************
2193 * _write (MSVCRT.@)
2194 */
2195 int CDECL _write(int fd, const void* buf, unsigned int count)
2196 {
2197 DWORD num_written;
2198 HANDLE hand = fdtoh(fd);
2199
2200 /* Don't trace small writes, it gets *very* annoying */
2201 #if 0
2202 if (count > 32)
2203 TRACE(":fd (%d) handle (%d) buf (%p) len (%d)\n",fd,hand,buf,count);
2204 #endif
2205 if (hand == INVALID_HANDLE_VALUE)
2206 {
2207 *_errno() = EBADF;
2208 return -1;
2209 }
2210
2211 /* If appending, go to EOF */
2212 if (get_ioinfo(fd)->wxflag & WX_APPEND)
2213 _lseek(fd, 0, FILE_END);
2214
2215 if (!(get_ioinfo(fd)->wxflag & WX_TEXT))
2216 {
2217 if (WriteFile(hand, buf, count, &num_written, NULL)
2218 && (num_written == count))
2219 return num_written;
2220 TRACE("WriteFile (fd %d, hand %p) failed-last error (%d)\n", fd,
2221 hand, GetLastError());
2222 *_errno() = ENOSPC;
2223 }
2224 else
2225 {
2226 unsigned int i, j, nr_lf;
2227 char *p = NULL;
2228 const char *q;
2229 const char *s = buf, *buf_start = buf;
2230 /* find number of \n ( without preceding \r ) */
2231 for ( nr_lf=0,i = 0; i <count; i++)
2232 {
2233 if (s[i]== '\n')
2234 {
2235 nr_lf++;
2236 /*if ((i >1) && (s[i-1] == '\r')) nr_lf--; */
2237 }
2238 }
2239 if (nr_lf)
2240 {
2241 if ((q = p = malloc(count + nr_lf)))
2242 {
2243 for (s = buf, i = 0, j = 0; i < count; i++)
2244 {
2245 if (s[i]== '\n')
2246 {
2247 p[j++] = '\r';
2248 /*if ((i >1) && (s[i-1] == '\r'))j--;*/
2249 }
2250 p[j++] = s[i];
2251 }
2252 }
2253 else
2254 {
2255 FIXME("Malloc failed\n");
2256 nr_lf =0;
2257 q = buf;
2258 }
2259 }
2260 else
2261 q = buf;
2262
2263 if ((WriteFile(hand, q, count+nr_lf, &num_written, NULL) == 0 ) || (num_written != count+nr_lf))
2264 {
2265 TRACE("WriteFile (fd %d, hand %p) failed-last error (%d), num_written %d\n",
2266 fd, hand, GetLastError(), num_written);
2267 *_errno() = ENOSPC;
2268 if(nr_lf)
2269 free(p);
2270 return s - buf_start;
2271 }
2272 else
2273 {
2274 if(nr_lf)
2275 free(p);
2276 return count;
2277 }
2278 }
2279 return -1;
2280 }
2281
2282 /*********************************************************************
2283 * _putw (MSVCRT.@)
2284 */
2285 int CDECL _putw(int val, FILE* file)
2286 {
2287 int len;
2288
2289 _lock_file(file);
2290 len = _write(file->_file, &val, sizeof(val));
2291 if (len == sizeof(val)) {
2292 _unlock_file(file);
2293 return val;
2294 }
2295
2296 file->_flag |= _IOERR;
2297 _unlock_file(file);
2298 return EOF;
2299 }
2300
2301 /*********************************************************************
2302 * fclose (MSVCRT.@)
2303 */
2304 int CDECL fclose(FILE* file)
2305 {
2306 int r, flag;
2307
2308 _lock_file(file);
2309 flag = file->_flag;
2310 free(file->_tmpfname);
2311 file->_tmpfname = NULL;
2312 /* flush stdio buffers */
2313 if(file->_flag & _IOWRT)
2314 fflush(file);
2315 if(file->_flag & _IOMYBUF)
2316 free(file->_base);
2317
2318 r=_close(file->_file);
2319
2320 file->_flag = 0;
2321 _unlock_file(file);
2322 if(file<_iob || file>=_iob+_IOB_ENTRIES)
2323 DeleteCriticalSection(&((file_crit*)file)->crit);
2324
2325 if(file == get_file(stream_idx-1)) {
2326 while(stream_idx>3 && !file->_flag) {
2327 stream_idx--;
2328 file = get_file(stream_idx-1);
2329 }
2330 }
2331
2332 return ((r == -1) || (flag & _IOERR) ? EOF : 0);
2333 }
2334
2335 /*********************************************************************
2336 * feof (MSVCRT.@)
2337 */
2338 int CDECL feof(FILE* file)
2339 {
2340 return file->_flag & _IOEOF;
2341 }
2342
2343 /*********************************************************************
2344 * ferror (MSVCRT.@)
2345 */
2346 int CDECL ferror(FILE* file)
2347 {
2348 return file->_flag & _IOERR;
2349 }
2350
2351 /*********************************************************************
2352 * _filbuf (MSVCRT.@)
2353 */
2354 int CDECL _filbuf(FILE* file)
2355 {
2356 unsigned char c;
2357 _lock_file(file);
2358
2359 if(file->_flag & _IOSTRG) {
2360 _unlock_file(file);
2361 return EOF;
2362 }
2363
2364 /* Allocate buffer if needed */
2365 if(file->_bufsiz == 0 && !(file->_flag & _IONBF))
2366 alloc_buffer(file);
2367
2368 if(!(file->_flag & _IOREAD)) {
2369 if(file->_flag & _IORW)
2370 file->_flag |= _IOREAD;
2371 else {
2372 _unlock_file(file);
2373 return EOF;
2374 }
2375 }
2376
2377 if(file->_flag & _IONBF) {
2378 int r;
2379 if ((r = read_i(file->_file,&c,1)) != 1) {
2380 file->_flag |= (r == 0) ? _IOEOF : _IOERR;
2381 _unlock_file(file);
2382 return EOF;
2383 }
2384
2385 _unlock_file(file);
2386 return c;
2387 } else {
2388 file->_cnt = read_i(file->_file, file->_base, file->_bufsiz);
2389 if(file->_cnt<=0) {
2390 file->_flag |= (file->_cnt == 0) ? _IOEOF : _IOERR;
2391 file->_cnt = 0;
2392 _unlock_file(file);
2393 return EOF;
2394 }
2395
2396 file->_cnt--;
2397 file->_ptr = file->_base+1;
2398 c = *(unsigned char *)file->_base;
2399 _unlock_file(file);
2400 return c;
2401 }
2402 }
2403
2404 /*********************************************************************
2405 * fgetc (MSVCRT.@)
2406 */
2407 int CDECL fgetc(FILE* file)
2408 {
2409 unsigned char *i;
2410 unsigned int j;
2411
2412 _lock_file(file);
2413 if (file->_cnt>0) {
2414 file->_cnt--;
2415 i = (unsigned char *)file->_ptr++;
2416 j = *i;
2417 } else
2418 j = _filbuf(file);
2419
2420 _unlock_file(file);
2421 return j;
2422 }
2423
2424 /*********************************************************************
2425 * _fgetchar (MSVCRT.@)
2426 */
2427 int CDECL _fgetchar(void)
2428 {
2429 return fgetc(stdin);
2430 }
2431
2432 /*********************************************************************
2433 * fgets (MSVCRT.@)
2434 */
2435 char * CDECL fgets(char *s, int size, FILE* file)
2436 {
2437 int cc = EOF;
2438 char * buf_start = s;
2439
2440 TRACE(":file(%p) fd (%d) str (%p) len (%d)\n",
2441 file,file->_file,s,size);
2442
2443 _lock_file(file);
2444
2445 while ((size >1) && (cc = fgetc(file)) != EOF && cc != '\n')
2446 {
2447 *s++ = (char)cc;
2448 size --;
2449 }
2450 if ((cc == EOF) && (s == buf_start)) /* If nothing read, return 0*/
2451 {
2452 TRACE(":nothing read\n");
2453 _unlock_file(file);
2454 return NULL;
2455 }
2456 if ((cc != EOF) && (size > 1))
2457 *s++ = cc;
2458 *s = '\0';
2459 TRACE(":got %s\n", debugstr_a(buf_start));
2460 _unlock_file(file);
2461 return buf_start;
2462 }
2463
2464 /*********************************************************************
2465 * fgetwc (MSVCRT.@)
2466 *
2467 * In _O_TEXT mode, multibyte characters are read from the file, dropping
2468 * the CR from CR/LF combinations
2469 */
2470 wint_t CDECL fgetwc(FILE* file)
2471 {
2472 int c;
2473
2474 _lock_file(file);
2475 if (!(get_ioinfo(file->_file)->wxflag & WX_TEXT))
2476 {
2477 wchar_t wc;
2478 unsigned int i;
2479 int j;
2480 char *chp, *wcp;
2481 wcp = (char *)&wc;
2482 for(i=0; i<sizeof(wc); i++)
2483 {
2484 if (file->_cnt>0)
2485 {
2486 file->_cnt--;
2487 chp = file->_ptr++;
2488 wcp[i] = *chp;
2489 }
2490 else
2491 {
2492 j = _filbuf(file);
2493 if(file->_cnt<=0)
2494 {
2495 file->_flag |= (file->_cnt == 0) ? _IOEOF : _IOERR;
2496 file->_cnt = 0;
2497
2498 _unlock_file(file);
2499 return WEOF;
2500 }
2501 wcp[i] = j;
2502 }
2503 }
2504
2505 _unlock_file(file);
2506 return wc;
2507 }
2508
2509 c = fgetc(file);
2510 if ((__mb_cur_max > 1) && isleadbyte(c))
2511 {
2512 FIXME("Treat Multibyte characters\n");
2513 }
2514
2515 _unlock_file(file);
2516 if (c == EOF)
2517 return WEOF;
2518 else
2519 return (wint_t)c;
2520 }
2521
2522 /*********************************************************************
2523 * _getw (MSVCRT.@)
2524 */
2525 int CDECL _getw(FILE* file)
2526 {
2527 char *ch;
2528 int i, k;
2529 unsigned int j;
2530 ch = (char *)&i;
2531
2532 _lock_file(file);
2533 for (j=0; j<sizeof(int); j++) {
2534 k = fgetc(file);
2535 if (k == EOF) {
2536 file->_flag |= _IOEOF;
2537 _unlock_file(file);
2538 return EOF;
2539 }
2540 ch[j] = k;
2541 }
2542
2543 _unlock_file(file);
2544 return i;
2545 }
2546
2547 /*********************************************************************
2548 * getwc (MSVCRT.@)
2549 */
2550 wint_t CDECL getwc(FILE* file)
2551 {
2552 return fgetwc(file);
2553 }
2554
2555 /*********************************************************************
2556 * _fgetwchar (MSVCRT.@)
2557 */
2558 wint_t CDECL _fgetwchar(void)
2559 {
2560 return fgetwc(stdin);
2561 }
2562
2563 /*********************************************************************
2564 * getwchar (MSVCRT.@)
2565 */
2566 wint_t CDECL getwchar(void)
2567 {
2568 return _fgetwchar();
2569 }
2570
2571 /*********************************************************************
2572 * fgetws (MSVCRT.@)
2573 */
2574 wchar_t * CDECL fgetws(wchar_t *s, int size, FILE* file)
2575 {
2576 int cc = WEOF;
2577 wchar_t * buf_start = s;
2578
2579 TRACE(":file(%p) fd (%d) str (%p) len (%d)\n",
2580 file,file->_file,s,size);
2581
2582 _lock_file(file);
2583
2584 while ((size >1) && (cc = fgetwc(file)) != WEOF && cc != '\n')
2585 {
2586 *s++ = (char)cc;
2587 size --;
2588 }
2589 if ((cc == WEOF) && (s == buf_start)) /* If nothing read, return 0*/
2590 {
2591 TRACE(":nothing read\n");
2592 _unlock_file(file);
2593 return NULL;
2594 }
2595 if ((cc != WEOF) && (size > 1))
2596 *s++ = cc;
2597 *s = 0;
2598 TRACE(":got %s\n", debugstr_w(buf_start));
2599 _unlock_file(file);
2600 return buf_start;
2601 }
2602
2603 /*********************************************************************
2604 * fwrite (MSVCRT.@)
2605 */
2606 size_t CDECL fwrite(const void *ptr, size_t size, size_t nmemb, FILE* file)
2607 {
2608 size_t wrcnt=size * nmemb;
2609 int written = 0;
2610 if (size == 0)
2611 return 0;
2612
2613 _lock_file(file);
2614
2615 while(wrcnt) {
2616 if(file->_cnt) {
2617 int pcnt=((unsigned)file->_cnt>wrcnt)? wrcnt: file->_cnt;
2618 memcpy(file->_ptr, ptr, pcnt);
2619 file->_cnt -= pcnt;
2620 file->_ptr += pcnt;
2621 written += pcnt;
2622 wrcnt -= pcnt;
2623 ptr = (const char*)ptr + pcnt;
2624 } else if(!file->_bufsiz && (file->_flag & _IONBF)) {
2625 if(!(file->_flag & _IOWRT)) {
2626 if(file->_flag & _IORW)
2627 file->_flag |= _IOWRT;
2628 else
2629 break;
2630 }
2631
2632 if(_write(file->_file, ptr, wrcnt) <= 0) {
2633 file->_flag |= _IOERR;
2634 break;
2635 }
2636 written += wrcnt;
2637 wrcnt = 0;
2638 } else {
2639 if(_flsbuf(*(const char*)ptr, file) == EOF)
2640 break;
2641 written++;
2642 wrcnt--;
2643 ptr = (const char*)ptr + 1;
2644 }
2645 }
2646
2647 _unlock_file(file);
2648 return written / size;
2649 }
2650
2651 /*********************************************************************
2652 * fputwc (MSVCRT.@)
2653 * FORKED for ReactOS, don't sync with Wine!
2654 * References:
2655 * - http://jira.reactos.org/browse/CORE-6495
2656 * - http://bugs.winehq.org/show_bug.cgi?id=8598
2657 */
2658 wint_t CDECL fputwc(wchar_t c, FILE* stream)
2659 {
2660 /* If this is a real file stream (and not some temporary one for
2661 sprintf-like functions), check whether it is opened in text mode.
2662 In this case, we have to perform an implicit conversion to ANSI. */
2663 if (!(stream->_flag & _IOSTRG) && get_ioinfo(stream->_file)->wxflag & WX_TEXT)
2664 {
2665 /* Convert to multibyte in text mode */
2666 char mbc[MB_LEN_MAX];
2667 int mb_return;
2668
2669 mb_return = wctomb(mbc, c);
2670
2671 if(mb_return == -1)
2672 return WEOF;
2673
2674 /* Output all characters */
2675 if (fwrite(mbc, mb_return, 1, stream) != 1)
2676 return WEOF;
2677 }
2678 else
2679 {
2680 if (fwrite(&c, sizeof(c), 1, stream) != 1)
2681 return WEOF;
2682 }
2683
2684 return c;
2685 }
2686
2687 /*********************************************************************
2688 * _fputwchar (MSVCRT.@)
2689 */
2690 wint_t CDECL _fputwchar(wint_t wc)
2691 {
2692 return fputwc(wc, stdout);
2693 }
2694
2695 /*********************************************************************
2696 * _wfsopen (MSVCRT.@)
2697 */
2698 FILE * CDECL _wfsopen(const wchar_t *path, const wchar_t *mode, int share)
2699 {
2700 FILE* file;
2701 int open_flags, stream_flags, fd;
2702
2703 TRACE("(%s,%s)\n", debugstr_w(path), debugstr_w(mode));
2704
2705 /* map mode string to open() flags. "man fopen" for possibilities. */
2706 if (get_flags(mode, &open_flags, &stream_flags) == -1)
2707 return NULL;
2708
2709 LOCK_FILES();
2710 fd = _wsopen(path, open_flags, share, _S_IREAD | _S_IWRITE);
2711 if (fd < 0)
2712 file = NULL;
2713 else if ((file = alloc_fp()) && init_fp(file, fd, stream_flags)
2714 != -1)
2715 TRACE(":fd (%d) mode (%s) FILE* (%p)\n", fd, debugstr_w(mode), file);
2716 else if (file)
2717 {
2718 file->_flag = 0;
2719 file = NULL;
2720 }
2721
2722 TRACE(":got (%p)\n",file);
2723 if (fd >= 0 && !file)
2724 _close(fd);
2725 UNLOCK_FILES();
2726 return file;
2727 }
2728
2729 /*********************************************************************
2730 * _fsopen (MSVCRT.@)
2731 */
2732 FILE * CDECL _fsopen(const char *path, const char *mode, int share)
2733 {
2734 FILE *ret;
2735 wchar_t *pathW = NULL, *modeW = NULL;
2736
2737 if (path && !(pathW = msvcrt_wstrdupa(path))) {
2738 _invalid_parameter(NULL, NULL, NULL, 0, 0);
2739 *_errno() = EINVAL;
2740 return NULL;
2741 }
2742 if (mode && !(modeW = msvcrt_wstrdupa(mode)))
2743 {
2744 free(pathW);
2745 _invalid_parameter(NULL, NULL, NULL, 0, 0);
2746 *_errno() = EINVAL;
2747 return NULL;
2748 }
2749
2750 ret = _wfsopen(pathW, modeW, share);
2751
2752 free(pathW);
2753 free(modeW);
2754 return ret;
2755 }
2756
2757 /*********************************************************************
2758 * fopen (MSVCRT.@)
2759 */
2760 FILE * CDECL fopen(const char *path, const char *mode)
2761 {
2762 return _fsopen( path, mode, _SH_DENYNO );
2763 }
2764
2765 /*********************************************************************
2766 * fopen_s (MSVCRT.@)
2767 */
2768 int CDECL fopen_s(FILE** pFile,
2769 const char *filename, const char *mode)
2770 {
2771 if (!MSVCRT_CHECK_PMT(pFile != NULL) || !MSVCRT_CHECK_PMT(filename != NULL) ||
2772 !MSVCRT_CHECK_PMT(mode != NULL)) {
2773 *_errno() = EINVAL;
2774 return EINVAL;
2775 }
2776
2777 *pFile = fopen(filename, mode);
2778
2779 if(!*pFile)
2780 return *_errno();
2781 return 0;
2782 }
2783
2784 /*********************************************************************
2785 * _wfopen (MSVCRT.@)
2786 */
2787 FILE * CDECL _wfopen(const wchar_t *path, const wchar_t *mode)
2788 {
2789 return _wfsopen( path, mode, _SH_DENYNO );
2790 }
2791
2792 /*********************************************************************
2793 * _wfopen_s (MSVCRT.@)
2794 */
2795 int CDECL _wfopen_s(FILE** pFile, const wchar_t *filename,
2796 const wchar_t *mode)
2797 {
2798 if (!MSVCRT_CHECK_PMT(pFile != NULL) || !MSVCRT_CHECK_PMT(filename != NULL) ||
2799 !MSVCRT_CHECK_PMT(mode != NULL)) {
2800 *_errno() = EINVAL;
2801 return EINVAL;
2802 }
2803
2804 *pFile = _wfopen(filename, mode);
2805
2806 if(!*pFile)
2807 return *_errno();
2808 return 0;
2809 }
2810
2811 /* fputc calls _flsbuf which calls fputc */
2812 int CDECL _flsbuf(int c, FILE* file);
2813
2814 /*********************************************************************
2815 * fputc (MSVCRT.@)
2816 */
2817 int CDECL fputc(int c, FILE* file)
2818 {
2819 int res;
2820
2821 _lock_file(file);
2822 if(file->_cnt>0) {
2823 *file->_ptr++=c;
2824 file->_cnt--;
2825 if (c == '\n')
2826 {
2827 res = flush_buffer(file);
2828 _unlock_file(file);
2829 return res ? res : c;
2830 }
2831 else {
2832 _unlock_file(file);
2833 return c & 0xff;
2834 }
2835 } else {
2836 res = _flsbuf(c, file);
2837 _unlock_file(file);
2838 return res;
2839 }
2840 }
2841
2842 /*********************************************************************
2843 * _fputchar (MSVCRT.@)
2844 */
2845 int CDECL _fputchar(int c)
2846 {
2847 return fputc(c, stdout);
2848 }
2849
2850 /*********************************************************************
2851 * fread (MSVCRT.@)
2852 */
2853 size_t CDECL fread(void *ptr, size_t size, size_t nmemb, FILE* file)
2854 {
2855 size_t rcnt=size * nmemb;
2856 size_t read=0;
2857 int pread=0;
2858
2859 if(!rcnt)
2860 return 0;
2861
2862 _lock_file(file);
2863
2864 /* first buffered data */
2865 if(file->_cnt>0) {
2866 int pcnt= (rcnt>(unsigned int)file->_cnt)? file->_cnt:rcnt;
2867 memcpy(ptr, file->_ptr, pcnt);
2868 file->_cnt -= pcnt;
2869 file->_ptr += pcnt;
2870 read += pcnt ;
2871 rcnt -= pcnt ;
2872 ptr = (char*)ptr + pcnt;
2873 } else if(!(file->_flag & _IOREAD )) {
2874 if(file->_flag & _IORW) {
2875 file->_flag |= _IOREAD;
2876 } else {
2877 _unlock_file(file);
2878 return 0;
2879 }
2880 }
2881 while(rcnt>0)
2882 {
2883 int i;
2884 /* Fill the buffer on small reads.
2885 * TODO: Use a better buffering strategy.
2886 */
2887 if (!file->_cnt && size*nmemb <= BUFSIZ/2 && !(file->_flag & _IONBF)) {
2888 if (file->_bufsiz == 0) {
2889 alloc_buffer(file);
2890 }
2891 file->_cnt = _read(file->_file, file->_base, file->_bufsiz);
2892 file->_ptr = file->_base;
2893 i = ((unsigned int)file->_cnt<rcnt) ? file->_cnt : rcnt;
2894 /* If the buffer fill reaches eof but fread wouldn't, clear eof. */
2895 if (i > 0 && i < file->_cnt) {
2896 get_ioinfo(file->_file)->wxflag &= ~WX_ATEOF;
2897 file->_flag &= ~_IOEOF;
2898 }
2899 if (i > 0) {
2900 memcpy(ptr, file->_ptr, i);
2901 file->_cnt -= i;
2902 file->_ptr += i;
2903 }
2904 } else {
2905 i = _read(file->_file,ptr, rcnt);
2906 }
2907 pread += i;
2908 rcnt -= i;
2909 ptr = (char *)ptr+i;
2910 /* expose feof condition in the flags
2911 * MFC tests file->_flag for feof, and doesn't call feof())
2912 */
2913 if (get_ioinfo(file->_file)->wxflag & WX_ATEOF)
2914 file->_flag |= _IOEOF;
2915 else if (i == -1)
2916 {
2917 file->_flag |= _IOERR;
2918 pread = 0;
2919 rcnt = 0;
2920 }
2921 if (i < 1) break;
2922 }
2923 read+=pread;
2924 _unlock_file(file);
2925 return read / size;
2926 }
2927
2928 /*********************************************************************
2929 * _wfreopen (MSVCRT.@)
2930 *
2931 */
2932 FILE* CDECL _wfreopen(const wchar_t *path, const wchar_t *mode, FILE* file)
2933 {
2934 int open_flags, stream_flags, fd;
2935
2936 TRACE(":path (%p) mode (%s) file (%p) fd (%d)\n", debugstr_w(path), debugstr_w(mode), file, file ? file->_file : -1);
2937
2938 LOCK_FILES();
2939 if (!file || ((fd = file->_file) < 0) || fd > fdend)
2940 file = NULL;
2941 else
2942 {
2943 fclose(file);
2944 /* map mode string to open() flags. "man fopen" for possibilities. */
2945 if (get_flags(mode, &open_flags, &stream_flags) == -1)
2946 file = NULL;
2947 else
2948 {
2949 fd = _wopen(path, open_flags, _S_IREAD | _S_IWRITE);
2950 if (fd < 0)
2951 file = NULL;
2952 else if (init_fp(file, fd, stream_flags) == -1)
2953 {
2954 file->_flag = 0;
2955 WARN(":failed-last error (%d)\n",GetLastError());
2956 _dosmaperr(GetLastError());
2957 file = NULL;
2958 }
2959 }
2960 }
2961 UNLOCK_FILES();
2962 return file;
2963 }
2964
2965 /*********************************************************************
2966 * freopen (MSVCRT.@)
2967 *
2968 */
2969 FILE* CDECL freopen(const char *path, const char *mode, FILE* file)
2970 {
2971 FILE *ret;
2972 wchar_t *pathW = NULL, *modeW = NULL;
2973
2974 if (path && !(pathW = msvcrt_wstrdupa(path))) return NULL;
2975 if (mode && !(modeW = msvcrt_wstrdupa(mode)))
2976 {
2977 free(pathW);
2978 return NULL;
2979 }
2980
2981 ret = _wfreopen(pathW, modeW, file);
2982
2983 free(pathW);
2984 free(modeW);
2985 return ret;
2986 }
2987
2988 /*********************************************************************
2989 * fsetpos (MSVCRT.@)
2990 */
2991 int CDECL fsetpos(FILE* file, const fpos_t *pos)
2992 {
2993 int ret;
2994
2995 _lock_file(file);
2996 /* Note that all this has been lifted 'as is' from fseek */
2997 if(file->_flag & _IOWRT)
2998 flush_buffer(file);
2999
3000 /* Discard buffered input */
3001 file->_cnt = 0;
3002 file->_ptr = file->_base;
3003
3004 /* Reset direction of i/o */
3005 if(file->_flag & _IORW) {
3006 file->_flag &= ~(_IOREAD|_IOWRT);
3007 }
3008
3009 ret = (_lseeki64(file->_file,*pos,SEEK_SET) == -1) ? -1 : 0;
3010 _unlock_file(file);
3011 return ret;
3012 }
3013
3014 /*********************************************************************
3015 * _ftelli64 (MSVCRT.@)
3016 */
3017 __int64 CDECL _ftelli64(FILE* file)
3018 {
3019 __int64 pos;
3020
3021 _lock_file(file);
3022 pos = _telli64(file->_file);
3023 if(pos == -1) {
3024 _unlock_file(file);
3025 return -1;
3026 }
3027 if(file->_bufsiz) {
3028 if(file->_flag & _IOWRT) {
3029 pos += file->_ptr - file->_base;
3030
3031 if(get_ioinfo(file->_file)->wxflag & WX_TEXT) {
3032 char *p;
3033
3034 for(p=file->_base; p<file->_ptr; p++)
3035 if(*p == '\n')
3036 pos++;
3037 }
3038 } else if(!file->_cnt) { /* nothing to do */
3039 } else if(_lseeki64(file->_file, 0, SEEK_END)==pos) {
3040 int i;
3041
3042 pos -= file->_cnt;
3043 if(get_ioinfo(file->_file)->wxflag & WX_TEXT) {
3044 for(i=0; i<file->_cnt; i++)
3045 if(file->_ptr[i] == '\n')
3046 pos--;
3047 }
3048 } else {
3049 char *p;
3050
3051 if(_lseeki64(file->_file, pos, SEEK_SET) != pos) {
3052 _unlock_file(file);
3053 return -1;
3054 }
3055
3056 pos -= file->_bufsiz;
3057 pos += file->_ptr - file->_base;
3058
3059 if(get_ioinfo(file->_file)->wxflag & WX_TEXT) {
3060 if(get_ioinfo(file->_file)->wxflag & WX_READNL)
3061 pos--;
3062
3063 for(p=file->_base; p<file->_ptr; p++)
3064 if(*p == '\n')
3065 pos++;
3066 }
3067 }
3068 }
3069
3070 _unlock_file(file);
3071 return pos;
3072 }
3073
3074 /*********************************************************************
3075 * ftell (MSVCRT.@)
3076 */
3077 LONG CDECL ftell(FILE* file)
3078 {
3079 return (LONG)_ftelli64(file);
3080 }
3081
3082 /*********************************************************************
3083 * fgetpos (MSVCRT.@)
3084 */
3085 int CDECL fgetpos(FILE* file, fpos_t *pos)
3086 {
3087 int off=0;
3088
3089 _lock_file(file);
3090 *pos = _lseeki64(file->_file,0,SEEK_CUR);
3091 if(*pos == -1) {
3092 _unlock_file(file);
3093 return -1;
3094 }
3095 if(file->_bufsiz) {
3096 if( file->_flag & _IOWRT ) {
3097 off = file->_ptr - file->_base;
3098 } else {
3099 off = -file->_cnt;
3100 if (get_ioinfo(file->_file)->wxflag & WX_TEXT) {
3101 /* Black magic correction for CR removal */
3102 int i;
3103 for (i=0; i<file->_cnt; i++) {
3104 if (file->_ptr[i] == '\n')
3105 off--;
3106 }
3107 /* Black magic when reading CR at buffer boundary*/
3108 if(get_ioinfo(file->_file)->wxflag & WX_READCR)
3109 off--;
3110 }
3111 }
3112 }
3113 *pos += off;
3114 _unlock_file(file);
3115 return 0;
3116 }
3117
3118 /*********************************************************************
3119 * fputs (MSVCRT.@)
3120 */
3121 int CDECL fputs(const char *s, FILE* file)
3122 {
3123 size_t i, len = strlen(s);
3124 int ret;
3125
3126 _lock_file(file);
3127 if (!(get_ioinfo(file->_file)->wxflag & WX_TEXT)) {
3128 ret = fwrite(s,sizeof(*s),len,file) == len ? 0 : EOF;
3129 _unlock_file(file);
3130 return ret;
3131 }
3132 for (i=0; i<len; i++)
3133 if (fputc(s[i], file) == EOF) {
3134 _unlock_file(file);
3135 return EOF;
3136 }
3137
3138 _unlock_file(file);
3139 return 0;
3140 }
3141
3142 /*********************************************************************
3143 * fputws (MSVCRT.@)
3144 */
3145 int CDECL fputws(const wchar_t *s, FILE* file)
3146 {
3147 size_t i, len = strlenW(s);
3148 int ret;
3149
3150 _lock_file(file);
3151 if (!(get_ioinfo(file->_file)->wxflag & WX_TEXT)) {
3152 ret = fwrite(s,sizeof(*s),len,file) == len ? 0 : EOF;
3153 _unlock_file(file);
3154 return ret;
3155 }
3156 for (i=0; i<len; i++) {
3157 if (((s[i] == '\n') && (fputc('\r', file) == EOF))
3158 || fputwc(s[i], file) == WEOF) {
3159 _unlock_file(file);
3160 return WEOF;
3161 }
3162 }
3163
3164 _unlock_file(file);
3165 return 0;
3166 }
3167
3168 /*********************************************************************
3169 * getchar (MSVCRT.@)
3170 */
3171 int CDECL getchar(void)
3172 {
3173 return fgetc(stdin);
3174 }
3175
3176 /*********************************************************************
3177 * getc (MSVCRT.@)
3178 */
3179 int CDECL getc(FILE* file)
3180 {
3181 return fgetc(file);
3182 }
3183
3184 /*********************************************************************
3185 * gets (MSVCRT.@)
3186 */
3187 char * CDECL gets(char *buf)
3188 {
3189 int cc;
3190 char * buf_start = buf;
3191
3192 _lock_file(stdin);
3193 for(cc = fgetc(stdin); cc != EOF && cc != '\n';
3194 cc = fgetc(stdin))
3195 if(cc != '\r') *buf++ = (char)cc;
3196
3197 *buf = '\0';
3198
3199 TRACE("got '%s'\n", buf_start);
3200 _unlock_file(stdin);
3201 return buf_start;
3202 }
3203
3204 /*********************************************************************
3205 * _getws (MSVCRT.@)
3206 */
3207 wchar_t* CDECL _getws(wchar_t* buf)
3208 {
3209 wint_t cc;
3210 wchar_t* ws = buf;
3211
3212 _lock_file(stdin);
3213 for (cc = fgetwc(stdin); cc != WEOF && cc != '\n';
3214 cc = fgetwc(stdin))
3215 {
3216 if (cc != '\r')
3217 *buf++ = (wchar_t)cc;
3218 }
3219 *buf = '\0';
3220
3221 TRACE("got %s\n", debugstr_w(ws));
3222 _unlock_file(stdin);
3223 return ws;
3224 }
3225
3226 /*********************************************************************
3227 * putc (MSVCRT.@)
3228 */
3229 int CDECL putc(int c, FILE* file)
3230 {
3231 return fputc(c, file);
3232 }
3233
3234 /*********************************************************************
3235 * putchar (MSVCRT.@)
3236 */
3237 int CDECL putchar(int c)
3238 {
3239 return fputc(c, stdout);
3240 }
3241
3242 /*********************************************************************
3243 * _putwch (MSVCRT.@)
3244 */
3245 wint_t CDECL _putwch(wchar_t c)
3246 {
3247 return fputwc(c, stdout);
3248 }
3249
3250 /*********************************************************************
3251 * puts (MSVCRT.@)
3252 */
3253 int CDECL puts(const char *s)
3254 {
3255 size_t len = strlen(s);
3256 int ret;
3257
3258 _lock_file(stdout);
3259 if(fwrite(s, sizeof(*s), len, stdout) != len) {
3260 _unlock_file(stdout);
3261 return EOF;
3262 }
3263
3264 ret = fwrite("\n",1,1,stdout) == 1 ? 0 : EOF;
3265 _unlock_file(stdout);
3266 return ret;
3267 }
3268
3269 /*********************************************************************
3270 * _putws (MSVCRT.@)
3271 */
3272 int CDECL _putws(const wchar_t *s)
3273 {
3274 static const wchar_t nl = '\n';
3275 size_t len = strlenW(s);
3276 int ret;
3277
3278 _lock_file(stdout);
3279 if(fwrite(s, sizeof(*s), len, stdout) != len) {
3280 _unlock_file(stdout);
3281 return EOF;
3282 }
3283
3284 ret = fwrite(&nl,sizeof(nl),1,stdout) == 1 ? 0 : EOF;
3285 _unlock_file(stdout);
3286 return ret;
3287 }
3288
3289 /*********************************************************************
3290 * remove (MSVCRT.@)
3291 */
3292 int CDECL remove(const char *path)
3293 {
3294 TRACE("(%s)\n",path);
3295 if (DeleteFileA(path))
3296 return 0;
3297 TRACE(":failed (%d)\n",GetLastError());
3298 _dosmaperr(GetLastError());
3299 return -1;
3300 }
3301
3302 /*********************************************************************
3303 * _wremove (MSVCRT.@)
3304 */
3305 int CDECL _wremove(const wchar_t *path)
3306 {
3307 TRACE("(%s)\n",debugstr_w(path));
3308 if (DeleteFileW(path))
3309 return 0;
3310 TRACE(":failed (%d)\n",GetLastError());
3311 _dosmaperr(GetLastError());
3312 return -1;
3313 }
3314
3315 /*********************************************************************
3316 * rename (MSVCRT.@)
3317 */
3318 int CDECL rename(const char *oldpath,const char *newpath)
3319 {
3320 TRACE(":from %s to %s\n",oldpath,newpath);
3321 if (MoveFileExA(oldpath, newpath, MOVEFILE_COPY_ALLOWED))
3322 return 0;
3323 TRACE(":failed (%d)\n",GetLastError());
3324 _dosmaperr(GetLastError());
3325 return -1;
3326 }
3327
3328 /*********************************************************************
3329 * _wrename (MSVCRT.@)
3330 */
3331 int CDECL _wrename(const wchar_t *oldpath,const wchar_t *newpath)
3332 {
3333 TRACE(":from %s to %s\n",debugstr_w(oldpath),debugstr_w(newpath));
3334 if (MoveFileExW(oldpath, newpath, MOVEFILE_COPY_ALLOWED))
3335 return 0;
3336 TRACE(":failed (%d)\n",GetLastError());
3337 _dosmaperr(GetLastError());
3338 return -1;
3339 }
3340
3341 /*********************************************************************
3342 * setvbuf (MSVCRT.@)
3343 */
3344 int CDECL setvbuf(FILE* file, char *buf, int mode, size_t size)
3345 {
3346 _lock_file(file);
3347 if(file->_bufsiz) {
3348 free(file->_base);
3349 file->_bufsiz = 0;
3350 file->_cnt = 0;
3351 }
3352 if(mode == _IOFBF) {
3353 file->_flag &= ~_IONBF;
3354 file->_base = file->_ptr = buf;
3355 if(buf) {
3356 file->_bufsiz = size;
3357 }
3358 } else {
3359 file->_flag |= _IONBF;
3360 }
3361 _unlock_file(file);
3362 return 0;
3363 }
3364
3365 /*********************************************************************
3366 * setbuf (MSVCRT.@)
3367 */
3368 void CDECL setbuf(FILE* file, char *buf)
3369 {
3370 setvbuf(file, buf, buf ? _IOFBF : _IONBF, BUFSIZ);
3371 }
3372
3373 /*********************************************************************
3374 * tmpnam (MSVCRT.@)
3375 */
3376 char * CDECL tmpnam(char *s)
3377 {
3378 char tmpstr[16];
3379 char *p;
3380 int count, size;
3381
3382 if (!s) {
3383 thread_data_t *data = msvcrt_get_thread_data();
3384
3385 if(!data->tmpnam_buffer)
3386 data->tmpnam_buffer = malloc(MAX_PATH);
3387
3388 s = data->tmpnam_buffer;
3389 }
3390
3391 int_to_base32(GetCurrentProcessId(), tmpstr);
3392 p = s + sprintf(s, "\\s%s.", tmpstr);
3393 for (count = 0; count < TMP_MAX; count++)
3394 {
3395 size = int_to_base32(tmpnam_unique++, tmpstr);
3396 memcpy(p, tmpstr, size);
3397 if (GetFileAttributesA(s) == INVALID_FILE_ATTRIBUTES &&
3398 GetLastError() == ERROR_FILE_NOT_FOUND)
3399 break;
3400 }
3401 return s;
3402 }
3403
3404 /*********************************************************************
3405 * _wtmpnam (MSVCRT.@)
3406 */
3407 wchar_t * CDECL _wtmpnam(wchar_t *s)
3408 {
3409 static const wchar_t format[] = {'\\','s','%','s','.',0};
3410 wchar_t tmpstr[16];
3411 wchar_t *p;
3412 int count, size;
3413 if (!s) {
3414 thread_data_t *data = msvcrt_get_thread_data();
3415
3416 if(!data->wtmpnam_buffer)
3417 data->wtmpnam_buffer = malloc(sizeof(wchar_t[MAX_PATH]));
3418
3419 s = data->wtmpnam_buffer;
3420 }
3421
3422 int_to_base32_w(GetCurrentProcessId(), tmpstr);
3423 p = s + _snwprintf(s, MAX_PATH, format, tmpstr);
3424 for (count = 0; count < TMP_MAX; count++)
3425 {
3426 size = int_to_base32_w(tmpnam_unique++, tmpstr);
3427 memcpy(p, tmpstr, size*sizeof(wchar_t));
3428 if (GetFileAttributesW(s) == INVALID_FILE_ATTRIBUTES &&
3429 GetLastError() == ERROR_FILE_NOT_FOUND)
3430 break;
3431 }
3432 return s;
3433 }
3434
3435 /*********************************************************************
3436 * tmpfile (MSVCRT.@)
3437 */
3438 FILE* CDECL tmpfile(void)
3439 {
3440 char *filename = tmpnam(NULL);
3441 int fd;
3442 FILE* file = NULL;
3443
3444 LOCK_FILES();
3445 fd = _open(filename, _O_CREAT | _O_BINARY | _O_RDWR | _O_TEMPORARY,
3446 _S_IREAD | _S_IWRITE);
3447 if (fd != -1 && (file = alloc_fp()))
3448 {
3449 if (init_fp(file, fd, _IORW) == -1)
3450 {
3451 file->_flag = 0;
3452 file = NULL;
3453 }
3454 else file->_tmpfname = _strdup(filename);
3455 }
3456
3457 if(fd != -1 && !file)
3458 _close(fd);
3459 UNLOCK_FILES();
3460 return file;
3461 }
3462
3463 /*********************************************************************
3464 * ungetc (MSVCRT.@)
3465 */
3466 int CDECL ungetc(int c, FILE * file)
3467 {
3468 if (c == EOF)
3469 return EOF;
3470
3471 _lock_file(file);
3472 if(file->_bufsiz == 0) {
3473 alloc_buffer(file);
3474 file->_ptr++;
3475 }
3476 if(file->_ptr>file->_base) {
3477 file->_ptr--;
3478 *file->_ptr=c;
3479 file->_cnt++;
3480 clearerr(file);
3481 _unlock_file(file);
3482 return c;
3483 }
3484
3485 _unlock_file(file);
3486 return EOF;
3487 }
3488
3489 /*********************************************************************
3490 * ungetwc (MSVCRT.@)
3491 */
3492 wint_t CDECL ungetwc(wint_t wc, FILE * file)
3493 {
3494 wchar_t mwc = wc;
3495 char * pp = (char *)&mwc;
3496 int i;
3497
3498 _lock_file(file);
3499 for(i=sizeof(wchar_t)-1;i>=0;i--) {
3500 if(pp[i] != ungetc(pp[i],file)) {
3501 _unlock_file(file);
3502 return WEOF;
3503 }
3504 }
3505
3506 _unlock_file(file);
3507 return mwc;
3508 }
3509
3510
3511
3512 /*********************************************************************
3513 * _getmaxstdio (MSVCRT.@)
3514 */
3515 int CDECL _getmaxstdio(void)
3516 {
3517 return max_streams;
3518 }
3519
3520 /*********************************************************************
3521 * _setmaxstdio (MSVCRT.@)
3522 */
3523 int CDECL _setmaxstdio(int newmax)
3524 {
3525 TRACE("%d\n", newmax);
3526
3527 if(newmax<_IOB_ENTRIES || newmax>MAX_FILES || newmax<stream_idx)
3528 return -1;
3529
3530 max_streams = newmax;
3531 return max_streams;
3532 }
A free Windows-compatible Operating System