?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
msvcrt: Added support for unicode open mode in msvcrt_get_flags function.
[wine/multimedia.git] / dlls / msvcrt / file.c
bloba9f0d87018c66d9a9415b052ae21a9263922e306
1 /*
2 * msvcrt.dll file functions
3 *
4 * Copyright 1996,1998 Marcus Meissner
5 * Copyright 1996 Jukka Iivonen
6 * Copyright 1997,2000 Uwe Bonnes
7 * Copyright 2000 Jon Griffiths
8 * Copyright 2004 Eric Pouech
9 * Copyright 2004 Juan Lang
10 *
11 * This library is free software; you can redistribute it and/or
12 * modify it under the terms of the GNU Lesser General Public
13 * License as published by the Free Software Foundation; either
14 * version 2.1 of the License, or (at your option) any later version.
15 *
16 * This library is distributed in the hope that it will be useful,
17 * but WITHOUT ANY WARRANTY; without even the implied warranty of
18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 * Lesser General Public License for more details.
20 *
21 * You should have received a copy of the GNU Lesser General Public
22 * License along with this library; if not, write to the Free Software
23 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
24 *
25 * TODO
26 * Use the file flag hints O_SEQUENTIAL, O_RANDOM, O_SHORT_LIVED
27 */
28
29 #include "config.h"
30 #include "wine/port.h"
31
32 #include <stdarg.h>
33 #include <stdio.h>
34 #ifdef HAVE_UNISTD_H
35 # include <unistd.h>
36 #endif
37 #include <sys/types.h>
38
39 #include "windef.h"
40 #include "winbase.h"
41 #include "winternl.h"
42 #include "msvcrt.h"
43 #include "mtdll.h"
44
45 #include "wine/unicode.h"
46
47 #include "wine/debug.h"
48
49 WINE_DEFAULT_DEBUG_CHANNEL(msvcrt);
50
51 /* for stat mode, permissions apply to all,owner and group */
52 #define ALL_S_IREAD (MSVCRT__S_IREAD | (MSVCRT__S_IREAD >> 3) | (MSVCRT__S_IREAD >> 6))
53 #define ALL_S_IWRITE (MSVCRT__S_IWRITE | (MSVCRT__S_IWRITE >> 3) | (MSVCRT__S_IWRITE >> 6))
54 #define ALL_S_IEXEC (MSVCRT__S_IEXEC | (MSVCRT__S_IEXEC >> 3) | (MSVCRT__S_IEXEC >> 6))
55
56 /* _access() bit flags FIXME: incomplete */
57 #define MSVCRT_W_OK 0x02
58 #define MSVCRT_R_OK 0x04
59
60 /* values for wxflag in file descriptor */
61 #define WX_OPEN 0x01
62 #define WX_ATEOF 0x02
63 #define WX_READEOF 0x04 /* like ATEOF, but for underlying file rather than buffer */
64 #define WX_READCR 0x08 /* underlying file is at \r */
65 #define WX_DONTINHERIT 0x10
66 #define WX_APPEND 0x20
67 #define WX_TEXT 0x80
68
69 /* FIXME: this should be allocated dynamically */
70 #define MSVCRT_MAX_FILES 2048
71 #define MSVCRT_FD_BLOCK_SIZE 32
72
73 /* ioinfo structure size is different in msvcrXX.dll's */
74 typedef struct {
75 HANDLE handle;
76 unsigned char wxflag;
77 char unk1;
78 BOOL crit_init;
79 CRITICAL_SECTION crit;
80 } ioinfo;
81
82 /*********************************************************************
83 * __pioinfo (MSVCRT.@)
84 * array of pointers to ioinfo arrays [32]
85 */
86 ioinfo * MSVCRT___pioinfo[MSVCRT_MAX_FILES/MSVCRT_FD_BLOCK_SIZE] = { 0 };
87
88 /*********************************************************************
89 * __badioinfo (MSVCRT.@)
90 */
91 ioinfo MSVCRT___badioinfo = { INVALID_HANDLE_VALUE, WX_TEXT };
92
93 static int MSVCRT_fdstart = 3; /* first unallocated fd */
94 static int MSVCRT_fdend = 3; /* highest allocated fd */
95
96 typedef struct {
97 MSVCRT_FILE file;
98 CRITICAL_SECTION crit;
99 } file_crit;
100
101 MSVCRT_FILE MSVCRT__iob[_IOB_ENTRIES] = { { 0 } };
102 static file_crit* MSVCRT_fstream[MSVCRT_MAX_FILES/MSVCRT_FD_BLOCK_SIZE];
103 static int MSVCRT_max_streams = 512, MSVCRT_stream_idx;
104
105 /* INTERNAL: process umask */
106 static int MSVCRT_umask = 0;
107
108 /* INTERNAL: static data for tmpnam and _wtmpname functions */
109 static int tmpnam_unique;
110
111 static const unsigned int EXE = 'e' << 16 | 'x' << 8 | 'e';
112 static const unsigned int BAT = 'b' << 16 | 'a' << 8 | 't';
113 static const unsigned int CMD = 'c' << 16 | 'm' << 8 | 'd';
114 static const unsigned int COM = 'c' << 16 | 'o' << 8 | 'm';
115
116 #define TOUL(x) (ULONGLONG)(x)
117 static const ULONGLONG WCEXE = TOUL('e') << 32 | TOUL('x') << 16 | TOUL('e');
118 static const ULONGLONG WCBAT = TOUL('b') << 32 | TOUL('a') << 16 | TOUL('t');
119 static const ULONGLONG WCCMD = TOUL('c') << 32 | TOUL('m') << 16 | TOUL('d');
120 static const ULONGLONG WCCOM = TOUL('c') << 32 | TOUL('o') << 16 | TOUL('m');
121
122 /* This critical section protects the tables MSVCRT___pioinfo and MSVCRT_fstreams,
123 * and their related indexes, MSVCRT_fdstart, MSVCRT_fdend,
124 * and MSVCRT_stream_idx, from race conditions.
125 * It doesn't protect against race conditions manipulating the underlying files
126 * or flags; doing so would probably be better accomplished with per-file
127 * protection, rather than locking the whole table for every change.
128 */
129 static CRITICAL_SECTION MSVCRT_file_cs;
130 static CRITICAL_SECTION_DEBUG MSVCRT_file_cs_debug =
131 {
132 0, 0, &MSVCRT_file_cs,
133 { &MSVCRT_file_cs_debug.ProcessLocksList, &MSVCRT_file_cs_debug.ProcessLocksList },
134 0, 0, { (DWORD_PTR)(__FILE__ ": MSVCRT_file_cs") }
135 };
136 static CRITICAL_SECTION MSVCRT_file_cs = { &MSVCRT_file_cs_debug, -1, 0, 0, 0, 0 };
137 #define LOCK_FILES() do { EnterCriticalSection(&MSVCRT_file_cs); } while (0)
138 #define UNLOCK_FILES() do { LeaveCriticalSection(&MSVCRT_file_cs); } while (0)
139
140 static void msvcrt_stat64_to_stat(const struct MSVCRT__stat64 *buf64, struct MSVCRT__stat *buf)
141 {
142 buf->st_dev = buf64->st_dev;
143 buf->st_ino = buf64->st_ino;
144 buf->st_mode = buf64->st_mode;
145 buf->st_nlink = buf64->st_nlink;
146 buf->st_uid = buf64->st_uid;
147 buf->st_gid = buf64->st_gid;
148 buf->st_rdev = buf64->st_rdev;
149 buf->st_size = buf64->st_size;
150 buf->st_atime = buf64->st_atime;
151 buf->st_mtime = buf64->st_mtime;
152 buf->st_ctime = buf64->st_ctime;
153 }
154
155 static void msvcrt_stat64_to_stati64(const struct MSVCRT__stat64 *buf64, struct MSVCRT__stati64 *buf)
156 {
157 buf->st_dev = buf64->st_dev;
158 buf->st_ino = buf64->st_ino;
159 buf->st_mode = buf64->st_mode;
160 buf->st_nlink = buf64->st_nlink;
161 buf->st_uid = buf64->st_uid;
162 buf->st_gid = buf64->st_gid;
163 buf->st_rdev = buf64->st_rdev;
164 buf->st_size = buf64->st_size;
165 buf->st_atime = buf64->st_atime;
166 buf->st_mtime = buf64->st_mtime;
167 buf->st_ctime = buf64->st_ctime;
168 }
169
170 static void time_to_filetime( MSVCRT___time64_t time, FILETIME *ft )
171 {
172 /* 1601 to 1970 is 369 years plus 89 leap days */
173 static const __int64 secs_1601_to_1970 = ((369 * 365 + 89) * (__int64)86400);
174
175 __int64 ticks = (time + secs_1601_to_1970) * 10000000;
176 ft->dwHighDateTime = ticks >> 32;
177 ft->dwLowDateTime = ticks;
178 }
179
180 static inline ioinfo* msvcrt_get_ioinfo(int fd)
181 {
182 ioinfo *ret = NULL;
183 if(fd < MSVCRT_MAX_FILES)
184 ret = MSVCRT___pioinfo[fd/MSVCRT_FD_BLOCK_SIZE];
185 if(!ret)
186 return &MSVCRT___badioinfo;
187
188 return ret + (fd%MSVCRT_FD_BLOCK_SIZE);
189 }
190
191 static inline MSVCRT_FILE* msvcrt_get_file(int i)
192 {
193 file_crit *ret;
194
195 if(i >= MSVCRT_max_streams)
196 return NULL;
197
198 if(i < _IOB_ENTRIES)
199 return &MSVCRT__iob[i];
200
201 ret = MSVCRT_fstream[i/MSVCRT_FD_BLOCK_SIZE];
202 if(!ret) {
203 MSVCRT_fstream[i/MSVCRT_FD_BLOCK_SIZE] = MSVCRT_calloc(MSVCRT_FD_BLOCK_SIZE, sizeof(file_crit));
204 if(!MSVCRT_fstream[i/MSVCRT_FD_BLOCK_SIZE]) {
205 ERR("out of memory\n");
206 *MSVCRT__errno() = MSVCRT_ENOMEM;
207 return NULL;
208 }
209
210 ret = MSVCRT_fstream[i/MSVCRT_FD_BLOCK_SIZE] + (i%MSVCRT_FD_BLOCK_SIZE);
211 } else
212 ret += i%MSVCRT_FD_BLOCK_SIZE;
213
214 return &ret->file;
215 }
216
217 static inline BOOL msvcrt_is_valid_fd(int fd)
218 {
219 return fd >= 0 && fd < MSVCRT_fdend && (msvcrt_get_ioinfo(fd)->wxflag & WX_OPEN);
220 }
221
222 /* INTERNAL: Get the HANDLE for a fd
223 * This doesn't lock the table, because a failure will result in
224 * INVALID_HANDLE_VALUE being returned, which should be handled correctly. If
225 * it returns a valid handle which is about to be closed, a subsequent call
226 * will fail, most likely in a sane way.
227 */
228 static HANDLE msvcrt_fdtoh(int fd)
229 {
230 if (!msvcrt_is_valid_fd(fd))
231 {
232 WARN(":fd (%d) - no handle!\n",fd);
233 *MSVCRT___doserrno() = 0;
234 *MSVCRT__errno() = MSVCRT_EBADF;
235 return INVALID_HANDLE_VALUE;
236 }
237 if (msvcrt_get_ioinfo(fd)->handle == INVALID_HANDLE_VALUE)
238 WARN("returning INVALID_HANDLE_VALUE for %d\n", fd);
239 return msvcrt_get_ioinfo(fd)->handle;
240 }
241
242 /* INTERNAL: free a file entry fd */
243 static void msvcrt_free_fd(int fd)
244 {
245 HANDLE old_handle;
246 ioinfo *fdinfo;
247
248 LOCK_FILES();
249 fdinfo = msvcrt_get_ioinfo(fd);
250 old_handle = fdinfo->handle;
251 if(fdinfo != &MSVCRT___badioinfo)
252 {
253 fdinfo->handle = INVALID_HANDLE_VALUE;
254 fdinfo->wxflag = 0;
255 }
256 TRACE(":fd (%d) freed\n",fd);
257 if (fd < 3) /* don't use 0,1,2 for user files */
258 {
259 switch (fd)
260 {
261 case 0:
262 if (GetStdHandle(STD_INPUT_HANDLE) == old_handle) SetStdHandle(STD_INPUT_HANDLE, 0);
263 break;
264 case 1:
265 if (GetStdHandle(STD_OUTPUT_HANDLE) == old_handle) SetStdHandle(STD_OUTPUT_HANDLE, 0);
266 break;
267 case 2:
268 if (GetStdHandle(STD_ERROR_HANDLE) == old_handle) SetStdHandle(STD_ERROR_HANDLE, 0);
269 break;
270 }
271 }
272 else
273 {
274 if (fd == MSVCRT_fdend - 1)
275 MSVCRT_fdend--;
276 if (fd < MSVCRT_fdstart)
277 MSVCRT_fdstart = fd;
278 }
279 UNLOCK_FILES();
280 }
281
282 /* INTERNAL: Allocate an fd slot from a Win32 HANDLE, starting from fd */
283 /* caller must hold the files lock */
284 static int msvcrt_alloc_fd_from(HANDLE hand, int flag, int fd)
285 {
286 ioinfo *fdinfo;
287
288 if (fd >= MSVCRT_MAX_FILES)
289 {
290 WARN(":files exhausted!\n");
291 *MSVCRT__errno() = MSVCRT_ENFILE;
292 return -1;
293 }
294
295 fdinfo = msvcrt_get_ioinfo(fd);
296 if(fdinfo == &MSVCRT___badioinfo) {
297 int i;
298
299 MSVCRT___pioinfo[fd/MSVCRT_FD_BLOCK_SIZE] = MSVCRT_calloc(MSVCRT_FD_BLOCK_SIZE, sizeof(ioinfo));
300 if(!MSVCRT___pioinfo[fd/MSVCRT_FD_BLOCK_SIZE]) {
301 WARN(":out of memory!\n");
302 *MSVCRT__errno() = MSVCRT_ENOMEM;
303 return -1;
304 }
305
306 for(i=0; i<MSVCRT_FD_BLOCK_SIZE; i++)
307 MSVCRT___pioinfo[fd/MSVCRT_FD_BLOCK_SIZE][i].handle = INVALID_HANDLE_VALUE;
308
309 fdinfo = msvcrt_get_ioinfo(fd);
310 }
311
312 fdinfo->handle = hand;
313 fdinfo->wxflag = WX_OPEN | (flag & (WX_DONTINHERIT | WX_APPEND | WX_TEXT));
314
315 /* locate next free slot */
316 if (fd == MSVCRT_fdstart && fd == MSVCRT_fdend)
317 MSVCRT_fdstart = MSVCRT_fdend + 1;
318 else
319 while (MSVCRT_fdstart < MSVCRT_fdend &&
320 msvcrt_get_ioinfo(MSVCRT_fdstart)->handle != INVALID_HANDLE_VALUE)
321 MSVCRT_fdstart++;
322 /* update last fd in use */
323 if (fd >= MSVCRT_fdend)
324 MSVCRT_fdend = fd + 1;
325 TRACE("fdstart is %d, fdend is %d\n", MSVCRT_fdstart, MSVCRT_fdend);
326
327 switch (fd)
328 {
329 case 0: SetStdHandle(STD_INPUT_HANDLE, hand); break;
330 case 1: SetStdHandle(STD_OUTPUT_HANDLE, hand); break;
331 case 2: SetStdHandle(STD_ERROR_HANDLE, hand); break;
332 }
333
334 return fd;
335 }
336
337 /* INTERNAL: Allocate an fd slot from a Win32 HANDLE */
338 static int msvcrt_alloc_fd(HANDLE hand, int flag)
339 {
340 int ret;
341
342 LOCK_FILES();
343 TRACE(":handle (%p) allocating fd (%d)\n",hand,MSVCRT_fdstart);
344 ret = msvcrt_alloc_fd_from(hand, flag, MSVCRT_fdstart);
345 UNLOCK_FILES();
346 return ret;
347 }
348
349 /* INTERNAL: Allocate a FILE* for an fd slot */
350 /* caller must hold the files lock */
351 static MSVCRT_FILE* msvcrt_alloc_fp(void)
352 {
353 unsigned int i;
354 MSVCRT_FILE *file;
355
356 for (i = 3; i < MSVCRT_max_streams; i++)
357 {
358 file = msvcrt_get_file(i);
359 if (!file)
360 return NULL;
361
362 if (file->_flag == 0)
363 {
364 if (i == MSVCRT_stream_idx)
365 {
366 if (file<MSVCRT__iob || file>=MSVCRT__iob+_IOB_ENTRIES)
367 {
368 InitializeCriticalSection(&((file_crit*)file)->crit);
369 ((file_crit*)file)->crit.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": file_crit.crit");
370 }
371 MSVCRT_stream_idx++;
372 }
373 return file;
374 }
375 }
376
377 return NULL;
378 }
379
380 /* INTERNAL: initialize a FILE* from an open fd */
381 static int msvcrt_init_fp(MSVCRT_FILE* file, int fd, unsigned stream_flags)
382 {
383 TRACE(":fd (%d) allocating FILE*\n",fd);
384 if (!msvcrt_is_valid_fd(fd))
385 {
386 WARN(":invalid fd %d\n",fd);
387 *MSVCRT___doserrno() = 0;
388 *MSVCRT__errno() = MSVCRT_EBADF;
389 return -1;
390 }
391 memset(file, 0, sizeof(*file));
392 file->_file = fd;
393 file->_flag = stream_flags;
394
395 TRACE(":got FILE* (%p)\n",file);
396 return 0;
397 }
398
399 /* INTERNAL: Create an inheritance data block (for spawned process)
400 * The inheritance block is made of:
401 * 00 int nb of file descriptor (NBFD)
402 * 04 char file flags (wxflag): repeated for each fd
403 * 4+NBFD HANDLE file handle: repeated for each fd
404 */
405 unsigned msvcrt_create_io_inherit_block(WORD *size, BYTE **block)
406 {
407 int fd;
408 char* wxflag_ptr;
409 HANDLE* handle_ptr;
410 ioinfo* fdinfo;
411
412 *size = sizeof(unsigned) + (sizeof(char) + sizeof(HANDLE)) * MSVCRT_fdend;
413 *block = MSVCRT_calloc(*size, 1);
414 if (!*block)
415 {
416 *size = 0;
417 return FALSE;
418 }
419 wxflag_ptr = (char*)*block + sizeof(unsigned);
420 handle_ptr = (HANDLE*)(wxflag_ptr + MSVCRT_fdend * sizeof(char));
421
422 *(unsigned*)*block = MSVCRT_fdend;
423 for (fd = 0; fd < MSVCRT_fdend; fd++)
424 {
425 /* to be inherited, we need it to be open, and that DONTINHERIT isn't set */
426 fdinfo = msvcrt_get_ioinfo(fd);
427 if ((fdinfo->wxflag & (WX_OPEN | WX_DONTINHERIT)) == WX_OPEN)
428 {
429 *wxflag_ptr = fdinfo->wxflag;
430 *handle_ptr = fdinfo->handle;
431 }
432 else
433 {
434 *wxflag_ptr = 0;
435 *handle_ptr = INVALID_HANDLE_VALUE;
436 }
437 wxflag_ptr++; handle_ptr++;
438 }
439 return TRUE;
440 }
441
442 /* INTERNAL: Set up all file descriptors,
443 * as well as default streams (stdin, stderr and stdout)
444 */
445 void msvcrt_init_io(void)
446 {
447 STARTUPINFOA si;
448 int i;
449 ioinfo *fdinfo;
450
451 GetStartupInfoA(&si);
452 if (si.cbReserved2 >= sizeof(unsigned int) && si.lpReserved2 != NULL)
453 {
454 BYTE* wxflag_ptr;
455 HANDLE* handle_ptr;
456 unsigned int count;
457
458 count = *(unsigned*)si.lpReserved2;
459 wxflag_ptr = si.lpReserved2 + sizeof(unsigned);
460 handle_ptr = (HANDLE*)(wxflag_ptr + count);
461
462 count = min(count, (si.cbReserved2 - sizeof(unsigned)) / (sizeof(HANDLE) + 1));
463 count = min(count, MSVCRT_MAX_FILES);
464 for (i = 0; i < count; i++)
465 {
466 if ((*wxflag_ptr & WX_OPEN) && *handle_ptr != INVALID_HANDLE_VALUE)
467 msvcrt_alloc_fd_from(*handle_ptr, *wxflag_ptr, i);
468
469 wxflag_ptr++; handle_ptr++;
470 }
471 MSVCRT_fdend = max( 3, count );
472 for (MSVCRT_fdstart = 3; MSVCRT_fdstart < MSVCRT_fdend; MSVCRT_fdstart++)
473 if (msvcrt_get_ioinfo(MSVCRT_fdstart)->handle == INVALID_HANDLE_VALUE) break;
474 }
475
476 if(!MSVCRT___pioinfo[0])
477 msvcrt_alloc_fd_from(INVALID_HANDLE_VALUE, 0, 3);
478
479 fdinfo = msvcrt_get_ioinfo(0);
480 if (!(fdinfo->wxflag & WX_OPEN) || fdinfo->handle == INVALID_HANDLE_VALUE)
481 {
482 HANDLE std = GetStdHandle(STD_INPUT_HANDLE);
483 if (std != INVALID_HANDLE_VALUE && DuplicateHandle(GetCurrentProcess(), std,
484 GetCurrentProcess(), &fdinfo->handle,
485 0, TRUE, DUPLICATE_SAME_ACCESS))
486 fdinfo->wxflag = WX_OPEN | WX_TEXT;
487 }
488
489 fdinfo = msvcrt_get_ioinfo(1);
490 if (!(fdinfo->wxflag & WX_OPEN) || fdinfo->handle == INVALID_HANDLE_VALUE)
491 {
492 HANDLE std = GetStdHandle(STD_OUTPUT_HANDLE);
493 if (std != INVALID_HANDLE_VALUE && DuplicateHandle(GetCurrentProcess(), std,
494 GetCurrentProcess(), &fdinfo->handle,
495 0, TRUE, DUPLICATE_SAME_ACCESS))
496 fdinfo->wxflag = WX_OPEN | WX_TEXT;
497 }
498
499 fdinfo = msvcrt_get_ioinfo(2);
500 if (!(fdinfo->wxflag & WX_OPEN) || fdinfo->handle == INVALID_HANDLE_VALUE)
501 {
502 HANDLE std = GetStdHandle(STD_ERROR_HANDLE);
503 if (std != INVALID_HANDLE_VALUE && DuplicateHandle(GetCurrentProcess(), std,
504 GetCurrentProcess(), &fdinfo->handle,
505 0, TRUE, DUPLICATE_SAME_ACCESS))
506 fdinfo->wxflag = WX_OPEN | WX_TEXT;
507 }
508
509 TRACE(":handles (%p)(%p)(%p)\n", msvcrt_get_ioinfo(0)->handle,
510 msvcrt_get_ioinfo(1)->handle, msvcrt_get_ioinfo(2)->handle);
511
512 memset(MSVCRT__iob,0,3*sizeof(MSVCRT_FILE));
513 for (i = 0; i < 3; i++)
514 {
515 /* FILE structs for stdin/out/err are static and never deleted */
516 MSVCRT__iob[i]._file = i;
517 MSVCRT__iob[i]._tmpfname = NULL;
518 MSVCRT__iob[i]._flag = (i == 0) ? MSVCRT__IOREAD : MSVCRT__IOWRT;
519 }
520 MSVCRT_stream_idx = 3;
521 }
522
523 /* INTERNAL: Flush stdio file buffer */
524 static int msvcrt_flush_buffer(MSVCRT_FILE* file)
525 {
526 if(file->_bufsiz) {
527 int cnt=file->_ptr-file->_base;
528 if(cnt>0 && MSVCRT__write(file->_file, file->_base, cnt) != cnt) {
529 file->_flag |= MSVCRT__IOERR;
530 return MSVCRT_EOF;
531 }
532 file->_ptr=file->_base;
533 file->_cnt=file->_bufsiz;
534 }
535 return 0;
536 }
537
538 /* INTERNAL: Allocate stdio file buffer */
539 static void msvcrt_alloc_buffer(MSVCRT_FILE* file)
540 {
541 file->_base = MSVCRT_calloc(MSVCRT_BUFSIZ,1);
542 if(file->_base) {
543 file->_bufsiz = MSVCRT_BUFSIZ;
544 file->_flag |= MSVCRT__IOMYBUF;
545 } else {
546 file->_base = (char*)(&file->_charbuf);
547 /* put here 2 ??? */
548 file->_bufsiz = sizeof(file->_charbuf);
549 }
550 file->_ptr = file->_base;
551 file->_cnt = 0;
552 }
553
554 /* INTERNAL: Convert integer to base32 string (0-9a-v), 0 becomes "" */
555 static int msvcrt_int_to_base32(int num, char *str)
556 {
557 char *p;
558 int n = num;
559 int digits = 0;
560
561 while (n != 0)
562 {
563 n >>= 5;
564 digits++;
565 }
566 p = str + digits;
567 *p = 0;
568 while (--p >= str)
569 {
570 *p = (num & 31) + '0';
571 if (*p > '9')
572 *p += ('a' - '0' - 10);
573 num >>= 5;
574 }
575
576 return digits;
577 }
578
579 /* INTERNAL: wide character version of msvcrt_int_to_base32 */
580 static int msvcrt_int_to_base32_w(int num, MSVCRT_wchar_t *str)
581 {
582 MSVCRT_wchar_t *p;
583 int n = num;
584 int digits = 0;
585
586 while (n != 0)
587 {
588 n >>= 5;
589 digits++;
590 }
591 p = str + digits;
592 *p = 0;
593 while (--p >= str)
594 {
595 *p = (num & 31) + '0';
596 if (*p > '9')
597 *p += ('a' - '0' - 10);
598 num >>= 5;
599 }
600
601 return digits;
602 }
603
604 /*********************************************************************
605 * __iob_func(MSVCRT.@)
606 */
607 MSVCRT_FILE * CDECL MSVCRT___iob_func(void)
608 {
609 return &MSVCRT__iob[0];
610 }
611
612 /*********************************************************************
613 * _access (MSVCRT.@)
614 */
615 int CDECL MSVCRT__access(const char *filename, int mode)
616 {
617 DWORD attr = GetFileAttributesA(filename);
618
619 TRACE("(%s,%d) %d\n",filename,mode,attr);
620
621 if (!filename || attr == INVALID_FILE_ATTRIBUTES)
622 {
623 msvcrt_set_errno(GetLastError());
624 return -1;
625 }
626 if ((attr & FILE_ATTRIBUTE_READONLY) && (mode & MSVCRT_W_OK))
627 {
628 msvcrt_set_errno(ERROR_ACCESS_DENIED);
629 return -1;
630 }
631 return 0;
632 }
633
634 /*********************************************************************
635 * _access_s (MSVCRT.@)
636 */
637 int CDECL _access_s(const char *filename, int mode)
638 {
639 if (!MSVCRT_CHECK_PMT(filename != NULL)) return -1;
640 if (!MSVCRT_CHECK_PMT((mode & ~(MSVCRT_R_OK | MSVCRT_W_OK)) == 0)) return -1;
641
642 return MSVCRT__access(filename, mode);
643 }
644
645 /*********************************************************************
646 * _waccess (MSVCRT.@)
647 */
648 int CDECL MSVCRT__waccess(const MSVCRT_wchar_t *filename, int mode)
649 {
650 DWORD attr = GetFileAttributesW(filename);
651
652 TRACE("(%s,%d) %d\n",debugstr_w(filename),mode,attr);
653
654 if (!filename || attr == INVALID_FILE_ATTRIBUTES)
655 {
656 msvcrt_set_errno(GetLastError());
657 return -1;
658 }
659 if ((attr & FILE_ATTRIBUTE_READONLY) && (mode & MSVCRT_W_OK))
660 {
661 msvcrt_set_errno(ERROR_ACCESS_DENIED);
662 return -1;
663 }
664 return 0;
665 }
666
667 /*********************************************************************
668 * _waccess_s (MSVCRT.@)
669 */
670 int CDECL _waccess_s(const MSVCRT_wchar_t *filename, int mode)
671 {
672 if (!MSVCRT_CHECK_PMT(filename != NULL)) return -1;
673 if (!MSVCRT_CHECK_PMT((mode & ~(MSVCRT_R_OK | MSVCRT_W_OK)) == 0)) return -1;
674
675 return MSVCRT__waccess(filename, mode);
676 }
677
678 /*********************************************************************
679 * _chmod (MSVCRT.@)
680 */
681 int CDECL MSVCRT__chmod(const char *path, int flags)
682 {
683 DWORD oldFlags = GetFileAttributesA(path);
684
685 if (oldFlags != INVALID_FILE_ATTRIBUTES)
686 {
687 DWORD newFlags = (flags & MSVCRT__S_IWRITE)? oldFlags & ~FILE_ATTRIBUTE_READONLY:
688 oldFlags | FILE_ATTRIBUTE_READONLY;
689
690 if (newFlags == oldFlags || SetFileAttributesA(path, newFlags))
691 return 0;
692 }
693 msvcrt_set_errno(GetLastError());
694 return -1;
695 }
696
697 /*********************************************************************
698 * _wchmod (MSVCRT.@)
699 */
700 int CDECL MSVCRT__wchmod(const MSVCRT_wchar_t *path, int flags)
701 {
702 DWORD oldFlags = GetFileAttributesW(path);
703
704 if (oldFlags != INVALID_FILE_ATTRIBUTES)
705 {
706 DWORD newFlags = (flags & MSVCRT__S_IWRITE)? oldFlags & ~FILE_ATTRIBUTE_READONLY:
707 oldFlags | FILE_ATTRIBUTE_READONLY;
708
709 if (newFlags == oldFlags || SetFileAttributesW(path, newFlags))
710 return 0;
711 }
712 msvcrt_set_errno(GetLastError());
713 return -1;
714 }
715
716 /*********************************************************************
717 * _unlink (MSVCRT.@)
718 */
719 int CDECL MSVCRT__unlink(const char *path)
720 {
721 TRACE("%s\n",debugstr_a(path));
722 if(DeleteFileA(path))
723 return 0;
724 TRACE("failed (%d)\n",GetLastError());
725 msvcrt_set_errno(GetLastError());
726 return -1;
727 }
728
729 /*********************************************************************
730 * _wunlink (MSVCRT.@)
731 */
732 int CDECL MSVCRT__wunlink(const MSVCRT_wchar_t *path)
733 {
734 TRACE("(%s)\n",debugstr_w(path));
735 if(DeleteFileW(path))
736 return 0;
737 TRACE("failed (%d)\n",GetLastError());
738 msvcrt_set_errno(GetLastError());
739 return -1;
740 }
741
742 /* flush_all_buffers calls MSVCRT_fflush which calls flush_all_buffers */
743 int CDECL MSVCRT_fflush(MSVCRT_FILE* file);
744
745 /* INTERNAL: Flush all stream buffer */
746 static int msvcrt_flush_all_buffers(int mask)
747 {
748 int i, num_flushed = 0;
749 MSVCRT_FILE *file;
750
751 LOCK_FILES();
752 for (i = 3; i < MSVCRT_stream_idx; i++) {
753 file = msvcrt_get_file(i);
754
755 if (file->_flag)
756 {
757 if(file->_flag & mask) {
758 MSVCRT_fflush(file);
759 num_flushed++;
760 }
761 }
762 }
763 UNLOCK_FILES();
764
765 TRACE(":flushed (%d) handles\n",num_flushed);
766 return num_flushed;
767 }
768
769 /*********************************************************************
770 * _flushall (MSVCRT.@)
771 */
772 int CDECL MSVCRT__flushall(void)
773 {
774 return msvcrt_flush_all_buffers(MSVCRT__IOWRT | MSVCRT__IOREAD);
775 }
776
777 /*********************************************************************
778 * fflush (MSVCRT.@)
779 */
780 int CDECL MSVCRT_fflush(MSVCRT_FILE* file)
781 {
782 if(!file) {
783 msvcrt_flush_all_buffers(MSVCRT__IOWRT);
784 } else if(file->_flag & MSVCRT__IOWRT) {
785 int res;
786
787 MSVCRT__lock_file(file);
788 res = msvcrt_flush_buffer(file);
789 MSVCRT__unlock_file(file);
790
791 return res;
792 } else if(file->_flag & MSVCRT__IOREAD) {
793 MSVCRT__lock_file(file);
794 file->_cnt = 0;
795 file->_ptr = file->_base;
796 MSVCRT__unlock_file(file);
797
798 return 0;
799 }
800 return 0;
801 }
802
803 /*********************************************************************
804 * _close (MSVCRT.@)
805 */
806 int CDECL MSVCRT__close(int fd)
807 {
808 HANDLE hand;
809 int ret;
810
811 LOCK_FILES();
812 hand = msvcrt_fdtoh(fd);
813 TRACE(":fd (%d) handle (%p)\n",fd,hand);
814 if (!msvcrt_is_valid_fd(fd)) {
815 ret = -1;
816 } else {
817 msvcrt_free_fd(fd);
818 ret = CloseHandle(hand) ? 0 : -1;
819 if (ret) {
820 WARN(":failed-last error (%d)\n",GetLastError());
821 msvcrt_set_errno(GetLastError());
822 }
823 }
824 UNLOCK_FILES();
825 TRACE(":ok\n");
826 return ret;
827 }
828
829 /*********************************************************************
830 * _commit (MSVCRT.@)
831 */
832 int CDECL MSVCRT__commit(int fd)
833 {
834 HANDLE hand = msvcrt_fdtoh(fd);
835
836 TRACE(":fd (%d) handle (%p)\n",fd,hand);
837 if (hand == INVALID_HANDLE_VALUE)
838 return -1;
839
840 if (!FlushFileBuffers(hand))
841 {
842 if (GetLastError() == ERROR_INVALID_HANDLE)
843 {
844 /* FlushFileBuffers fails for console handles
845 * so we ignore this error.
846 */
847 return 0;
848 }
849 TRACE(":failed-last error (%d)\n",GetLastError());
850 msvcrt_set_errno(GetLastError());
851 return -1;
852 }
853 TRACE(":ok\n");
854 return 0;
855 }
856
857 /*********************************************************************
858 * _dup2 (MSVCRT.@)
859 * NOTES
860 * MSDN isn't clear on this point, but the remarks for _pipe
861 * indicate file descriptors duplicated with _dup and _dup2 are always
862 * inheritable.
863 */
864 int CDECL MSVCRT__dup2(int od, int nd)
865 {
866 int ret;
867
868 TRACE("(od=%d, nd=%d)\n", od, nd);
869 LOCK_FILES();
870 if (nd < MSVCRT_MAX_FILES && nd >= 0 && msvcrt_is_valid_fd(od))
871 {
872 HANDLE handle;
873
874 if (DuplicateHandle(GetCurrentProcess(), msvcrt_get_ioinfo(od)->handle,
875 GetCurrentProcess(), &handle, 0, TRUE, DUPLICATE_SAME_ACCESS))
876 {
877 int wxflag = msvcrt_get_ioinfo(od)->wxflag & ~MSVCRT__O_NOINHERIT;
878
879 if (msvcrt_is_valid_fd(nd))
880 MSVCRT__close(nd);
881 ret = msvcrt_alloc_fd_from(handle, wxflag, nd);
882 if (ret == -1)
883 {
884 CloseHandle(handle);
885 *MSVCRT__errno() = MSVCRT_EMFILE;
886 }
887 else
888 {
889 /* _dup2 returns 0, not nd, on success */
890 ret = 0;
891 }
892 }
893 else
894 {
895 ret = -1;
896 msvcrt_set_errno(GetLastError());
897 }
898 }
899 else
900 {
901 *MSVCRT__errno() = MSVCRT_EBADF;
902 ret = -1;
903 }
904 UNLOCK_FILES();
905 return ret;
906 }
907
908 /*********************************************************************
909 * _dup (MSVCRT.@)
910 */
911 int CDECL MSVCRT__dup(int od)
912 {
913 int fd, ret;
914
915 LOCK_FILES();
916 fd = MSVCRT_fdstart;
917 if (MSVCRT__dup2(od, fd) == 0)
918 ret = fd;
919 else
920 ret = -1;
921 UNLOCK_FILES();
922 return ret;
923 }
924
925 /*********************************************************************
926 * _eof (MSVCRT.@)
927 */
928 int CDECL MSVCRT__eof(int fd)
929 {
930 DWORD curpos,endpos;
931 LONG hcurpos,hendpos;
932 HANDLE hand = msvcrt_fdtoh(fd);
933
934 TRACE(":fd (%d) handle (%p)\n",fd,hand);
935
936 if (hand == INVALID_HANDLE_VALUE)
937 return -1;
938
939 if (msvcrt_get_ioinfo(fd)->wxflag & WX_ATEOF) return TRUE;
940
941 /* Otherwise we do it the hard way */
942 hcurpos = hendpos = 0;
943 curpos = SetFilePointer(hand, 0, &hcurpos, FILE_CURRENT);
944 endpos = SetFilePointer(hand, 0, &hendpos, FILE_END);
945
946 if (curpos == endpos && hcurpos == hendpos)
947 {
948 /* FIXME: shouldn't WX_ATEOF be set here? */
949 return TRUE;
950 }
951
952 SetFilePointer(hand, curpos, &hcurpos, FILE_BEGIN);
953 return FALSE;
954 }
955
956 /*********************************************************************
957 * _fcloseall (MSVCRT.@)
958 */
959 int CDECL MSVCRT__fcloseall(void)
960 {
961 int num_closed = 0, i;
962 MSVCRT_FILE *file;
963
964 LOCK_FILES();
965 for (i = 3; i < MSVCRT_stream_idx; i++) {
966 file = msvcrt_get_file(i);
967
968 if (file->_flag && !MSVCRT_fclose(file))
969 num_closed++;
970 }
971 UNLOCK_FILES();
972
973 TRACE(":closed (%d) handles\n",num_closed);
974 return num_closed;
975 }
976
977 /* free everything on process exit */
978 void msvcrt_free_io(void)
979 {
980 int i;
981
982 MSVCRT__fcloseall();
983 /* The Win32 _fcloseall() function explicitly doesn't close stdin,
984 * stdout, and stderr (unlike GNU), so we need to fclose() them here
985 * or they won't get flushed.
986 */
987 MSVCRT_fclose(&MSVCRT__iob[0]);
988 MSVCRT_fclose(&MSVCRT__iob[1]);
989 MSVCRT_fclose(&MSVCRT__iob[2]);
990
991 for(i=0; i<sizeof(MSVCRT___pioinfo)/sizeof(MSVCRT___pioinfo[0]); i++)
992 MSVCRT_free(MSVCRT___pioinfo[i]);
993
994 for(i=0; i<MSVCRT_stream_idx; i++)
995 {
996 MSVCRT_FILE *file = msvcrt_get_file(i);
997 if(file<MSVCRT__iob || file>=MSVCRT__iob+_IOB_ENTRIES)
998 {
999 ((file_crit*)file)->crit.DebugInfo->Spare[0] = 0;
1000 DeleteCriticalSection(&((file_crit*)file)->crit);
1001 }
1002 }
1003
1004 for(i=0; i<sizeof(MSVCRT_fstream)/sizeof(MSVCRT_fstream[0]); i++)
1005 MSVCRT_free(MSVCRT_fstream[i]);
1006
1007 DeleteCriticalSection(&MSVCRT_file_cs);
1008 }
1009
1010 /*********************************************************************
1011 * _lseeki64 (MSVCRT.@)
1012 */
1013 __int64 CDECL MSVCRT__lseeki64(int fd, __int64 offset, int whence)
1014 {
1015 HANDLE hand = msvcrt_fdtoh(fd);
1016 LARGE_INTEGER ofs;
1017
1018 TRACE(":fd (%d) handle (%p)\n",fd,hand);
1019 if (hand == INVALID_HANDLE_VALUE)
1020 return -1;
1021
1022 if (whence < 0 || whence > 2)
1023 {
1024 *MSVCRT__errno() = MSVCRT_EINVAL;
1025 return -1;
1026 }
1027
1028 TRACE(":fd (%d) to %s pos %s\n",
1029 fd,wine_dbgstr_longlong(offset),
1030 (whence==SEEK_SET)?"SEEK_SET":
1031 (whence==SEEK_CUR)?"SEEK_CUR":
1032 (whence==SEEK_END)?"SEEK_END":"UNKNOWN");
1033
1034 /* The MoleBox protection scheme expects msvcrt to use SetFilePointer only,
1035 * so a LARGE_INTEGER offset cannot be passed directly via SetFilePointerEx. */
1036 ofs.QuadPart = offset;
1037 if ((ofs.u.LowPart = SetFilePointer(hand, ofs.u.LowPart, &ofs.u.HighPart, whence)) != INVALID_SET_FILE_POINTER ||
1038 GetLastError() == ERROR_SUCCESS)
1039 {
1040 msvcrt_get_ioinfo(fd)->wxflag &= ~(WX_ATEOF|WX_READEOF);
1041 /* FIXME: What if we seek _to_ EOF - is EOF set? */
1042
1043 return ofs.QuadPart;
1044 }
1045 TRACE(":error-last error (%d)\n",GetLastError());
1046 msvcrt_set_errno(GetLastError());
1047 return -1;
1048 }
1049
1050 /*********************************************************************
1051 * _lseek (MSVCRT.@)
1052 */
1053 LONG CDECL MSVCRT__lseek(int fd, LONG offset, int whence)
1054 {
1055 return MSVCRT__lseeki64(fd, offset, whence);
1056 }
1057
1058 /*********************************************************************
1059 * _lock_file (MSVCRT.@)
1060 */
1061 void CDECL MSVCRT__lock_file(MSVCRT_FILE *file)
1062 {
1063 if(file>=MSVCRT__iob && file<MSVCRT__iob+_IOB_ENTRIES)
1064 _lock(_STREAM_LOCKS+(file-MSVCRT__iob));
1065 else
1066 EnterCriticalSection(&((file_crit*)file)->crit);
1067 }
1068
1069 /*********************************************************************
1070 * _unlock_file (MSVCRT.@)
1071 */
1072 void CDECL MSVCRT__unlock_file(MSVCRT_FILE *file)
1073 {
1074 if(file>=MSVCRT__iob && file<MSVCRT__iob+_IOB_ENTRIES)
1075 _unlock(_STREAM_LOCKS+(file-MSVCRT__iob));
1076 else
1077 LeaveCriticalSection(&((file_crit*)file)->crit);
1078 }
1079
1080 /*********************************************************************
1081 * _locking (MSVCRT.@)
1082 *
1083 * This is untested; the underlying LockFile doesn't work yet.
1084 */
1085 int CDECL MSVCRT__locking(int fd, int mode, LONG nbytes)
1086 {
1087 BOOL ret;
1088 DWORD cur_locn;
1089 HANDLE hand = msvcrt_fdtoh(fd);
1090
1091 TRACE(":fd (%d) handle (%p)\n",fd,hand);
1092 if (hand == INVALID_HANDLE_VALUE)
1093 return -1;
1094
1095 if (mode < 0 || mode > 4)
1096 {
1097 *MSVCRT__errno() = MSVCRT_EINVAL;
1098 return -1;
1099 }
1100
1101 TRACE(":fd (%d) by 0x%08x mode %s\n",
1102 fd,nbytes,(mode==MSVCRT__LK_UNLCK)?"_LK_UNLCK":
1103 (mode==MSVCRT__LK_LOCK)?"_LK_LOCK":
1104 (mode==MSVCRT__LK_NBLCK)?"_LK_NBLCK":
1105 (mode==MSVCRT__LK_RLCK)?"_LK_RLCK":
1106 (mode==MSVCRT__LK_NBRLCK)?"_LK_NBRLCK":
1107 "UNKNOWN");
1108
1109 if ((cur_locn = SetFilePointer(hand, 0L, NULL, SEEK_CUR)) == INVALID_SET_FILE_POINTER)
1110 {
1111 FIXME ("Seek failed\n");
1112 *MSVCRT__errno() = MSVCRT_EINVAL; /* FIXME */
1113 return -1;
1114 }
1115 if (mode == MSVCRT__LK_LOCK || mode == MSVCRT__LK_RLCK)
1116 {
1117 int nretry = 10;
1118 ret = 1; /* just to satisfy gcc */
1119 while (nretry--)
1120 {
1121 ret = LockFile(hand, cur_locn, 0L, nbytes, 0L);
1122 if (ret) break;
1123 Sleep(1);
1124 }
1125 }
1126 else if (mode == MSVCRT__LK_UNLCK)
1127 ret = UnlockFile(hand, cur_locn, 0L, nbytes, 0L);
1128 else
1129 ret = LockFile(hand, cur_locn, 0L, nbytes, 0L);
1130 /* FIXME - what about error settings? */
1131 return ret ? 0 : -1;
1132 }
1133
1134 /*********************************************************************
1135 * _fseeki64 (MSVCRT.@)
1136 */
1137 int CDECL MSVCRT__fseeki64(MSVCRT_FILE* file, __int64 offset, int whence)
1138 {
1139 int ret;
1140
1141 MSVCRT__lock_file(file);
1142 /* Flush output if needed */
1143 if(file->_flag & MSVCRT__IOWRT)
1144 msvcrt_flush_buffer(file);
1145
1146 if(whence == SEEK_CUR && file->_flag & MSVCRT__IOREAD ) {
1147 offset -= file->_cnt;
1148 if (msvcrt_get_ioinfo(file->_file)->wxflag & WX_TEXT) {
1149 /* Black magic correction for CR removal */
1150 int i;
1151 for (i=0; i<file->_cnt; i++) {
1152 if (file->_ptr[i] == '\n')
1153 offset--;
1154 }
1155 /* Black magic when reading CR at buffer boundary*/
1156 if(msvcrt_get_ioinfo(file->_file)->wxflag & WX_READCR)
1157 offset--;
1158 }
1159 }
1160 /* Discard buffered input */
1161 file->_cnt = 0;
1162 file->_ptr = file->_base;
1163 /* Reset direction of i/o */
1164 if(file->_flag & MSVCRT__IORW) {
1165 file->_flag &= ~(MSVCRT__IOREAD|MSVCRT__IOWRT);
1166 }
1167 /* Clear end of file flag */
1168 file->_flag &= ~MSVCRT__IOEOF;
1169 ret = (MSVCRT__lseeki64(file->_file,offset,whence) == -1)?-1:0;
1170
1171 MSVCRT__unlock_file(file);
1172 return ret;
1173 }
1174
1175 /*********************************************************************
1176 * fseek (MSVCRT.@)
1177 */
1178 int CDECL MSVCRT_fseek(MSVCRT_FILE* file, MSVCRT_long offset, int whence)
1179 {
1180 return MSVCRT__fseeki64( file, offset, whence );
1181 }
1182
1183 /*********************************************************************
1184 * _chsize (MSVCRT.@)
1185 */
1186 int CDECL MSVCRT__chsize(int fd, MSVCRT_long size)
1187 {
1188 LONG cur, pos;
1189 HANDLE handle;
1190 BOOL ret = FALSE;
1191
1192 TRACE("(fd=%d, size=%d)\n", fd, size);
1193
1194 LOCK_FILES();
1195
1196 handle = msvcrt_fdtoh(fd);
1197 if (handle != INVALID_HANDLE_VALUE)
1198 {
1199 /* save the current file pointer */
1200 cur = MSVCRT__lseek(fd, 0, SEEK_CUR);
1201 if (cur >= 0)
1202 {
1203 pos = MSVCRT__lseek(fd, size, SEEK_SET);
1204 if (pos >= 0)
1205 {
1206 ret = SetEndOfFile(handle);
1207 if (!ret) msvcrt_set_errno(GetLastError());
1208 }
1209
1210 /* restore the file pointer */
1211 MSVCRT__lseek(fd, cur, SEEK_SET);
1212 }
1213 }
1214
1215 UNLOCK_FILES();
1216 return ret ? 0 : -1;
1217 }
1218
1219 /*********************************************************************
1220 * clearerr (MSVCRT.@)
1221 */
1222 void CDECL MSVCRT_clearerr(MSVCRT_FILE* file)
1223 {
1224 TRACE(":file (%p) fd (%d)\n",file,file->_file);
1225
1226 MSVCRT__lock_file(file);
1227 file->_flag &= ~(MSVCRT__IOERR | MSVCRT__IOEOF);
1228 MSVCRT__unlock_file(file);
1229 }
1230
1231 /*********************************************************************
1232 * rewind (MSVCRT.@)
1233 */
1234 void CDECL MSVCRT_rewind(MSVCRT_FILE* file)
1235 {
1236 TRACE(":file (%p) fd (%d)\n",file,file->_file);
1237
1238 MSVCRT__lock_file(file);
1239 MSVCRT_fseek(file, 0L, SEEK_SET);
1240 MSVCRT_clearerr(file);
1241 MSVCRT__unlock_file(file);
1242 }
1243
1244 static int msvcrt_get_flags(const MSVCRT_wchar_t* mode, int *open_flags, int* stream_flags)
1245 {
1246 int plus = strchrW(mode, '+') != NULL;
1247
1248 TRACE("%s\n", debugstr_w(mode));
1249
1250 switch(*mode++)
1251 {
1252 case 'R': case 'r':
1253 *open_flags = plus ? MSVCRT__O_RDWR : MSVCRT__O_RDONLY;
1254 *stream_flags = plus ? MSVCRT__IORW : MSVCRT__IOREAD;
1255 break;
1256 case 'W': case 'w':
1257 *open_flags = MSVCRT__O_CREAT | MSVCRT__O_TRUNC | (plus ? MSVCRT__O_RDWR : MSVCRT__O_WRONLY);
1258 *stream_flags = plus ? MSVCRT__IORW : MSVCRT__IOWRT;
1259 break;
1260 case 'A': case 'a':
1261 *open_flags = MSVCRT__O_CREAT | MSVCRT__O_APPEND | (plus ? MSVCRT__O_RDWR : MSVCRT__O_WRONLY);
1262 *stream_flags = plus ? MSVCRT__IORW : MSVCRT__IOWRT;
1263 break;
1264 default:
1265 MSVCRT_INVALID_PMT(0, MSVCRT_EINVAL);
1266 return -1;
1267 }
1268
1269 while (*mode && *mode!=',')
1270 switch (*mode++)
1271 {
1272 case 'B': case 'b':
1273 *open_flags |= MSVCRT__O_BINARY;
1274 *open_flags &= ~MSVCRT__O_TEXT;
1275 break;
1276 case 't':
1277 *open_flags |= MSVCRT__O_TEXT;
1278 *open_flags &= ~MSVCRT__O_BINARY;
1279 break;
1280 case 'D':
1281 *open_flags |= MSVCRT__O_TEMPORARY;
1282 break;
1283 case 'T':
1284 *open_flags |= MSVCRT__O_SHORT_LIVED;
1285 break;
1286 case '+':
1287 case ' ':
1288 break;
1289 default:
1290 MSVCRT_INVALID_PMT(0, MSVCRT_EINVAL);
1291 return -1;
1292 }
1293
1294 if(*mode == ',')
1295 {
1296 static const WCHAR ccs[] = {'c','c','s'};
1297 static const WCHAR utf8[] = {'u','t','f','-','8'};
1298 static const WCHAR utf16le[] = {'u','t','f','-','1','6','l','e'};
1299 static const WCHAR unicode[] = {'u','n','i','c','o','d','e'};
1300
1301 mode++;
1302 while(*mode == ' ') mode++;
1303 if(!MSVCRT_CHECK_PMT(!strncmpW(ccs, mode, sizeof(ccs)/sizeof(ccs[0]))))
1304 return -1;
1305 mode += sizeof(ccs)/sizeof(ccs[0]);
1306 while(*mode == ' ') mode++;
1307 if(!MSVCRT_CHECK_PMT(*mode == '='))
1308 return -1;
1309 mode++;
1310 while(*mode == ' ') mode++;
1311
1312 if(!strncmpiW(utf8, mode, sizeof(utf8)/sizeof(utf8[0])))
1313 {
1314 *open_flags |= MSVCRT__O_U8TEXT;
1315 mode += sizeof(utf8)/sizeof(utf8[0]);
1316 }
1317 else if(!strncmpiW(utf16le, mode, sizeof(utf16le)/sizeof(utf16le[0])))
1318 {
1319 *open_flags |= MSVCRT__O_U16TEXT;
1320 mode += sizeof(utf16le)/sizeof(utf16le[0]);
1321 }
1322 else if(!strncmpiW(unicode, mode, sizeof(unicode)/sizeof(unicode[0])))
1323 {
1324 *open_flags |= MSVCRT__O_WTEXT;
1325 mode += sizeof(unicode)/sizeof(unicode[0]);
1326 }
1327 else
1328 {
1329 MSVCRT_INVALID_PMT(0, MSVCRT_EINVAL);
1330 return -1;
1331 }
1332
1333 while(*mode == ' ') mode++;
1334 }
1335
1336 if(!MSVCRT_CHECK_PMT(*mode == 0))
1337 return -1;
1338 return 0;
1339 }
1340
1341 /*********************************************************************
1342 * _fdopen (MSVCRT.@)
1343 */
1344 MSVCRT_FILE* CDECL MSVCRT__fdopen(int fd, const char *mode)
1345 {
1346 MSVCRT_FILE *ret;
1347 MSVCRT_wchar_t *modeW = NULL;
1348
1349 if (mode && !(modeW = msvcrt_wstrdupa(mode))) return NULL;
1350
1351 ret = MSVCRT__wfdopen(fd, modeW);
1352
1353 MSVCRT_free(modeW);
1354 return ret;
1355 }
1356
1357 /*********************************************************************
1358 * _wfdopen (MSVCRT.@)
1359 */
1360 MSVCRT_FILE* CDECL MSVCRT__wfdopen(int fd, const MSVCRT_wchar_t *mode)
1361 {
1362 int open_flags, stream_flags;
1363 MSVCRT_FILE* file;
1364
1365 if (msvcrt_get_flags(mode, &open_flags, &stream_flags) == -1) return NULL;
1366
1367 LOCK_FILES();
1368 if (!(file = msvcrt_alloc_fp()))
1369 file = NULL;
1370 else if (msvcrt_init_fp(file, fd, stream_flags) == -1)
1371 {
1372 file->_flag = 0;
1373 file = NULL;
1374 }
1375 else TRACE(":fd (%d) mode (%s) FILE* (%p)\n", fd, debugstr_w(mode), file);
1376 UNLOCK_FILES();
1377
1378 return file;
1379 }
1380
1381 /*********************************************************************
1382 * _filelength (MSVCRT.@)
1383 */
1384 LONG CDECL MSVCRT__filelength(int fd)
1385 {
1386 LONG curPos = MSVCRT__lseek(fd, 0, SEEK_CUR);
1387 if (curPos != -1)
1388 {
1389 LONG endPos = MSVCRT__lseek(fd, 0, SEEK_END);
1390 if (endPos != -1)
1391 {
1392 if (endPos != curPos)
1393 MSVCRT__lseek(fd, curPos, SEEK_SET);
1394 return endPos;
1395 }
1396 }
1397 return -1;
1398 }
1399
1400 /*********************************************************************
1401 * _filelengthi64 (MSVCRT.@)
1402 */
1403 __int64 CDECL MSVCRT__filelengthi64(int fd)
1404 {
1405 __int64 curPos = MSVCRT__lseeki64(fd, 0, SEEK_CUR);
1406 if (curPos != -1)
1407 {
1408 __int64 endPos = MSVCRT__lseeki64(fd, 0, SEEK_END);
1409 if (endPos != -1)
1410 {
1411 if (endPos != curPos)
1412 MSVCRT__lseeki64(fd, curPos, SEEK_SET);
1413 return endPos;
1414 }
1415 }
1416 return -1;
1417 }
1418
1419 /*********************************************************************
1420 * _fileno (MSVCRT.@)
1421 */
1422 int CDECL MSVCRT__fileno(MSVCRT_FILE* file)
1423 {
1424 TRACE(":FILE* (%p) fd (%d)\n",file,file->_file);
1425 return file->_file;
1426 }
1427
1428 /*********************************************************************
1429 * _fstat64 (MSVCRT.@)
1430 */
1431 int CDECL MSVCRT__fstat64(int fd, struct MSVCRT__stat64* buf)
1432 {
1433 DWORD dw;
1434 DWORD type;
1435 BY_HANDLE_FILE_INFORMATION hfi;
1436 HANDLE hand = msvcrt_fdtoh(fd);
1437
1438 TRACE(":fd (%d) stat (%p)\n",fd,buf);
1439 if (hand == INVALID_HANDLE_VALUE)
1440 return -1;
1441
1442 if (!buf)
1443 {
1444 WARN(":failed-NULL buf\n");
1445 msvcrt_set_errno(ERROR_INVALID_PARAMETER);
1446 return -1;
1447 }
1448
1449 memset(&hfi, 0, sizeof(hfi));
1450 memset(buf, 0, sizeof(struct MSVCRT__stat64));
1451 type = GetFileType(hand);
1452 if (type == FILE_TYPE_PIPE)
1453 {
1454 buf->st_dev = buf->st_rdev = fd;
1455 buf->st_mode = S_IFIFO;
1456 buf->st_nlink = 1;
1457 }
1458 else if (type == FILE_TYPE_CHAR)
1459 {
1460 buf->st_dev = buf->st_rdev = fd;
1461 buf->st_mode = S_IFCHR;
1462 buf->st_nlink = 1;
1463 }
1464 else /* FILE_TYPE_DISK etc. */
1465 {
1466 if (!GetFileInformationByHandle(hand, &hfi))
1467 {
1468 WARN(":failed-last error (%d)\n",GetLastError());
1469 msvcrt_set_errno(ERROR_INVALID_PARAMETER);
1470 return -1;
1471 }
1472 buf->st_mode = S_IFREG | 0444;
1473 if (!(hfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY))
1474 buf->st_mode |= 0222;
1475 buf->st_size = ((__int64)hfi.nFileSizeHigh << 32) + hfi.nFileSizeLow;
1476 RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastAccessTime, &dw);
1477 buf->st_atime = dw;
1478 RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastWriteTime, &dw);
1479 buf->st_mtime = buf->st_ctime = dw;
1480 buf->st_nlink = hfi.nNumberOfLinks;
1481 }
1482 TRACE(":dwFileAttributes = 0x%x, mode set to 0x%x\n",hfi.dwFileAttributes,
1483 buf->st_mode);
1484 return 0;
1485 }
1486
1487 /*********************************************************************
1488 * _fstati64 (MSVCRT.@)
1489 */
1490 int CDECL MSVCRT__fstati64(int fd, struct MSVCRT__stati64* buf)
1491 {
1492 int ret;
1493 struct MSVCRT__stat64 buf64;
1494
1495 ret = MSVCRT__fstat64(fd, &buf64);
1496 if (!ret)
1497 msvcrt_stat64_to_stati64(&buf64, buf);
1498 return ret;
1499 }
1500
1501 /*********************************************************************
1502 * _fstat (MSVCRT.@)
1503 */
1504 int CDECL MSVCRT__fstat(int fd, struct MSVCRT__stat* buf)
1505 { int ret;
1506 struct MSVCRT__stat64 buf64;
1507
1508 ret = MSVCRT__fstat64(fd, &buf64);
1509 if (!ret)
1510 msvcrt_stat64_to_stat(&buf64, buf);
1511 return ret;
1512 }
1513
1514 /*********************************************************************
1515 * _futime64 (MSVCRT.@)
1516 */
1517 int CDECL _futime64(int fd, struct MSVCRT___utimbuf64 *t)
1518 {
1519 HANDLE hand = msvcrt_fdtoh(fd);
1520 FILETIME at, wt;
1521
1522 if (!t)
1523 {
1524 time_to_filetime( MSVCRT__time64(NULL), &at );
1525 wt = at;
1526 }
1527 else
1528 {
1529 time_to_filetime( t->actime, &at );
1530 time_to_filetime( t->modtime, &wt );
1531 }
1532
1533 if (!SetFileTime(hand, NULL, &at, &wt))
1534 {
1535 msvcrt_set_errno(GetLastError());
1536 return -1 ;
1537 }
1538 return 0;
1539 }
1540
1541 /*********************************************************************
1542 * _futime32 (MSVCRT.@)
1543 */
1544 int CDECL _futime32(int fd, struct MSVCRT___utimbuf32 *t)
1545 {
1546 if (t)
1547 {
1548 struct MSVCRT___utimbuf64 t64;
1549 t64.actime = t->actime;
1550 t64.modtime = t->modtime;
1551 return _futime64( fd, &t64 );
1552 }
1553 else
1554 return _futime64( fd, NULL );
1555 }
1556
1557 /*********************************************************************
1558 * _futime (MSVCRT.@)
1559 */
1560 #ifdef _WIN64
1561 int CDECL _futime(int fd, struct MSVCRT___utimbuf64 *t)
1562 {
1563 return _futime64( fd, t );
1564 }
1565 #else
1566 int CDECL _futime(int fd, struct MSVCRT___utimbuf32 *t)
1567 {
1568 return _futime32( fd, t );
1569 }
1570 #endif
1571
1572 /*********************************************************************
1573 * _get_osfhandle (MSVCRT.@)
1574 */
1575 MSVCRT_intptr_t CDECL MSVCRT__get_osfhandle(int fd)
1576 {
1577 HANDLE hand = msvcrt_fdtoh(fd);
1578 TRACE(":fd (%d) handle (%p)\n",fd,hand);
1579
1580 return (MSVCRT_intptr_t)hand;
1581 }
1582
1583 /*********************************************************************
1584 * _isatty (MSVCRT.@)
1585 */
1586 int CDECL MSVCRT__isatty(int fd)
1587 {
1588 HANDLE hand = msvcrt_fdtoh(fd);
1589
1590 TRACE(":fd (%d) handle (%p)\n",fd,hand);
1591 if (hand == INVALID_HANDLE_VALUE)
1592 return 0;
1593
1594 return GetFileType(hand) == FILE_TYPE_CHAR? 1 : 0;
1595 }
1596
1597 /*********************************************************************
1598 * _mktemp (MSVCRT.@)
1599 */
1600 char * CDECL MSVCRT__mktemp(char *pattern)
1601 {
1602 int numX = 0;
1603 char *retVal = pattern;
1604 int id;
1605 char letter = 'a';
1606
1607 while(*pattern)
1608 numX = (*pattern++ == 'X')? numX + 1 : 0;
1609 if (numX < 5)
1610 return NULL;
1611 pattern--;
1612 id = GetCurrentProcessId();
1613 numX = 6;
1614 while(numX--)
1615 {
1616 int tempNum = id / 10;
1617 *pattern-- = id - (tempNum * 10) + '0';
1618 id = tempNum;
1619 }
1620 pattern++;
1621 do
1622 {
1623 *pattern = letter++;
1624 if (GetFileAttributesA(retVal) == INVALID_FILE_ATTRIBUTES &&
1625 GetLastError() == ERROR_FILE_NOT_FOUND)
1626 return retVal;
1627 } while(letter <= 'z');
1628 return NULL;
1629 }
1630
1631 /*********************************************************************
1632 * _wmktemp (MSVCRT.@)
1633 */
1634 MSVCRT_wchar_t * CDECL MSVCRT__wmktemp(MSVCRT_wchar_t *pattern)
1635 {
1636 int numX = 0;
1637 MSVCRT_wchar_t *retVal = pattern;
1638 int id;
1639 MSVCRT_wchar_t letter = 'a';
1640
1641 while(*pattern)
1642 numX = (*pattern++ == 'X')? numX + 1 : 0;
1643 if (numX < 5)
1644 return NULL;
1645 pattern--;
1646 id = GetCurrentProcessId();
1647 numX = 6;
1648 while(numX--)
1649 {
1650 int tempNum = id / 10;
1651 *pattern-- = id - (tempNum * 10) + '0';
1652 id = tempNum;
1653 }
1654 pattern++;
1655 do
1656 {
1657 if (GetFileAttributesW(retVal) == INVALID_FILE_ATTRIBUTES &&
1658 GetLastError() == ERROR_FILE_NOT_FOUND)
1659 return retVal;
1660 *pattern = letter++;
1661 } while(letter != '|');
1662 return NULL;
1663 }
1664
1665 static unsigned split_oflags(unsigned oflags)
1666 {
1667 int wxflags = 0;
1668 unsigned unsupp; /* until we support everything */
1669
1670 if (oflags & MSVCRT__O_APPEND) wxflags |= WX_APPEND;
1671 if (oflags & MSVCRT__O_BINARY) {/* Nothing to do */}
1672 else if (oflags & MSVCRT__O_TEXT) wxflags |= WX_TEXT;
1673 else if (oflags & MSVCRT__O_WTEXT) wxflags |= WX_TEXT;
1674 else if (oflags & MSVCRT__O_U16TEXT) wxflags |= WX_TEXT;
1675 else if (oflags & MSVCRT__O_U8TEXT) wxflags |= WX_TEXT;
1676 else if (*__p__fmode() & MSVCRT__O_BINARY) {/* Nothing to do */}
1677 else wxflags |= WX_TEXT; /* default to TEXT*/
1678 if (oflags & MSVCRT__O_NOINHERIT) wxflags |= WX_DONTINHERIT;
1679
1680 if ((unsupp = oflags & ~(
1681 MSVCRT__O_BINARY|MSVCRT__O_TEXT|MSVCRT__O_APPEND|
1682 MSVCRT__O_TRUNC|MSVCRT__O_EXCL|MSVCRT__O_CREAT|
1683 MSVCRT__O_RDWR|MSVCRT__O_WRONLY|MSVCRT__O_TEMPORARY|
1684 MSVCRT__O_NOINHERIT|
1685 MSVCRT__O_SEQUENTIAL|MSVCRT__O_RANDOM|MSVCRT__O_SHORT_LIVED|
1686 MSVCRT__O_WTEXT|MSVCRT__O_U16TEXT|MSVCRT__O_U8TEXT
1687 )))
1688 ERR(":unsupported oflags 0x%04x\n",unsupp);
1689
1690 return wxflags;
1691 }
1692
1693 /*********************************************************************
1694 * _pipe (MSVCRT.@)
1695 */
1696 int CDECL MSVCRT__pipe(int *pfds, unsigned int psize, int textmode)
1697 {
1698 int ret = -1;
1699 SECURITY_ATTRIBUTES sa;
1700 HANDLE readHandle, writeHandle;
1701
1702 if (!pfds)
1703 {
1704 *MSVCRT__errno() = MSVCRT_EINVAL;
1705 return -1;
1706 }
1707
1708 sa.nLength = sizeof(SECURITY_ATTRIBUTES);
1709 sa.bInheritHandle = !(textmode & MSVCRT__O_NOINHERIT);
1710 sa.lpSecurityDescriptor = NULL;
1711 if (CreatePipe(&readHandle, &writeHandle, &sa, psize))
1712 {
1713 unsigned int wxflags = split_oflags(textmode);
1714 int fd;
1715
1716 LOCK_FILES();
1717 fd = msvcrt_alloc_fd(readHandle, wxflags);
1718 if (fd != -1)
1719 {
1720 pfds[0] = fd;
1721 fd = msvcrt_alloc_fd(writeHandle, wxflags);
1722 if (fd != -1)
1723 {
1724 pfds[1] = fd;
1725 ret = 0;
1726 }
1727 else
1728 {
1729 MSVCRT__close(pfds[0]);
1730 CloseHandle(writeHandle);
1731 *MSVCRT__errno() = MSVCRT_EMFILE;
1732 }
1733 }
1734 else
1735 {
1736 CloseHandle(readHandle);
1737 CloseHandle(writeHandle);
1738 *MSVCRT__errno() = MSVCRT_EMFILE;
1739 }
1740 UNLOCK_FILES();
1741 }
1742 else
1743 msvcrt_set_errno(GetLastError());
1744
1745 return ret;
1746 }
1747
1748 /*********************************************************************
1749 * _sopen_s (MSVCRT.@)
1750 */
1751 int CDECL MSVCRT__sopen_s( int *fd, const char *path, int oflags, int shflags, int pmode )
1752 {
1753 DWORD access = 0, creation = 0, attrib;
1754 DWORD sharing;
1755 int wxflag;
1756 HANDLE hand;
1757 SECURITY_ATTRIBUTES sa;
1758
1759 TRACE("fd*: %p file: (%s) oflags: 0x%04x shflags: 0x%04x pmode: 0x%04x\n",
1760 fd, path, oflags, shflags, pmode);
1761
1762 if (!MSVCRT_CHECK_PMT( fd != NULL )) return MSVCRT_EINVAL;
1763
1764 *fd = -1;
1765 wxflag = split_oflags(oflags);
1766 switch (oflags & (MSVCRT__O_RDONLY | MSVCRT__O_WRONLY | MSVCRT__O_RDWR))
1767 {
1768 case MSVCRT__O_RDONLY: access |= GENERIC_READ; break;
1769 case MSVCRT__O_WRONLY: access |= GENERIC_WRITE; break;
1770 case MSVCRT__O_RDWR: access |= GENERIC_WRITE | GENERIC_READ; break;
1771 }
1772
1773 if (oflags & MSVCRT__O_CREAT)
1774 {
1775 if(pmode & ~(MSVCRT__S_IREAD | MSVCRT__S_IWRITE))
1776 FIXME(": pmode 0x%04x ignored\n", pmode);
1777 else
1778 WARN(": pmode 0x%04x ignored\n", pmode);
1779
1780 if (oflags & MSVCRT__O_EXCL)
1781 creation = CREATE_NEW;
1782 else if (oflags & MSVCRT__O_TRUNC)
1783 creation = CREATE_ALWAYS;
1784 else
1785 creation = OPEN_ALWAYS;
1786 }
1787 else /* no MSVCRT__O_CREAT */
1788 {
1789 if (oflags & MSVCRT__O_TRUNC)
1790 creation = TRUNCATE_EXISTING;
1791 else
1792 creation = OPEN_EXISTING;
1793 }
1794
1795 switch( shflags )
1796 {
1797 case MSVCRT__SH_DENYRW:
1798 sharing = 0L;
1799 break;
1800 case MSVCRT__SH_DENYWR:
1801 sharing = FILE_SHARE_READ;
1802 break;
1803 case MSVCRT__SH_DENYRD:
1804 sharing = FILE_SHARE_WRITE;
1805 break;
1806 case MSVCRT__SH_DENYNO:
1807 sharing = FILE_SHARE_READ | FILE_SHARE_WRITE;
1808 break;
1809 default:
1810 ERR( "Unhandled shflags 0x%x\n", shflags );
1811 return MSVCRT_EINVAL;
1812 }
1813 attrib = FILE_ATTRIBUTE_NORMAL;
1814
1815 if (oflags & MSVCRT__O_TEMPORARY)
1816 {
1817 attrib |= FILE_FLAG_DELETE_ON_CLOSE;
1818 access |= DELETE;
1819 sharing |= FILE_SHARE_DELETE;
1820 }
1821
1822 sa.nLength = sizeof( SECURITY_ATTRIBUTES );
1823 sa.lpSecurityDescriptor = NULL;
1824 sa.bInheritHandle = !(oflags & MSVCRT__O_NOINHERIT);
1825
1826 hand = CreateFileA(path, access, sharing, &sa, creation, attrib, 0);
1827 if (hand == INVALID_HANDLE_VALUE) {
1828 WARN(":failed-last error (%d)\n", GetLastError());
1829 msvcrt_set_errno(GetLastError());
1830 return *MSVCRT__errno();
1831 }
1832
1833 *fd = msvcrt_alloc_fd(hand, wxflag);
1834
1835 TRACE(":fd (%d) handle (%p)\n", *fd, hand);
1836 return 0;
1837 }
1838
1839 /*********************************************************************
1840 * _sopen (MSVCRT.@)
1841 */
1842 int CDECL MSVCRT__sopen( const char *path, int oflags, int shflags, ... )
1843 {
1844 int pmode;
1845 int fd;
1846
1847 if (oflags & MSVCRT__O_CREAT)
1848 {
1849 __ms_va_list ap;
1850
1851 __ms_va_start(ap, shflags);
1852 pmode = va_arg(ap, int);
1853 __ms_va_end(ap);
1854 }
1855 else
1856 pmode = 0;
1857
1858 MSVCRT__sopen_s(&fd, path, oflags, shflags, pmode);
1859 return fd;
1860 }
1861
1862 /*********************************************************************
1863 * _wsopen_s (MSVCRT.@)
1864 */
1865 int CDECL MSVCRT__wsopen_s( int *fd, const MSVCRT_wchar_t* path, int oflags, int shflags, int pmode )
1866 {
1867 DWORD access = 0, creation = 0, attrib;
1868 SECURITY_ATTRIBUTES sa;
1869 DWORD sharing;
1870 int wxflag;
1871 HANDLE hand;
1872
1873 TRACE("fd*: %p :file (%s) oflags: 0x%04x shflags: 0x%04x pmode: 0x%04x\n",
1874 fd, debugstr_w(path), oflags, shflags, pmode);
1875
1876 if (!MSVCRT_CHECK_PMT( fd != NULL )) return MSVCRT_EINVAL;
1877
1878 *fd = -1;
1879 wxflag = split_oflags(oflags);
1880 switch (oflags & (MSVCRT__O_RDONLY | MSVCRT__O_WRONLY | MSVCRT__O_RDWR))
1881 {
1882 case MSVCRT__O_RDONLY: access |= GENERIC_READ; break;
1883 case MSVCRT__O_WRONLY: access |= GENERIC_WRITE; break;
1884 case MSVCRT__O_RDWR: access |= GENERIC_WRITE | GENERIC_READ; break;
1885 }
1886
1887 if (oflags & MSVCRT__O_CREAT)
1888 {
1889 if(pmode & ~(MSVCRT__S_IREAD | MSVCRT__S_IWRITE))
1890 FIXME(": pmode 0x%04x ignored\n", pmode);
1891 else
1892 WARN(": pmode 0x%04x ignored\n", pmode);
1893
1894 if (oflags & MSVCRT__O_EXCL)
1895 creation = CREATE_NEW;
1896 else if (oflags & MSVCRT__O_TRUNC)
1897 creation = CREATE_ALWAYS;
1898 else
1899 creation = OPEN_ALWAYS;
1900 }
1901 else /* no MSVCRT__O_CREAT */
1902 {
1903 if (oflags & MSVCRT__O_TRUNC)
1904 creation = TRUNCATE_EXISTING;
1905 else
1906 creation = OPEN_EXISTING;
1907 }
1908
1909 switch( shflags )
1910 {
1911 case MSVCRT__SH_DENYRW:
1912 sharing = 0L;
1913 break;
1914 case MSVCRT__SH_DENYWR:
1915 sharing = FILE_SHARE_READ;
1916 break;
1917 case MSVCRT__SH_DENYRD:
1918 sharing = FILE_SHARE_WRITE;
1919 break;
1920 case MSVCRT__SH_DENYNO:
1921 sharing = FILE_SHARE_READ | FILE_SHARE_WRITE;
1922 break;
1923 default:
1924 ERR( "Unhandled shflags 0x%x\n", shflags );
1925 return MSVCRT_EINVAL;
1926 }
1927 attrib = FILE_ATTRIBUTE_NORMAL;
1928
1929 if (oflags & MSVCRT__O_TEMPORARY)
1930 {
1931 attrib |= FILE_FLAG_DELETE_ON_CLOSE;
1932 access |= DELETE;
1933 sharing |= FILE_SHARE_DELETE;
1934 }
1935
1936 sa.nLength = sizeof( SECURITY_ATTRIBUTES );
1937 sa.lpSecurityDescriptor = NULL;
1938 sa.bInheritHandle = !(oflags & MSVCRT__O_NOINHERIT);
1939
1940 hand = CreateFileW(path, access, sharing, &sa, creation, attrib, 0);
1941
1942 if (hand == INVALID_HANDLE_VALUE) {
1943 WARN(":failed-last error (%d)\n",GetLastError());
1944 msvcrt_set_errno(GetLastError());
1945 msvcrt_set_errno(GetLastError());
1946 return *MSVCRT__errno();
1947 }
1948
1949 *fd = msvcrt_alloc_fd(hand, wxflag);
1950
1951 TRACE(":fd (%d) handle (%p)\n", *fd, hand);
1952 return 0;
1953 }
1954
1955 /*********************************************************************
1956 * _wsopen (MSVCRT.@)
1957 */
1958 int CDECL MSVCRT__wsopen( const MSVCRT_wchar_t *path, int oflags, int shflags, ... )
1959 {
1960 int pmode;
1961 int fd;
1962
1963 if (oflags & MSVCRT__O_CREAT)
1964 {
1965 __ms_va_list ap;
1966
1967 __ms_va_start(ap, shflags);
1968 pmode = va_arg(ap, int);
1969 __ms_va_end(ap);
1970 }
1971 else
1972 pmode = 0;
1973
1974 MSVCRT__wsopen_s(&fd, path, oflags, shflags, pmode);
1975 return fd;
1976 }
1977
1978 /*********************************************************************
1979 * _open (MSVCRT.@)
1980 */
1981 int CDECL MSVCRT__open( const char *path, int flags, ... )
1982 {
1983 __ms_va_list ap;
1984
1985 if (flags & MSVCRT__O_CREAT)
1986 {
1987 int pmode;
1988 __ms_va_start(ap, flags);
1989 pmode = va_arg(ap, int);
1990 __ms_va_end(ap);
1991 return MSVCRT__sopen( path, flags, MSVCRT__SH_DENYNO, pmode );
1992 }
1993 else
1994 return MSVCRT__sopen( path, flags, MSVCRT__SH_DENYNO);
1995 }
1996
1997 /*********************************************************************
1998 * _wopen (MSVCRT.@)
1999 */
2000 int CDECL MSVCRT__wopen(const MSVCRT_wchar_t *path,int flags,...)
2001 {
2002 __ms_va_list ap;
2003
2004 if (flags & MSVCRT__O_CREAT)
2005 {
2006 int pmode;
2007 __ms_va_start(ap, flags);
2008 pmode = va_arg(ap, int);
2009 __ms_va_end(ap);
2010 return MSVCRT__wsopen( path, flags, MSVCRT__SH_DENYNO, pmode );
2011 }
2012 else
2013 return MSVCRT__wsopen( path, flags, MSVCRT__SH_DENYNO);
2014 }
2015
2016 /*********************************************************************
2017 * _creat (MSVCRT.@)
2018 */
2019 int CDECL MSVCRT__creat(const char *path, int flags)
2020 {
2021 int usedFlags = (flags & MSVCRT__O_TEXT)| MSVCRT__O_CREAT| MSVCRT__O_WRONLY| MSVCRT__O_TRUNC;
2022 return MSVCRT__open(path, usedFlags);
2023 }
2024
2025 /*********************************************************************
2026 * _wcreat (MSVCRT.@)
2027 */
2028 int CDECL MSVCRT__wcreat(const MSVCRT_wchar_t *path, int flags)
2029 {
2030 int usedFlags = (flags & MSVCRT__O_TEXT)| MSVCRT__O_CREAT| MSVCRT__O_WRONLY| MSVCRT__O_TRUNC;
2031 return MSVCRT__wopen(path, usedFlags);
2032 }
2033
2034 /*********************************************************************
2035 * _open_osfhandle (MSVCRT.@)
2036 */
2037 int CDECL MSVCRT__open_osfhandle(MSVCRT_intptr_t handle, int oflags)
2038 {
2039 int fd;
2040
2041 /* MSVCRT__O_RDONLY (0) always matches, so set the read flag
2042 * MFC's CStdioFile clears O_RDONLY (0)! if it wants to write to the
2043 * file, so set the write flag. It also only sets MSVCRT__O_TEXT if it wants
2044 * text - it never sets MSVCRT__O_BINARY.
2045 */
2046 /* don't let split_oflags() decide the mode if no mode is passed */
2047 if (!(oflags & (MSVCRT__O_BINARY | MSVCRT__O_TEXT)))
2048 oflags |= MSVCRT__O_BINARY;
2049
2050 fd = msvcrt_alloc_fd((HANDLE)handle, split_oflags(oflags));
2051 TRACE(":handle (%ld) fd (%d) flags 0x%08x\n", handle, fd, oflags);
2052 return fd;
2053 }
2054
2055 /*********************************************************************
2056 * _rmtmp (MSVCRT.@)
2057 */
2058 int CDECL MSVCRT__rmtmp(void)
2059 {
2060 int num_removed = 0, i;
2061 MSVCRT_FILE *file;
2062
2063 LOCK_FILES();
2064 for (i = 3; i < MSVCRT_stream_idx; i++) {
2065 file = msvcrt_get_file(i);
2066
2067 if (file->_tmpfname)
2068 {
2069 MSVCRT_fclose(file);
2070 num_removed++;
2071 }
2072 }
2073 UNLOCK_FILES();
2074
2075 if (num_removed)
2076 TRACE(":removed (%d) temp files\n",num_removed);
2077 return num_removed;
2078 }
2079
2080 /*********************************************************************
2081 * (internal) read_i
2082 *
2083 * When reading \r as last character in text mode, read() positions
2084 * the file pointer on the \r character while getc() goes on to
2085 * the following \n
2086 */
2087 static int read_i(int fd, void *buf, unsigned int count)
2088 {
2089 DWORD num_read;
2090 char *bufstart = buf;
2091 HANDLE hand = msvcrt_fdtoh(fd);
2092 ioinfo *fdinfo = msvcrt_get_ioinfo(fd);
2093
2094 if (count == 0)
2095 return 0;
2096
2097 if (fdinfo->wxflag & WX_READEOF) {
2098 fdinfo->wxflag |= WX_ATEOF;
2099 TRACE("already at EOF, returning 0\n");
2100 return 0;
2101 }
2102 /* Don't trace small reads, it gets *very* annoying */
2103 if (count > 4)
2104 TRACE(":fd (%d) handle (%p) buf (%p) len (%d)\n",fd,hand,buf,count);
2105 if (hand == INVALID_HANDLE_VALUE)
2106 return -1;
2107
2108 /* Reading single bytes in O_TEXT mode makes things slow
2109 * So read big chunks
2110 */
2111 if (ReadFile(hand, bufstart, count, &num_read, NULL))
2112 {
2113 if (count != 0 && num_read == 0)
2114 {
2115 fdinfo->wxflag |= (WX_ATEOF|WX_READEOF);
2116 TRACE(":EOF %s\n",debugstr_an(buf,num_read));
2117 }
2118 else if (fdinfo->wxflag & WX_TEXT)
2119 {
2120 DWORD i, j;
2121 if (bufstart[num_read-1] == '\r')
2122 {
2123 if(count == 1)
2124 {
2125 fdinfo->wxflag &= ~WX_READCR;
2126 ReadFile(hand, bufstart, 1, &num_read, NULL);
2127 }
2128 else
2129 {
2130 fdinfo->wxflag |= WX_READCR;
2131 num_read--;
2132 }
2133 }
2134 else
2135 fdinfo->wxflag &= ~WX_READCR;
2136 for (i=0, j=0; i<num_read; i++)
2137 {
2138 /* in text mode, a ctrl-z signals EOF */
2139 if (bufstart[i] == 0x1a)
2140 {
2141 fdinfo->wxflag |= (WX_ATEOF|WX_READEOF);
2142 TRACE(":^Z EOF %s\n",debugstr_an(buf,num_read));
2143 break;
2144 }
2145 /* in text mode, strip \r if followed by \n.
2146 * BUG: should save state across calls somehow, so CR LF that
2147 * straddles buffer boundary gets recognized properly?
2148 */
2149 if ((bufstart[i] != '\r')
2150 || ((i+1) < num_read && bufstart[i+1] != '\n'))
2151 bufstart[j++] = bufstart[i];
2152 }
2153 num_read = j;
2154 }
2155 }
2156 else
2157 {
2158 if (GetLastError() == ERROR_BROKEN_PIPE)
2159 {
2160 TRACE(":end-of-pipe\n");
2161 fdinfo->wxflag |= (WX_ATEOF|WX_READEOF);
2162 return 0;
2163 }
2164 else
2165 {
2166 TRACE(":failed-last error (%d)\n",GetLastError());
2167 return -1;
2168 }
2169 }
2170
2171 if (count > 4)
2172 TRACE("(%u), %s\n",num_read,debugstr_an(buf, num_read));
2173 return num_read;
2174 }
2175
2176 /*********************************************************************
2177 * _read (MSVCRT.@)
2178 */
2179 int CDECL MSVCRT__read(int fd, void *buf, unsigned int count)
2180 {
2181 int num_read;
2182 num_read = read_i(fd, buf, count);
2183 return num_read;
2184 }
2185
2186 /*********************************************************************
2187 * _setmode (MSVCRT.@)
2188 */
2189 int CDECL MSVCRT__setmode(int fd,int mode)
2190 {
2191 int ret = msvcrt_get_ioinfo(fd)->wxflag & WX_TEXT ? MSVCRT__O_TEXT : MSVCRT__O_BINARY;
2192 if (mode & (~(MSVCRT__O_TEXT|MSVCRT__O_BINARY)))
2193 FIXME("fd (%d) mode (0x%08x) unknown\n",fd,mode);
2194 if ((mode & MSVCRT__O_TEXT) == MSVCRT__O_TEXT)
2195 msvcrt_get_ioinfo(fd)->wxflag |= WX_TEXT;
2196 else
2197 msvcrt_get_ioinfo(fd)->wxflag &= ~WX_TEXT;
2198 return ret;
2199 }
2200
2201 /*********************************************************************
2202 * _stat64 (MSVCRT.@)
2203 */
2204 int CDECL MSVCRT_stat64(const char* path, struct MSVCRT__stat64 * buf)
2205 {
2206 DWORD dw;
2207 WIN32_FILE_ATTRIBUTE_DATA hfi;
2208 unsigned short mode = ALL_S_IREAD;
2209 int plen;
2210
2211 TRACE(":file (%s) buf(%p)\n",path,buf);
2212
2213 plen = strlen(path);
2214 while (plen && path[plen-1]==' ')
2215 plen--;
2216
2217 if (plen && (path[plen-1]=='\\' || path[plen-1]=='/'))
2218 {
2219 *MSVCRT__errno() = MSVCRT_ENOENT;
2220 return -1;
2221 }
2222
2223 if (!GetFileAttributesExA(path, GetFileExInfoStandard, &hfi))
2224 {
2225 TRACE("failed (%d)\n",GetLastError());
2226 *MSVCRT__errno() = MSVCRT_ENOENT;
2227 return -1;
2228 }
2229
2230 memset(buf,0,sizeof(struct MSVCRT__stat64));
2231
2232 /* FIXME: rdev isn't drive num, despite what the docs say-what is it?
2233 Bon 011120: This FIXME seems incorrect
2234 Also a letter as first char isn't enough to be classified
2235 as a drive letter
2236 */
2237 if (isalpha(*path)&& (*(path+1)==':'))
2238 buf->st_dev = buf->st_rdev = toupper(*path) - 'A'; /* drive num */
2239 else
2240 buf->st_dev = buf->st_rdev = MSVCRT__getdrive() - 1;
2241
2242 /* Dir, or regular file? */
2243 if (hfi.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
2244 mode |= (MSVCRT__S_IFDIR | ALL_S_IEXEC);
2245 else
2246 {
2247 mode |= MSVCRT__S_IFREG;
2248 /* executable? */
2249 if (plen > 6 && path[plen-4] == '.') /* shortest exe: "\x.exe" */
2250 {
2251 unsigned int ext = tolower(path[plen-1]) | (tolower(path[plen-2]) << 8) |
2252 (tolower(path[plen-3]) << 16);
2253 if (ext == EXE || ext == BAT || ext == CMD || ext == COM)
2254 mode |= ALL_S_IEXEC;
2255 }
2256 }
2257
2258 if (!(hfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY))
2259 mode |= ALL_S_IWRITE;
2260
2261 buf->st_mode = mode;
2262 buf->st_nlink = 1;
2263 buf->st_size = ((__int64)hfi.nFileSizeHigh << 32) + hfi.nFileSizeLow;
2264 RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastAccessTime, &dw);
2265 buf->st_atime = dw;
2266 RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastWriteTime, &dw);
2267 buf->st_mtime = buf->st_ctime = dw;
2268 TRACE("%d %d 0x%08x%08x %d %d %d\n", buf->st_mode,buf->st_nlink,
2269 (int)(buf->st_size >> 32),(int)buf->st_size,
2270 (int)buf->st_atime,(int)buf->st_mtime,(int)buf->st_ctime);
2271 return 0;
2272 }
2273
2274 /*********************************************************************
2275 * _stati64 (MSVCRT.@)
2276 */
2277 int CDECL MSVCRT_stati64(const char* path, struct MSVCRT__stati64 * buf)
2278 {
2279 int ret;
2280 struct MSVCRT__stat64 buf64;
2281
2282 ret = MSVCRT_stat64(path, &buf64);
2283 if (!ret)
2284 msvcrt_stat64_to_stati64(&buf64, buf);
2285 return ret;
2286 }
2287
2288 /*********************************************************************
2289 * _stat (MSVCRT.@)
2290 */
2291 int CDECL MSVCRT_stat(const char* path, struct MSVCRT__stat * buf)
2292 { int ret;
2293 struct MSVCRT__stat64 buf64;
2294
2295 ret = MSVCRT_stat64( path, &buf64);
2296 if (!ret)
2297 msvcrt_stat64_to_stat(&buf64, buf);
2298 return ret;
2299 }
2300
2301 /*********************************************************************
2302 * _wstat64 (MSVCRT.@)
2303 */
2304 int CDECL MSVCRT__wstat64(const MSVCRT_wchar_t* path, struct MSVCRT__stat64 * buf)
2305 {
2306 DWORD dw;
2307 WIN32_FILE_ATTRIBUTE_DATA hfi;
2308 unsigned short mode = ALL_S_IREAD;
2309 int plen;
2310
2311 TRACE(":file (%s) buf(%p)\n",debugstr_w(path),buf);
2312
2313 plen = strlenW(path);
2314 while (plen && path[plen-1]==' ')
2315 plen--;
2316
2317 if(plen && (path[plen-1]=='\\' || path[plen-1]=='/'))
2318 {
2319 *MSVCRT__errno() = MSVCRT_ENOENT;
2320 return -1;
2321 }
2322
2323 if (!GetFileAttributesExW(path, GetFileExInfoStandard, &hfi))
2324 {
2325 TRACE("failed (%d)\n",GetLastError());
2326 *MSVCRT__errno() = MSVCRT_ENOENT;
2327 return -1;
2328 }
2329
2330 memset(buf,0,sizeof(struct MSVCRT__stat64));
2331
2332 /* FIXME: rdev isn't drive num, despite what the docs says-what is it? */
2333 if (MSVCRT_iswalpha(*path))
2334 buf->st_dev = buf->st_rdev = toupperW(*path - 'A'); /* drive num */
2335 else
2336 buf->st_dev = buf->st_rdev = MSVCRT__getdrive() - 1;
2337
2338 /* Dir, or regular file? */
2339 if (hfi.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
2340 mode |= (MSVCRT__S_IFDIR | ALL_S_IEXEC);
2341 else
2342 {
2343 mode |= MSVCRT__S_IFREG;
2344 /* executable? */
2345 if (plen > 6 && path[plen-4] == '.') /* shortest exe: "\x.exe" */
2346 {
2347 ULONGLONG ext = tolowerW(path[plen-1]) | (tolowerW(path[plen-2]) << 16) |
2348 ((ULONGLONG)tolowerW(path[plen-3]) << 32);
2349 if (ext == WCEXE || ext == WCBAT || ext == WCCMD || ext == WCCOM)
2350 mode |= ALL_S_IEXEC;
2351 }
2352 }
2353
2354 if (!(hfi.dwFileAttributes & FILE_ATTRIBUTE_READONLY))
2355 mode |= ALL_S_IWRITE;
2356
2357 buf->st_mode = mode;
2358 buf->st_nlink = 1;
2359 buf->st_size = ((__int64)hfi.nFileSizeHigh << 32) + hfi.nFileSizeLow;
2360 RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastAccessTime, &dw);
2361 buf->st_atime = dw;
2362 RtlTimeToSecondsSince1970((LARGE_INTEGER *)&hfi.ftLastWriteTime, &dw);
2363 buf->st_mtime = buf->st_ctime = dw;
2364 TRACE("%d %d 0x%08x%08x %d %d %d\n", buf->st_mode,buf->st_nlink,
2365 (int)(buf->st_size >> 32),(int)buf->st_size,
2366 (int)buf->st_atime,(int)buf->st_mtime,(int)buf->st_ctime);
2367 return 0;
2368 }
2369
2370 /*********************************************************************
2371 * _wstati64 (MSVCRT.@)
2372 */
2373 int CDECL MSVCRT__wstati64(const MSVCRT_wchar_t* path, struct MSVCRT__stati64 * buf)
2374 {
2375 int ret;
2376 struct MSVCRT__stat64 buf64;
2377
2378 ret = MSVCRT__wstat64(path, &buf64);
2379 if (!ret)
2380 msvcrt_stat64_to_stati64(&buf64, buf);
2381 return ret;
2382 }
2383
2384 /*********************************************************************
2385 * _wstat (MSVCRT.@)
2386 */
2387 int CDECL MSVCRT__wstat(const MSVCRT_wchar_t* path, struct MSVCRT__stat * buf)
2388 {
2389 int ret;
2390 struct MSVCRT__stat64 buf64;
2391
2392 ret = MSVCRT__wstat64( path, &buf64 );
2393 if (!ret) msvcrt_stat64_to_stat(&buf64, buf);
2394 return ret;
2395 }
2396
2397 /*********************************************************************
2398 * _tell (MSVCRT.@)
2399 */
2400 MSVCRT_long CDECL MSVCRT__tell(int fd)
2401 {
2402 return MSVCRT__lseek(fd, 0, SEEK_CUR);
2403 }
2404
2405 /*********************************************************************
2406 * _telli64 (MSVCRT.@)
2407 */
2408 __int64 CDECL _telli64(int fd)
2409 {
2410 return MSVCRT__lseeki64(fd, 0, SEEK_CUR);
2411 }
2412
2413 /*********************************************************************
2414 * _tempnam (MSVCRT.@)
2415 */
2416 char * CDECL MSVCRT__tempnam(const char *dir, const char *prefix)
2417 {
2418 char tmpbuf[MAX_PATH];
2419 const char *tmp_dir = MSVCRT_getenv("TMP");
2420
2421 if (tmp_dir) dir = tmp_dir;
2422
2423 TRACE("dir (%s) prefix (%s)\n",dir,prefix);
2424 if (GetTempFileNameA(dir,prefix,0,tmpbuf))
2425 {
2426 TRACE("got name (%s)\n",tmpbuf);
2427 DeleteFileA(tmpbuf);
2428 return MSVCRT__strdup(tmpbuf);
2429 }
2430 TRACE("failed (%d)\n",GetLastError());
2431 return NULL;
2432 }
2433
2434 /*********************************************************************
2435 * _wtempnam (MSVCRT.@)
2436 */
2437 MSVCRT_wchar_t * CDECL MSVCRT__wtempnam(const MSVCRT_wchar_t *dir, const MSVCRT_wchar_t *prefix)
2438 {
2439 static const MSVCRT_wchar_t tmpW[] = {'T','M','P',0};
2440 MSVCRT_wchar_t tmpbuf[MAX_PATH];
2441 const MSVCRT_wchar_t *tmp_dir = MSVCRT__wgetenv(tmpW);
2442
2443 if (tmp_dir) dir = tmp_dir;
2444
2445 TRACE("dir (%s) prefix (%s)\n",debugstr_w(dir),debugstr_w(prefix));
2446 if (GetTempFileNameW(dir,prefix,0,tmpbuf))
2447 {
2448 TRACE("got name (%s)\n",debugstr_w(tmpbuf));
2449 DeleteFileW(tmpbuf);
2450 return MSVCRT__wcsdup(tmpbuf);
2451 }
2452 TRACE("failed (%d)\n",GetLastError());
2453 return NULL;
2454 }
2455
2456 /*********************************************************************
2457 * _umask (MSVCRT.@)
2458 */
2459 int CDECL MSVCRT__umask(int umask)
2460 {
2461 int old_umask = MSVCRT_umask;
2462 TRACE("(%d)\n",umask);
2463 MSVCRT_umask = umask;
2464 return old_umask;
2465 }
2466
2467 /*********************************************************************
2468 * _utime64 (MSVCRT.@)
2469 */
2470 int CDECL _utime64(const char* path, struct MSVCRT___utimbuf64 *t)
2471 {
2472 int fd = MSVCRT__open(path, MSVCRT__O_WRONLY | MSVCRT__O_BINARY);
2473
2474 if (fd > 0)
2475 {
2476 int retVal = _futime64(fd, t);
2477 MSVCRT__close(fd);
2478 return retVal;
2479 }
2480 return -1;
2481 }
2482
2483 /*********************************************************************
2484 * _utime32 (MSVCRT.@)
2485 */
2486 int CDECL _utime32(const char* path, struct MSVCRT___utimbuf32 *t)
2487 {
2488 if (t)
2489 {
2490 struct MSVCRT___utimbuf64 t64;
2491 t64.actime = t->actime;
2492 t64.modtime = t->modtime;
2493 return _utime64( path, &t64 );
2494 }
2495 else
2496 return _utime64( path, NULL );
2497 }
2498
2499 /*********************************************************************
2500 * _utime (MSVCRT.@)
2501 */
2502 #ifdef _WIN64
2503 int CDECL _utime(const char* path, struct MSVCRT___utimbuf64 *t)
2504 {
2505 return _utime64( path, t );
2506 }
2507 #else
2508 int CDECL _utime(const char* path, struct MSVCRT___utimbuf32 *t)
2509 {
2510 return _utime32( path, t );
2511 }
2512 #endif
2513
2514 /*********************************************************************
2515 * _wutime64 (MSVCRT.@)
2516 */
2517 int CDECL _wutime64(const MSVCRT_wchar_t* path, struct MSVCRT___utimbuf64 *t)
2518 {
2519 int fd = MSVCRT__wopen(path, MSVCRT__O_WRONLY | MSVCRT__O_BINARY);
2520
2521 if (fd > 0)
2522 {
2523 int retVal = _futime64(fd, t);
2524 MSVCRT__close(fd);
2525 return retVal;
2526 }
2527 return -1;
2528 }
2529
2530 /*********************************************************************
2531 * _wutime32 (MSVCRT.@)
2532 */
2533 int CDECL _wutime32(const MSVCRT_wchar_t* path, struct MSVCRT___utimbuf32 *t)
2534 {
2535 if (t)
2536 {
2537 struct MSVCRT___utimbuf64 t64;
2538 t64.actime = t->actime;
2539 t64.modtime = t->modtime;
2540 return _wutime64( path, &t64 );
2541 }
2542 else
2543 return _wutime64( path, NULL );
2544 }
2545
2546 /*********************************************************************
2547 * _wutime (MSVCRT.@)
2548 */
2549 #ifdef _WIN64
2550 int CDECL _wutime(const MSVCRT_wchar_t* path, struct MSVCRT___utimbuf64 *t)
2551 {
2552 return _wutime64( path, t );
2553 }
2554 #else
2555 int CDECL _wutime(const MSVCRT_wchar_t* path, struct MSVCRT___utimbuf32 *t)
2556 {
2557 return _wutime32( path, t );
2558 }
2559 #endif
2560
2561 /*********************************************************************
2562 * _write (MSVCRT.@)
2563 */
2564 int CDECL MSVCRT__write(int fd, const void* buf, unsigned int count)
2565 {
2566 DWORD num_written;
2567 HANDLE hand = msvcrt_fdtoh(fd);
2568
2569 /* Don't trace small writes, it gets *very* annoying */
2570 #if 0
2571 if (count > 32)
2572 TRACE(":fd (%d) handle (%d) buf (%p) len (%d)\n",fd,hand,buf,count);
2573 #endif
2574 if (hand == INVALID_HANDLE_VALUE)
2575 {
2576 *MSVCRT__errno() = MSVCRT_EBADF;
2577 return -1;
2578 }
2579
2580 /* If appending, go to EOF */
2581 if (msvcrt_get_ioinfo(fd)->wxflag & WX_APPEND)
2582 MSVCRT__lseek(fd, 0, FILE_END);
2583
2584 if (!(msvcrt_get_ioinfo(fd)->wxflag & WX_TEXT))
2585 {
2586 if (WriteFile(hand, buf, count, &num_written, NULL)
2587 && (num_written == count))
2588 return num_written;
2589 TRACE("WriteFile (fd %d, hand %p) failed-last error (%d)\n", fd,
2590 hand, GetLastError());
2591 *MSVCRT__errno() = MSVCRT_ENOSPC;
2592 }
2593 else
2594 {
2595 unsigned int i, j, nr_lf;
2596 char *p = NULL;
2597 const char *q;
2598 const char *s = buf, *buf_start = buf;
2599 /* find number of \n ( without preceding \r ) */
2600 for ( nr_lf=0,i = 0; i <count; i++)
2601 {
2602 if (s[i]== '\n')
2603 {
2604 nr_lf++;
2605 /*if ((i >1) && (s[i-1] == '\r')) nr_lf--; */
2606 }
2607 }
2608 if (nr_lf)
2609 {
2610 if ((q = p = MSVCRT_malloc(count + nr_lf)))
2611 {
2612 for (s = buf, i = 0, j = 0; i < count; i++)
2613 {
2614 if (s[i]== '\n')
2615 {
2616 p[j++] = '\r';
2617 /*if ((i >1) && (s[i-1] == '\r'))j--;*/
2618 }
2619 p[j++] = s[i];
2620 }
2621 }
2622 else
2623 {
2624 FIXME("Malloc failed\n");
2625 nr_lf =0;
2626 q = buf;
2627 }
2628 }
2629 else
2630 q = buf;
2631
2632 if ((WriteFile(hand, q, count+nr_lf, &num_written, NULL) == 0 ) || (num_written != count+nr_lf))
2633 {
2634 TRACE("WriteFile (fd %d, hand %p) failed-last error (%d), num_written %d\n",
2635 fd, hand, GetLastError(), num_written);
2636 *MSVCRT__errno() = MSVCRT_ENOSPC;
2637 if(nr_lf)
2638 MSVCRT_free(p);
2639 return s - buf_start;
2640 }
2641 else
2642 {
2643 if(nr_lf)
2644 MSVCRT_free(p);
2645 return count;
2646 }
2647 }
2648 return -1;
2649 }
2650
2651 /*********************************************************************
2652 * _putw (MSVCRT.@)
2653 */
2654 int CDECL MSVCRT__putw(int val, MSVCRT_FILE* file)
2655 {
2656 int len;
2657
2658 MSVCRT__lock_file(file);
2659 len = MSVCRT__write(file->_file, &val, sizeof(val));
2660 if (len == sizeof(val)) {
2661 MSVCRT__unlock_file(file);
2662 return val;
2663 }
2664
2665 file->_flag |= MSVCRT__IOERR;
2666 MSVCRT__unlock_file(file);
2667 return MSVCRT_EOF;
2668 }
2669
2670 /*********************************************************************
2671 * fclose (MSVCRT.@)
2672 */
2673 int CDECL MSVCRT_fclose(MSVCRT_FILE* file)
2674 {
2675 int r, flag;
2676
2677 MSVCRT__lock_file(file);
2678 flag = file->_flag;
2679 MSVCRT_free(file->_tmpfname);
2680 file->_tmpfname = NULL;
2681 /* flush stdio buffers */
2682 if(file->_flag & MSVCRT__IOWRT)
2683 MSVCRT_fflush(file);
2684 if(file->_flag & MSVCRT__IOMYBUF)
2685 MSVCRT_free(file->_base);
2686
2687 r=MSVCRT__close(file->_file);
2688
2689 file->_flag = 0;
2690 MSVCRT__unlock_file(file);
2691
2692 return ((r == -1) || (flag & MSVCRT__IOERR) ? MSVCRT_EOF : 0);
2693 }
2694
2695 /*********************************************************************
2696 * feof (MSVCRT.@)
2697 */
2698 int CDECL MSVCRT_feof(MSVCRT_FILE* file)
2699 {
2700 return file->_flag & MSVCRT__IOEOF;
2701 }
2702
2703 /*********************************************************************
2704 * ferror (MSVCRT.@)
2705 */
2706 int CDECL MSVCRT_ferror(MSVCRT_FILE* file)
2707 {
2708 return file->_flag & MSVCRT__IOERR;
2709 }
2710
2711 /*********************************************************************
2712 * _filbuf (MSVCRT.@)
2713 */
2714 int CDECL MSVCRT__filbuf(MSVCRT_FILE* file)
2715 {
2716 unsigned char c;
2717 MSVCRT__lock_file(file);
2718
2719 /* Allocate buffer if needed */
2720 if(file->_bufsiz == 0 && !(file->_flag & MSVCRT__IONBF))
2721 msvcrt_alloc_buffer(file);
2722
2723 if(!(file->_flag & MSVCRT__IOREAD)) {
2724 if(file->_flag & MSVCRT__IORW)
2725 file->_flag |= MSVCRT__IOREAD;
2726 else {
2727 MSVCRT__unlock_file(file);
2728 return MSVCRT_EOF;
2729 }
2730 }
2731
2732 if(file->_flag & MSVCRT__IONBF) {
2733 int r;
2734 if ((r = read_i(file->_file,&c,1)) != 1) {
2735 file->_flag |= (r == 0) ? MSVCRT__IOEOF : MSVCRT__IOERR;
2736 MSVCRT__unlock_file(file);
2737 return MSVCRT_EOF;
2738 }
2739
2740 MSVCRT__unlock_file(file);
2741 return c;
2742 } else {
2743 file->_cnt = read_i(file->_file, file->_base, file->_bufsiz);
2744 if(file->_cnt<=0) {
2745 file->_flag |= (file->_cnt == 0) ? MSVCRT__IOEOF : MSVCRT__IOERR;
2746 file->_cnt = 0;
2747 MSVCRT__unlock_file(file);
2748 return MSVCRT_EOF;
2749 }
2750
2751 file->_cnt--;
2752 file->_ptr = file->_base+1;
2753 c = *(unsigned char *)file->_base;
2754 MSVCRT__unlock_file(file);
2755 return c;
2756 }
2757 }
2758
2759 /*********************************************************************
2760 * fgetc (MSVCRT.@)
2761 */
2762 int CDECL MSVCRT_fgetc(MSVCRT_FILE* file)
2763 {
2764 unsigned char *i;
2765 unsigned int j;
2766
2767 MSVCRT__lock_file(file);
2768 if (file->_cnt>0) {
2769 file->_cnt--;
2770 i = (unsigned char *)file->_ptr++;
2771 j = *i;
2772 } else
2773 j = MSVCRT__filbuf(file);
2774
2775 MSVCRT__unlock_file(file);
2776 return j;
2777 }
2778
2779 /*********************************************************************
2780 * _fgetchar (MSVCRT.@)
2781 */
2782 int CDECL MSVCRT__fgetchar(void)
2783 {
2784 return MSVCRT_fgetc(MSVCRT_stdin);
2785 }
2786
2787 /*********************************************************************
2788 * fgets (MSVCRT.@)
2789 */
2790 char * CDECL MSVCRT_fgets(char *s, int size, MSVCRT_FILE* file)
2791 {
2792 int cc = MSVCRT_EOF;
2793 char * buf_start = s;
2794
2795 TRACE(":file(%p) fd (%d) str (%p) len (%d)\n",
2796 file,file->_file,s,size);
2797
2798 MSVCRT__lock_file(file);
2799
2800 while ((size >1) && (cc = MSVCRT_fgetc(file)) != MSVCRT_EOF && cc != '\n')
2801 {
2802 *s++ = (char)cc;
2803 size --;
2804 }
2805 if ((cc == MSVCRT_EOF) && (s == buf_start)) /* If nothing read, return 0*/
2806 {
2807 TRACE(":nothing read\n");
2808 MSVCRT__unlock_file(file);
2809 return NULL;
2810 }
2811 if ((cc != MSVCRT_EOF) && (size > 1))
2812 *s++ = cc;
2813 *s = '\0';
2814 TRACE(":got %s\n", debugstr_a(buf_start));
2815 MSVCRT__unlock_file(file);
2816 return buf_start;
2817 }
2818
2819 /*********************************************************************
2820 * fgetwc (MSVCRT.@)
2821 *
2822 * In MSVCRT__O_TEXT mode, multibyte characters are read from the file, dropping
2823 * the CR from CR/LF combinations
2824 */
2825 MSVCRT_wint_t CDECL MSVCRT_fgetwc(MSVCRT_FILE* file)
2826 {
2827 int c;
2828
2829 MSVCRT__lock_file(file);
2830 if (!(msvcrt_get_ioinfo(file->_file)->wxflag & WX_TEXT))
2831 {
2832 MSVCRT_wchar_t wc;
2833 unsigned int i;
2834 int j;
2835 char *chp, *wcp;
2836 wcp = (char *)&wc;
2837 for(i=0; i<sizeof(wc); i++)
2838 {
2839 if (file->_cnt>0)
2840 {
2841 file->_cnt--;
2842 chp = file->_ptr++;
2843 wcp[i] = *chp;
2844 }
2845 else
2846 {
2847 j = MSVCRT__filbuf(file);
2848 if(file->_cnt<=0)
2849 {
2850 file->_flag |= (file->_cnt == 0) ? MSVCRT__IOEOF : MSVCRT__IOERR;
2851 file->_cnt = 0;
2852
2853 MSVCRT__unlock_file(file);
2854 return MSVCRT_WEOF;
2855 }
2856 wcp[i] = j;
2857 }
2858 }
2859
2860 MSVCRT__unlock_file(file);
2861 return wc;
2862 }
2863
2864 c = MSVCRT_fgetc(file);
2865 if ((get_locinfo()->mb_cur_max > 1) && MSVCRT_isleadbyte(c))
2866 {
2867 FIXME("Treat Multibyte characters\n");
2868 }
2869
2870 MSVCRT__unlock_file(file);
2871 if (c == MSVCRT_EOF)
2872 return MSVCRT_WEOF;
2873 else
2874 return (MSVCRT_wint_t)c;
2875 }
2876
2877 /*********************************************************************
2878 * _getw (MSVCRT.@)
2879 */
2880 int CDECL MSVCRT__getw(MSVCRT_FILE* file)
2881 {
2882 char *ch;
2883 int i, k;
2884 unsigned int j;
2885 ch = (char *)&i;
2886
2887 MSVCRT__lock_file(file);
2888 for (j=0; j<sizeof(int); j++) {
2889 k = MSVCRT_fgetc(file);
2890 if (k == MSVCRT_EOF) {
2891 file->_flag |= MSVCRT__IOEOF;
2892 MSVCRT__unlock_file(file);
2893 return EOF;
2894 }
2895 ch[j] = k;
2896 }
2897
2898 MSVCRT__unlock_file(file);
2899 return i;
2900 }
2901
2902 /*********************************************************************
2903 * getwc (MSVCRT.@)
2904 */
2905 MSVCRT_wint_t CDECL MSVCRT_getwc(MSVCRT_FILE* file)
2906 {
2907 return MSVCRT_fgetwc(file);
2908 }
2909
2910 /*********************************************************************
2911 * _fgetwchar (MSVCRT.@)
2912 */
2913 MSVCRT_wint_t CDECL MSVCRT__fgetwchar(void)
2914 {
2915 return MSVCRT_fgetwc(MSVCRT_stdin);
2916 }
2917
2918 /*********************************************************************
2919 * getwchar (MSVCRT.@)
2920 */
2921 MSVCRT_wint_t CDECL MSVCRT_getwchar(void)
2922 {
2923 return MSVCRT__fgetwchar();
2924 }
2925
2926 /*********************************************************************
2927 * fgetws (MSVCRT.@)
2928 */
2929 MSVCRT_wchar_t * CDECL MSVCRT_fgetws(MSVCRT_wchar_t *s, int size, MSVCRT_FILE* file)
2930 {
2931 int cc = MSVCRT_WEOF;
2932 MSVCRT_wchar_t * buf_start = s;
2933
2934 TRACE(":file(%p) fd (%d) str (%p) len (%d)\n",
2935 file,file->_file,s,size);
2936
2937 MSVCRT__lock_file(file);
2938
2939 while ((size >1) && (cc = MSVCRT_fgetwc(file)) != MSVCRT_WEOF && cc != '\n')
2940 {
2941 *s++ = (char)cc;
2942 size --;
2943 }
2944 if ((cc == MSVCRT_WEOF) && (s == buf_start)) /* If nothing read, return 0*/
2945 {
2946 TRACE(":nothing read\n");
2947 MSVCRT__unlock_file(file);
2948 return NULL;
2949 }
2950 if ((cc != MSVCRT_WEOF) && (size > 1))
2951 *s++ = cc;
2952 *s = 0;
2953 TRACE(":got %s\n", debugstr_w(buf_start));
2954 MSVCRT__unlock_file(file);
2955 return buf_start;
2956 }
2957
2958 /*********************************************************************
2959 * fwrite (MSVCRT.@)
2960 */
2961 MSVCRT_size_t CDECL MSVCRT_fwrite(const void *ptr, MSVCRT_size_t size, MSVCRT_size_t nmemb, MSVCRT_FILE* file)
2962 {
2963 MSVCRT_size_t wrcnt=size * nmemb;
2964 int written = 0;
2965 if (size == 0)
2966 return 0;
2967
2968 MSVCRT__lock_file(file);
2969 if(file->_cnt) {
2970 int pcnt=(file->_cnt>wrcnt)? wrcnt: file->_cnt;
2971 memcpy(file->_ptr, ptr, pcnt);
2972 file->_cnt -= pcnt;
2973 file->_ptr += pcnt;
2974 written = pcnt;
2975 wrcnt -= pcnt;
2976 ptr = (const char*)ptr + pcnt;
2977 } else if(!(file->_flag & MSVCRT__IOWRT)) {
2978 if(file->_flag & MSVCRT__IORW) {
2979 file->_flag |= MSVCRT__IOWRT;
2980 } else {
2981 MSVCRT__unlock_file(file);
2982 return 0;
2983 }
2984 }
2985 if(wrcnt) {
2986 int res;
2987
2988 if(file->_bufsiz == 0 && !(file->_flag & MSVCRT__IONBF))
2989 msvcrt_alloc_buffer(file);
2990
2991 /* Flush buffer */
2992 res=msvcrt_flush_buffer(file);
2993 if(!res) {
2994 int pwritten = MSVCRT__write(file->_file, ptr, wrcnt);
2995 if (pwritten <= 0)
2996 {
2997 file->_flag |= MSVCRT__IOERR;
2998 pwritten=0;
2999 }
3000 written += pwritten;
3001 }
3002 }
3003
3004 MSVCRT__unlock_file(file);
3005 return written / size;
3006 }
3007
3008 /*********************************************************************
3009 * fputwc (MSVCRT.@)
3010 */
3011 MSVCRT_wint_t CDECL MSVCRT_fputwc(MSVCRT_wint_t wc, MSVCRT_FILE* file)
3012 {
3013 MSVCRT_wchar_t mwc=wc;
3014 if (MSVCRT_fwrite( &mwc, sizeof(mwc), 1, file) != 1)
3015 return MSVCRT_WEOF;
3016 return wc;
3017 }
3018
3019 /*********************************************************************
3020 * _fputwchar (MSVCRT.@)
3021 */
3022 MSVCRT_wint_t CDECL MSVCRT__fputwchar(MSVCRT_wint_t wc)
3023 {
3024 return MSVCRT_fputwc(wc, MSVCRT_stdout);
3025 }
3026
3027 /*********************************************************************
3028 * _wfsopen (MSVCRT.@)
3029 */
3030 MSVCRT_FILE * CDECL MSVCRT__wfsopen(const MSVCRT_wchar_t *path, const MSVCRT_wchar_t *mode, int share)
3031 {
3032 MSVCRT_FILE* file;
3033 int open_flags, stream_flags, fd;
3034
3035 TRACE("(%s,%s)\n", debugstr_w(path), debugstr_w(mode));
3036
3037 /* map mode string to open() flags. "man fopen" for possibilities. */
3038 if (msvcrt_get_flags(mode, &open_flags, &stream_flags) == -1)
3039 return NULL;
3040
3041 LOCK_FILES();
3042 fd = MSVCRT__wsopen(path, open_flags, share, MSVCRT__S_IREAD | MSVCRT__S_IWRITE);
3043 if (fd < 0)
3044 file = NULL;
3045 else if ((file = msvcrt_alloc_fp()) && msvcrt_init_fp(file, fd, stream_flags)
3046 != -1)
3047 TRACE(":fd (%d) mode (%s) FILE* (%p)\n", fd, debugstr_w(mode), file);
3048 else if (file)
3049 {
3050 file->_flag = 0;
3051 file = NULL;
3052 }
3053
3054 TRACE(":got (%p)\n",file);
3055 if (fd >= 0 && !file)
3056 MSVCRT__close(fd);
3057 UNLOCK_FILES();
3058 return file;
3059 }
3060
3061 /*********************************************************************
3062 * _fsopen (MSVCRT.@)
3063 */
3064 MSVCRT_FILE * CDECL MSVCRT__fsopen(const char *path, const char *mode, int share)
3065 {
3066 MSVCRT_FILE *ret;
3067 MSVCRT_wchar_t *pathW = NULL, *modeW = NULL;
3068
3069 if (path && !(pathW = msvcrt_wstrdupa(path))) {
3070 MSVCRT__invalid_parameter(NULL, NULL, NULL, 0, 0);
3071 *MSVCRT__errno() = MSVCRT_EINVAL;
3072 return NULL;
3073 }
3074 if (mode && !(modeW = msvcrt_wstrdupa(mode)))
3075 {
3076 MSVCRT_free(pathW);
3077 MSVCRT__invalid_parameter(NULL, NULL, NULL, 0, 0);
3078 *MSVCRT__errno() = MSVCRT_EINVAL;
3079 return NULL;
3080 }
3081
3082 ret = MSVCRT__wfsopen(pathW, modeW, share);
3083
3084 MSVCRT_free(pathW);
3085 MSVCRT_free(modeW);
3086 return ret;
3087 }
3088
3089 /*********************************************************************
3090 * fopen (MSVCRT.@)
3091 */
3092 MSVCRT_FILE * CDECL MSVCRT_fopen(const char *path, const char *mode)
3093 {
3094 return MSVCRT__fsopen( path, mode, MSVCRT__SH_DENYNO );
3095 }
3096
3097 /*********************************************************************
3098 * fopen_s (MSVCRT.@)
3099 */
3100 int CDECL MSVCRT_fopen_s(MSVCRT_FILE** pFile,
3101 const char *filename, const char *mode)
3102 {
3103 if (!MSVCRT_CHECK_PMT(pFile != NULL)) return MSVCRT_EINVAL;
3104 if (!MSVCRT_CHECK_PMT(filename != NULL)) return MSVCRT_EINVAL;
3105 if (!MSVCRT_CHECK_PMT(mode != NULL)) return MSVCRT_EINVAL;
3106
3107 *pFile = MSVCRT_fopen(filename, mode);
3108
3109 if(!*pFile)
3110 return *MSVCRT__errno();
3111 return 0;
3112 }
3113
3114 /*********************************************************************
3115 * _wfopen (MSVCRT.@)
3116 */
3117 MSVCRT_FILE * CDECL MSVCRT__wfopen(const MSVCRT_wchar_t *path, const MSVCRT_wchar_t *mode)
3118 {
3119 return MSVCRT__wfsopen( path, mode, MSVCRT__SH_DENYNO );
3120 }
3121
3122 /*********************************************************************
3123 * _wfopen_s (MSVCRT.@)
3124 */
3125 int CDECL MSVCRT__wfopen_s(MSVCRT_FILE** pFile, const MSVCRT_wchar_t *filename,
3126 const MSVCRT_wchar_t *mode)
3127 {
3128 if (!MSVCRT_CHECK_PMT(pFile != NULL)) return MSVCRT_EINVAL;
3129 if (!MSVCRT_CHECK_PMT(filename != NULL)) return MSVCRT_EINVAL;
3130 if (!MSVCRT_CHECK_PMT(mode != NULL)) return MSVCRT_EINVAL;
3131
3132 *pFile = MSVCRT__wfopen(filename, mode);
3133
3134 if(!*pFile)
3135 return *MSVCRT__errno();
3136 return 0;
3137 }
3138
3139 /*********************************************************************
3140 * _flsbuf (MSVCRT.@)
3141 */
3142 int CDECL MSVCRT__flsbuf(int c, MSVCRT_FILE* file)
3143 {
3144 /* Flush output buffer */
3145 if(file->_bufsiz == 0 && !(file->_flag & MSVCRT__IONBF)) {
3146 msvcrt_alloc_buffer(file);
3147 }
3148 if(!(file->_flag & MSVCRT__IOWRT)) {
3149 if(file->_flag & MSVCRT__IORW)
3150 file->_flag |= MSVCRT__IOWRT;
3151 else
3152 return MSVCRT_EOF;
3153 }
3154 if(file->_bufsiz) {
3155 int res = 0;
3156
3157 if(file->_cnt <= 0)
3158 res = msvcrt_flush_buffer(file);
3159 if(!res) {
3160 *file->_ptr++ = c;
3161 file->_cnt--;
3162 res = msvcrt_flush_buffer(file);
3163 }
3164
3165 return res ? res : c&0xff;
3166 } else {
3167 unsigned char cc=c;
3168 int len;
3169 /* set _cnt to 0 for unbuffered FILEs */
3170 file->_cnt = 0;
3171 len = MSVCRT__write(file->_file, &cc, 1);
3172 if (len == 1)
3173 return c & 0xff;
3174 file->_flag |= MSVCRT__IOERR;
3175 return MSVCRT_EOF;
3176 }
3177 }
3178
3179 /*********************************************************************
3180 * fputc (MSVCRT.@)
3181 */
3182 int CDECL MSVCRT_fputc(int c, MSVCRT_FILE* file)
3183 {
3184 int res;
3185
3186 MSVCRT__lock_file(file);
3187 if(file->_cnt>0) {
3188 *file->_ptr++=c;
3189 file->_cnt--;
3190 if (c == '\n')
3191 {
3192 res = msvcrt_flush_buffer(file);
3193 MSVCRT__unlock_file(file);
3194 return res ? res : c;
3195 }
3196 else {
3197 MSVCRT__unlock_file(file);
3198 return c & 0xff;
3199 }
3200 } else {
3201 res = MSVCRT__flsbuf(c, file);
3202 MSVCRT__unlock_file(file);
3203 return res;
3204 }
3205 }
3206
3207 /*********************************************************************
3208 * _fputchar (MSVCRT.@)
3209 */
3210 int CDECL MSVCRT__fputchar(int c)
3211 {
3212 return MSVCRT_fputc(c, MSVCRT_stdout);
3213 }
3214
3215 /*********************************************************************
3216 * fread (MSVCRT.@)
3217 */
3218 MSVCRT_size_t CDECL MSVCRT_fread(void *ptr, MSVCRT_size_t size, MSVCRT_size_t nmemb, MSVCRT_FILE* file)
3219 {
3220 MSVCRT_size_t rcnt=size * nmemb;
3221 MSVCRT_size_t read=0;
3222 int pread=0;
3223
3224 if(!rcnt)
3225 return 0;
3226
3227 MSVCRT__lock_file(file);
3228
3229 /* first buffered data */
3230 if(file->_cnt>0) {
3231 int pcnt= (rcnt>file->_cnt)? file->_cnt:rcnt;
3232 memcpy(ptr, file->_ptr, pcnt);
3233 file->_cnt -= pcnt;
3234 file->_ptr += pcnt;
3235 read += pcnt ;
3236 rcnt -= pcnt ;
3237 ptr = (char*)ptr + pcnt;
3238 } else if(!(file->_flag & MSVCRT__IOREAD )) {
3239 if(file->_flag & MSVCRT__IORW) {
3240 file->_flag |= MSVCRT__IOREAD;
3241 } else {
3242 MSVCRT__unlock_file(file);
3243 return 0;
3244 }
3245 }
3246 while(rcnt>0)
3247 {
3248 int i;
3249 /* Fill the buffer on small reads.
3250 * TODO: Use a better buffering strategy.
3251 */
3252 if (!file->_cnt && size*nmemb <= MSVCRT_BUFSIZ/2 && !(file->_flag & MSVCRT__IONBF)) {
3253 if (file->_bufsiz == 0) {
3254 msvcrt_alloc_buffer(file);
3255 }
3256 file->_cnt = MSVCRT__read(file->_file, file->_base, file->_bufsiz);
3257 file->_ptr = file->_base;
3258 i = (file->_cnt<rcnt) ? file->_cnt : rcnt;
3259 /* If the buffer fill reaches eof but fread wouldn't, clear eof. */
3260 if (i > 0 && i < file->_cnt) {
3261 msvcrt_get_ioinfo(file->_file)->wxflag &= ~WX_ATEOF;
3262 file->_flag &= ~MSVCRT__IOEOF;
3263 }
3264 if (i > 0) {
3265 memcpy(ptr, file->_ptr, i);
3266 file->_cnt -= i;
3267 file->_ptr += i;
3268 }
3269 } else {
3270 i = MSVCRT__read(file->_file,ptr, rcnt);
3271 }
3272 pread += i;
3273 rcnt -= i;
3274 ptr = (char *)ptr+i;
3275 /* expose feof condition in the flags
3276 * MFC tests file->_flag for feof, and doesn't call feof())
3277 */
3278 if (msvcrt_get_ioinfo(file->_file)->wxflag & WX_ATEOF)
3279 file->_flag |= MSVCRT__IOEOF;
3280 else if (i == -1)
3281 {
3282 file->_flag |= MSVCRT__IOERR;
3283 pread = 0;
3284 rcnt = 0;
3285 }
3286 if (i < 1) break;
3287 }
3288 read+=pread;
3289 MSVCRT__unlock_file(file);
3290 return read / size;
3291 }
3292
3293 /*********************************************************************
3294 * _wfreopen (MSVCRT.@)
3295 *
3296 */
3297 MSVCRT_FILE* CDECL MSVCRT__wfreopen(const MSVCRT_wchar_t *path, const MSVCRT_wchar_t *mode, MSVCRT_FILE* file)
3298 {
3299 int fd;
3300
3301 TRACE(":path (%s) mode (%s) file (%p) fd (%d)\n", debugstr_w(path), debugstr_w(mode), file, file->_file);
3302
3303 LOCK_FILES();
3304 if (!file || ((fd = file->_file) < 0) || fd > MSVCRT_fdend)
3305 file = NULL;
3306 else
3307 {
3308 MSVCRT_fclose(file);
3309 file = MSVCRT__wfsopen(path, mode, MSVCRT__SH_DENYNO);
3310 }
3311 UNLOCK_FILES();
3312 return file;
3313 }
3314
3315 /*********************************************************************
3316 * _wfreopen_s (MSVCRT.@)
3317 */
3318 int CDECL MSVCRT__wfreopen_s(MSVCRT_FILE** pFile,
3319 const MSVCRT_wchar_t *path, const MSVCRT_wchar_t *mode, MSVCRT_FILE* file)
3320 {
3321 if (!MSVCRT_CHECK_PMT(pFile != NULL)) return MSVCRT_EINVAL;
3322 if (!MSVCRT_CHECK_PMT(path != NULL)) return MSVCRT_EINVAL;
3323 if (!MSVCRT_CHECK_PMT(mode != NULL)) return MSVCRT_EINVAL;
3324 if (!MSVCRT_CHECK_PMT(file != NULL)) return MSVCRT_EINVAL;
3325
3326 *pFile = MSVCRT__wfreopen(path, mode, file);
3327
3328 if(!*pFile)
3329 return *MSVCRT__errno();
3330 return 0;
3331 }
3332
3333 /*********************************************************************
3334 * freopen (MSVCRT.@)
3335 *
3336 */
3337 MSVCRT_FILE* CDECL MSVCRT_freopen(const char *path, const char *mode, MSVCRT_FILE* file)
3338 {
3339 MSVCRT_FILE *ret;
3340 MSVCRT_wchar_t *pathW = NULL, *modeW = NULL;
3341
3342 if (path && !(pathW = msvcrt_wstrdupa(path))) return NULL;
3343 if (mode && !(modeW = msvcrt_wstrdupa(mode)))
3344 {
3345 MSVCRT_free(pathW);
3346 return NULL;
3347 }
3348
3349 ret = MSVCRT__wfreopen(pathW, modeW, file);
3350
3351 MSVCRT_free(pathW);
3352 MSVCRT_free(modeW);
3353 return ret;
3354 }
3355
3356 /*********************************************************************
3357 * freopen_s (MSVCRT.@)
3358 */
3359 int CDECL MSVCRT_freopen_s(MSVCRT_FILE** pFile,
3360 const char *path, const char *mode, MSVCRT_FILE* file)
3361 {
3362 if (!MSVCRT_CHECK_PMT(pFile != NULL)) return MSVCRT_EINVAL;
3363 if (!MSVCRT_CHECK_PMT(path != NULL)) return MSVCRT_EINVAL;
3364 if (!MSVCRT_CHECK_PMT(mode != NULL)) return MSVCRT_EINVAL;
3365 if (!MSVCRT_CHECK_PMT(file != NULL)) return MSVCRT_EINVAL;
3366
3367 *pFile = MSVCRT_freopen(path, mode, file);
3368
3369 if(!*pFile)
3370 return *MSVCRT__errno();
3371 return 0;
3372 }
3373
3374 /*********************************************************************
3375 * fsetpos (MSVCRT.@)
3376 */
3377 int CDECL MSVCRT_fsetpos(MSVCRT_FILE* file, MSVCRT_fpos_t *pos)
3378 {
3379 int ret;
3380
3381 MSVCRT__lock_file(file);
3382 /* Note that all this has been lifted 'as is' from fseek */
3383 if(file->_flag & MSVCRT__IOWRT)
3384 msvcrt_flush_buffer(file);
3385
3386 /* Discard buffered input */
3387 file->_cnt = 0;
3388 file->_ptr = file->_base;
3389
3390 /* Reset direction of i/o */
3391 if(file->_flag & MSVCRT__IORW) {
3392 file->_flag &= ~(MSVCRT__IOREAD|MSVCRT__IOWRT);
3393 }
3394
3395 ret = (MSVCRT__lseeki64(file->_file,*pos,SEEK_SET) == -1) ? -1 : 0;
3396 MSVCRT__unlock_file(file);
3397 return ret;
3398 }
3399
3400 /*********************************************************************
3401 * _ftelli64 (MSVCRT.@)
3402 */
3403 __int64 CDECL MSVCRT__ftelli64(MSVCRT_FILE* file)
3404 {
3405 /* TODO: just call fgetpos and return lower half of result */
3406 int off=0;
3407 __int64 pos;
3408
3409 MSVCRT__lock_file(file);
3410 pos = _telli64(file->_file);
3411 if(pos == -1) {
3412 MSVCRT__unlock_file(file);
3413 return -1;
3414 }
3415 if(file->_bufsiz) {
3416 if( file->_flag & MSVCRT__IOWRT ) {
3417 off = file->_ptr - file->_base;
3418 } else {
3419 off = -file->_cnt;
3420 if (msvcrt_get_ioinfo(file->_file)->wxflag & WX_TEXT) {
3421 /* Black magic correction for CR removal */
3422 int i;
3423 for (i=0; i<file->_cnt; i++) {
3424 if (file->_ptr[i] == '\n')
3425 off--;
3426 }
3427 /* Black magic when reading CR at buffer boundary*/
3428 if(msvcrt_get_ioinfo(file->_file)->wxflag & WX_READCR)
3429 off--;
3430 }
3431 }
3432 }
3433
3434 MSVCRT__unlock_file(file);
3435 return off + pos;
3436 }
3437
3438 /*********************************************************************
3439 * ftell (MSVCRT.@)
3440 */
3441 LONG CDECL MSVCRT_ftell(MSVCRT_FILE* file)
3442 {
3443 return MSVCRT__ftelli64(file);
3444 }
3445
3446 /*********************************************************************
3447 * fgetpos (MSVCRT.@)
3448 */
3449 int CDECL MSVCRT_fgetpos(MSVCRT_FILE* file, MSVCRT_fpos_t *pos)
3450 {
3451 int off=0;
3452
3453 MSVCRT__lock_file(file);
3454 *pos = MSVCRT__lseeki64(file->_file,0,SEEK_CUR);
3455 if(*pos == -1) {
3456 MSVCRT__unlock_file(file);
3457 return -1;
3458 }
3459 if(file->_bufsiz) {
3460 if( file->_flag & MSVCRT__IOWRT ) {
3461 off = file->_ptr - file->_base;
3462 } else {
3463 off = -file->_cnt;
3464 if (msvcrt_get_ioinfo(file->_file)->wxflag & WX_TEXT) {
3465 /* Black magic correction for CR removal */
3466 int i;
3467 for (i=0; i<file->_cnt; i++) {
3468 if (file->_ptr[i] == '\n')
3469 off--;
3470 }
3471 /* Black magic when reading CR at buffer boundary*/
3472 if(msvcrt_get_ioinfo(file->_file)->wxflag & WX_READCR)
3473 off--;
3474 }
3475 }
3476 }
3477 *pos += off;
3478 MSVCRT__unlock_file(file);
3479 return 0;
3480 }
3481
3482 /*********************************************************************
3483 * fputs (MSVCRT.@)
3484 */
3485 int CDECL MSVCRT_fputs(const char *s, MSVCRT_FILE* file)
3486 {
3487 MSVCRT_size_t len = strlen(s);
3488 int ret;
3489
3490 MSVCRT__lock_file(file);
3491 ret = MSVCRT_fwrite(s, sizeof(*s), len, file) == len ? 0 : MSVCRT_EOF;
3492 MSVCRT__unlock_file(file);
3493 return ret;
3494 }
3495
3496 /*********************************************************************
3497 * fputws (MSVCRT.@)
3498 */
3499 int CDECL MSVCRT_fputws(const MSVCRT_wchar_t *s, MSVCRT_FILE* file)
3500 {
3501 MSVCRT_size_t i, len = strlenW(s);
3502 int ret;
3503
3504 MSVCRT__lock_file(file);
3505 if (!(msvcrt_get_ioinfo(file->_file)->wxflag & WX_TEXT)) {
3506 ret = MSVCRT_fwrite(s,sizeof(*s),len,file) == len ? 0 : MSVCRT_EOF;
3507 MSVCRT__unlock_file(file);
3508 return ret;
3509 }
3510 for (i=0; i<len; i++) {
3511 if (((s[i] == '\n') && (MSVCRT_fputc('\r', file) == MSVCRT_EOF))
3512 || MSVCRT_fputwc(s[i], file) == MSVCRT_WEOF) {
3513 MSVCRT__unlock_file(file);
3514 return MSVCRT_WEOF;
3515 }
3516 }
3517
3518 MSVCRT__unlock_file(file);
3519 return 0;
3520 }
3521
3522 /*********************************************************************
3523 * getchar (MSVCRT.@)
3524 */
3525 int CDECL MSVCRT_getchar(void)
3526 {
3527 return MSVCRT_fgetc(MSVCRT_stdin);
3528 }
3529
3530 /*********************************************************************
3531 * getc (MSVCRT.@)
3532 */
3533 int CDECL MSVCRT_getc(MSVCRT_FILE* file)
3534 {
3535 return MSVCRT_fgetc(file);
3536 }
3537
3538 /*********************************************************************
3539 * gets (MSVCRT.@)
3540 */
3541 char * CDECL MSVCRT_gets(char *buf)
3542 {
3543 int cc;
3544 char * buf_start = buf;
3545
3546 MSVCRT__lock_file(MSVCRT_stdin);
3547 for(cc = MSVCRT_fgetc(MSVCRT_stdin); cc != MSVCRT_EOF && cc != '\n';
3548 cc = MSVCRT_fgetc(MSVCRT_stdin))
3549 if(cc != '\r') *buf++ = (char)cc;
3550
3551 *buf = '\0';
3552
3553 TRACE("got '%s'\n", buf_start);
3554 MSVCRT__unlock_file(MSVCRT_stdin);
3555 return buf_start;
3556 }
3557
3558 /*********************************************************************
3559 * _getws (MSVCRT.@)
3560 */
3561 MSVCRT_wchar_t* CDECL MSVCRT__getws(MSVCRT_wchar_t* buf)
3562 {
3563 MSVCRT_wint_t cc;
3564 MSVCRT_wchar_t* ws = buf;
3565
3566 MSVCRT__lock_file(MSVCRT_stdin);
3567 for (cc = MSVCRT_fgetwc(MSVCRT_stdin); cc != MSVCRT_WEOF && cc != '\n';
3568 cc = MSVCRT_fgetwc(MSVCRT_stdin))
3569 {
3570 if (cc != '\r')
3571 *buf++ = (MSVCRT_wchar_t)cc;
3572 }
3573 *buf = '\0';
3574
3575 TRACE("got %s\n", debugstr_w(ws));
3576 MSVCRT__unlock_file(MSVCRT_stdin);
3577 return ws;
3578 }
3579
3580 /*********************************************************************
3581 * putc (MSVCRT.@)
3582 */
3583 int CDECL MSVCRT_putc(int c, MSVCRT_FILE* file)
3584 {
3585 return MSVCRT_fputc(c, file);
3586 }
3587
3588 /*********************************************************************
3589 * putchar (MSVCRT.@)
3590 */
3591 int CDECL MSVCRT_putchar(int c)
3592 {
3593 return MSVCRT_fputc(c, MSVCRT_stdout);
3594 }
3595
3596 /*********************************************************************
3597 * _putwch (MSVCRT.@)
3598 */
3599 int CDECL MSVCRT__putwch(int c)
3600 {
3601 return MSVCRT_fputwc(c, MSVCRT_stdout);
3602 }
3603
3604 /*********************************************************************
3605 * puts (MSVCRT.@)
3606 */
3607 int CDECL MSVCRT_puts(const char *s)
3608 {
3609 MSVCRT_size_t len = strlen(s);
3610 int ret;
3611
3612 MSVCRT__lock_file(MSVCRT_stdout);
3613 if(MSVCRT_fwrite(s, sizeof(*s), len, MSVCRT_stdout) != len) {
3614 MSVCRT__unlock_file(MSVCRT_stdout);
3615 return MSVCRT_EOF;
3616 }
3617
3618 ret = MSVCRT_fwrite("\n",1,1,MSVCRT_stdout) == 1 ? 0 : MSVCRT_EOF;
3619 MSVCRT__unlock_file(MSVCRT_stdout);
3620 return ret;
3621 }
3622
3623 /*********************************************************************
3624 * _putws (MSVCRT.@)
3625 */
3626 int CDECL MSVCRT__putws(const MSVCRT_wchar_t *s)
3627 {
3628 static const MSVCRT_wchar_t nl = '\n';
3629 MSVCRT_size_t len = strlenW(s);
3630 int ret;
3631
3632 MSVCRT__lock_file(MSVCRT_stdout);
3633 if(MSVCRT_fwrite(s, sizeof(*s), len, MSVCRT_stdout) != len) {
3634 MSVCRT__unlock_file(MSVCRT_stdout);
3635 return MSVCRT_EOF;
3636 }
3637
3638 ret = MSVCRT_fwrite(&nl,sizeof(nl),1,MSVCRT_stdout) == 1 ? 0 : MSVCRT_EOF;
3639 MSVCRT__unlock_file(MSVCRT_stdout);
3640 return ret;
3641 }
3642
3643 /*********************************************************************
3644 * remove (MSVCRT.@)
3645 */
3646 int CDECL MSVCRT_remove(const char *path)
3647 {
3648 TRACE("(%s)\n",path);
3649 if (DeleteFileA(path))
3650 return 0;
3651 TRACE(":failed (%d)\n",GetLastError());
3652 msvcrt_set_errno(GetLastError());
3653 return -1;
3654 }
3655
3656 /*********************************************************************
3657 * _wremove (MSVCRT.@)
3658 */
3659 int CDECL MSVCRT__wremove(const MSVCRT_wchar_t *path)
3660 {
3661 TRACE("(%s)\n",debugstr_w(path));
3662 if (DeleteFileW(path))
3663 return 0;
3664 TRACE(":failed (%d)\n",GetLastError());
3665 msvcrt_set_errno(GetLastError());
3666 return -1;
3667 }
3668
3669 /*********************************************************************
3670 * rename (MSVCRT.@)
3671 */
3672 int CDECL MSVCRT_rename(const char *oldpath,const char *newpath)
3673 {
3674 TRACE(":from %s to %s\n",oldpath,newpath);
3675 if (MoveFileExA(oldpath, newpath, MOVEFILE_COPY_ALLOWED))
3676 return 0;
3677 TRACE(":failed (%d)\n",GetLastError());
3678 msvcrt_set_errno(GetLastError());
3679 return -1;
3680 }
3681
3682 /*********************************************************************
3683 * _wrename (MSVCRT.@)
3684 */
3685 int CDECL MSVCRT__wrename(const MSVCRT_wchar_t *oldpath,const MSVCRT_wchar_t *newpath)
3686 {
3687 TRACE(":from %s to %s\n",debugstr_w(oldpath),debugstr_w(newpath));
3688 if (MoveFileExW(oldpath, newpath, MOVEFILE_COPY_ALLOWED))
3689 return 0;
3690 TRACE(":failed (%d)\n",GetLastError());
3691 msvcrt_set_errno(GetLastError());
3692 return -1;
3693 }
3694
3695 /*********************************************************************
3696 * setvbuf (MSVCRT.@)
3697 */
3698 int CDECL MSVCRT_setvbuf(MSVCRT_FILE* file, char *buf, int mode, MSVCRT_size_t size)
3699 {
3700 MSVCRT__lock_file(file);
3701 if(file->_bufsiz) {
3702 MSVCRT_free(file->_base);
3703 file->_bufsiz = 0;
3704 file->_cnt = 0;
3705 }
3706 if(mode == MSVCRT__IOFBF) {
3707 file->_flag &= ~MSVCRT__IONBF;
3708 file->_base = file->_ptr = buf;
3709 if(buf) {
3710 file->_bufsiz = size;
3711 }
3712 } else {
3713 file->_flag |= MSVCRT__IONBF;
3714 }
3715 MSVCRT__unlock_file(file);
3716 return 0;
3717 }
3718
3719 /*********************************************************************
3720 * setbuf (MSVCRT.@)
3721 */
3722 void CDECL MSVCRT_setbuf(MSVCRT_FILE* file, char *buf)
3723 {
3724 MSVCRT_setvbuf(file, buf, buf ? MSVCRT__IOFBF : MSVCRT__IONBF, MSVCRT_BUFSIZ);
3725 }
3726
3727 /*********************************************************************
3728 * tmpnam (MSVCRT.@)
3729 */
3730 char * CDECL MSVCRT_tmpnam(char *s)
3731 {
3732 char tmpstr[16];
3733 char *p;
3734 int count, size;
3735
3736 if (!s) {
3737 thread_data_t *data = msvcrt_get_thread_data();
3738
3739 if(!data->tmpnam_buffer)
3740 data->tmpnam_buffer = MSVCRT_malloc(MAX_PATH);
3741
3742 s = data->tmpnam_buffer;
3743 }
3744
3745 msvcrt_int_to_base32(GetCurrentProcessId(), tmpstr);
3746 p = s + sprintf(s, "\\s%s.", tmpstr);
3747 for (count = 0; count < MSVCRT_TMP_MAX; count++)
3748 {
3749 size = msvcrt_int_to_base32(tmpnam_unique++, tmpstr);
3750 memcpy(p, tmpstr, size);
3751 p[size] = '\0';
3752 if (GetFileAttributesA(s) == INVALID_FILE_ATTRIBUTES &&
3753 GetLastError() == ERROR_FILE_NOT_FOUND)
3754 break;
3755 }
3756 return s;
3757 }
3758
3759 /*********************************************************************
3760 * _wtmpnam (MSVCRT.@)
3761 */
3762 MSVCRT_wchar_t * CDECL MSVCRT_wtmpnam(MSVCRT_wchar_t *s)
3763 {
3764 static const MSVCRT_wchar_t format[] = {'\\','s','%','s','.',0};
3765 MSVCRT_wchar_t tmpstr[16];
3766 MSVCRT_wchar_t *p;
3767 int count, size;
3768 if (!s) {
3769 thread_data_t *data = msvcrt_get_thread_data();
3770
3771 if(!data->wtmpnam_buffer)
3772 data->wtmpnam_buffer = MSVCRT_malloc(sizeof(MSVCRT_wchar_t[MAX_PATH]));
3773
3774 s = data->wtmpnam_buffer;
3775 }
3776
3777 msvcrt_int_to_base32_w(GetCurrentProcessId(), tmpstr);
3778 p = s + MSVCRT__snwprintf(s, MAX_PATH, format, tmpstr);
3779 for (count = 0; count < MSVCRT_TMP_MAX; count++)
3780 {
3781 size = msvcrt_int_to_base32_w(tmpnam_unique++, tmpstr);
3782 memcpy(p, tmpstr, size*sizeof(MSVCRT_wchar_t));
3783 p[size] = '\0';
3784 if (GetFileAttributesW(s) == INVALID_FILE_ATTRIBUTES &&
3785 GetLastError() == ERROR_FILE_NOT_FOUND)
3786 break;
3787 }
3788 return s;
3789 }
3790
3791 /*********************************************************************
3792 * tmpfile (MSVCRT.@)
3793 */
3794 MSVCRT_FILE* CDECL MSVCRT_tmpfile(void)
3795 {
3796 char *filename = MSVCRT_tmpnam(NULL);
3797 int fd;
3798 MSVCRT_FILE* file = NULL;
3799
3800 LOCK_FILES();
3801 fd = MSVCRT__open(filename, MSVCRT__O_CREAT | MSVCRT__O_BINARY | MSVCRT__O_RDWR | MSVCRT__O_TEMPORARY,
3802 MSVCRT__S_IREAD | MSVCRT__S_IWRITE);
3803 if (fd != -1 && (file = msvcrt_alloc_fp()))
3804 {
3805 if (msvcrt_init_fp(file, fd, MSVCRT__IORW) == -1)
3806 {
3807 file->_flag = 0;
3808 file = NULL;
3809 }
3810 else file->_tmpfname = MSVCRT__strdup(filename);
3811 }
3812
3813 if(fd != -1 && !file)
3814 MSVCRT__close(fd);
3815 UNLOCK_FILES();
3816 return file;
3817 }
3818
3819 /*********************************************************************
3820 * tmpfile_s (MSVCRT.@)
3821 */
3822 int CDECL MSVCRT_tmpfile_s(MSVCRT_FILE** file)
3823 {
3824 if (!MSVCRT_CHECK_PMT(file != NULL)) return MSVCRT_EINVAL;
3825
3826 *file = MSVCRT_tmpfile();
3827 return 0;
3828 }
3829
3830 static int puts_clbk_file_a(void *file, int len, const char *str)
3831 {
3832 return MSVCRT_fwrite(str, sizeof(char), len, file);
3833 }
3834
3835 static int puts_clbk_file_w(void *file, int len, const MSVCRT_wchar_t *str)
3836 {
3837 return MSVCRT_fwrite(str, sizeof(MSVCRT_wchar_t), len, file);
3838 }
3839
3840 /*********************************************************************
3841 * vfprintf (MSVCRT.@)
3842 */
3843 int CDECL MSVCRT_vfprintf(MSVCRT_FILE* file, const char *format, __ms_va_list valist)
3844 {
3845 int ret;
3846
3847 MSVCRT__lock_file(file);
3848 ret = pf_printf_a(puts_clbk_file_a, file, format, NULL, FALSE, FALSE, arg_clbk_valist, NULL, &valist);
3849 MSVCRT__unlock_file(file);
3850
3851 return ret;
3852 }
3853
3854 /*********************************************************************
3855 * vfprintf_s (MSVCRT.@)
3856 */
3857 int CDECL MSVCRT_vfprintf_s(MSVCRT_FILE* file, const char *format, __ms_va_list valist)
3858 {
3859 int ret;
3860
3861 if(!MSVCRT_CHECK_PMT(file != NULL)) return -1;
3862
3863 MSVCRT__lock_file(file);
3864 ret = pf_printf_a(puts_clbk_file_a, file, format, NULL, FALSE, TRUE, arg_clbk_valist, NULL, &valist);
3865 MSVCRT__unlock_file(file);
3866
3867 return ret;
3868 }
3869
3870 /*********************************************************************
3871 * vfwprintf (MSVCRT.@)
3872 */
3873 int CDECL MSVCRT_vfwprintf(MSVCRT_FILE* file, const MSVCRT_wchar_t *format, __ms_va_list valist)
3874 {
3875 int ret;
3876
3877 MSVCRT__lock_file(file);
3878 ret = pf_printf_w(puts_clbk_file_w, file, format, NULL, FALSE, FALSE, arg_clbk_valist, NULL, &valist);
3879 MSVCRT__unlock_file(file);
3880
3881 return ret;
3882 }
3883
3884 /*********************************************************************
3885 * vfwprintf_s (MSVCRT.@)
3886 */
3887 int CDECL MSVCRT_vfwprintf_s(MSVCRT_FILE* file, const MSVCRT_wchar_t *format, __ms_va_list valist)
3888 {
3889 int ret;
3890
3891 if (!MSVCRT_CHECK_PMT( file != NULL )) return -1;
3892
3893 MSVCRT__lock_file(file);
3894 ret = pf_printf_w(puts_clbk_file_w, file, format, NULL, FALSE, TRUE, arg_clbk_valist, NULL, &valist);
3895 MSVCRT__unlock_file(file);
3896
3897 return ret;
3898 }
3899
3900 /*********************************************************************
3901 * _vfwprintf_l (MSVCRT.@)
3902 */
3903 int CDECL MSVCRT__vfwprintf_l(MSVCRT_FILE* file, const MSVCRT_wchar_t *format,
3904 MSVCRT__locale_t locale, __ms_va_list valist)
3905 {
3906 int ret;
3907
3908 if (!MSVCRT_CHECK_PMT( file != NULL )) return -1;
3909
3910 MSVCRT__lock_file(file);
3911 ret = pf_printf_w(puts_clbk_file_w, file, format, locale, FALSE, FALSE, arg_clbk_valist, NULL, &valist);
3912 MSVCRT__unlock_file(file);
3913
3914 return ret;
3915 }
3916
3917 /*********************************************************************
3918 * vprintf (MSVCRT.@)
3919 */
3920 int CDECL MSVCRT_vprintf(const char *format, __ms_va_list valist)
3921 {
3922 return MSVCRT_vfprintf(MSVCRT_stdout,format,valist);
3923 }
3924
3925 /*********************************************************************
3926 * vprintf_s (MSVCRT.@)
3927 */
3928 int CDECL MSVCRT_vprintf_s(const char *format, __ms_va_list valist)
3929 {
3930 return MSVCRT_vfprintf_s(MSVCRT_stdout,format,valist);
3931 }
3932
3933 /*********************************************************************
3934 * vwprintf (MSVCRT.@)
3935 */
3936 int CDECL MSVCRT_vwprintf(const MSVCRT_wchar_t *format, __ms_va_list valist)
3937 {
3938 return MSVCRT_vfwprintf(MSVCRT_stdout,format,valist);
3939 }
3940
3941 /*********************************************************************
3942 * vwprintf_s (MSVCRT.@)
3943 */
3944 int CDECL MSVCRT_vwprintf_s(const MSVCRT_wchar_t *format, __ms_va_list valist)
3945 {
3946 return MSVCRT_vfwprintf_s(MSVCRT_stdout,format,valist);
3947 }
3948
3949 /*********************************************************************
3950 * fprintf (MSVCRT.@)
3951 */
3952 int CDECL MSVCRT_fprintf(MSVCRT_FILE* file, const char *format, ...)
3953 {
3954 __ms_va_list valist;
3955 int res;
3956 __ms_va_start(valist, format);
3957 res = MSVCRT_vfprintf(file, format, valist);
3958 __ms_va_end(valist);
3959 return res;
3960 }
3961
3962 /*********************************************************************
3963 * fprintf_s (MSVCRT.@)
3964 */
3965 int CDECL MSVCRT_fprintf_s(MSVCRT_FILE* file, const char *format, ...)
3966 {
3967 __ms_va_list valist;
3968 int res;
3969 __ms_va_start(valist, format);
3970 res = MSVCRT_vfprintf_s(file, format, valist);
3971 __ms_va_end(valist);
3972 return res;
3973 }
3974
3975 /*********************************************************************
3976 * fwprintf (MSVCRT.@)
3977 */
3978 int CDECL MSVCRT_fwprintf(MSVCRT_FILE* file, const MSVCRT_wchar_t *format, ...)
3979 {
3980 __ms_va_list valist;
3981 int res;
3982 __ms_va_start(valist, format);
3983 res = MSVCRT_vfwprintf(file, format, valist);
3984 __ms_va_end(valist);
3985 return res;
3986 }
3987
3988 /*********************************************************************
3989 * fwprintf_s (MSVCRT.@)
3990 */
3991 int CDECL MSVCRT_fwprintf_s(MSVCRT_FILE* file, const MSVCRT_wchar_t *format, ...)
3992 {
3993 __ms_va_list valist;
3994 int res;
3995 __ms_va_start(valist, format);
3996 res = MSVCRT_vfwprintf_s(file, format, valist);
3997 __ms_va_end(valist);
3998 return res;
3999 }
4000
4001 /*********************************************************************
4002 * _fwprintf_l (MSVCRT.@)
4003 */
4004 int CDECL MSVCRT__fwprintf_l(MSVCRT_FILE* file, const MSVCRT_wchar_t *format, MSVCRT__locale_t locale, ...)
4005 {
4006 __ms_va_list valist;
4007 int res;
4008 __ms_va_start(valist, locale);
4009 res = MSVCRT__vfwprintf_l(file, format, locale, valist);
4010 __ms_va_end(valist);
4011 return res;
4012 }
4013
4014 /*********************************************************************
4015 * printf (MSVCRT.@)
4016 */
4017 int CDECL MSVCRT_printf(const char *format, ...)
4018 {
4019 __ms_va_list valist;
4020 int res;
4021 __ms_va_start(valist, format);
4022 res = MSVCRT_vfprintf(MSVCRT_stdout, format, valist);
4023 __ms_va_end(valist);
4024 return res;
4025 }
4026
4027 /*********************************************************************
4028 * printf_s (MSVCRT.@)
4029 */
4030 int CDECL MSVCRT_printf_s(const char *format, ...)
4031 {
4032 __ms_va_list valist;
4033 int res;
4034 __ms_va_start(valist, format);
4035 res = MSVCRT_vprintf_s(format, valist);
4036 __ms_va_end(valist);
4037 return res;
4038 }
4039
4040 /*********************************************************************
4041 * ungetc (MSVCRT.@)
4042 */
4043 int CDECL MSVCRT_ungetc(int c, MSVCRT_FILE * file)
4044 {
4045 if (c == MSVCRT_EOF)
4046 return MSVCRT_EOF;
4047
4048 MSVCRT__lock_file(file);
4049 if(file->_bufsiz == 0) {
4050 msvcrt_alloc_buffer(file);
4051 file->_ptr++;
4052 }
4053 if(file->_ptr>file->_base) {
4054 file->_ptr--;
4055 *file->_ptr=c;
4056 file->_cnt++;
4057 MSVCRT_clearerr(file);
4058 MSVCRT__unlock_file(file);
4059 return c;
4060 }
4061
4062 MSVCRT__unlock_file(file);
4063 return MSVCRT_EOF;
4064 }
4065
4066 /*********************************************************************
4067 * ungetwc (MSVCRT.@)
4068 */
4069 MSVCRT_wint_t CDECL MSVCRT_ungetwc(MSVCRT_wint_t wc, MSVCRT_FILE * file)
4070 {
4071 MSVCRT_wchar_t mwc = wc;
4072 unsigned char * pp = (unsigned char *)&mwc;
4073 int i;
4074
4075 if (wc == MSVCRT_WEOF)
4076 return MSVCRT_WEOF;
4077
4078 MSVCRT__lock_file(file);
4079 for(i=sizeof(MSVCRT_wchar_t)-1;i>=0;i--) {
4080 if(pp[i] != MSVCRT_ungetc(pp[i],file)) {
4081 MSVCRT__unlock_file(file);
4082 return MSVCRT_WEOF;
4083 }
4084 }
4085
4086 MSVCRT__unlock_file(file);
4087 return mwc;
4088 }
4089
4090 /*********************************************************************
4091 * wprintf (MSVCRT.@)
4092 */
4093 int CDECL MSVCRT_wprintf(const MSVCRT_wchar_t *format, ...)
4094 {
4095 __ms_va_list valist;
4096 int res;
4097 __ms_va_start(valist, format);
4098 res = MSVCRT_vwprintf(format, valist);
4099 __ms_va_end(valist);
4100 return res;
4101 }
4102
4103 /*********************************************************************
4104 * wprintf_s (MSVCRT.@)
4105 */
4106 int CDECL MSVCRT_wprintf_s(const MSVCRT_wchar_t *format, ...)
4107 {
4108 __ms_va_list valist;
4109 int res;
4110 __ms_va_start(valist, format);
4111 res = MSVCRT_vwprintf_s(format, valist);
4112 __ms_va_end(valist);
4113 return res;
4114 }
4115
4116 /*********************************************************************
4117 * _getmaxstdio (MSVCRT.@)
4118 */
4119 int CDECL MSVCRT__getmaxstdio(void)
4120 {
4121 return MSVCRT_max_streams;
4122 }
4123
4124 /*********************************************************************
4125 * _setmaxstdio (MSVCRT.@)
4126 */
4127 int CDECL MSVCRT__setmaxstdio(int newmax)
4128 {
4129 TRACE("%d\n", newmax);
4130
4131 if(newmax<_IOB_ENTRIES || newmax>MSVCRT_MAX_FILES || newmax<MSVCRT_stream_idx)
4132 return -1;
4133
4134 MSVCRT_max_streams = newmax;
4135 return MSVCRT_max_streams;
4136 }
Maarten's multimedia branch