219 lines
5 KiB
OpenEdge ABL
219 lines
5 KiB
OpenEdge ABL
; Copyright (c) Microsoft Corporation. All rights reserved.
|
|
|
|
[Macros]
|
|
|
|
; Generate an api call, passing the name of the variable to use for the return
|
|
; value and the name of the API to call.
|
|
; eg. @CallApi(ApiName, RetVal)
|
|
MacroName=CallApi
|
|
NumArgs=2
|
|
Begin=
|
|
@IfApiRet(@MArg(2)=)@MArg(1)(@IfArgs(@ArgList(@ListCol@ArgName@ArgMore(,)))); @NL
|
|
End=
|
|
|
|
; Expand all parameters into local variables
|
|
MacroName=ApiLocals
|
|
Begin= @NL
|
|
@IfArgs(@ListCol@ArgList(@ArgLocal;))
|
|
End=
|
|
|
|
; Generate the epilog for a thunked API.
|
|
MacroName=ApiEpilog
|
|
Begin=
|
|
return @IfApiRet(RetVal); @NL @NL @NL
|
|
@NL
|
|
End=
|
|
|
|
; Generate the exit for a thunked API.
|
|
MacroName=ApiExit
|
|
Begin=
|
|
} @NL
|
|
End=
|
|
|
|
MacroName=GenApiThunk
|
|
NumArgs=1
|
|
Begin=
|
|
@NL
|
|
@IfApiCode(Header)
|
|
@NL
|
|
@ApiProlog
|
|
// @NL
|
|
// Begin: IfApiCode(ApiEntry) @NL
|
|
@NL
|
|
@IfApiCode(ApiEntry)
|
|
@NL
|
|
@Indent(
|
|
@NL
|
|
@IfApiRet(@ApiFnRet RetVal;) @NL
|
|
@NL
|
|
// @NL
|
|
// Begin: ApiLocals @NL
|
|
@NL
|
|
@ApiLocals
|
|
@NL
|
|
// @NL
|
|
// Begin: Types(Locals) @NL
|
|
@NL
|
|
@Types(Locals)
|
|
@NL
|
|
// @NL
|
|
// Begin: IfApiCode(Locals) @NL
|
|
@IfApiCode(Locals)
|
|
@NL
|
|
APIPROFILE(@ApiNum); @NL
|
|
@NL
|
|
// @NL
|
|
//Begin: Types(PreCall) @NL
|
|
@NL
|
|
@Types(PreCall)
|
|
@NL
|
|
// @NL
|
|
// Begin: IfApiCode(PreCall) @NL
|
|
@NL
|
|
@IfApiCode(PreCall)
|
|
@NL
|
|
// @NL
|
|
// Begin: CallApi(MArg(1), RetVal) @NL
|
|
@NL
|
|
@CallApi(@MArg(1), RetVal)
|
|
@NL
|
|
// @NL
|
|
// Begin: Types(PostCall) @NL
|
|
@NL
|
|
@Types(PostCall)
|
|
@NL
|
|
// @NL
|
|
// Begin: ApiCode(PostCall) @NL
|
|
@IfApiCode(PostCall)
|
|
@NL
|
|
@NL
|
|
// @NL
|
|
// Begin: ApiEpilog @NL
|
|
@ApiEpilog
|
|
@NL
|
|
)
|
|
// @NL
|
|
// Begin: IfApiCode(ApiExit) @NL
|
|
@NL
|
|
@IfApiCode(ApiExit)
|
|
@NL
|
|
//
|
|
// Begin: ApiExit @NL
|
|
@ApiExit
|
|
@NL
|
|
@NL
|
|
End=
|
|
|
|
MacroName=GenPlaceHolderThunk
|
|
NumArgs=1
|
|
Begin=
|
|
// @NL
|
|
@ApiProlog @NL
|
|
// Placeholder Thunk @NL
|
|
@Indent(
|
|
@IfApiRet(@ApiFnRet RetVal;@NL@NL)
|
|
@IfArgs(@ListCol@ArgList(@ArgLocal = (@ArgType)@ArgNameHost;))
|
|
APIPROFILE(@ApiNum); @NL
|
|
LOGPRINT((TRACELOG, "wh@ApiName(@ApiNum) placeholder: @IfArgs(@ArgList(@ArgName: %x@ArgMore(,)))\n"@IfArgs(, @ArgList((@ArgName)@ArgMore(,))))); @NL
|
|
WOWASSERT(FALSE); @NL
|
|
@IfApiCode(PreCall)
|
|
@CallApi(@MArg(1), RetVal)
|
|
@IfApiCode(PostCall)
|
|
LOGPRINT((TRACELOG, "wh@ApiName(@ApiNum) end: @IfApiRet(retval: %x)\n"@IfApiRet(,RetVal))); @NL
|
|
return @IfApiRet(RetVal); @NL
|
|
)
|
|
}@NL
|
|
@NL
|
|
End=
|
|
|
|
MacroName=GenUnsupportedNtApiThunk
|
|
NumArgs=0
|
|
Begin=
|
|
@ApiProlog @NL
|
|
// Unsupported NT Api Thunk @NL
|
|
@NL
|
|
@Indent(
|
|
APIPROFILE(@ApiNum); @NL
|
|
LOGPRINT((TRACELOG, "wh@ApiName(@ApiNum) unsupported nt api thunk: @IfArgs(@ArgList(@ArgName: %x@ArgMore(,)))\n"@IfArgs(, @ArgList((@ArgNameHost)@ArgMore(,))))); @NL
|
|
WOWASSERT(FALSE); @NL
|
|
RtlRaiseStatus(STATUS_NOT_IMPLEMENTED); @NL
|
|
|
|
return @IfApiRet((@ApiFnRet)0); @NL
|
|
)
|
|
}@NL
|
|
@NL
|
|
End=
|
|
|
|
MacroName=GenDispatchTable
|
|
NumArgs=1
|
|
Begin=
|
|
@NL
|
|
ULONG_PTR @MArg(1)JumpTable[] = { @NL
|
|
@ApiList(
|
|
@Indent(
|
|
(ULONG_PTR)wh@ApiName,@NL
|
|
)
|
|
)
|
|
}; @NL
|
|
@NL
|
|
|
|
UCHAR @MArg(1)Number[] = { @NL
|
|
@ApiList(
|
|
@Indent(
|
|
(@ArgSize/4) * ARGSIZE /*@ApiName*/, @NL
|
|
)
|
|
)
|
|
}; @NL
|
|
|
|
#if !defined(WOW64_DEFAULT_ERROR_ACTION) || !defined(WOW64_DEFAULT_ERROR_PARAM) || !defined(WOW64_API_ERROR_CASES) @NL
|
|
#error Thunk must define error handling macros for error handling table. @NL
|
|
#endif @NL
|
|
|
|
WOW64SERVICE_TABLE_DESCRIPTOR @MArg(1) = {@MArg(1)JumpTable, NULL, 1000,@NL
|
|
#if defined(_IA64_) @NL
|
|
(LONG)0,@NL
|
|
#endif @NL
|
|
@MArg(1)Number, @NL
|
|
WOW64_DEFAULT_ERROR_ACTION, // Defined by thunks to set default action. @NL
|
|
WOW64_DEFAULT_ERROR_PARAM, // Defined by thunks to set default action param. @NL
|
|
WOW64_API_ERROR_CASES // Defined by thunks to set the default error cases(may be NULL) @NL
|
|
}; @NL
|
|
@NL
|
|
|
|
End=
|
|
|
|
|
|
[IFunc]
|
|
TemplateName=Thunks
|
|
Header=
|
|
End=
|
|
ApiEntry=
|
|
End=
|
|
Begin=
|
|
@GenApiThunk(@CallNameFromApiName(@ApiName))
|
|
End=
|
|
ApiExit=
|
|
End=
|
|
|
|
[IFunc]
|
|
TemplateName=PlaceHolderThunks
|
|
ApiEntry=
|
|
End=
|
|
Begin=
|
|
@GenPlaceHolderThunk
|
|
End=
|
|
ApiExit=
|
|
End=
|
|
|
|
[Code]
|
|
TemplateName=PlaceHolderThunk
|
|
Begin=
|
|
@GenPlaceHolderThunk(@CallNameFromApiName(@ApiName))
|
|
End=
|
|
|
|
[Code]
|
|
TemplateName=Thunk
|
|
Begin=
|
|
@GenApiThunk(@ApiName)
|
|
End=
|