2 * msvcrt.dll dll data items
4 * Copyright 2000 Jon Griffiths
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
25 #include "wine/debug.h"
27 WINE_DEFAULT_DEBUG_CHANNEL(msvcrt
);
29 static WCHAR
**initial_wargv
;
30 static int initial_argc
;
31 int MSVCRT___argc
= 0;
32 static int wargc_expand
;
33 unsigned int MSVCRT__commode
= 0;
34 int MSVCRT__fmode
= 0;
35 unsigned int MSVCRT__osver
= 0;
36 unsigned int MSVCRT__osplatform
= 0;
37 unsigned int MSVCRT__winmajor
= 0;
38 unsigned int MSVCRT__winminor
= 0;
39 unsigned int MSVCRT__winver
= 0;
41 unsigned int CRTDLL__basemajor_dll
= 0;
42 unsigned int CRTDLL__baseminor_dll
= 0;
43 unsigned int CRTDLL__baseversion_dll
= 0;
44 unsigned int CRTDLL__cpumode_dll
= 1;
45 unsigned int CRTDLL__osmode_dll
= 1;
47 unsigned int MSVCRT___setlc_active
= 0;
48 unsigned int MSVCRT___unguarded_readlc_active
= 0;
49 double MSVCRT__HUGE
= 0;
50 char **MSVCRT___argv
= NULL
;
51 wchar_t **MSVCRT___wargv
= NULL
;
52 static wchar_t **wargv_expand
;
53 char *MSVCRT__acmdln
= NULL
;
54 wchar_t *MSVCRT__wcmdln
= NULL
;
55 char **MSVCRT__environ
= NULL
;
56 wchar_t **MSVCRT__wenviron
= NULL
;
57 char **MSVCRT___initenv
= NULL
;
58 wchar_t **MSVCRT___winitenv
= NULL
;
59 int MSVCRT_app_type
= 0;
60 char* MSVCRT__pgmptr
= NULL
;
61 WCHAR
* MSVCRT__wpgmptr
= NULL
;
63 static char **build_argv( WCHAR
**wargv
)
69 for (argc
= 0; wargv
[argc
]; argc
++)
70 total
+= WideCharToMultiByte( CP_ACP
, 0, wargv
[argc
], -1, NULL
, 0, NULL
, NULL
);
72 argv
= HeapAlloc( GetProcessHeap(), 0, total
+ (argc
+ 1) * sizeof(*argv
) );
73 p
= (char *)(argv
+ argc
+ 1);
74 for (argc
= 0; wargv
[argc
]; argc
++)
76 DWORD reslen
= WideCharToMultiByte( CP_ACP
, 0, wargv
[argc
], -1, p
, total
, NULL
, NULL
);
85 static WCHAR
**cmdline_to_argv( const WCHAR
*src
, int *ret_argc
)
87 WCHAR
**argv
, *arg
, *dst
;
88 int argc
, in_quotes
= 0, bcount
= 0, len
= wcslen(src
) + 1;
91 argv
= HeapAlloc( GetProcessHeap(), 0, argc
* sizeof(*argv
) + len
* sizeof(WCHAR
) );
92 arg
= dst
= (WCHAR
*)(argv
+ argc
);
96 if ((*src
== ' ' || *src
== '\t') && !in_quotes
)
98 /* skip the remaining spaces */
99 while (*src
== ' ' || *src
== '\t') src
++;
101 /* close the argument and copy it */
104 /* start with a new argument */
108 else if (*src
== '\\')
113 else if (*src
== '"')
115 if ((bcount
& 1) == 0)
117 /* Preceded by an even number of '\', this is half that
118 * number of '\', plus a '"' which we discard.
122 if (in_quotes
&& *src
== '"') *dst
++ = *src
++;
123 else in_quotes
= !in_quotes
;
127 /* Preceded by an odd number of '\', this is half that
128 * number of '\' followed by a '"'
130 dst
-= bcount
/ 2 + 1;
135 else /* a regular character */
148 typedef void (CDECL
*_INITTERMFUN
)(void);
149 typedef int (CDECL
*_INITTERM_E_FN
)(void);
151 /***********************************************************************
152 * __p___argc (MSVCRT.@)
154 int* CDECL
__p___argc(void) { return &MSVCRT___argc
; }
156 /***********************************************************************
157 * __p__commode (MSVCRT.@)
159 unsigned int* CDECL
__p__commode(void) { return &MSVCRT__commode
; }
162 /***********************************************************************
163 * __p__pgmptr (MSVCRT.@)
165 char** CDECL
__p__pgmptr(void) { return &MSVCRT__pgmptr
; }
167 /***********************************************************************
168 * __p__wpgmptr (MSVCRT.@)
170 WCHAR
** CDECL
__p__wpgmptr(void) { return &MSVCRT__wpgmptr
; }
172 /***********************************************************************
173 * _get_pgmptr (MSVCRT.@)
175 int CDECL
_get_pgmptr(char** p
)
177 if (!MSVCRT_CHECK_PMT(p
)) return EINVAL
;
183 /***********************************************************************
184 * _get_wpgmptr (MSVCRT.@)
186 int CDECL
_get_wpgmptr(WCHAR
** p
)
188 if (!MSVCRT_CHECK_PMT(p
)) return EINVAL
;
189 *p
= MSVCRT__wpgmptr
;
193 /***********************************************************************
194 * __p__fmode (MSVCRT.@)
196 int* CDECL
__p__fmode(void) { return &MSVCRT__fmode
; }
198 /***********************************************************************
199 * _set_fmode (MSVCRT.@)
201 int CDECL
_set_fmode(int mode
)
203 /* TODO: support _O_WTEXT */
204 if(!MSVCRT_CHECK_PMT(mode
==_O_TEXT
|| mode
==_O_BINARY
))
207 MSVCRT__fmode
= mode
;
211 /***********************************************************************
212 * _get_fmode (MSVCRT.@)
214 int CDECL
_get_fmode(int *mode
)
216 if(!MSVCRT_CHECK_PMT(mode
))
219 *mode
= MSVCRT__fmode
;
223 /***********************************************************************
224 * __p__osver (MSVCRT.@)
226 unsigned int* CDECL
__p__osver(void) { return &MSVCRT__osver
; }
228 /***********************************************************************
229 * __p__winmajor (MSVCRT.@)
231 unsigned int* CDECL
__p__winmajor(void) { return &MSVCRT__winmajor
; }
233 /***********************************************************************
234 * __p__winminor (MSVCRT.@)
236 unsigned int* CDECL
__p__winminor(void) { return &MSVCRT__winminor
; }
238 /***********************************************************************
239 * __p__winver (MSVCRT.@)
241 unsigned int* CDECL
__p__winver(void) { return &MSVCRT__winver
; }
243 /*********************************************************************
244 * __p__acmdln (MSVCRT.@)
246 char** CDECL
__p__acmdln(void) { return &MSVCRT__acmdln
; }
248 /*********************************************************************
249 * __p__wcmdln (MSVCRT.@)
251 wchar_t** CDECL
__p__wcmdln(void) { return &MSVCRT__wcmdln
; }
253 /*********************************************************************
254 * __p___argv (MSVCRT.@)
256 char*** CDECL
__p___argv(void) { return &MSVCRT___argv
; }
258 /*********************************************************************
259 * __p___wargv (MSVCRT.@)
261 wchar_t*** CDECL
__p___wargv(void) { return &MSVCRT___wargv
; }
263 /*********************************************************************
264 * __p__environ (MSVCRT.@)
266 char*** CDECL
__p__environ(void)
268 return &MSVCRT__environ
;
271 /*********************************************************************
272 * __p__wenviron (MSVCRT.@)
274 wchar_t*** CDECL
__p__wenviron(void)
276 return &MSVCRT__wenviron
;
279 /*********************************************************************
280 * __p___initenv (MSVCRT.@)
282 char*** CDECL
__p___initenv(void) { return &MSVCRT___initenv
; }
284 /*********************************************************************
285 * __p___winitenv (MSVCRT.@)
287 wchar_t*** CDECL
__p___winitenv(void) { return &MSVCRT___winitenv
; }
289 /*********************************************************************
290 * _get_osplatform (MSVCRT.@)
292 int CDECL
_get_osplatform(int *pValue
)
294 if (!MSVCRT_CHECK_PMT(pValue
!= NULL
)) return EINVAL
;
295 *pValue
= MSVCRT__osplatform
;
299 /* INTERNAL: Create a wide string from an ascii string */
300 wchar_t *msvcrt_wstrdupa(const char *str
)
302 const unsigned int len
= strlen(str
) + 1 ;
303 wchar_t *wstr
= malloc(len
* sizeof (wchar_t));
306 MultiByteToWideChar(CP_ACP
, MB_PRECOMPOSED
,str
,len
,wstr
,len
);
310 /*********************************************************************
311 * ___unguarded_readlc_active_add_func (MSVCRT.@)
313 unsigned int * CDECL
___unguarded_readlc_active_add_func(void)
315 return &MSVCRT___unguarded_readlc_active
;
318 /*********************************************************************
319 * ___setlc_active_func (MSVCRT.@)
321 unsigned int CDECL
___setlc_active_func(void)
323 return MSVCRT___setlc_active
;
326 /* INTERNAL: Since we can't rely on Winelib startup code calling w/getmainargs,
327 * we initialise data values during DLL loading. When called by a native
328 * program we simply return the data we've already initialised. This also means
329 * you can call multiple times without leaking
331 void msvcrt_init_args(void)
335 MSVCRT__acmdln
= _strdup( GetCommandLineA() );
336 MSVCRT__wcmdln
= _wcsdup( GetCommandLineW() );
337 initial_wargv
= cmdline_to_argv( GetCommandLineW(), &initial_argc
);
338 MSVCRT___argc
= initial_argc
;
339 MSVCRT___wargv
= initial_wargv
;
340 MSVCRT___argv
= build_argv( initial_wargv
);
342 TRACE("got %s, wide = %s argc=%d\n", debugstr_a(MSVCRT__acmdln
),
343 debugstr_w(MSVCRT__wcmdln
),MSVCRT___argc
);
345 osvi
.dwOSVersionInfoSize
= sizeof(OSVERSIONINFOW
);
346 GetVersionExW( &osvi
);
347 MSVCRT__winver
= (osvi
.dwMajorVersion
<< 8) | osvi
.dwMinorVersion
;
348 MSVCRT__winmajor
= osvi
.dwMajorVersion
;
349 MSVCRT__winminor
= osvi
.dwMinorVersion
;
350 MSVCRT__osver
= osvi
.dwBuildNumber
;
351 MSVCRT__osplatform
= osvi
.dwPlatformId
;
352 TRACE( "winver %08x winmajor %08x winminor %08x osver %08x\n",
353 MSVCRT__winver
, MSVCRT__winmajor
, MSVCRT__winminor
, MSVCRT__osver
);
355 CRTDLL__baseversion_dll
= (GetVersion() >> 16);
356 CRTDLL__basemajor_dll
= CRTDLL__baseversion_dll
>> 8;
357 CRTDLL__baseminor_dll
= CRTDLL__baseversion_dll
& 0xff;
360 MSVCRT__HUGE
= HUGE_VAL
;
361 MSVCRT___setlc_active
= 0;
362 MSVCRT___unguarded_readlc_active
= 0;
363 MSVCRT__fmode
= _O_TEXT
;
365 env_init(FALSE
, FALSE
);
367 MSVCRT__pgmptr
= HeapAlloc(GetProcessHeap(), 0, MAX_PATH
);
370 if (!GetModuleFileNameA(0, MSVCRT__pgmptr
, MAX_PATH
))
371 MSVCRT__pgmptr
[0] = '\0';
373 MSVCRT__pgmptr
[MAX_PATH
- 1] = '\0';
376 MSVCRT__wpgmptr
= HeapAlloc(GetProcessHeap(), 0, MAX_PATH
* sizeof(WCHAR
));
379 if (!GetModuleFileNameW(0, MSVCRT__wpgmptr
, MAX_PATH
))
380 MSVCRT__wpgmptr
[0] = '\0';
382 MSVCRT__wpgmptr
[MAX_PATH
- 1] = '\0';
386 /* INTERNAL: free memory used by args */
387 void msvcrt_free_args(void)
389 /* FIXME: more things to free */
390 HeapFree(GetProcessHeap(), 0, MSVCRT___argv
);
391 HeapFree(GetProcessHeap(), 0, MSVCRT__pgmptr
);
392 HeapFree(GetProcessHeap(), 0, MSVCRT__wpgmptr
);
393 HeapFree(GetProcessHeap(), 0, wargv_expand
);
396 static int build_expanded_wargv(int *argc
, wchar_t **argv
)
398 int i
, size
=0, args_no
=0, path_len
;
403 for(i
=0; i
< initial_argc
; i
++) {
404 WIN32_FIND_DATAW data
;
407 is_expandable
= FALSE
;
408 for(path_len
= wcslen(initial_wargv
[i
])-1; path_len
>=0; path_len
--) {
409 if(initial_wargv
[i
][path_len
]=='*' || initial_wargv
[i
][path_len
]=='?')
410 is_expandable
= TRUE
;
411 else if(initial_wargv
[i
][path_len
]=='\\' || initial_wargv
[i
][path_len
]=='/')
417 h
= FindFirstFileW(initial_wargv
[i
], &data
);
419 h
= INVALID_HANDLE_VALUE
;
421 if(h
!= INVALID_HANDLE_VALUE
) {
423 if(data
.cFileName
[0]=='.' && (data
.cFileName
[1]=='\0' ||
424 (data
.cFileName
[1]=='.' && data
.cFileName
[2]=='\0')))
427 len
= wcslen(data
.cFileName
)+1;
429 argv
[args_no
] = (wchar_t*)(argv
+*argc
+1)+size
;
430 memcpy(argv
[args_no
], initial_wargv
[i
], path_len
*sizeof(wchar_t));
431 memcpy(argv
[args_no
]+path_len
, data
.cFileName
, len
*sizeof(wchar_t));
434 size
+= len
+path_len
;
435 }while(FindNextFileW(h
, &data
));
440 len
= wcslen(initial_wargv
[i
])+1;
442 argv
[args_no
] = (wchar_t*)(argv
+*argc
+1)+size
;
443 memcpy(argv
[args_no
], initial_wargv
[i
], len
*sizeof(wchar_t));
451 argv
[args_no
] = NULL
;
452 size
*= sizeof(wchar_t);
453 size
+= (args_no
+1)*sizeof(wchar_t*);
458 /*********************************************************************
459 * __wgetmainargs (MSVCRT.@)
461 int CDECL
__wgetmainargs(int *argc
, wchar_t** *wargv
, wchar_t** *wenvp
,
462 int expand_wildcards
, int *new_mode
)
464 TRACE("(%p,%p,%p,%d,%p).\n", argc
, wargv
, wenvp
, expand_wildcards
, new_mode
);
466 if (expand_wildcards
) {
467 HeapFree(GetProcessHeap(), 0, wargv_expand
);
468 wargv_expand
= HeapAlloc(GetProcessHeap(), 0,
469 build_expanded_wargv(&wargc_expand
, NULL
));
471 build_expanded_wargv(&wargc_expand
, wargv_expand
);
473 MSVCRT___argc
= wargc_expand
;
474 MSVCRT___wargv
= wargv_expand
;
476 expand_wildcards
= 0;
479 if (!expand_wildcards
) {
480 MSVCRT___argc
= initial_argc
;
481 MSVCRT___wargv
= initial_wargv
;
484 env_init(TRUE
, FALSE
);
486 *argc
= MSVCRT___argc
;
487 *wargv
= MSVCRT___wargv
;
488 *wenvp
= MSVCRT__wenviron
;
490 _set_new_mode( *new_mode
);
494 /*********************************************************************
495 * __getmainargs (MSVCRT.@)
497 int CDECL
__getmainargs(int *argc
, char** *argv
, char** *envp
,
498 int expand_wildcards
, int *new_mode
)
500 TRACE("(%p,%p,%p,%d,%p).\n", argc
, argv
, envp
, expand_wildcards
, new_mode
);
502 if (expand_wildcards
) {
503 HeapFree(GetProcessHeap(), 0, wargv_expand
);
504 wargv_expand
= HeapAlloc(GetProcessHeap(), 0,
505 build_expanded_wargv(&wargc_expand
, NULL
));
507 build_expanded_wargv(&wargc_expand
, wargv_expand
);
509 MSVCRT___argc
= wargc_expand
;
510 MSVCRT___argv
= build_argv( wargv_expand
);
512 expand_wildcards
= 0;
515 if (!expand_wildcards
) {
516 MSVCRT___argc
= initial_argc
;
517 MSVCRT___argv
= build_argv( initial_wargv
);
520 *argc
= MSVCRT___argc
;
521 *argv
= MSVCRT___argv
;
522 *envp
= MSVCRT__environ
;
525 _set_new_mode( *new_mode
);
530 /*********************************************************************
531 * __GetMainArgs (CRTDLL.@)
533 void CDECL
__GetMainArgs( int *argc
, char ***argv
, char ***envp
, int expand_wildcards
)
536 __getmainargs( argc
, argv
, envp
, expand_wildcards
, &new_mode
);
540 /*********************************************************************
541 * _initterm (MSVCRT.@)
543 void CDECL
_initterm(_INITTERMFUN
*start
,_INITTERMFUN
*end
)
545 _INITTERMFUN
* current
= start
;
547 TRACE("(%p,%p)\n",start
,end
);
552 TRACE("Call init function %p\n",*current
);
560 /*********************************************************************
561 * _initterm_e (MSVCRT.@)
563 * call an array of application initialization functions and report the return value
565 int CDECL
_initterm_e(_INITTERM_E_FN
*table
, _INITTERM_E_FN
*end
)
569 TRACE("(%p, %p)\n", table
, end
);
571 while (!res
&& table
< end
) {
573 TRACE("calling %p\n", **table
);
576 TRACE("function %p failed: %#x\n", *table
, res
);
584 /*********************************************************************
585 * __set_app_type (MSVCRT.@)
587 void CDECL
__set_app_type(int app_type
)
589 TRACE("(%d) %s application\n", app_type
, app_type
== 2 ? "Gui" : "Console");
590 MSVCRT_app_type
= app_type
;
595 /*********************************************************************
596 * _configure_narrow_argv (UCRTBASE.@)
598 int CDECL
_configure_narrow_argv(int mode
)
600 TRACE("(%d)\n", mode
);
604 /*********************************************************************
605 * _initialize_narrow_environment (UCRTBASE.@)
607 int CDECL
_initialize_narrow_environment(void)
610 return env_init(FALSE
, FALSE
);
613 /*********************************************************************
614 * _get_initial_narrow_environment (UCRTBASE.@)
616 char** CDECL
_get_initial_narrow_environment(void)
619 _initialize_narrow_environment();
620 return MSVCRT___initenv
;
623 /*********************************************************************
624 * _configure_wide_argv (UCRTBASE.@)
626 int CDECL
_configure_wide_argv(int mode
)
628 WARN("(%d) stub\n", mode
);
632 /*********************************************************************
633 * _initialize_wide_environment (UCRTBASE.@)
635 int CDECL
_initialize_wide_environment(void)
638 return env_init(TRUE
, FALSE
);
641 /*********************************************************************
642 * _get_initial_wide_environment (UCRTBASE.@)
644 wchar_t** CDECL
_get_initial_wide_environment(void)
647 _initialize_wide_environment();
648 return MSVCRT___winitenv
;
651 /*********************************************************************
652 * _get_narrow_winmain_command_line (UCRTBASE.@)
654 char* CDECL
_get_narrow_winmain_command_line(void)
656 static char *narrow_command_line
;
659 if (narrow_command_line
)
660 return narrow_command_line
;
662 s
= GetCommandLineA();
663 while (*s
&& *s
!= ' ' && *s
!= '\t')
667 while (*s
&& *s
++ != '"')
672 while (*s
== ' ' || *s
== '\t')
675 return narrow_command_line
= s
;
678 /*********************************************************************
679 * _get_wide_winmain_command_line (UCRTBASE.@)
681 wchar_t* CDECL
_get_wide_winmain_command_line(void)
683 static wchar_t *wide_command_line
;
686 if (wide_command_line
)
687 return wide_command_line
;
689 s
= GetCommandLineW();
690 while (*s
&& *s
!= ' ' && *s
!= '\t')
694 while (*s
&& *s
++ != '"')
699 while (*s
== ' ' || *s
== '\t')
702 return wide_command_line
= s
;
705 #endif /* _MSVCR_VER>=140 */
707 /*********************************************************************
708 * _get_winmajor (MSVCRT.@)
710 int CDECL
_get_winmajor(int* value
)
712 if (!MSVCRT_CHECK_PMT(value
!= NULL
)) return EINVAL
;
713 *value
= MSVCRT__winmajor
;
717 /*********************************************************************
718 * _get_winminor (MSVCRT.@)
720 int CDECL
_get_winminor(int* value
)
722 if (!MSVCRT_CHECK_PMT(value
!= NULL
)) return EINVAL
;
723 *value
= MSVCRT__winminor
;
727 /*********************************************************************
728 * _get_osver (MSVCRT.@)
730 int CDECL
_get_osver(int* value
)
732 if (!MSVCRT_CHECK_PMT(value
!= NULL
)) return EINVAL
;
733 *value
= MSVCRT__osver
;