Sweden-Number/dlls/vmm.vxd/vmm.c

479 lines
18 KiB
C

/*
* VMM VxD implementation
*
* Copyright 1998 Marcus Meissner
* Copyright 1998 Ulrich Weigand
* Copyright 1998 Patrik Stridvall
*
* 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 <stdarg.h>
#include "windef.h"
#include "winbase.h"
#include "winreg.h"
#include "winnls.h"
#include "winternl.h"
#include "wine/debug.h"
WINE_DEFAULT_DEBUG_CHANNEL(vxd);
/*
* VMM VxDCall service names are (mostly) taken from Stan Mitchell's
* "Inside the Windows 95 File System"
*/
#define N_VMM_SERVICE 41
static const char * const VMM_Service_Name[N_VMM_SERVICE] =
{
"PageReserve", /* 0x0000 */
"PageCommit", /* 0x0001 */
"PageDecommit", /* 0x0002 */
"PagerRegister", /* 0x0003 */
"PagerQuery", /* 0x0004 */
"HeapAllocate", /* 0x0005 */
"ContextCreate", /* 0x0006 */
"ContextDestroy", /* 0x0007 */
"PageAttach", /* 0x0008 */
"PageFlush", /* 0x0009 */
"PageFree", /* 0x000A */
"ContextSwitch", /* 0x000B */
"HeapReAllocate", /* 0x000C */
"PageModifyPermissions", /* 0x000D */
"PageQuery", /* 0x000E */
"GetCurrentContext", /* 0x000F */
"HeapFree", /* 0x0010 */
"RegOpenKey", /* 0x0011 */
"RegCreateKey", /* 0x0012 */
"RegCloseKey", /* 0x0013 */
"RegDeleteKey", /* 0x0014 */
"RegSetValue", /* 0x0015 */
"RegDeleteValue", /* 0x0016 */
"RegQueryValue", /* 0x0017 */
"RegEnumKey", /* 0x0018 */
"RegEnumValue", /* 0x0019 */
"RegQueryValueEx", /* 0x001A */
"RegSetValueEx", /* 0x001B */
"RegFlushKey", /* 0x001C */
"RegQueryInfoKey", /* 0x001D */
"GetDemandPageInfo", /* 0x001E */
"BlockOnID", /* 0x001F */
"SignalID", /* 0x0020 */
"RegLoadKey", /* 0x0021 */
"RegUnLoadKey", /* 0x0022 */
"RegSaveKey", /* 0x0023 */
"RegRemapPreDefKey", /* 0x0024 */
"PageChangePager", /* 0x0025 */
"RegQueryMultipleValues", /* 0x0026 */
"RegReplaceKey", /* 0x0027 */
"<KERNEL32.101>" /* 0x0028 -- What does this do??? */
};
/* PageReserve arena values */
#define PR_PRIVATE 0x80000400 /* anywhere in private arena */
#define PR_SHARED 0x80060000 /* anywhere in shared arena */
#define PR_SYSTEM 0x80080000 /* anywhere in system arena */
/* PageReserve flags */
#define PR_FIXED 0x00000008 /* don't move during PageReAllocate */
#define PR_4MEG 0x00000001 /* allocate on 4mb boundary */
#define PR_STATIC 0x00000010 /* see PageReserve documentation */
/* PageCommit default pager handle values */
#define PD_ZEROINIT 0x00000001 /* swappable zero-initialized pages */
#define PD_NOINIT 0x00000002 /* swappable uninitialized pages */
#define PD_FIXEDZERO 0x00000003 /* fixed zero-initialized pages */
#define PD_FIXED 0x00000004 /* fixed uninitialized pages */
/* PageCommit flags */
#define PC_FIXED 0x00000008 /* pages are permanently locked */
#define PC_LOCKED 0x00000080 /* pages are made present and locked */
#define PC_LOCKEDIFDP 0x00000100 /* pages are locked if swap via DOS */
#define PC_WRITEABLE 0x00020000 /* make the pages writeable */
#define PC_USER 0x00040000 /* make the pages ring 3 accessible */
#define PC_INCR 0x40000000 /* increment "pagerdata" each page */
#define PC_PRESENT 0x80000000 /* make pages initially present */
#define PC_STATIC 0x20000000 /* allow commit in PR_STATIC object */
#define PC_DIRTY 0x08000000 /* make pages initially dirty */
#define PC_CACHEDIS 0x00100000 /* Allocate uncached pages - new for WDM */
#define PC_CACHEWT 0x00080000 /* Allocate write through cache pages - new for WDM */
#define PC_PAGEFLUSH 0x00008000 /* Touch device mapped pages on alloc - new for WDM */
/* PageCommitContig additional flags */
#define PCC_ZEROINIT 0x00000001 /* zero-initialize new pages */
#define PCC_NOLIN 0x10000000 /* don't map to any linear address */
/* Pop a DWORD from the 32-bit stack */
static inline DWORD stack32_pop( CONTEXT86 *context )
{
DWORD ret = *(DWORD *)context->Esp;
context->Esp += sizeof(DWORD);
return ret;
}
/***********************************************************************
* VxDCall (VMM.VXD.@)
*/
DWORD WINAPI VMM_VxDCall( DWORD service, CONTEXT86 *context )
{
static int warned;
switch ( LOWORD(service) )
{
case 0x0000: /* PageReserve */
{
LPVOID address;
LPVOID ret;
DWORD psize = getpagesize();
ULONG page = (ULONG) stack32_pop( context );
ULONG npages = (ULONG) stack32_pop( context );
ULONG flags = (ULONG) stack32_pop( context );
TRACE("PageReserve: page: %08x, npages: %08x, flags: %08x partial stub!\n",
page, npages, flags );
if ( page == PR_SYSTEM ) {
ERR("Can't reserve ring 1 memory\n");
return -1;
}
/* FIXME: This has to be handled separately for the separate
address-spaces we now have */
if ( page == PR_PRIVATE || page == PR_SHARED ) page = 0;
/* FIXME: Handle flags in some way */
address = (LPVOID )(page * psize);
ret = VirtualAlloc ( address, ( npages * psize ), MEM_RESERVE, 0 );
TRACE("PageReserve: returning: %p\n", ret );
if ( ret == NULL )
return -1;
else
return (DWORD )ret;
}
case 0x0001: /* PageCommit */
{
LPVOID address;
LPVOID ret;
DWORD virt_perm;
DWORD psize = getpagesize();
ULONG page = (ULONG) stack32_pop( context );
ULONG npages = (ULONG) stack32_pop( context );
ULONG hpd = (ULONG) stack32_pop( context );
ULONG pagerdata = (ULONG) stack32_pop( context );
ULONG flags = (ULONG) stack32_pop( context );
TRACE("PageCommit: page: %08x, npages: %08x, hpd: %08x pagerdata: "
"%08x, flags: %08x partial stub\n",
page, npages, hpd, pagerdata, flags );
if ( flags & PC_USER )
if ( flags & PC_WRITEABLE )
virt_perm = PAGE_EXECUTE_READWRITE;
else
virt_perm = PAGE_EXECUTE_READ;
else
virt_perm = PAGE_NOACCESS;
address = (LPVOID )(page * psize);
ret = VirtualAlloc ( address, ( npages * psize ), MEM_COMMIT, virt_perm );
TRACE("PageCommit: Returning: %p\n", ret );
return (DWORD )ret;
}
case 0x0002: /* PageDecommit */
{
LPVOID address;
BOOL ret;
DWORD psize = getpagesize();
ULONG page = (ULONG) stack32_pop( context );
ULONG npages = (ULONG) stack32_pop( context );
ULONG flags = (ULONG) stack32_pop( context );
TRACE("PageDecommit: page: %08x, npages: %08x, flags: %08x partial stub\n",
page, npages, flags );
address = (LPVOID )( page * psize );
ret = VirtualFree ( address, ( npages * psize ), MEM_DECOMMIT );
TRACE("PageDecommit: Returning: %s\n", ret ? "TRUE" : "FALSE" );
return ret;
}
case 0x000d: /* PageModifyPermissions */
{
DWORD pg_old_perm;
DWORD pg_new_perm;
DWORD virt_old_perm;
DWORD virt_new_perm;
MEMORY_BASIC_INFORMATION mbi;
LPVOID address;
DWORD psize = getpagesize();
ULONG page = stack32_pop ( context );
ULONG npages = stack32_pop ( context );
ULONG permand = stack32_pop ( context );
ULONG permor = stack32_pop ( context );
TRACE("PageModifyPermissions %08x %08x %08x %08x partial stub\n",
page, npages, permand, permor );
address = (LPVOID )( page * psize );
VirtualQuery ( address, &mbi, sizeof ( MEMORY_BASIC_INFORMATION ));
virt_old_perm = mbi.Protect;
switch ( virt_old_perm & mbi.Protect ) {
case PAGE_READONLY:
case PAGE_EXECUTE:
case PAGE_EXECUTE_READ:
pg_old_perm = PC_USER;
break;
case PAGE_READWRITE:
case PAGE_WRITECOPY:
case PAGE_EXECUTE_READWRITE:
case PAGE_EXECUTE_WRITECOPY:
pg_old_perm = PC_USER | PC_WRITEABLE;
break;
case PAGE_NOACCESS:
default:
pg_old_perm = 0;
break;
}
pg_new_perm = pg_old_perm;
pg_new_perm &= permand & ~PC_STATIC;
pg_new_perm |= permor & ~PC_STATIC;
virt_new_perm = ( virt_old_perm ) & ~0xff;
if ( pg_new_perm & PC_USER )
{
if ( pg_new_perm & PC_WRITEABLE )
virt_new_perm |= PAGE_EXECUTE_READWRITE;
else
virt_new_perm |= PAGE_EXECUTE_READ;
}
if ( ! VirtualProtect ( address, ( npages * psize ), virt_new_perm, &virt_old_perm ) ) {
ERR("Can't change page permissions for %p\n", address );
return 0xffffffff;
}
TRACE("Returning: %08x\n", pg_old_perm );
return pg_old_perm;
}
case 0x000a: /* PageFree */
{
BOOL ret;
LPVOID hmem = (LPVOID) stack32_pop( context );
DWORD flags = (DWORD ) stack32_pop( context );
TRACE("PageFree: hmem: %p, flags: %08x partial stub\n",
hmem, flags );
ret = VirtualFree ( hmem, 0, MEM_RELEASE );
TRACE("Returning: %d\n", ret );
return ret;
}
case 0x0011: /* RegOpenKey */
stack32_pop( context ); /* kkey */
stack32_pop( context ); /* lpszSubKey */
stack32_pop( context ); /* retkey */
/* return RegOpenKeyExA( hkey, lpszSubKey, 0, KEY_ALL_ACCESS, retkey ); */
if (!warned)
{
ERR( "Using the native Win95 advapi32.dll is no longer supported.\n" );
ERR( "Please configure advapi32 to builtin.\n" );
warned++;
}
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x0012: /* RegCreateKey */
stack32_pop( context ); /* hkey */
stack32_pop( context ); /* lpszSubKey */
stack32_pop( context ); /* retkey */
/* return RegCreateKeyA( hkey, lpszSubKey, retkey ); */
if (!warned)
{
ERR( "Using the native Win95 advapi32.dll is no longer supported.\n" );
ERR( "Please configure advapi32 to builtin.\n" );
warned++;
}
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x0013: /* RegCloseKey */
stack32_pop( context ); /* hkey */
/* return RegCloseKey( hkey ); */
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x0014: /* RegDeleteKey */
stack32_pop( context ); /* hkey */
stack32_pop( context ); /* lpszSubKey */
/* return RegDeleteKeyA( hkey, lpszSubKey ); */
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x0015: /* RegSetValue */
stack32_pop( context ); /* hkey */
stack32_pop( context ); /* lpszSubKey */
stack32_pop( context ); /* dwType */
stack32_pop( context ); /* lpszData */
stack32_pop( context ); /* cbData */
/* return RegSetValueA( hkey, lpszSubKey, dwType, lpszData, cbData ); */
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x0016: /* RegDeleteValue */
stack32_pop( context ); /* hkey */
stack32_pop( context ); /* lpszValue */
/* return RegDeleteValueA( hkey, lpszValue ); */
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x0017: /* RegQueryValue */
stack32_pop( context ); /* hkey */
stack32_pop( context ); /* lpszSubKey */
stack32_pop( context ); /* lpszData */
stack32_pop( context ); /* lpcbData */
/* return RegQueryValueA( hkey, lpszSubKey, lpszData, lpcbData ); */
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x0018: /* RegEnumKey */
stack32_pop( context ); /* hkey */
stack32_pop( context ); /* iSubkey */
stack32_pop( context ); /* lpszName */
stack32_pop( context ); /* lpcchName */
/* return RegEnumKeyA( hkey, iSubkey, lpszName, lpcchName ); */
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x0019: /* RegEnumValue */
stack32_pop( context ); /* hkey */
stack32_pop( context ); /* iValue */
stack32_pop( context ); /* lpszValue */
stack32_pop( context ); /* lpcchValue */
stack32_pop( context ); /* lpReserved */
stack32_pop( context ); /* lpdwType */
stack32_pop( context ); /* lpbData */
stack32_pop( context ); /* lpcbData */
/* return RegEnumValueA( hkey, iValue, lpszValue, lpcchValue, lpReserved, lpdwType, lpbData, lpcbData ); */
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x001A: /* RegQueryValueEx */
stack32_pop( context ); /* hkey */
stack32_pop( context ); /* lpszValue */
stack32_pop( context ); /* lpReserved */
stack32_pop( context ); /* lpdwType */
stack32_pop( context ); /* lpbData */
stack32_pop( context ); /* lpcbData */
/* return RegQueryValueExA( hkey, lpszValue, lpReserved, lpdwType, lpbData, lpcbData ); */
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x001B: /* RegSetValueEx */
stack32_pop( context ); /* hkey */
stack32_pop( context ); /* lpszValue */
stack32_pop( context ); /* dwReserved */
stack32_pop( context ); /* dwType */
stack32_pop( context ); /* lpbData */
stack32_pop( context ); /* cbData */
/* return RegSetValueExA( hkey, lpszValue, dwReserved, dwType, lpbData, cbData ); */
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x001C: /* RegFlushKey */
stack32_pop( context ); /* hkey */
/* return RegFlushKey( hkey ); */
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x001D: /* RegQueryInfoKey */
/* NOTE: This VxDCall takes only a subset of the parameters that the
corresponding Win32 API call does. The implementation in Win95
ADVAPI32 sets all output parameters not mentioned here to zero. */
stack32_pop( context ); /* hkey */
stack32_pop( context ); /* lpcSubKeys */
stack32_pop( context ); /* lpcchMaxSubKey */
stack32_pop( context ); /* lpcValues */
stack32_pop( context ); /* lpcchMaxValueName */
stack32_pop( context ); /* lpcchMaxValueData */
/* return RegQueryInfoKeyA( hkey, lpcSubKeys, lpcchMaxSubKey, lpcValues, lpcchMaxValueName, lpcchMaxValueData ); */
return ERROR_CALL_NOT_IMPLEMENTED;
case 0x001e: /* GetDemandPageInfo */
{
DWORD dinfo = (DWORD)stack32_pop( context );
DWORD flags = (DWORD)stack32_pop( context );
/* GetDemandPageInfo is supposed to fill out the struct at
* "dinfo" with various low-level memory management information.
* Apps are certainly not supposed to call this, although it's
* demoed and documented by Pietrek on pages 441-443 of "Windows
* 95 System Programming Secrets" if any program needs a real
* implementation of this.
*/
FIXME("GetDemandPageInfo(%08x %08x): stub!\n", dinfo, flags);
return 0;
}
case 0x0021: /* RegLoadKey */
{
HKEY hkey = (HKEY) stack32_pop( context );
LPCSTR lpszSubKey = (LPCSTR)stack32_pop( context );
LPCSTR lpszFile = (LPCSTR)stack32_pop( context );
FIXME("RegLoadKey(%p,%s,%s): stub\n",hkey, debugstr_a(lpszSubKey), debugstr_a(lpszFile));
return ERROR_CALL_NOT_IMPLEMENTED;
}
case 0x0022: /* RegUnLoadKey */
{
HKEY hkey = (HKEY) stack32_pop( context );
LPCSTR lpszSubKey = (LPCSTR)stack32_pop( context );
FIXME("RegUnLoadKey(%p,%s): stub\n",hkey, debugstr_a(lpszSubKey));
return ERROR_CALL_NOT_IMPLEMENTED;
}
case 0x0023: /* RegSaveKey */
{
HKEY hkey = (HKEY) stack32_pop( context );
LPCSTR lpszFile = (LPCSTR)stack32_pop( context );
LPSECURITY_ATTRIBUTES sa = (LPSECURITY_ATTRIBUTES)stack32_pop( context );
FIXME("RegSaveKey(%p,%s,%p): stub\n",hkey, debugstr_a(lpszFile),sa);
return ERROR_CALL_NOT_IMPLEMENTED;
}
#if 0 /* Functions are not yet implemented in misc/registry.c */
case 0x0024: /* RegRemapPreDefKey */
case 0x0026: /* RegQueryMultipleValues */
#endif
case 0x0027: /* RegReplaceKey */
{
HKEY hkey = (HKEY) stack32_pop( context );
LPCSTR lpszSubKey = (LPCSTR)stack32_pop( context );
LPCSTR lpszNewFile= (LPCSTR)stack32_pop( context );
LPCSTR lpszOldFile= (LPCSTR)stack32_pop( context );
FIXME("RegReplaceKey(%p,%s,%s,%s): stub\n", hkey, debugstr_a(lpszSubKey),
debugstr_a(lpszNewFile),debugstr_a(lpszOldFile));
return ERROR_CALL_NOT_IMPLEMENTED;
}
default:
if (LOWORD(service) < N_VMM_SERVICE)
FIXME( "Unimplemented service %s (%08x)\n",
VMM_Service_Name[LOWORD(service)], service);
else
FIXME( "Unknown service %08x\n", service);
return 0xffffffff; /* FIXME */
}
}