basis/windows/shell32/shell32.factor

   1 ! Copyright (C) 2006, 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.c-types alien.strings alien.syntax
   4 classes.struct combinators io.encodings.utf16n io.files
   5 io.pathnames kernel windows.errors windows.com
   6 windows.com.syntax windows.user32 windows.ole32 windows
   7 specialized-arrays.ushort ;
   8 IN: windows.shell32
   9
  10 CONSTANT: CSIDL_DESKTOP HEX: 00
  11 CONSTANT: CSIDL_INTERNET HEX: 01
  12 CONSTANT: CSIDL_PROGRAMS HEX: 02
  13 CONSTANT: CSIDL_CONTROLS HEX: 03
  14 CONSTANT: CSIDL_PRINTERS HEX: 04
  15 CONSTANT: CSIDL_PERSONAL HEX: 05
  16 CONSTANT: CSIDL_FAVORITES HEX: 06
  17 CONSTANT: CSIDL_STARTUP HEX: 07
  18 CONSTANT: CSIDL_RECENT HEX: 08
  19 CONSTANT: CSIDL_SENDTO HEX: 09
  20 CONSTANT: CSIDL_BITBUCKET HEX: 0a
  21 CONSTANT: CSIDL_STARTMENU HEX: 0b
  22 CONSTANT: CSIDL_MYDOCUMENTS HEX: 0c
  23 CONSTANT: CSIDL_MYMUSIC HEX: 0d
  24 CONSTANT: CSIDL_MYVIDEO HEX: 0e
  25 CONSTANT: CSIDL_DESKTOPDIRECTORY HEX: 10
  26 CONSTANT: CSIDL_DRIVES HEX: 11
  27 CONSTANT: CSIDL_NETWORK HEX: 12
  28 CONSTANT: CSIDL_NETHOOD HEX: 13
  29 CONSTANT: CSIDL_FONTS HEX: 14
  30 CONSTANT: CSIDL_TEMPLATES HEX: 15
  31 CONSTANT: CSIDL_COMMON_STARTMENU HEX: 16
  32 CONSTANT: CSIDL_COMMON_PROGRAMS HEX: 17
  33 CONSTANT: CSIDL_COMMON_STARTUP HEX: 18
  34 CONSTANT: CSIDL_COMMON_DESKTOPDIRECTORY HEX: 19
  35 CONSTANT: CSIDL_APPDATA HEX: 1a
  36 CONSTANT: CSIDL_PRINTHOOD HEX: 1b
  37 CONSTANT: CSIDL_LOCAL_APPDATA HEX: 1c
  38 CONSTANT: CSIDL_ALTSTARTUP HEX: 1d
  39 CONSTANT: CSIDL_COMMON_ALTSTARTUP HEX: 1e
  40 CONSTANT: CSIDL_COMMON_FAVORITES HEX: 1f
  41 CONSTANT: CSIDL_INTERNET_CACHE HEX: 20
  42 CONSTANT: CSIDL_COOKIES HEX: 21
  43 CONSTANT: CSIDL_HISTORY HEX: 22
  44 CONSTANT: CSIDL_COMMON_APPDATA HEX: 23
  45 CONSTANT: CSIDL_WINDOWS HEX: 24
  46 CONSTANT: CSIDL_SYSTEM HEX: 25
  47 CONSTANT: CSIDL_PROGRAM_FILES HEX: 26
  48 CONSTANT: CSIDL_MYPICTURES HEX: 27
  49 CONSTANT: CSIDL_PROFILE HEX: 28
  50 CONSTANT: CSIDL_SYSTEMX86 HEX: 29
  51 CONSTANT: CSIDL_PROGRAM_FILESX86 HEX: 2a
  52 CONSTANT: CSIDL_PROGRAM_FILES_COMMON HEX: 2b
  53 CONSTANT: CSIDL_PROGRAM_FILES_COMMONX86 HEX: 2c
  54 CONSTANT: CSIDL_COMMON_TEMPLATES HEX: 2d
  55 CONSTANT: CSIDL_COMMON_DOCUMENTS HEX: 2e
  56 CONSTANT: CSIDL_COMMON_ADMINTOOLS HEX: 2f
  57 CONSTANT: CSIDL_ADMINTOOLS HEX: 30
  58 CONSTANT: CSIDL_CONNECTIONS HEX: 31
  59 CONSTANT: CSIDL_COMMON_MUSIC HEX: 35
  60 CONSTANT: CSIDL_COMMON_PICTURES HEX: 36
  61 CONSTANT: CSIDL_COMMON_VIDEO HEX: 37
  62 CONSTANT: CSIDL_RESOURCES HEX: 38
  63 CONSTANT: CSIDL_RESOURCES_LOCALIZED HEX: 39
  64 CONSTANT: CSIDL_COMMON_OEM_LINKS HEX: 3a
  65 CONSTANT: CSIDL_CDBURN_AREA HEX: 3b
  66 CONSTANT: CSIDL_COMPUTERSNEARME HEX: 3d
  67 CONSTANT: CSIDL_PROFILES HEX: 3e
  68 CONSTANT: CSIDL_FOLDER_MASK HEX: ff
  69 CONSTANT: CSIDL_FLAG_PER_USER_INIT HEX: 800
  70 CONSTANT: CSIDL_FLAG_NO_ALIAS HEX: 1000
  71 CONSTANT: CSIDL_FLAG_DONT_VERIFY HEX: 4000
  72 CONSTANT: CSIDL_FLAG_CREATE HEX: 8000
  73 CONSTANT: CSIDL_FLAG_MASK HEX: ff00
  74
  75
  76 CONSTANT: ERROR_FILE_NOT_FOUND 2
  77
  78 CONSTANT: SHGFP_TYPE_CURRENT 0
  79 CONSTANT: SHGFP_TYPE_DEFAULT 1
  80
  81 LIBRARY: shell32
  82
  83 FUNCTION: HRESULT SHGetFolderPathW ( HWND hwndOwner, int nFolder, HANDLE hToken, DWORD dwReserved, LPTSTR pszPath ) ;
  84 ALIAS: SHGetFolderPath SHGetFolderPathW
  85
  86 FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFile, LPCTSTR lpParameters, LPCTSTR lpDirectory, INT nShowCmd ) ;
  87 ALIAS: ShellExecute ShellExecuteW
  88
  89 : open-in-explorer ( dir -- )
  90     [ f "open" ] dip (normalize-path) f f SW_SHOWNORMAL ShellExecute drop ;
  91
  92 : shell32-directory ( n -- str )
  93     f swap f SHGFP_TYPE_DEFAULT
  94     MAX_UNICODE_PATH <ushort-array>
  95     [ SHGetFolderPath drop ] keep utf16n alien>string ;
  96
  97 : desktop ( -- str )
  98     CSIDL_DESKTOPDIRECTORY shell32-directory ;
  99
 100 : my-documents ( -- str )
 101     CSIDL_PERSONAL shell32-directory ;
 102
 103 : application-data ( -- str )
 104     CSIDL_APPDATA shell32-directory ;
 105
 106 : windows-directory ( -- str )
 107     CSIDL_WINDOWS shell32-directory ;
 108
 109 : programs ( -- str )
 110     CSIDL_PROGRAMS shell32-directory ;
 111
 112 : program-files ( -- str )
 113     CSIDL_PROGRAM_FILES shell32-directory ;
 114
 115 : program-files-x86 ( -- str )
 116     CSIDL_PROGRAM_FILESX86 shell32-directory ;
 117
 118 : program-files-common ( -- str )
 119     CSIDL_PROGRAM_FILES_COMMON shell32-directory ;
 120
 121 : program-files-common-x86 ( -- str )
 122     CSIDL_PROGRAM_FILES_COMMONX86 shell32-directory ;
 123
 124 CONSTANT: SHCONTF_FOLDERS 32
 125 CONSTANT: SHCONTF_NONFOLDERS 64
 126 CONSTANT: SHCONTF_INCLUDEHIDDEN 128
 127 CONSTANT: SHCONTF_INIT_ON_FIRST_NEXT 256
 128 CONSTANT: SHCONTF_NETPRINTERSRCH 512
 129 CONSTANT: SHCONTF_SHAREABLE 1024
 130 CONSTANT: SHCONTF_STORAGE 2048
 131
 132 TYPEDEF: DWORD SHCONTF
 133
 134 CONSTANT: SHGDN_NORMAL 0
 135 CONSTANT: SHGDN_INFOLDER 1
 136 CONSTANT: SHGDN_FOREDITING HEX: 1000
 137 CONSTANT: SHGDN_INCLUDE_NONFILESYS HEX: 2000
 138 CONSTANT: SHGDN_FORADDRESSBAR HEX: 4000
 139 CONSTANT: SHGDN_FORPARSING HEX: 8000
 140
 141 TYPEDEF: DWORD SHGDNF
 142
 143 ALIAS: SFGAO_CANCOPY           DROPEFFECT_COPY
 144 ALIAS: SFGAO_CANMOVE           DROPEFFECT_MOVE
 145 ALIAS: SFGAO_CANLINK           DROPEFFECT_LINK
 146 CONSTANT: SFGAO_CANRENAME         HEX: 00000010
 147 CONSTANT: SFGAO_CANDELETE         HEX: 00000020
 148 CONSTANT: SFGAO_HASPROPSHEET      HEX: 00000040
 149 CONSTANT: SFGAO_DROPTARGET        HEX: 00000100
 150 CONSTANT: SFGAO_CAPABILITYMASK    HEX: 00000177
 151 CONSTANT: SFGAO_LINK              HEX: 00010000
 152 CONSTANT: SFGAO_SHARE             HEX: 00020000
 153 CONSTANT: SFGAO_READONLY          HEX: 00040000
 154 CONSTANT: SFGAO_GHOSTED           HEX: 00080000
 155 CONSTANT: SFGAO_HIDDEN            HEX: 00080000
 156 CONSTANT: SFGAO_DISPLAYATTRMASK   HEX: 000F0000
 157 CONSTANT: SFGAO_FILESYSANCESTOR   HEX: 10000000
 158 CONSTANT: SFGAO_FOLDER            HEX: 20000000
 159 CONSTANT: SFGAO_FILESYSTEM        HEX: 40000000
 160 CONSTANT: SFGAO_HASSUBFOLDER      HEX: 80000000
 161 CONSTANT: SFGAO_CONTENTSMASK      HEX: 80000000
 162 CONSTANT: SFGAO_VALIDATE          HEX: 01000000
 163 CONSTANT: SFGAO_REMOVABLE         HEX: 02000000
 164 CONSTANT: SFGAO_COMPRESSED        HEX: 04000000
 165 CONSTANT: SFGAO_BROWSABLE         HEX: 08000000
 166 CONSTANT: SFGAO_NONENUMERATED     HEX: 00100000
 167 CONSTANT: SFGAO_NEWCONTENT        HEX: 00200000
 168
 169 TYPEDEF: ULONG SFGAOF
 170
 171 C-STRUCT: DROPFILES
 172     { "DWORD" "pFiles" }
 173     { "POINT" "pt" }
 174     { "BOOL" "fNC" }
 175     { "BOOL" "fWide" } ;
 176 TYPEDEF: DROPFILES* LPDROPFILES
 177 TYPEDEF: DROPFILES* LPCDROPFILES
 178 TYPEDEF: HANDLE HDROP
 179
 180 C-STRUCT: SHITEMID
 181     { "USHORT" "cb" }
 182     { "BYTE[1]" "abID" } ;
 183 TYPEDEF: SHITEMID* LPSHITEMID
 184 TYPEDEF: SHITEMID* LPCSHITEMID
 185
 186 C-STRUCT: ITEMIDLIST
 187     { "SHITEMID" "mkid" } ;
 188 TYPEDEF: ITEMIDLIST* LPITEMIDLIST
 189 TYPEDEF: ITEMIDLIST* LPCITEMIDLIST
 190 TYPEDEF: ITEMIDLIST ITEMID_CHILD
 191 TYPEDEF: ITEMID_CHILD* PITEMID_CHILD
 192 TYPEDEF: ITEMID_CHILD* PCUITEMID_CHILD
 193
 194 CONSTANT: STRRET_WSTR 0
 195 CONSTANT: STRRET_OFFSET 1
 196 CONSTANT: STRRET_CSTR 2
 197
 198 UNION-STRUCT: STRRET-union
 199     { pOleStr LPWSTR }
 200     { uOffset UINT }
 201     { cStr char[260] } ;
 202 STRUCT: STRRET
 203     { uType int }
 204     { value STRRET-union } ;
 205
 206 COM-INTERFACE: IEnumIDList IUnknown {000214F2-0000-0000-C000-000000000046}
 207     HRESULT Next ( ULONG celt, LPITEMIDLIST* rgelt, ULONG* pceltFetched )
 208     HRESULT Skip ( ULONG celt )
 209     HRESULT Reset ( )
 210     HRESULT Clone ( IEnumIDList** ppenum ) ;
 211
 212 COM-INTERFACE: IShellFolder IUnknown {000214E6-0000-0000-C000-000000000046}
 213     HRESULT ParseDisplayName ( HWND hwndOwner, void* pbcReserved, LPOLESTR lpszDisplayName, ULONG* pchEaten, LPITEMIDLIST* ppidl, ULONG* pdwAttributes )
 214     HRESULT EnumObjects ( HWND hwndOwner, SHCONTF grfFlags, IEnumIDList** ppenumIDList )
 215     HRESULT BindToObject ( LPCITEMIDLIST pidl, void* pbcReserved, REFGUID riid, void** ppvOut )
 216     HRESULT BindToStorage ( LPCITEMIDLIST pidl, void* pbcReserved, REFGUID riid, void** ppvObj )
 217     HRESULT CompareIDs ( LPARAM lParam, LPCITEMIDLIST pidl1, LPCITEMIDLIST pidl2 )
 218     HRESULT CreateViewObject ( HWND hwndOwner, REFGUID riid, void** ppvOut )
 219     HRESULT GetAttributesOf ( UINT cidl, LPCITEMIDLIST* apidl, SFGAOF* rgfInOut )
 220     HRESULT GetUIObjectOf ( HWND hwndOwner, UINT cidl, LPCITEMIDLIST* apidl, REFGUID riid, UINT* prgfInOut, void** ppvOut )
 221     HRESULT GetDisplayNameOf ( LPCITEMIDLIST pidl, SHGDNF uFlags, STRRET* lpName )
 222     HRESULT SetNameOf ( HWND hwnd, LPCITEMIDLIST pidl, LPCOLESTR lpszName, SHGDNF uFlags, LPITEMIDLIST* ppidlOut ) ;
 223
 224 FUNCTION: HRESULT SHGetDesktopFolder ( IShellFolder** ppshf ) ;
 225
 226 FUNCTION: UINT DragQueryFileW ( HDROP hDrop, UINT iFile, LPWSTR lpszFile, UINT cch ) ;
 227 ALIAS: DragQueryFile DragQueryFileW