/* * msvcrt.dll dll data items * * Copyright 2000 Jon Griffiths * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either * version 2.1 of the License, or (at your option) any later version. * * This library is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU * Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA */ #include "config.h" #include "wine/port.h" #include #include "msvcrt.h" #include "wine/library.h" #include "wine/unicode.h" #include "wine/debug.h" WINE_DEFAULT_DEBUG_CHANNEL(msvcrt); int MSVCRT___argc = 0; static int argc_expand; static int wargc_expand; unsigned int MSVCRT__commode = 0; int MSVCRT__fmode = 0; unsigned int MSVCRT__osver = 0; unsigned int MSVCRT__osplatform = 0; unsigned int MSVCRT__winmajor = 0; unsigned int MSVCRT__winminor = 0; unsigned int MSVCRT__winver = 0; unsigned int MSVCRT___setlc_active = 0; unsigned int MSVCRT___unguarded_readlc_active = 0; double MSVCRT__HUGE = 0; char **MSVCRT___argv = NULL; static char **argv_expand; MSVCRT_wchar_t **MSVCRT___wargv = NULL; static MSVCRT_wchar_t **wargv_expand; char *MSVCRT__acmdln = NULL; MSVCRT_wchar_t *MSVCRT__wcmdln = NULL; char **MSVCRT__environ = NULL; MSVCRT_wchar_t **MSVCRT__wenviron = NULL; char **MSVCRT___initenv = NULL; MSVCRT_wchar_t **MSVCRT___winitenv = NULL; int MSVCRT_app_type = 0; char* MSVCRT__pgmptr = NULL; WCHAR* MSVCRT__wpgmptr = NULL; /* Get a snapshot of the current environment * and construct the __p__environ array * * The pointer returned from GetEnvironmentStrings may get invalid when * some other module cause a reallocation of the env-variable block * * blk is an array of pointers to environment strings, ending with a NULL * and after that the actual copy of the environment strings, ending in a \0 */ char ** msvcrt_SnapshotOfEnvironmentA(char **blk) { char* environ_strings = GetEnvironmentStringsA(); int count = 1, len = 1, i = 0; /* keep space for the trailing NULLS */ char *ptr; for (ptr = environ_strings; *ptr; ptr += strlen(ptr) + 1) { /* Don't count environment variables starting with '=' which are command shell specific */ if (*ptr != '=') count++; len += strlen(ptr) + 1; } if (blk) blk = HeapReAlloc( GetProcessHeap(), 0, blk, count* sizeof(char*) + len ); else blk = HeapAlloc(GetProcessHeap(), 0, count* sizeof(char*) + len ); if (blk) { if (count) { memcpy(&blk[count],environ_strings,len); for (ptr = (char*) &blk[count]; *ptr; ptr += strlen(ptr) + 1) { /* Skip special environment strings set by the command shell */ if (*ptr != '=') blk[i++] = ptr; } } blk[i] = NULL; } FreeEnvironmentStringsA(environ_strings); return blk; } MSVCRT_wchar_t ** msvcrt_SnapshotOfEnvironmentW(MSVCRT_wchar_t **wblk) { MSVCRT_wchar_t* wenviron_strings = GetEnvironmentStringsW(); int count = 1, len = 1, i = 0; /* keep space for the trailing NULLS */ MSVCRT_wchar_t *wptr; for (wptr = wenviron_strings; *wptr; wptr += strlenW(wptr) + 1) { /* Don't count environment variables starting with '=' which are command shell specific */ if (*wptr != '=') count++; len += strlenW(wptr) + 1; } if (wblk) wblk = HeapReAlloc( GetProcessHeap(), 0, wblk, count* sizeof(MSVCRT_wchar_t*) + len * sizeof(MSVCRT_wchar_t)); else wblk = HeapAlloc(GetProcessHeap(), 0, count* sizeof(MSVCRT_wchar_t*) + len * sizeof(MSVCRT_wchar_t)); if (wblk) { if (count) { memcpy(&wblk[count],wenviron_strings,len * sizeof(MSVCRT_wchar_t)); for (wptr = (MSVCRT_wchar_t*)&wblk[count]; *wptr; wptr += strlenW(wptr) + 1) { /* Skip special environment strings set by the command shell */ if (*wptr != '=') wblk[i++] = wptr; } } wblk[i] = NULL; } FreeEnvironmentStringsW(wenviron_strings); return wblk; } typedef void (CDECL *_INITTERMFUN)(void); typedef int (CDECL *_INITTERM_E_FN)(void); /*********************************************************************** * __p___argc (MSVCRT.@) */ int* CDECL MSVCRT___p___argc(void) { return &MSVCRT___argc; } /*********************************************************************** * __p__commode (MSVCRT.@) */ unsigned int* CDECL __p__commode(void) { return &MSVCRT__commode; } /*********************************************************************** * __p__pgmptr (MSVCRT.@) */ char** CDECL MSVCRT___p__pgmptr(void) { return &MSVCRT__pgmptr; } /*********************************************************************** * __p__wpgmptr (MSVCRT.@) */ WCHAR** CDECL MSVCRT___p__wpgmptr(void) { return &MSVCRT__wpgmptr; } /*********************************************************************** * _get_pgmptr (MSVCRT.@) */ int CDECL _get_pgmptr(char** p) { if (!MSVCRT_CHECK_PMT(p)) return MSVCRT_EINVAL; *p = MSVCRT__pgmptr; return 0; } /*********************************************************************** * _get_wpgmptr (MSVCRT.@) */ int CDECL _get_wpgmptr(WCHAR** p) { if (!MSVCRT_CHECK_PMT(p)) return MSVCRT_EINVAL; *p = MSVCRT__wpgmptr; return 0; } /*********************************************************************** * __p__fmode (MSVCRT.@) */ int* CDECL MSVCRT___p__fmode(void) { return &MSVCRT__fmode; } /*********************************************************************** * _set_fmode (MSVCRT.@) */ int CDECL MSVCRT__set_fmode(int mode) { /* TODO: support _O_WTEXT */ if(!MSVCRT_CHECK_PMT(mode==MSVCRT__O_TEXT || mode==MSVCRT__O_BINARY)) return MSVCRT_EINVAL; MSVCRT__fmode = mode; return 0; } /*********************************************************************** * _get_fmode (MSVCRT.@) */ int CDECL MSVCRT__get_fmode(int *mode) { if(!MSVCRT_CHECK_PMT(mode)) return MSVCRT_EINVAL; *mode = MSVCRT__fmode; return 0; } /*********************************************************************** * __p__osver (MSVCRT.@) */ unsigned int* CDECL __p__osver(void) { return &MSVCRT__osver; } /*********************************************************************** * __p__winmajor (MSVCRT.@) */ unsigned int* CDECL __p__winmajor(void) { return &MSVCRT__winmajor; } /*********************************************************************** * __p__winminor (MSVCRT.@) */ unsigned int* CDECL __p__winminor(void) { return &MSVCRT__winminor; } /*********************************************************************** * __p__winver (MSVCRT.@) */ unsigned int* CDECL __p__winver(void) { return &MSVCRT__winver; } /********************************************************************* * __p__acmdln (MSVCRT.@) */ char** CDECL MSVCRT___p__acmdln(void) { return &MSVCRT__acmdln; } /********************************************************************* * __p__wcmdln (MSVCRT.@) */ MSVCRT_wchar_t** CDECL MSVCRT___p__wcmdln(void) { return &MSVCRT__wcmdln; } /********************************************************************* * __p___argv (MSVCRT.@) */ char*** CDECL MSVCRT___p___argv(void) { return &MSVCRT___argv; } /********************************************************************* * __p___wargv (MSVCRT.@) */ MSVCRT_wchar_t*** CDECL MSVCRT___p___wargv(void) { return &MSVCRT___wargv; } /********************************************************************* * __p__environ (MSVCRT.@) */ char*** CDECL MSVCRT___p__environ(void) { return &MSVCRT__environ; } /********************************************************************* * __p__wenviron (MSVCRT.@) */ MSVCRT_wchar_t*** CDECL MSVCRT___p__wenviron(void) { return &MSVCRT__wenviron; } /********************************************************************* * __p___initenv (MSVCRT.@) */ char*** CDECL __p___initenv(void) { return &MSVCRT___initenv; } /********************************************************************* * __p___winitenv (MSVCRT.@) */ MSVCRT_wchar_t*** CDECL __p___winitenv(void) { return &MSVCRT___winitenv; } /********************************************************************* * _get_osplatform (MSVCRT.@) */ int CDECL MSVCRT__get_osplatform(int *pValue) { if (!MSVCRT_CHECK_PMT(pValue != NULL)) return MSVCRT_EINVAL; *pValue = MSVCRT__osplatform; return 0; } /* INTERNAL: Create a wide string from an ascii string */ MSVCRT_wchar_t *msvcrt_wstrdupa(const char *str) { const unsigned int len = strlen(str) + 1 ; MSVCRT_wchar_t *wstr = MSVCRT_malloc(len* sizeof (MSVCRT_wchar_t)); if (!wstr) return NULL; MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED,str,len,wstr,len); return wstr; } /********************************************************************* * ___unguarded_readlc_active_add_func (MSVCRT.@) */ unsigned int * CDECL MSVCRT____unguarded_readlc_active_add_func(void) { return &MSVCRT___unguarded_readlc_active; } /********************************************************************* * ___setlc_active_func (MSVCRT.@) */ unsigned int CDECL MSVCRT____setlc_active_func(void) { return MSVCRT___setlc_active; } /* INTERNAL: Since we can't rely on Winelib startup code calling w/getmainargs, * we initialise data values during DLL loading. When called by a native * program we simply return the data we've already initialised. This also means * you can call multiple times without leaking */ void msvcrt_init_args(void) { OSVERSIONINFOW osvi; MSVCRT__acmdln = MSVCRT__strdup( GetCommandLineA() ); MSVCRT__wcmdln = msvcrt_wstrdupa(MSVCRT__acmdln); MSVCRT___argc = __wine_main_argc; MSVCRT___argv = __wine_main_argv; MSVCRT___wargv = __wine_main_wargv; TRACE("got %s, wide = %s argc=%d\n", debugstr_a(MSVCRT__acmdln), debugstr_w(MSVCRT__wcmdln),MSVCRT___argc); osvi.dwOSVersionInfoSize = sizeof(OSVERSIONINFOW); GetVersionExW( &osvi ); MSVCRT__winver = (osvi.dwMajorVersion << 8) | osvi.dwMinorVersion; MSVCRT__winmajor = osvi.dwMajorVersion; MSVCRT__winminor = osvi.dwMinorVersion; MSVCRT__osver = osvi.dwBuildNumber; MSVCRT__osplatform = osvi.dwPlatformId; TRACE( "winver %08x winmajor %08x winminor %08x osver %08x\n", MSVCRT__winver, MSVCRT__winmajor, MSVCRT__winminor, MSVCRT__osver); MSVCRT__HUGE = HUGE_VAL; MSVCRT___setlc_active = 0; MSVCRT___unguarded_readlc_active = 0; MSVCRT__fmode = MSVCRT__O_TEXT; MSVCRT__environ = msvcrt_SnapshotOfEnvironmentA(NULL); MSVCRT___initenv = msvcrt_SnapshotOfEnvironmentA(NULL); MSVCRT___winitenv = msvcrt_SnapshotOfEnvironmentW(NULL); MSVCRT__pgmptr = HeapAlloc(GetProcessHeap(), 0, MAX_PATH); if (MSVCRT__pgmptr) { if (!GetModuleFileNameA(0, MSVCRT__pgmptr, MAX_PATH)) MSVCRT__pgmptr[0] = '\0'; else MSVCRT__pgmptr[MAX_PATH - 1] = '\0'; } MSVCRT__wpgmptr = HeapAlloc(GetProcessHeap(), 0, MAX_PATH * sizeof(WCHAR)); if (MSVCRT__wpgmptr) { if (!GetModuleFileNameW(0, MSVCRT__wpgmptr, MAX_PATH)) MSVCRT__wpgmptr[0] = '\0'; else MSVCRT__wpgmptr[MAX_PATH - 1] = '\0'; } } /* INTERNAL: free memory used by args */ void msvcrt_free_args(void) { /* FIXME: more things to free */ HeapFree(GetProcessHeap(), 0, MSVCRT___initenv); HeapFree(GetProcessHeap(), 0, MSVCRT___winitenv); HeapFree(GetProcessHeap(), 0, MSVCRT__environ); HeapFree(GetProcessHeap(), 0, MSVCRT__wenviron); HeapFree(GetProcessHeap(), 0, MSVCRT__pgmptr); HeapFree(GetProcessHeap(), 0, MSVCRT__wpgmptr); HeapFree(GetProcessHeap(), 0, argv_expand); HeapFree(GetProcessHeap(), 0, wargv_expand); } static int build_expanded_argv(int *argc, char **argv) { int i, size=0, args_no=0, path_len; BOOL is_expandable; HANDLE h; args_no = 0; for(i=0; i<__wine_main_argc; i++) { WIN32_FIND_DATAA data; int len = 0; is_expandable = FALSE; for(path_len = strlen(__wine_main_argv[i])-1; path_len>=0; path_len--) { if(__wine_main_argv[i][path_len]=='*' || __wine_main_argv[i][path_len]=='?') is_expandable = TRUE; else if(__wine_main_argv[i][path_len]=='\\' || __wine_main_argv[i][path_len]=='/') break; } path_len++; if(is_expandable) h = FindFirstFileA(__wine_main_argv[i], &data); else h = INVALID_HANDLE_VALUE; if(h != INVALID_HANDLE_VALUE) { do { if(data.cFileName[0]=='.' && (data.cFileName[1]=='\0' || (data.cFileName[1]=='.' && data.cFileName[2]=='\0'))) continue; len = strlen(data.cFileName)+1; if(argv) { argv[args_no] = (char*)(argv+*argc+1)+size; memcpy(argv[args_no], __wine_main_argv[i], path_len*sizeof(char)); memcpy(argv[args_no]+path_len, data.cFileName, len*sizeof(char)); } args_no++; size += len+path_len; }while(FindNextFileA(h, &data)); FindClose(h); } if(!len) { len = strlen(__wine_main_argv[i])+1; if(argv) { argv[args_no] = (char*)(argv+*argc+1)+size; memcpy(argv[args_no], __wine_main_argv[i], len*sizeof(char)); } args_no++; size += len; } } if(argv) argv[args_no] = NULL; size += (args_no+1)*sizeof(char*); *argc = args_no; return size; } /********************************************************************* * __getmainargs (MSVCRT.@) */ int CDECL __getmainargs(int *argc, char** *argv, char** *envp, int expand_wildcards, int *new_mode) { TRACE("(%p,%p,%p,%d,%p).\n", argc, argv, envp, expand_wildcards, new_mode); if (expand_wildcards) { HeapFree(GetProcessHeap(), 0, argv_expand); argv_expand = NULL; argv_expand = HeapAlloc(GetProcessHeap(), 0, build_expanded_argv(&argc_expand, NULL)); if (argv_expand) { build_expanded_argv(&argc_expand, argv_expand); MSVCRT___argc = argc_expand; MSVCRT___argv = argv_expand; }else { expand_wildcards = 0; } } if (!expand_wildcards) { MSVCRT___argc = __wine_main_argc; MSVCRT___argv = __wine_main_argv; } *argc = MSVCRT___argc; *argv = MSVCRT___argv; *envp = MSVCRT___initenv; if (new_mode) MSVCRT__set_new_mode( *new_mode ); return 0; } static int build_expanded_wargv(int *argc, MSVCRT_wchar_t **argv) { int i, size=0, args_no=0, path_len; BOOL is_expandable; HANDLE h; args_no = 0; for(i=0; i<__wine_main_argc; i++) { WIN32_FIND_DATAW data; int len = 0; is_expandable = FALSE; for(path_len = strlenW(__wine_main_wargv[i])-1; path_len>=0; path_len--) { if(__wine_main_wargv[i][path_len]=='*' || __wine_main_wargv[i][path_len]=='?') is_expandable = TRUE; else if(__wine_main_wargv[i][path_len]=='\\' || __wine_main_wargv[i][path_len]=='/') break; } path_len++; if(is_expandable) h = FindFirstFileW(__wine_main_wargv[i], &data); else h = INVALID_HANDLE_VALUE; if(h != INVALID_HANDLE_VALUE) { do { if(data.cFileName[0]=='.' && (data.cFileName[1]=='\0' || (data.cFileName[1]=='.' && data.cFileName[2]=='\0'))) continue; len = strlenW(data.cFileName)+1; if(argv) { argv[args_no] = (MSVCRT_wchar_t*)(argv+*argc+1)+size; memcpy(argv[args_no], __wine_main_wargv[i], path_len*sizeof(MSVCRT_wchar_t)); memcpy(argv[args_no]+path_len, data.cFileName, len*sizeof(MSVCRT_wchar_t)); } args_no++; size += len+path_len; }while(FindNextFileW(h, &data)); FindClose(h); } if(!len) { len = strlenW(__wine_main_wargv[i])+1; if(argv) { argv[args_no] = (MSVCRT_wchar_t*)(argv+*argc+1)+size; memcpy(argv[args_no], __wine_main_wargv[i], len*sizeof(MSVCRT_wchar_t)); } args_no++; size += len; } } if(argv) argv[args_no] = NULL; size *= sizeof(MSVCRT_wchar_t); size += (args_no+1)*sizeof(MSVCRT_wchar_t*); *argc = args_no; return size; } /********************************************************************* * __wgetmainargs (MSVCRT.@) */ int CDECL __wgetmainargs(int *argc, MSVCRT_wchar_t** *wargv, MSVCRT_wchar_t** *wenvp, int expand_wildcards, int *new_mode) { TRACE("(%p,%p,%p,%d,%p).\n", argc, wargv, wenvp, expand_wildcards, new_mode); if (expand_wildcards) { HeapFree(GetProcessHeap(), 0, wargv_expand); wargv_expand = NULL; wargv_expand = HeapAlloc(GetProcessHeap(), 0, build_expanded_wargv(&wargc_expand, NULL)); if (wargv_expand) { build_expanded_wargv(&wargc_expand, wargv_expand); MSVCRT___argc = wargc_expand; MSVCRT___wargv = wargv_expand; }else { expand_wildcards = 0; } } if (!expand_wildcards) { MSVCRT___argc = __wine_main_argc; MSVCRT___wargv = __wine_main_wargv; } /* Initialize the _wenviron array if it's not already created. */ if (!MSVCRT__wenviron) MSVCRT__wenviron = msvcrt_SnapshotOfEnvironmentW(NULL); *argc = MSVCRT___argc; *wargv = MSVCRT___wargv; *wenvp = MSVCRT___winitenv; if (new_mode) MSVCRT__set_new_mode( *new_mode ); return 0; } /********************************************************************* * _initterm (MSVCRT.@) */ void CDECL _initterm(_INITTERMFUN *start,_INITTERMFUN *end) { _INITTERMFUN* current = start; TRACE("(%p,%p)\n",start,end); while (current=140 /********************************************************************* * _get_initial_narrow_environment (UCRTBASE.@) */ char** CDECL _get_initial_narrow_environment(void) { return MSVCRT___initenv; } /********************************************************************* * _configure_narrow_argv (UCRTBASE.@) */ int CDECL _configure_narrow_argv(int mode) { TRACE("(%d)\n", mode); return 0; } /********************************************************************* * _initialize_narrow_environment (UCRTBASE.@) */ int CDECL _initialize_narrow_environment(void) { TRACE("\n"); return 0; } /********************************************************************* * _get_initial_wide_environment (UCRTBASE.@) */ MSVCRT_wchar_t** CDECL _get_initial_wide_environment(void) { return MSVCRT___winitenv; } /********************************************************************* * _configure_wide_argv (UCRTBASE.@) */ int CDECL _configure_wide_argv(int mode) { FIXME("(%d) stub\n", mode); return 0; } /********************************************************************* * _initialize_wide_environment (UCRTBASE.@) */ int CDECL _initialize_wide_environment(void) { FIXME("stub\n"); return 0; } /********************************************************************* * _get_narrow_winmain_command_line (UCRTBASE.@) */ char* CDECL _get_narrow_winmain_command_line(void) { static char *narrow_command_line; char *s; if (narrow_command_line) return narrow_command_line; s = GetCommandLineA(); while (*s && *s != ' ' && *s != '\t') { if (*s++ == '"') { while (*s && *s++ != '"') ; } } while (*s == ' ' || *s == '\t') s++; return narrow_command_line = s; } /********************************************************************* * _get_wide_winmain_command_line (UCRTBASE.@) */ MSVCRT_wchar_t* CDECL _get_wide_winmain_command_line(void) { static MSVCRT_wchar_t *wide_command_line; MSVCRT_wchar_t *s; if (wide_command_line) return wide_command_line; s = GetCommandLineW(); while (*s && *s != ' ' && *s != '\t') { if (*s++ == '"') { while (*s && *s++ != '"') ; } } while (*s == ' ' || *s == '\t') s++; return wide_command_line = s; } #endif /* _MSVCR_VER>=140 */ /********************************************************************* * _get_winmajor (MSVCRT.@) */ int CDECL MSVCRT__get_winmajor(int* value) { if (!MSVCRT_CHECK_PMT(value != NULL)) return MSVCRT_EINVAL; *value = MSVCRT__winmajor; return 0; } /********************************************************************* * _get_winminor (MSVCRT.@) */ int CDECL MSVCRT__get_winminor(int* value) { if (!MSVCRT_CHECK_PMT(value != NULL)) return MSVCRT_EINVAL; *value = MSVCRT__winminor; return 0; } /********************************************************************* * _get_osver (MSVCRT.@) */ int CDECL MSVCRT__get_osver(int* value) { if (!MSVCRT_CHECK_PMT(value != NULL)) return MSVCRT_EINVAL; *value = MSVCRT__osver; return 0; }