mirror of
git://source.winehq.org/git/wine.git
synced 2024-10-31 11:43:31 +00:00
46ea8b3f73
Thu Apr 30 16:28:12 1998 James Juran <jrj120@psu.edu> * [scheduler/process.c] Implemented GetExitCodeProcess. The code is a direct translation of GetExitCodeThread. Mon Apr 27 22:20:25 1998 Uwe Bonnes <bon@elektron.ikp.physik.tu-darmstadt.de> * [loader/pe_image.c] Unload dummy module when PE_LoadLibraryEx32A fails with PE_LoadImage (makes Encarta 98 installer proceed). * [files/drive.c] Make GetDriveType16 return DRIVE_REMOVABLE for TYPE_CDROM. Make GetCurrentDirectory32 behave like the code does and not like the help describes. * [files/profile.c] Revoke recent change in PROFILE_GetSection and try better handling of special case. * [include/windows.h] Change definition of ACCEL32. * [misc/commdlg.c] Replace the GetXXXFilename32 macros by normal code. Fix two reported bugs in my changes to commdlg. * [windows/win.c] Add a hook to catch bogus WM_SIZE messages by emitting a warning in the appropriate case. * [objects/bitmap.c] Reject unreasonbable large size arguments in CreateCompatibleBitmap32 and add an fixme for that situation. Sun Apr 26 18:30:07 1998 Alexandre Julliard <julliard@lrc.epfl.ch> * [include/ldt.h] [debugger/*.c] [miscemu/instr.c] Added IS_SELECTOR_SYSTEM and IS_SELECTOR_32BIT macros. Make instruction emulation support system selectors. * [loader/*.c] Started moving NE specific functions to the new loader/ne directory. * [memory/environ.c] Enforce the 127 chars limit only when creating the environment of a Win16 process. Sun Apr 26 12:22:23 1998 Andreas Mohr <100.30936@germany.net> * [files/file.c] Fixed an incredible typo in CopyFile32A that made it unusable since a rewrite in 970112 (!!). * [files/directory.c] Fixed GetTempPath32A/W to include trailing backslash. * [misc/ver.c] Make find_pe_resource "work" with corrupt files. * [misc/wsprintf.c] Altered WPRINTF_ParseFormatA/W to treat invalid format chars as normal output, too. * [msdos/dpmi.c] Implemented "Allocate/Free real mode callback" (0x0303/0x0304). Cross your fingers if you need to use it ;) (completely untested) Implemented "Call real mode proc with far return" (0x0301, tested). * [msdos/int21.c] Fixed ioctlGenericBlkDevReq/0x60. * [relay32/dplayx.spec] [relay32/builtin32.c] [relay32/Makefile.in] Added built-in DPLAYX.DLL. * [windows/win.c] Fixed GetWindowWord()/GWW_HWNDPARENT to return the window's owner if it has no parent (SDK). Sat Apr 25 15:09:53 1998 M.T.Fortescue <mark@mtfhpc.demon.co.uk> * [debugger/db_disasm.c] Fixed disassemble bug for no-display option and 'lock', 'repne' and 'repe' prefixes. * [debugger/registers.c] Added textual flag description output on 'info regs'. Sat Apr 25 14:18:26 1998 Matthew Becker <mbecker@glasscity.net> * [*/*.c] Added stubs and/or documentation for the following functions: LookupPrivilegeValue, OpenService, ControlService, RegGetKeySecurity, StartService, SetComputerName, DeleteService, CloseServiceHandle, OpenProcessToken, OpenSCManager, DeregisterEventSource, WaitForDebugEvent, WaitForInputIdle, RegisterEventSource, SetDebugErrorLevel, SetConsoleCursorPosition, ChoosePixelFormat, SetPixelFormat, GetPixelFormat, DescribePixelFormat, SwapBuffers, PolyBezier, AbortPath, DestroyAcceleratorTable, HeapWalk, DdeInitialize, DdeUninitialize, DdeConnectList, DdeDisconnectList, DdeCreateStringHandle, DdePostAdvise, DdeGetData, DdeNameService, DdeGetLastError, WNetGetDirectoryType, EnumPrinters, RegFlushKey, RegGetKeySecurity, DllGetClassObject, DllCanUnloadNow, CreateBitmap, CreateCompatibleBitmap, CreateBitmapIndirect, GetBitmapBits, SetBitmapBits, LoadImage, CopyImage, LoadBitmap, DrawIcon, CreateDiscardableBitmap, SetDIBits, GetCharABCWidths, LoadTypeLib, SetConsoleCtrlHandler, CreateConsoleScreenBuffer, ReadConsoleInput, GetConsoleCursorInfo, SetConsoleCursorInfo, SetConsoleWindowInfo, SetConsoleTextAttribute, SetConsoleScreenBufferSize, FillConsoleOutputCharacter, FillConsoleOutputAttribute, CreateMailslot, GetMailslotInfo, GetCompressedFileSize, GetProcessWindowStation, GetThreadDesktop, SetDebugErrorLevel, WaitForDebugEvent, SetComputerName, CreateMDIWindow. Thu Apr 23 23:54:04 1998 Douglas Ridgway <ridgway@winehq.com> * [include/windows.h] [objects/enhmetafile.c] [relay32/gdi32.spec] Implement CopyEnhMetaFile, Get/SetEnhMetaFileBits, other fixes. * [include/windows.h] [objects/metafile.c] [relay32/gdi32.spec] 32-bit metafile fixes, implement EnumMetaFile32, GetMetaFileBitsEx. * [objects/font.c] [graphics/x11drv/xfont.c] [graphics/x11drv/text.c] Some rotated text support for X11R6 displays. * [win32/newfns.c] [ole/ole2nls.c] Moved GetNumberFormat32A. Wed Apr 22 17:38:20 1998 David Lee Lambert <lamber45@egr.msu.edu> * [ole/ole2nls.c] [misc/network.c] Changed some function documentation to the new style. * [misc/network.c] [include/windows.h] [if1632/user.spec] [relay32/mpr.spec] [misc/mpr.c] Added stubs for some Win32 network functions; renamed some 16-bit ones with 32-bit counterparts, as well as WNetGetDirectoryType; moved the stubs in misc/mpr.c (three of them!) to misc/network.c. * [ole/compobj.c] [ole/storage.c] [ole/ole2disp.c] [ole/ole2nls.c] [ole/folders.c] [ole/moniker.c] [ole/ole2.c] [graphics/fontengine.c] [graphics/ddraw.c] [graphics/env.c] [graphics/driver.c] [graphics/escape.c] Changed fprintf's to proper debug-macros. * [include/winnls.h] Added some flags (for internal use). * [ole/ole2nls.c] Added the Unicode core function, and worked out a way to hide the commonality of the core. * [relay32/kernel32.spec] Added support for GetDate/Time32A/W. Wed Apr 22 09:16:03 1998 Gordon Chaffee <chaffee@cs.berkeley.edu> * [win32/code_page.c] Fixed problem with MultiByteToWideChar that was introduced in last release. Made MultiByteToWideChar more compatible with Win32. * [graphics/x11drv/graphics.c] Fixed problem with drawing arcs. Tue Apr 21 11:24:58 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu> * [ole/ole2nls.c] Move stuff from 0x409 case to Lang_En. * [relay32/user32.spec] [windows/winpos.c] Added stubs for GetWindowRgn32 and SetWindowRgn32. Makes Office Paperclip happy. Tue Apr 21 11:16:16 1998 Constantine Sapuntzakis <csapuntz@tma-1.lcs.mit.edu> * [loader/pe_image.c] If image is relocated, TLS addresses need to be adjusted. * [debugger/*.c] Generalized tests for 32-bit segments. Tue Apr 21 02:04:59 1998 James Juran <jrj120@psu.edu> * [misc/*.c] [miscemu/*.c] [msdos/*.c] [if1632/*.c] [include/*.h] [loader/*.c] [memory/*.c] [multimedia/*.c] [objects/*.c] Almost all fprintf statements converted to appropriate debug messages. * [README] Updated "GETTING MORE INFORMATION" section to include WineHQ. * [documentation/debugger] Fixed typo. * [windows/defwnd.c] Added function documentation. Sun Apr 19 16:30:58 1998 Marcus Meissner <marcus@mud.de> * [Make.rules.in] Added lint target (using lclint). * [relay32/oleaut32.spec][relay32/Makefile.in][ole/typelib.c] [ole/ole2disp.c] Added oleaut32 spec, added some SysString functions. * [if1632/signal.c] Added printing of faultaddress in Linux (using CR2 debug register). * [configure.in] Added <sys/types.h> for statfs checks. * [loader/*.c][debugger/break.c][debugger/hash.c] Started to split win32/win16 module handling, preparing support for other binary formats (like ELF). Sat Apr 18 10:07:41 1998 Rein Klazes <rklazes@casema.net> * [misc/registry.c] Fixed a bug that made RegQueryValuexxx returning incorrect registry values. Fri Apr 17 22:59:22 1998 Alexander V. Lukyanov <lav@long.yar.ru> * [misc/lstr.c] FormatMessage32*: remove linefeed when nolinefeed set; check for target underflow. Fri Apr 17 00:38:14 1998 Alexander V. Lukyanov <lav@long.yar.ru> * [misc/crtdll.c] Implement xlat_file_ptr for CRT stdin/stdout/stderr address translation. Wed Apr 15 20:43:56 1998 Jim Peterson <jspeter@birch.ee.vt.edu> * [controls/menu.c] Added 'odaction' parameter to MENU_DrawMenuItem() and redirected WM_DRAWITEM messages to GetWindow(hwnd,GW_OWNER). Tue Apr 14 16:17:55 1998 Berend Reitsma <berend@united-info.com> * [graphics/metafiledrv/init.c] [graphics/painting.c] [graphics/win16drv/init.c] [graphics/x11drv/graphics.c] [graphics/x11drv/init.c] [include/gdi.h] [include/x11drv.h] [relay32/gdi32.spec] Added PolyPolyline routine. * [windows/winproc.c] Changed WINPROC_GetProc() to return proc instead of &(jmp proc).
450 lines
12 KiB
C
450 lines
12 KiB
C
/*
|
|
* Process environment management
|
|
*
|
|
* Copyright 1996, 1998 Alexandre Julliard
|
|
*/
|
|
|
|
#include <assert.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include "process.h"
|
|
#include "heap.h"
|
|
#include "selectors.h"
|
|
#include "winerror.h"
|
|
|
|
/* Format of an environment block:
|
|
* ASCIIZ string 1 (xx=yy format)
|
|
* ...
|
|
* ASCIIZ string n
|
|
* BYTE 0
|
|
* WORD 1
|
|
* ASCIIZ program name (e.g. C:\WINDOWS\SYSTEM\KRNL386.EXE)
|
|
*
|
|
* Notes:
|
|
* - contrary to Microsoft docs, the environment strings do not appear
|
|
* to be sorted on Win95 (although they are on NT); so we don't bother
|
|
* to sort them either.
|
|
*/
|
|
|
|
static const char ENV_program_name[] = "C:\\WINDOWS\\SYSTEM\\KRNL386.EXE";
|
|
|
|
/* Maximum length of a Win16 environment string (including NULL) */
|
|
#define MAX_WIN16_LEN 128
|
|
|
|
/* Extra bytes to reserve at the end of an environment */
|
|
#define EXTRA_ENV_SIZE (sizeof(BYTE) + sizeof(WORD) + sizeof(ENV_program_name))
|
|
|
|
/* Fill the extra bytes with the program name and stuff */
|
|
#define FILL_EXTRA_ENV(p) \
|
|
*(p) = '\0'; \
|
|
PUT_WORD( (p) + 1, 1 ); \
|
|
strcpy( (p) + 3, ENV_program_name );
|
|
|
|
|
|
/***********************************************************************
|
|
* ENV_FindVariable
|
|
*
|
|
* Find a variable in the environment and return a pointer to the value.
|
|
* Helper function for GetEnvironmentVariable and ExpandEnvironmentStrings.
|
|
*/
|
|
static LPCSTR ENV_FindVariable( LPCSTR env, LPCSTR name, INT32 len )
|
|
{
|
|
while (*env)
|
|
{
|
|
if (!lstrncmpi32A( name, env, len ) && (env[len] == '='))
|
|
return env + len + 1;
|
|
env += strlen(env) + 1;
|
|
}
|
|
return NULL;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* ENV_BuildEnvironment
|
|
*
|
|
* Build the environment for the initial process
|
|
*/
|
|
BOOL32 ENV_BuildEnvironment( PDB32 *pdb )
|
|
{
|
|
extern char **environ;
|
|
LPSTR p, *e;
|
|
int size;
|
|
|
|
/* Compute the total size of the Unix environment */
|
|
|
|
size = EXTRA_ENV_SIZE;
|
|
for (e = environ; *e; e++) size += strlen(*e) + 1;
|
|
|
|
/* Now allocate the environment */
|
|
|
|
if (!(p = HeapAlloc( SystemHeap, 0, size ))) return FALSE;
|
|
pdb->env_db->environ = p;
|
|
|
|
/* And fill it with the Unix environment */
|
|
|
|
for (e = environ; *e; e++)
|
|
{
|
|
strcpy( p, *e );
|
|
p += strlen(p) + 1;
|
|
}
|
|
|
|
/* Now add the program name */
|
|
|
|
FILL_EXTRA_ENV( p );
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* ENV_InheritEnvironment
|
|
*
|
|
* Make a process inherit the environment from its parent or from an
|
|
* explicit environment.
|
|
*/
|
|
BOOL32 ENV_InheritEnvironment( PDB32 *pdb, LPCSTR env )
|
|
{
|
|
DWORD size;
|
|
LPCSTR src;
|
|
LPSTR dst;
|
|
|
|
/* FIXME: should lock the parent environment */
|
|
if (!env) env = pdb->parent->env_db->environ;
|
|
|
|
/* Compute the environment size */
|
|
|
|
src = env;
|
|
size = EXTRA_ENV_SIZE;
|
|
while (*src)
|
|
{
|
|
int len = strlen(src) + 1;
|
|
src += len;
|
|
if ((len > MAX_WIN16_LEN) && (pdb->flags & PDB32_WIN16_PROC))
|
|
len = MAX_WIN16_LEN;
|
|
size += len;
|
|
}
|
|
|
|
/* Copy the environment */
|
|
|
|
if (!(pdb->env_db->environ = HeapAlloc( pdb->heap, 0,
|
|
size + EXTRA_ENV_SIZE )))
|
|
return FALSE;
|
|
pdb->env_db->env_sel = SELECTOR_AllocBlock( pdb->env_db->environ,
|
|
0x10000, SEGMENT_DATA,
|
|
FALSE, FALSE );
|
|
src = env;
|
|
dst = pdb->env_db->environ;
|
|
while (*src)
|
|
{
|
|
if (pdb->flags & PDB32_WIN16_PROC)
|
|
lstrcpyn32A( dst, src, MAX_WIN16_LEN );
|
|
else
|
|
strcpy( dst, src );
|
|
src += strlen(src) + 1;
|
|
dst += strlen(dst) + 1;
|
|
}
|
|
FILL_EXTRA_ENV( dst );
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* ENV_FreeEnvironment
|
|
*
|
|
* Free a process environment.
|
|
*/
|
|
void ENV_FreeEnvironment( PDB32 *pdb )
|
|
{
|
|
if (!pdb->env_db) return;
|
|
if (pdb->env_db->env_sel) SELECTOR_FreeBlock( pdb->env_db->env_sel, 1 );
|
|
DeleteCriticalSection( &pdb->env_db->section );
|
|
HeapFree( pdb->heap, 0, pdb->env_db );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* GetCommandLine32A (KERNEL32.289)
|
|
*/
|
|
LPCSTR WINAPI GetCommandLine32A(void)
|
|
{
|
|
return PROCESS_Current()->env_db->cmd_line;
|
|
}
|
|
|
|
/***********************************************************************
|
|
* GetCommandLine32W (KERNEL32.290)
|
|
*/
|
|
LPCWSTR WINAPI GetCommandLine32W(void)
|
|
{
|
|
PDB32 *pdb = PROCESS_Current();
|
|
EnterCriticalSection( &pdb->env_db->section );
|
|
if (!pdb->env_db->cmd_lineW)
|
|
pdb->env_db->cmd_lineW = HEAP_strdupAtoW( pdb->heap, 0,
|
|
pdb->env_db->cmd_line );
|
|
LeaveCriticalSection( &pdb->env_db->section );
|
|
return pdb->env_db->cmd_lineW;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* GetEnvironmentStrings32A (KERNEL32.319) (KERNEL32.320)
|
|
*/
|
|
LPSTR WINAPI GetEnvironmentStrings32A(void)
|
|
{
|
|
PDB32 *pdb = PROCESS_Current();
|
|
return pdb->env_db->environ;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* GetEnvironmentStrings32W (KERNEL32.321)
|
|
*/
|
|
LPWSTR WINAPI GetEnvironmentStrings32W(void)
|
|
{
|
|
INT32 size;
|
|
LPWSTR ret;
|
|
PDB32 *pdb = PROCESS_Current();
|
|
|
|
EnterCriticalSection( &pdb->env_db->section );
|
|
size = HeapSize( pdb->heap, 0, pdb->env_db->environ );
|
|
if ((ret = HeapAlloc( pdb->heap, 0, size * sizeof(WCHAR) )) != NULL)
|
|
{
|
|
LPSTR pA = pdb->env_db->environ;
|
|
LPWSTR pW = ret;
|
|
while (size--) *pW++ = (WCHAR)(BYTE)*pA++;
|
|
}
|
|
LeaveCriticalSection( &pdb->env_db->section );
|
|
return ret;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* FreeEnvironmentStrings32A (KERNEL32.268)
|
|
*/
|
|
BOOL32 WINAPI FreeEnvironmentStrings32A( LPSTR ptr )
|
|
{
|
|
PDB32 *pdb = PROCESS_Current();
|
|
if (ptr != pdb->env_db->environ)
|
|
{
|
|
SetLastError( ERROR_INVALID_PARAMETER );
|
|
return FALSE;
|
|
}
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* FreeEnvironmentStrings32W (KERNEL32.269)
|
|
*/
|
|
BOOL32 WINAPI FreeEnvironmentStrings32W( LPWSTR ptr )
|
|
{
|
|
return HeapFree( GetProcessHeap(), 0, ptr );
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* GetEnvironmentVariable32A (KERNEL32.322)
|
|
*/
|
|
DWORD WINAPI GetEnvironmentVariable32A( LPCSTR name, LPSTR value, DWORD size )
|
|
{
|
|
LPCSTR p;
|
|
INT32 ret = 0;
|
|
PDB32 *pdb = PROCESS_Current();
|
|
|
|
if (!name || !*name)
|
|
{
|
|
SetLastError( ERROR_INVALID_PARAMETER );
|
|
return 0;
|
|
}
|
|
EnterCriticalSection( &pdb->env_db->section );
|
|
if ((p = ENV_FindVariable( pdb->env_db->environ, name, strlen(name) )))
|
|
{
|
|
ret = strlen(p);
|
|
if (size <= ret)
|
|
{
|
|
/* If not enough room, include the terminating null
|
|
* in the returned size and return an empty string */
|
|
ret++;
|
|
if (value) *value = '\0';
|
|
}
|
|
else if (value) strcpy( value, p );
|
|
}
|
|
LeaveCriticalSection( &pdb->env_db->section );
|
|
return ret; /* FIXME: SetLastError */
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* GetEnvironmentVariable32W (KERNEL32.323)
|
|
*/
|
|
DWORD WINAPI GetEnvironmentVariable32W( LPCWSTR nameW, LPWSTR valW, DWORD size)
|
|
{
|
|
LPSTR name = HEAP_strdupWtoA( GetProcessHeap(), 0, nameW );
|
|
LPSTR val = valW ? HeapAlloc( GetProcessHeap(), 0, size ) : NULL;
|
|
DWORD res = GetEnvironmentVariable32A( name, val, size );
|
|
HeapFree( GetProcessHeap(), 0, name );
|
|
if (val)
|
|
{
|
|
lstrcpynAtoW( valW, val, size );
|
|
HeapFree( GetProcessHeap(), 0, val );
|
|
}
|
|
return res;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* SetEnvironmentVariable32A (KERNEL32.641)
|
|
*/
|
|
BOOL32 WINAPI SetEnvironmentVariable32A( LPCSTR name, LPCSTR value )
|
|
{
|
|
INT32 old_size, len, res;
|
|
LPSTR p, env, new_env;
|
|
BOOL32 ret = FALSE;
|
|
PDB32 *pdb = PROCESS_Current();
|
|
|
|
EnterCriticalSection( &pdb->env_db->section );
|
|
env = p = pdb->env_db->environ;
|
|
|
|
/* Find a place to insert the string */
|
|
|
|
res = -1;
|
|
len = strlen(name);
|
|
while (*p)
|
|
{
|
|
if (!lstrncmpi32A( name, p, len ) && (p[len] == '=')) break;
|
|
p += strlen(p) + 1;
|
|
}
|
|
if (!value && !*p) goto done; /* Value to remove doesn't exist */
|
|
|
|
/* Realloc the buffer */
|
|
|
|
len = value ? strlen(name) + strlen(value) + 2 : 0;
|
|
if (*p) len -= strlen(p) + 1; /* The name already exists */
|
|
old_size = HeapSize( pdb->heap, 0, env );
|
|
if (len < 0)
|
|
{
|
|
LPSTR next = p + strlen(p) + 1; /* We know there is a next one */
|
|
memmove( next + len, next, old_size - (next - env) );
|
|
}
|
|
if (!(new_env = HeapReAlloc( pdb->heap, 0, env, old_size + len )))
|
|
goto done;
|
|
if (pdb->env_db->env_sel)
|
|
SELECTOR_MoveBlock( pdb->env_db->env_sel, new_env );
|
|
p = new_env + (p - env);
|
|
if (len > 0) memmove( p + len, p, old_size - (p - new_env) );
|
|
|
|
/* Set the new string */
|
|
|
|
if (value)
|
|
{
|
|
strcpy( p, name );
|
|
strcat( p, "=" );
|
|
strcat( p, value );
|
|
}
|
|
pdb->env_db->environ = new_env;
|
|
ret = TRUE;
|
|
|
|
done:
|
|
LeaveCriticalSection( &pdb->env_db->section );
|
|
return ret;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* SetEnvironmentVariable32W (KERNEL32.642)
|
|
*/
|
|
BOOL32 WINAPI SetEnvironmentVariable32W( LPCWSTR name, LPCWSTR value )
|
|
{
|
|
LPSTR nameA = HEAP_strdupWtoA( GetProcessHeap(), 0, name );
|
|
LPSTR valueA = HEAP_strdupWtoA( GetProcessHeap(), 0, value );
|
|
BOOL32 ret = SetEnvironmentVariable32A( nameA, valueA );
|
|
HeapFree( GetProcessHeap(), 0, nameA );
|
|
HeapFree( GetProcessHeap(), 0, valueA );
|
|
return ret;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* ExpandEnvironmentStrings32A (KERNEL32.216)
|
|
*
|
|
* Note: overlapping buffers are not supported; this is how it should be.
|
|
*/
|
|
DWORD WINAPI ExpandEnvironmentStrings32A( LPCSTR src, LPSTR dst, DWORD count )
|
|
{
|
|
DWORD len, total_size = 1; /* 1 for terminating '\0' */
|
|
LPCSTR p, var;
|
|
PDB32 *pdb = PROCESS_Current();
|
|
|
|
if (!count) dst = NULL;
|
|
EnterCriticalSection( &pdb->env_db->section );
|
|
|
|
while (*src)
|
|
{
|
|
if (*src != '%')
|
|
{
|
|
if ((p = strchr( src, '%' ))) len = p - src;
|
|
else len = strlen(src);
|
|
var = src;
|
|
src += len;
|
|
}
|
|
else /* we are at the start of a variable */
|
|
{
|
|
if ((p = strchr( src + 1, '%' )))
|
|
{
|
|
len = p - src - 1; /* Length of the variable name */
|
|
if ((var = ENV_FindVariable( pdb->env_db->environ,
|
|
src + 1, len )))
|
|
{
|
|
src += len + 2; /* Skip the variable name */
|
|
len = strlen(var);
|
|
}
|
|
else
|
|
{
|
|
var = src; /* Copy original name instead */
|
|
len += 2;
|
|
src += len;
|
|
}
|
|
}
|
|
else /* unfinished variable name, ignore it */
|
|
{
|
|
var = src;
|
|
len = strlen(src); /* Copy whole string */
|
|
src += len;
|
|
}
|
|
}
|
|
total_size += len;
|
|
if (dst)
|
|
{
|
|
if (count < len) len = count;
|
|
memcpy( dst, var, len );
|
|
dst += len;
|
|
count -= len;
|
|
}
|
|
}
|
|
LeaveCriticalSection( &pdb->env_db->section );
|
|
|
|
/* Null-terminate the string */
|
|
if (dst)
|
|
{
|
|
if (!count) dst--;
|
|
*dst = '\0';
|
|
}
|
|
return total_size;
|
|
}
|
|
|
|
|
|
/***********************************************************************
|
|
* ExpandEnvironmentStrings32W (KERNEL32.217)
|
|
*/
|
|
DWORD WINAPI ExpandEnvironmentStrings32W( LPCWSTR src, LPWSTR dst, DWORD len )
|
|
{
|
|
LPSTR srcA = HEAP_strdupWtoA( GetProcessHeap(), 0, src );
|
|
LPSTR dstA = dst ? HeapAlloc( GetProcessHeap(), 0, len ) : NULL;
|
|
DWORD ret = ExpandEnvironmentStrings32A( srcA, dstA, len );
|
|
if (dstA)
|
|
{
|
|
lstrcpyAtoW( dst, dstA );
|
|
HeapFree( GetProcessHeap(), 0, dstA );
|
|
}
|
|
HeapFree( GetProcessHeap(), 0, srcA );
|
|
return ret;
|
|
}
|
|
|