extra/windows/ole32/ole32.factor

   1 USING: alien alien.syntax alien.c-types math kernel sequences\r
   2 windows windows.kernel32 windows.types combinators.lib ;\r
   3 IN: windows.ole32\r
   4 \r
   5 LIBRARY: ole32\r
   6 \r
   7 TYPEDEF: GUID* REFGUID\r
   8 TYPEDEF: void* LPUNKNOWN\r
   9 TYPEDEF: ushort* LPOLESTR\r
  10 TYPEDEF: ushort* LPCOLESTR\r
  11 \r
  12 TYPEDEF: REFGUID REFIID\r
  13 TYPEDEF: REFGUID REFCLSID\r
  14 \r
  15 FUNCTION: HRESULT CoCreateInstance ( REFGUID rclsid, LPUNKNOWN pUnkOuter, DWORD dwClsContext, REFGUID riid, LPUNKNOWN out_ppv ) ;\r
  16 FUNCTION: BOOL IsEqualGUID ( REFGUID rguid1, REFGUID rguid2 ) ;\r
  17 FUNCTION: int StringFromGUID2 ( REFGUID rguid, LPOLESTR lpsz, int cchMax ) ;\r
  18 FUNCTION: HRESULT CLSIDFromString ( LPOLESTR lpsz, REFGUID out_rguid ) ;\r
  19 \r
  20 : S_OK 0 ; inline\r
  21 : S_FALSE 1 ; inline\r
  22 : E_NOINTERFACE HEX: 80004002 ; inline\r
  23 : E_FAIL HEX: 80004005 ; inline\r
  24 : E_INVALIDARG HEX: 80070057 ; inline\r
  25 \r
  26 : MK_ALT HEX: 20 ; inline\r
  27 : DROPEFFECT_NONE 0 ; inline\r
  28 : DROPEFFECT_COPY 1 ; inline\r
  29 : DROPEFFECT_MOVE 2 ; inline\r
  30 : DROPEFFECT_LINK 4 ; inline\r
  31 : DROPEFFECT_SCROLL HEX: 80000000 ; inline\r
  32 : DD_DEFSCROLLINSET 11 ; inline\r
  33 : DD_DEFSCROLLDELAY 50 ; inline\r
  34 : DD_DEFSCROLLINTERVAL 50 ; inline\r
  35 : DD_DEFDRAGDELAY 200 ; inline\r
  36 : DD_DEFDRAGMINDIST 2 ; inline\r
  37 \r
  38 : CF_TEXT             1 ; inline\r
  39 : CF_BITMAP           2 ; inline\r
  40 : CF_METAFILEPICT     3 ; inline\r
  41 : CF_SYLK             4 ; inline\r
  42 : CF_DIF              5 ; inline\r
  43 : CF_TIFF             6 ; inline\r
  44 : CF_OEMTEXT          7 ; inline\r
  45 : CF_DIB              8 ; inline\r
  46 : CF_PALETTE          9 ; inline\r
  47 : CF_PENDATA          10 ; inline\r
  48 : CF_RIFF             11 ; inline\r
  49 : CF_WAVE             12 ; inline\r
  50 : CF_UNICODETEXT      13 ; inline\r
  51 : CF_ENHMETAFILE      14 ; inline\r
  52 : CF_HDROP            15 ; inline\r
  53 : CF_LOCALE           16 ; inline\r
  54 : CF_MAX              17 ; inline\r
  55 \r
  56 : CF_OWNERDISPLAY     HEX: 0080 ; inline\r
  57 : CF_DSPTEXT          HEX: 0081 ; inline\r
  58 : CF_DSPBITMAP        HEX: 0082 ; inline\r
  59 : CF_DSPMETAFILEPICT  HEX: 0083 ; inline\r
  60 : CF_DSPENHMETAFILE   HEX: 008E ; inline\r
  61 \r
  62 : DVASPECT_CONTENT    1 ; inline\r
  63 : DVASPECT_THUMBNAIL  2 ; inline\r
  64 : DVASPECT_ICON       4 ; inline\r
  65 : DVASPECT_DOCPRINT   8 ; inline\r
  66 \r
  67 : TYMED_HGLOBAL  1 ; inline\r
  68 : TYMED_FILE     2 ; inline\r
  69 : TYMED_ISTREAM  4 ; inline\r
  70 : TYMED_ISTORAGE 8 ; inline\r
  71 : TYMED_GDI      16 ; inline\r
  72 : TYMED_MFPICT   32 ; inline\r
  73 : TYMED_ENHMF    64 ; inline\r
  74 : TYMED_NULL     0 ; inline\r
  75 \r
  76 C-STRUCT: DVTARGETDEVICE\r
  77     { "DWORD" "tdSize" }\r
  78     { "WORD" "tdDriverNameOffset" }\r
  79     { "WORD" "tdDeviceNameOffset" }\r
  80     { "WORD" "tdPortNameOffset" }\r
  81     { "WORD" "tdExtDevmodeOffset" }\r
  82     { "BYTE[1]" "tdData" } ;\r
  83 \r
  84 TYPEDEF: WORD CLIPFORMAT\r
  85 TYPEDEF: POINT POINTL\r
  86 \r
  87 C-STRUCT: FORMATETC\r
  88     { "CLIPFORMAT" "cfFormat" }\r
  89     { "DVTARGETDEVICE*" "ptd" }\r
  90     { "DWORD" "dwAspect" }\r
  91     { "LONG" "lindex" }\r
  92     { "DWORD" "tymed" } ;\r
  93 TYPEDEF: FORMATETC* LPFORMATETC\r
  94 \r
  95 C-STRUCT: STGMEDIUM\r
  96     { "DWORD" "tymed" }\r
  97     { "void*" "data" }\r
  98     { "LPUNKNOWN" "punkForRelease" } ;\r
  99 TYPEDEF: STGMEDIUM* LPSTGMEDIUM\r
 100 \r
 101 : COINIT_MULTITHREADED     0 ; inline\r
 102 : COINIT_APARTMENTTHREADED 2 ; inline\r
 103 : COINIT_DISABLE_OLE1DDE   4 ; inline\r
 104 : COINIT_SPEED_OVER_MEMORY 8 ; inline\r
 105 \r
 106 FUNCTION: HRESULT OleInitialize ( void* reserved ) ;\r
 107 FUNCTION: HRESULT CoInitializeEx ( void* reserved, DWORD dwCoInit ) ;\r
 108 \r
 109 FUNCTION: HRESULT RegisterDragDrop ( HWND hWnd, IDropTarget* pDropTarget ) ;\r
 110 FUNCTION: HRESULT RevokeDragDrop ( HWND hWnd ) ;\r
 111 FUNCTION: void ReleaseStgMedium ( LPSTGMEDIUM pmedium ) ;\r
 112 \r
 113 : succeeded? ( hresult -- ? )\r
 114     0 HEX: 7FFFFFFF between? ;\r
 115 \r
 116 : ole32-error ( hresult -- )\r
 117     dup succeeded? [\r
 118         drop\r
 119     ] [ (win32-error-string) throw ] if ;\r
 120 \r
 121 : ole-initialize ( -- )\r
 122     f OleInitialize ole32-error ;\r
 123 \r
 124 : guid= ( a b -- ? )\r
 125     IsEqualGUID c-bool> ;\r
 126 \r
 127 : GUID-STRING-LENGTH\r
 128     "{01234567-89ab-cdef-0123-456789abcdef}" length ; inline\r
 129 \r
 130 : string>guid ( string -- guid )\r
 131     string>u16-alien "GUID" <c-object> [ CLSIDFromString ole32-error ] keep ;\r
 132 : guid>string ( guid -- string )\r
 133     GUID-STRING-LENGTH 1+ [ "ushort" <c-array> ] keep\r
 134     [ StringFromGUID2 drop ] { 2 } multikeep alien>u16-string ;\r
 135 \r