Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

217 lines
5.6 KiB

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Copyright (c) 1998 Microsoft Corporation
;;
;; Module Name:
;;
;; whbase.tpl
;;
;; Abstract:
;;
;; This template defines the thunks for the base and NLS api set.
;; On 32-bit NT, these APIs don't exist - equivalent code calls
;; CSRSS via LPC.
;;
;; Author:
;;
;; 6-Oct-98 mzoran
;;
;; Revision History:
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[Macros]
MacroName=CallNameFromApiName
NumArgs=1
Begin=
@ApiName
End=
[EFunc]
TemplateName=NtWow64CsrBasepSoundSentryNotification
Also=NtWow64CsrBasepRefreshIniFileMapping
Also=NtWow64CsrBasepDefineDosDevice
Also=NtWow64CsrBasepGetTempFile
Also=NtWow64CsrBasepCreateProcess
Also=NtWow64CsrBasepExitProcess
Also=NtWow64CsrBasepSetProcessShutdownParam
Also=NtWow64CsrBasepGetProcessShutdownParam
Also=NtWow64CsrBasepSetTermsrvAppInstallMode
Also=NtWow64CsrBasepSetClientTimeZoneInformation
Also=NtWow64CsrBasepCreateThread
Also=NtWow64CsrBasepDebugProcess
Also=NtWow64CsrBasepNlsSetUserInfo
Also=NtWow64CsrBasepNlsPreserveSection
Also=NtWow64CsrBasepNlsCreateSection
Also=NtWow64CsrBasepDebugProcessStop
Also=NtWow64CsrBasepCreateActCtx
Also=NtWow64CsrBasepNlsUpdateCacheCount
Also=NtWow64CsrBasepNlsGetUserInfo
Begin=
@GenApiThunk(@ApiNameSkip(7))
End=
TemplateName=NtWow64CsrBaseCheckRunApp
Begin=
@GenApiThunk(@ApiNameSkip(10))
End=
TemplateName=NtWow64CsrBaseClientConnectToServer
PostCall=
if (!lConnectedToCsr) { @NL
PPEB32 peb32; @NL
lConnectedToCsr = (LONG)TRUE; @NL
// Copy setting from 64Bit PEB to the 32Bit PEB @NL
peb32 = (PPEB32)UlongToPtr(NtCurrentTeb32()->ProcessEnvironmentBlock); @NL
peb32->ReadOnlySharedMemoryBase = PtrToUlong(NtCurrentPeb()->ReadOnlySharedMemoryBase); @NL
peb32->ReadOnlySharedMemoryHeap = PtrToUlong(NtCurrentPeb()->ReadOnlySharedMemoryHeap); @NL
peb32->ReadOnlyStaticServerData = PtrToUlong(NtCurrentPeb()->ReadOnlyStaticServerData); @NL
} @NL
End=
Begin=
@GenApiThunk(@ApiNameSkip(7))
End=
TemplateName=NtWow64CsrBasepNlsSetMultipleUserInfo
PreCall=
cchData = (int)cchDataHost; @NL
End=
Begin=
@GenApiThunk(@ApiNameSkip(7))
End=
TemplateName=DeviceEventWorker
PreCall=
// This was a hack put in for the user mode PNP manager. @NL
// Since the PNP manager is going to be a 64bit process and nobody else @NL
// calls this, we have no need for a complex thunk here. @NL
End=
Begin=
@GenUnsupportedNtApiThunk
End=
TemplateName=CreateConsoleScreenBuffer
Locals=
@Types(Locals,lpScreenBufferData,PCONSOLE_GRAPHICS_BUFFER_INFO)
End=
PreCall=
@Types(PreCall,lpScreenBufferData,PCONSOLE_GRAPHICS_BUFFER_INFO)
End=
PostCall=
@Types(PostCall,lpScreenBufferData,PCONSOLE_GRAPHICS_BUFFER_INFO)
End=
[Code]
TemplateName=whbase
CGenBegin=
@NoFormat(
/*
* genthunk generated code: Do Not Modify
* Thunks for base and NLS functions.
*
*/
#define _WOW64DLLAPI_
#include "nt32.h"
#include "cgenhdr.h"
#include <stdio.h>
#include <stdlib.h>
#include <windef.h>
#include <ntosdef.h>
#include <procpowr.h>
#if defined(_X86_)
#include <v86emul.h>
#include <i386.h>
#elif defined(_AMD64_)
#include <amd64.h>
#elif defined(_IA64_)
#include <v86emul.h>
#include <ia64.h>
#else
#error "No Target Architecture"
#endif
#include <arc.h>
#include <ke.h>
#include <wow64thk.h>
#include <wow64t.h>
ASSERTNAME;
#pragma warning(4:4312) // conversion to type of greater size
#pragma warning(disable:4311) // Disable 'type cast' pointer truncation warning
#if defined(WOW64DOPROFILE)
#define APIPROFILE(apinum) (ptebase[(apinum)].HitCount++)
#else
#define APIPROFILE(apinum)
#endif
)
@NL
#if defined(WOW64DOPROFILE) @NL
WOW64SERVICE_PROFILE_TABLE_ELEMENT ptebase[] = { @Indent( @NL
@ApiList({L"@ApiName", 0, NULL, TRUE}, @NL)
{NULL, 0, NULL, FALSE} @NL
)};@NL
@NL
@NL
WOW64SERVICE_PROFILE_TABLE ptbase = {L"WHBASE", L"BASE?NLS Thunks", ptebase,
(sizeof(ptebase)/sizeof(WOW64SERVICE_PROFILE_TABLE_ELEMENT))-1}; @NL
#endif @NL
@NoFormat(
LONG lConnectedToCsr = (LONG)FALSE;
HANDLE
Wow64GetConsoleHandle(
VOID
)
{
PPEB32 peb32;
PRTL_USER_PROCESS_PARAMETERS32 params;
peb32 = (PPEB32)UlongToPtr(NtCurrentTeb32()->ProcessEnvironmentBlock);
params = (PRTL_USER_PROCESS_PARAMETERS32)UlongToPtr(peb32->ProcessParameters);
return LongToHandle(params->ConsoleHandle);
}
VOID
Wow64SetConsoleHandle(
HANDLE hHandle
)
{
PPEB32 peb32;
PRTL_USER_PROCESS_PARAMETERS32 params;
peb32 = (PPEB32)UlongToPtr(NtCurrentTeb32()->ProcessEnvironmentBlock);
params = (PRTL_USER_PROCESS_PARAMETERS32)UlongToPtr(peb32->ProcessParameters);
params->ConsoleHandle = HandleToUlong(hHandle);
}
VOID
Wow64SetLastError(
DWORD dwError
)
{
NtCurrentTeb32()->LastErrorValue = NtCurrentTeb()->LastErrorValue = (LONG)dwError;
}
)
@Template(Thunks)
@NL
// Each of the CSR NT APIs has different return values for error cases. @NL
// Since no standard exists, a case list is needed.
@NL
// Not used. @NL
#define WOW64_DEFAULT_ERROR_ACTION ApiErrorNTSTATUS @NL
@NL
// This parameter is unused. @NL
#define WOW64_DEFAULT_ERROR_PARAM 0 @NL
@NL
// A case list is needed for these APIs. @NL
extern WOW64_SERVICE_ERROR_CASE sdwhbaseErrorCase[]; @NL
#define WOW64_API_ERROR_CASES sdwhbaseErrorCase @NL @NL
@GenDispatchTable(sdwhbase)
@NL
CGenEnd=