basis/windows/shell32/shell32.factor

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