54 lines
1.1 KiB
Plaintext
54 lines
1.1 KiB
Plaintext
|
|
||
|
|
; Macroinstructions for interfacing the COM (Component Object Model) classes
|
||
|
|
|
||
|
|
macro cominvk object,proc,[arg]
|
||
|
|
{ common
|
||
|
|
if ~ arg eq
|
||
|
|
reverse
|
||
|
|
pushd arg
|
||
|
|
common
|
||
|
|
end if
|
||
|
|
assert defined object#.com.object ; must be a COM object
|
||
|
|
mov eax,[object]
|
||
|
|
push eax
|
||
|
|
mov eax,[eax]
|
||
|
|
call [eax+object#.#proc] }
|
||
|
|
|
||
|
|
macro comcall handle,interface,proc,[arg]
|
||
|
|
{ common
|
||
|
|
if ~ arg eq
|
||
|
|
reverse
|
||
|
|
pushd arg
|
||
|
|
common
|
||
|
|
end if
|
||
|
|
assert defined interface#.com.interface ; must be a COM interface
|
||
|
|
if handle eqtype eax | handle eqtype 0
|
||
|
|
push handle
|
||
|
|
local ..handle
|
||
|
|
label ..handle at handle
|
||
|
|
mov eax,[..handle]
|
||
|
|
else
|
||
|
|
mov eax,handle
|
||
|
|
push eax
|
||
|
|
mov eax,[eax]
|
||
|
|
end if
|
||
|
|
call [eax+interface#.#proc] }
|
||
|
|
|
||
|
|
macro interface name,[proc]
|
||
|
|
{ common
|
||
|
|
struc name \{
|
||
|
|
match , @struct \\{ define field@struct .,name, \\}
|
||
|
|
match no, @struct \\{ . dd ?
|
||
|
|
virtual at 0
|
||
|
|
forward
|
||
|
|
.#proc dd ?
|
||
|
|
common
|
||
|
|
.\#\\.com.object = name#.com.interface
|
||
|
|
end virtual \\} \}
|
||
|
|
virtual at 0
|
||
|
|
forward
|
||
|
|
name#.#proc dd ?
|
||
|
|
common
|
||
|
|
name#.com.interface = $ shr 2
|
||
|
|
end virtual }
|