steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove com-interface c-struct

db4
Doug Coleman 2009-08-29 19:33:04 -05:00
parent a81c78e485
commit 57673db7ca
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/windows/com/syntax/syntax.factor
View File

@ -7,13 +7,10 @@ IN: windows.com.syntax
<PRIVATE <PRIVATE
C-STRUCT: com-interface
{ "void*" "vtbl" } ;
MACRO: com-invoke ( n return parameters -- ) MACRO: com-invoke ( n return parameters -- )
[ 2nip length ] 3keep [ 2nip length ] 3keep
'[ '[
_ npick com-interface-vtbl _ cell * alien-cell _ _ _ npick *void* _ cell * alien-cell _ _
"stdcall" alien-indirect "stdcall" alien-indirect
] ; ] ;
@ -32,7 +29,7 @@ unless
dup "f" = [ drop f ] [ dup "f" = [ drop f ] [
dup +com-interface-definitions+ get-global at* dup +com-interface-definitions+ get-global at*
[ nip ] [ nip ]
[ swap " COM interface hasn't been defined" append throw ] [ " COM interface hasn't been defined" prepend throw ]
if if
] if ; ] if ;