136 lines
4.0 KiB
Factor
136 lines
4.0 KiB
Factor
USING: alien alien.syntax alien.c-types alien.strings math
|
|
kernel sequences windows windows.types combinators.lib ;
|
|
IN: windows.ole32
|
|
|
|
LIBRARY: ole32
|
|
|
|
TYPEDEF: GUID* REFGUID
|
|
TYPEDEF: void* LPUNKNOWN
|
|
TYPEDEF: wchar_t* LPOLESTR
|
|
TYPEDEF: wchar_t* LPCOLESTR
|
|
|
|
TYPEDEF: REFGUID REFIID
|
|
TYPEDEF: REFGUID REFCLSID
|
|
|
|
FUNCTION: HRESULT CoCreateInstance ( REFGUID rclsid, LPUNKNOWN pUnkOuter, DWORD dwClsContext, REFGUID riid, LPUNKNOWN out_ppv ) ;
|
|
FUNCTION: BOOL IsEqualGUID ( REFGUID rguid1, REFGUID rguid2 ) ;
|
|
FUNCTION: int StringFromGUID2 ( REFGUID rguid, LPOLESTR lpsz, int cchMax ) ;
|
|
FUNCTION: HRESULT CLSIDFromString ( LPOLESTR lpsz, REFGUID out_rguid ) ;
|
|
|
|
: S_OK 0 ; inline
|
|
: S_FALSE 1 ; inline
|
|
: E_NOINTERFACE HEX: 80004002 ; inline
|
|
: E_FAIL HEX: 80004005 ; inline
|
|
: E_INVALIDARG HEX: 80070057 ; inline
|
|
|
|
: MK_ALT HEX: 20 ; inline
|
|
: DROPEFFECT_NONE 0 ; inline
|
|
: DROPEFFECT_COPY 1 ; inline
|
|
: DROPEFFECT_MOVE 2 ; inline
|
|
: DROPEFFECT_LINK 4 ; inline
|
|
: DROPEFFECT_SCROLL HEX: 80000000 ; inline
|
|
: DD_DEFSCROLLINSET 11 ; inline
|
|
: DD_DEFSCROLLDELAY 50 ; inline
|
|
: DD_DEFSCROLLINTERVAL 50 ; inline
|
|
: DD_DEFDRAGDELAY 200 ; inline
|
|
: DD_DEFDRAGMINDIST 2 ; inline
|
|
|
|
: CF_TEXT 1 ; inline
|
|
: CF_BITMAP 2 ; inline
|
|
: CF_METAFILEPICT 3 ; inline
|
|
: CF_SYLK 4 ; inline
|
|
: CF_DIF 5 ; inline
|
|
: CF_TIFF 6 ; inline
|
|
: CF_OEMTEXT 7 ; inline
|
|
: CF_DIB 8 ; inline
|
|
: CF_PALETTE 9 ; inline
|
|
: CF_PENDATA 10 ; inline
|
|
: CF_RIFF 11 ; inline
|
|
: CF_WAVE 12 ; inline
|
|
: CF_UNICODETEXT 13 ; inline
|
|
: CF_ENHMETAFILE 14 ; inline
|
|
: CF_HDROP 15 ; inline
|
|
: CF_LOCALE 16 ; inline
|
|
: CF_MAX 17 ; inline
|
|
|
|
: CF_OWNERDISPLAY HEX: 0080 ; inline
|
|
: CF_DSPTEXT HEX: 0081 ; inline
|
|
: CF_DSPBITMAP HEX: 0082 ; inline
|
|
: CF_DSPMETAFILEPICT HEX: 0083 ; inline
|
|
: CF_DSPENHMETAFILE HEX: 008E ; inline
|
|
|
|
: DVASPECT_CONTENT 1 ; inline
|
|
: DVASPECT_THUMBNAIL 2 ; inline
|
|
: DVASPECT_ICON 4 ; inline
|
|
: DVASPECT_DOCPRINT 8 ; inline
|
|
|
|
: TYMED_HGLOBAL 1 ; inline
|
|
: TYMED_FILE 2 ; inline
|
|
: TYMED_ISTREAM 4 ; inline
|
|
: TYMED_ISTORAGE 8 ; inline
|
|
: TYMED_GDI 16 ; inline
|
|
: TYMED_MFPICT 32 ; inline
|
|
: TYMED_ENHMF 64 ; inline
|
|
: TYMED_NULL 0 ; inline
|
|
|
|
C-STRUCT: DVTARGETDEVICE
|
|
{ "DWORD" "tdSize" }
|
|
{ "WORD" "tdDriverNameOffset" }
|
|
{ "WORD" "tdDeviceNameOffset" }
|
|
{ "WORD" "tdPortNameOffset" }
|
|
{ "WORD" "tdExtDevmodeOffset" }
|
|
{ "BYTE[1]" "tdData" } ;
|
|
|
|
TYPEDEF: WORD CLIPFORMAT
|
|
TYPEDEF: POINT POINTL
|
|
|
|
C-STRUCT: FORMATETC
|
|
{ "CLIPFORMAT" "cfFormat" }
|
|
{ "DVTARGETDEVICE*" "ptd" }
|
|
{ "DWORD" "dwAspect" }
|
|
{ "LONG" "lindex" }
|
|
{ "DWORD" "tymed" } ;
|
|
TYPEDEF: FORMATETC* LPFORMATETC
|
|
|
|
C-STRUCT: STGMEDIUM
|
|
{ "DWORD" "tymed" }
|
|
{ "void*" "data" }
|
|
{ "LPUNKNOWN" "punkForRelease" } ;
|
|
TYPEDEF: STGMEDIUM* LPSTGMEDIUM
|
|
|
|
: COINIT_MULTITHREADED 0 ; inline
|
|
: COINIT_APARTMENTTHREADED 2 ; inline
|
|
: COINIT_DISABLE_OLE1DDE 4 ; inline
|
|
: COINIT_SPEED_OVER_MEMORY 8 ; inline
|
|
|
|
FUNCTION: HRESULT OleInitialize ( void* reserved ) ;
|
|
FUNCTION: HRESULT CoInitializeEx ( void* reserved, DWORD dwCoInit ) ;
|
|
|
|
FUNCTION: HRESULT RegisterDragDrop ( HWND hWnd, IDropTarget* pDropTarget ) ;
|
|
FUNCTION: HRESULT RevokeDragDrop ( HWND hWnd ) ;
|
|
FUNCTION: void ReleaseStgMedium ( LPSTGMEDIUM pmedium ) ;
|
|
|
|
: succeeded? ( hresult -- ? )
|
|
0 HEX: 7FFFFFFF between? ;
|
|
|
|
: ole32-error ( hresult -- )
|
|
dup succeeded? [
|
|
drop
|
|
] [ (win32-error-string) throw ] if ;
|
|
|
|
: ole-initialize ( -- )
|
|
f OleInitialize ole32-error ;
|
|
|
|
: guid= ( a b -- ? )
|
|
IsEqualGUID c-bool> ;
|
|
|
|
: GUID-STRING-LENGTH
|
|
"{01234567-89ab-cdef-0123-456789abcdef}" length ; inline
|
|
|
|
: string>guid ( string -- guid )
|
|
utf16n string>alien "GUID" <c-object> [ CLSIDFromString ole32-error ] keep ;
|
|
: guid>string ( guid -- string )
|
|
GUID-STRING-LENGTH 1+ [ "ushort" <c-array> ] keep
|
|
[ StringFromGUID2 drop ] { 2 } multikeep utf16n alien>string ;
|
|
|