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

windows.ole32: don't pull in debugger, reduces terrain demo deployed size by ~30kb

db4
Slava Pestov 2009-08-17 23:58:44 -05:00
parent 9839659dfd
commit 04397a63c7
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/windows/ole32/ole32.factor
View File

@ -1,5 +1,5 @@
USING: alien alien.syntax alien.c-types alien.strings math USING: alien alien.syntax alien.c-types alien.strings math
kernel sequences windows.errors windows.types debugger io kernel sequences windows.errors windows.types io
accessors math.order namespaces make math.parser windows.kernel32 accessors math.order namespaces make math.parser windows.kernel32
combinators locals specialized-arrays.direct.uchar ; combinators locals specialized-arrays.direct.uchar ;
IN: windows.ole32 IN: windows.ole32
@ -116,11 +116,10 @@ FUNCTION: void ReleaseStgMedium ( LPSTGMEDIUM pmedium ) ;
: succeeded? ( hresult -- ? ) : succeeded? ( hresult -- ? )
0 HEX: 7FFFFFFF between? ; 0 HEX: 7FFFFFFF between? ;
TUPLE: ole32-error error-code ; TUPLE: ole32-error code message ;
C: <ole32-error> ole32-error
M: ole32-error error. : <ole32-error> ( code -- error )
"COM method failed: " print error-code>> n>win32-error-string print ; dup n>win32-error-string \ ole32-error boa ;
: ole32-error ( hresult -- ) : ole32-error ( hresult -- )
dup succeeded? [ drop ] [ <ole32-error> throw ] if ; dup succeeded? [ drop ] [ <ole32-error> throw ] if ;