1 USING: alien alien.c-types alien.destructors windows.com.syntax
2 windows.ole32 windows.types continuations kernel alien.syntax
3 libc destructors accessors alien.data classes.struct windows.kernel32 ;
8 COM-INTERFACE: IUnknown f {00000000-0000-0000-C000-000000000046}
9 HRESULT QueryInterface ( REFGUID iid, void** ppvObject )
14 C-TYPE: IEnumFORMATETC
17 COM-INTERFACE: IDataObject IUnknown {0000010E-0000-0000-C000-000000000046}
18 HRESULT GetData ( FORMATETC* pFormatetc, STGMEDIUM* pmedium )
19 HRESULT GetDataHere ( FORMATETC* pFormatetc, STGMEDIUM* pmedium )
20 HRESULT QueryGetData ( FORMATETC* pFormatetc )
21 HRESULT GetCanonicalFormatEtc ( FORMATETC* pFormatetcIn, FORMATETC* pFormatetcOut )
22 HRESULT SetData ( FORMATETC* pFormatetc, STGMEDIUM* pmedium, BOOL fRelease )
23 HRESULT EnumFormatEtc ( DWORD dwDirection, IEnumFORMATETC** ppenumFormatetc )
24 HRESULT DAdvise ( FORMATETC* pFormatetc, DWORD advf, IAdviseSink* pAdvSink, DWORD* pdwConnection )
25 HRESULT DUnadvise ( DWORD pdwConnection )
26 HRESULT EnumDAdvise ( IEnumSTATDATA** ppenumAdvise ) ;
28 COM-INTERFACE: IDropSource IUnknown {00000121-0000-0000-C000-000000000046}
29 HRESULT GiveFeedback ( DWORD dwEffect )
30 HRESULT QueryContinueDrag ( BOOL fEscapePressed, DWORD grfKeyState ) ;
32 COM-INTERFACE: IDropTarget IUnknown {00000122-0000-0000-C000-000000000046}
33 HRESULT DragEnter ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
34 HRESULT DragOver ( DWORD grfKeyState, POINTL pt, DWORD* pdwEffect )
36 HRESULT Drop ( IDataObject* pDataObject, DWORD grfKeyState, POINTL pt, DWORD* pdwEffect ) ;
38 TYPEDEF: IDataObject* LPDATAOBJECT
39 TYPEDEF: IDropSource* LPDROPSOURCE
41 FUNCTION: HRESULT DoDragDrop (
42 LPDATAOBJECT pDataObj,
43 LPDROPSOURCE pDropSource,
48 COM-INTERFACE: ISequentialStream IUnknown {0C733A30-2A1C-11CE-ADE5-00AA0044773D}
49 HRESULT Read ( void* pv, ULONG cb, ULONG* pcbRead )
50 HRESULT Write ( void* pv, ULONG cb, ULONG* pcbWritten ) ;
55 { cbSize ULARGE_INTEGER }
60 { grfLocksSupported DWORD }
62 { grfStateBits DWORD }
66 CONSTANT: STGM_WRITE 1
67 CONSTANT: STGM_READWRITE 2
69 CONSTANT: STG_E_INVALIDFUNCTION 0x80030001
71 CONSTANT: STGTY_STORAGE 1
72 CONSTANT: STGTY_STREAM 2
73 CONSTANT: STGTY_LOCKBYTES 3
74 CONSTANT: STGTY_PROPERTY 4
76 CONSTANT: STREAM_SEEK_SET 0
77 CONSTANT: STREAM_SEEK_CUR 1
78 CONSTANT: STREAM_SEEK_END 2
80 CONSTANT: LOCK_WRITE 1
81 CONSTANT: LOCK_EXCLUSIVE 2
82 CONSTANT: LOCK_ONLYONCE 4
84 CONSTANT: GUID_NULL GUID: {00000000-0000-0000-0000-000000000000}
86 COM-INTERFACE: IStream ISequentialStream {0000000C-0000-0000-C000-000000000046}
87 HRESULT Seek ( LARGE_INTEGER dlibMove, DWORD dwOrigin, ULARGE_INTEGER* plibNewPosition )
88 HRESULT SetSize ( ULARGE_INTEGER* libNewSize )
89 HRESULT CopyTo ( IStream* pstm, ULARGE_INTEGER cb, ULARGE_INTEGER* pcbRead, ULARGE_INTEGER* pcbWritten )
90 HRESULT Commit ( DWORD grfCommitFlags )
92 HRESULT LockRegion ( ULARGE_INTEGER libOffset, ULARGE_INTEGER cb, DWORD dwLockType )
93 HRESULT UnlockRegion ( ULARGE_INTEGER libOffset, ULARGE_INTEGER cb, DWORD dwLockType )
94 HRESULT Stat ( STATSTG* pstatstg, DWORD grfStatFlag )
95 HRESULT Clone ( IStream** ppstm ) ;
97 FUNCTION: HRESULT RegisterDragDrop ( HWND hWnd, IDropTarget* pDropTarget )
98 FUNCTION: HRESULT RevokeDragDrop ( HWND hWnd )
99 FUNCTION: void ReleaseStgMedium ( LPSTGMEDIUM pmedium )
101 : com-query-interface ( interface iid -- interface' )
103 [ IUnknown::QueryInterface check-ole32-error ]
104 with-out-parameters ;
106 : com-add-ref ( interface -- interface )
107 [ IUnknown::AddRef drop ] keep ; inline
109 ERROR: null-com-release ;
110 : com-release ( interface -- )
111 [ IUnknown::Release drop ] [ null-com-release ] if* ; inline
113 : with-com-interface ( interface quot -- )
114 over [ com-release ] curry finally ; inline
116 DESTRUCTOR: com-release