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

windows.ole32: Add more error constants as long. 

These are -2B..2B instead of positive integers because long is s32 on
Windows.
master
Doug Coleman 2020-03-06 17:23:39 -06:00
parent 7eee21ab94
commit 92cb20163f
1 changed files with 39 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,8 +1,8 @@
USING: alien alien.syntax alien.c-types alien.data alien.strings USING: accessors alien.c-types alien.data alien.syntax
math kernel sequences windows.errors windows.types io accessors classes.struct combinators combinators.smart grouping kernel
math.order namespaces make math.parser windows.kernel32 literals math.order math.parser parser sequences
combinators locals specialized-arrays literals splitting specialized-arrays splitting windows.errors windows.kernel32
grouping classes.struct combinators.smart ; windows.types words.constant ;
SPECIALIZED-ARRAY: uchar SPECIALIZED-ARRAY: uchar
IN: windows.ole32 IN: windows.ole32
@ -33,12 +33,40 @@ CONSTANT: DRAGDROP_S_DROP 0x00040100
CONSTANT: DRAGDROP_S_CANCEL 0x00040101 CONSTANT: DRAGDROP_S_CANCEL 0x00040101
CONSTANT: DRAGDROP_S_USEDEFAULTCURSORS 0x00040102 CONSTANT: DRAGDROP_S_USEDEFAULTCURSORS 0x00040102
CONSTANT: E_NOTIMPL 0x80004001 <<
CONSTANT: E_NOINTERFACE 0x80004002 : >long ( integer -- long )
CONSTANT: E_FAIL 0x80004005 long <ref> long deref ; inline
CONSTANT: E_UNEXPECTED 0x8000FFFF >>
CONSTANT: E_OUTOFMEMORY 0x8007000E <<
CONSTANT: E_INVALIDARG 0x80070057 SYNTAX: LONG: scan-new-word scan-object >long define-constant ;
>>
LONG: E_NOTIMPL 0x80004001
LONG: E_NOINTERFACE 0x80004002
LONG: E_FAIL 0x80004005
LONG: E_UNEXPECTED 0x8000FFFF
LONG: E_OUTOFMEMORY 0x8007000E
LONG: E_INVALIDARG 0x80070057
LONG: OLE_E_OLEVERB 0x80040000
LONG: OLE_E_ADVF 0x80040001
LONG: OLE_E_ENUM_NOMORE 0x80040002
LONG: OLE_E_ADVISENOTSUPPORTED 0x80040003
LONG: OLE_E_NOCONNECTION 0x80040004
LONG: OLE_E_NOTRUNNING 0x80040005
LONG: OLE_E_NOCACHE 0x80040006
LONG: OLE_E_BLANK 0x80040007
LONG: OLE_E_CLASSDIFF 0x80040008
LONG: OLE_E_CANT_GETMONIKER 0x80040009
LONG: OLE_E_CANT_BINDTOSOURCE 0x8004000A
LONG: OLE_E_STATIC 0x8004000B
LONG: OLE_E_PROMPTSAVECANCELLED 0x8004000C
LONG: OLE_E_INVALIDRECT 0x8004000D
LONG: OLE_E_WRONGCOMPOBJ 0x8004000E
LONG: OLE_E_INVALIDHWND 0x8004000F
LONG: OLE_E_NOT_INPLACEACTIVE 0x80040010
LONG: OLE_E_CANTCONVERT 0x80040011
LONG: OLE_E_NOSTORAGE 0x80040012
CONSTANT: MK_ALT 0x20 CONSTANT: MK_ALT 0x20
CONSTANT: DROPEFFECT_NONE 0 CONSTANT: DROPEFFECT_NONE 0