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