From 92cb20163f1a1b9e32bac54b3ffcc9a20c99d777 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 6 Mar 2020 17:23:39 -0600 Subject: [PATCH] windows.ole32: Add more error constants as long. These are -2B..2B instead of positive integers because long is s32 on Windows. --- basis/windows/ole32/ole32.factor | 50 +++++++++++++++++++++++++------- 1 file changed, 39 insertions(+), 11 deletions(-) diff --git a/basis/windows/ole32/ole32.factor b/basis/windows/ole32/ole32.factor index e05af8703f..25c6846a05 100644 --- a/basis/windows/ole32/ole32.factor +++ b/basis/windows/ole32/ole32.factor @@ -1,8 +1,8 @@ -USING: alien alien.syntax alien.c-types alien.data alien.strings -math kernel sequences windows.errors windows.types io accessors -math.order namespaces make math.parser windows.kernel32 -combinators locals specialized-arrays literals splitting -grouping classes.struct combinators.smart ; +USING: accessors alien.c-types alien.data alien.syntax +classes.struct combinators combinators.smart grouping kernel +literals math.order math.parser parser sequences +specialized-arrays splitting windows.errors windows.kernel32 +windows.types words.constant ; SPECIALIZED-ARRAY: uchar IN: windows.ole32 @@ -33,12 +33,40 @@ CONSTANT: DRAGDROP_S_DROP 0x00040100 CONSTANT: DRAGDROP_S_CANCEL 0x00040101 CONSTANT: DRAGDROP_S_USEDEFAULTCURSORS 0x00040102 -CONSTANT: E_NOTIMPL 0x80004001 -CONSTANT: E_NOINTERFACE 0x80004002 -CONSTANT: E_FAIL 0x80004005 -CONSTANT: E_UNEXPECTED 0x8000FFFF -CONSTANT: E_OUTOFMEMORY 0x8007000E -CONSTANT: E_INVALIDARG 0x80070057 +<< +: >long ( integer -- long ) + long long deref ; inline +>> +<< +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: DROPEFFECT_NONE 0 -- 2.34.1