-USING: alien alien.c-types alien.strings alien.syntax combinators
-kernel windows windows.user32 windows.ole32
-windows.com windows.com.syntax io.files io.encodings.utf16n ;
+! Copyright (C) 2006, 2008 Doug Coleman.
+! See http://factorcode.org/license.txt for BSD license.
+USING: alien alien.c-types alien.data alien.strings alien.syntax
+classes.struct combinators io.encodings.utf16n io.files
+io.pathnames kernel windows.errors windows.com
+windows.com.syntax windows.types windows.user32
+windows.ole32 windows specialized-arrays ;
+SPECIALIZED-ARRAY: ushort
IN: windows.shell32
-: CSIDL_DESKTOP HEX: 00 ; inline
-: CSIDL_INTERNET HEX: 01 ; inline
-: CSIDL_PROGRAMS HEX: 02 ; inline
-: CSIDL_CONTROLS HEX: 03 ; inline
-: CSIDL_PRINTERS HEX: 04 ; inline
-: CSIDL_PERSONAL HEX: 05 ; inline
-: CSIDL_FAVORITES HEX: 06 ; inline
-: CSIDL_STARTUP HEX: 07 ; inline
-: CSIDL_RECENT HEX: 08 ; inline
-: CSIDL_SENDTO HEX: 09 ; inline
-: CSIDL_BITBUCKET HEX: 0a ; inline
-: CSIDL_STARTMENU HEX: 0b ; inline
-: CSIDL_MYDOCUMENTS HEX: 0c ; inline
-: CSIDL_MYMUSIC HEX: 0d ; inline
-: CSIDL_MYVIDEO HEX: 0e ; inline
-: CSIDL_DESKTOPDIRECTORY HEX: 10 ; inline
-: CSIDL_DRIVES HEX: 11 ; inline
-: CSIDL_NETWORK HEX: 12 ; inline
-: CSIDL_NETHOOD HEX: 13 ; inline
-: CSIDL_FONTS HEX: 14 ; inline
-: CSIDL_TEMPLATES HEX: 15 ; inline
-: CSIDL_COMMON_STARTMENU HEX: 16 ; inline
-: CSIDL_COMMON_PROGRAMS HEX: 17 ; inline
-: CSIDL_COMMON_STARTUP HEX: 18 ; inline
-: CSIDL_COMMON_DESKTOPDIRECTORY HEX: 19 ; inline
-: CSIDL_APPDATA HEX: 1a ; inline
-: CSIDL_PRINTHOOD HEX: 1b ; inline
-: CSIDL_LOCAL_APPDATA HEX: 1c ; inline
-: CSIDL_ALTSTARTUP HEX: 1d ; inline
-: CSIDL_COMMON_ALTSTARTUP HEX: 1e ; inline
-: CSIDL_COMMON_FAVORITES HEX: 1f ; inline
-: CSIDL_INTERNET_CACHE HEX: 20 ; inline
-: CSIDL_COOKIES HEX: 21 ; inline
-: CSIDL_HISTORY HEX: 22 ; inline
-: CSIDL_COMMON_APPDATA HEX: 23 ; inline
-: CSIDL_WINDOWS HEX: 24 ; inline
-: CSIDL_SYSTEM HEX: 25 ; inline
-: CSIDL_PROGRAM_FILES HEX: 26 ; inline
-: CSIDL_MYPICTURES HEX: 27 ; inline
-: CSIDL_PROFILE HEX: 28 ; inline
-: CSIDL_SYSTEMX86 HEX: 29 ; inline
-: CSIDL_PROGRAM_FILESX86 HEX: 2a ; inline
-: CSIDL_PROGRAM_FILES_COMMON HEX: 2b ; inline
-: CSIDL_PROGRAM_FILES_COMMONX86 HEX: 2c ; inline
-: CSIDL_COMMON_TEMPLATES HEX: 2d ; inline
-: CSIDL_COMMON_DOCUMENTS HEX: 2e ; inline
-: CSIDL_COMMON_ADMINTOOLS HEX: 2f ; inline
-: CSIDL_ADMINTOOLS HEX: 30 ; inline
-: CSIDL_CONNECTIONS HEX: 31 ; inline
-: CSIDL_COMMON_MUSIC HEX: 35 ; inline
-: CSIDL_COMMON_PICTURES HEX: 36 ; inline
-: CSIDL_COMMON_VIDEO HEX: 37 ; inline
-: CSIDL_RESOURCES HEX: 38 ; inline
-: CSIDL_RESOURCES_LOCALIZED HEX: 39 ; inline
-: CSIDL_COMMON_OEM_LINKS HEX: 3a ; inline
-: CSIDL_CDBURN_AREA HEX: 3b ; inline
-: CSIDL_COMPUTERSNEARME HEX: 3d ; inline
-: CSIDL_PROFILES HEX: 3e ; inline
-: CSIDL_FOLDER_MASK HEX: ff ; inline
-: CSIDL_FLAG_PER_USER_INIT HEX: 800 ; inline
-: CSIDL_FLAG_NO_ALIAS HEX: 1000 ; inline
-: CSIDL_FLAG_DONT_VERIFY HEX: 4000 ; inline
-: CSIDL_FLAG_CREATE HEX: 8000 ; inline
-: CSIDL_FLAG_MASK HEX: ff00 ; inline
-
-
-: ERROR_FILE_NOT_FOUND 2 ; inline
-
-: SHGFP_TYPE_CURRENT 0 ; inline
-: SHGFP_TYPE_DEFAULT 1 ; inline
+CONSTANT: CSIDL_DESKTOP 0x00
+CONSTANT: CSIDL_INTERNET 0x01
+CONSTANT: CSIDL_PROGRAMS 0x02
+CONSTANT: CSIDL_CONTROLS 0x03
+CONSTANT: CSIDL_PRINTERS 0x04
+CONSTANT: CSIDL_PERSONAL 0x05
+CONSTANT: CSIDL_FAVORITES 0x06
+CONSTANT: CSIDL_STARTUP 0x07
+CONSTANT: CSIDL_RECENT 0x08
+CONSTANT: CSIDL_SENDTO 0x09
+CONSTANT: CSIDL_BITBUCKET 0x0a
+CONSTANT: CSIDL_STARTMENU 0x0b
+CONSTANT: CSIDL_MYDOCUMENTS 0x0c
+CONSTANT: CSIDL_MYMUSIC 0x0d
+CONSTANT: CSIDL_MYVIDEO 0x0e
+CONSTANT: CSIDL_DESKTOPDIRECTORY 0x10
+CONSTANT: CSIDL_DRIVES 0x11
+CONSTANT: CSIDL_NETWORK 0x12
+CONSTANT: CSIDL_NETHOOD 0x13
+CONSTANT: CSIDL_FONTS 0x14
+CONSTANT: CSIDL_TEMPLATES 0x15
+CONSTANT: CSIDL_COMMON_STARTMENU 0x16
+CONSTANT: CSIDL_COMMON_PROGRAMS 0x17
+CONSTANT: CSIDL_COMMON_STARTUP 0x18
+CONSTANT: CSIDL_COMMON_DESKTOPDIRECTORY 0x19
+CONSTANT: CSIDL_APPDATA 0x1a
+CONSTANT: CSIDL_PRINTHOOD 0x1b
+CONSTANT: CSIDL_LOCAL_APPDATA 0x1c
+CONSTANT: CSIDL_ALTSTARTUP 0x1d
+CONSTANT: CSIDL_COMMON_ALTSTARTUP 0x1e
+CONSTANT: CSIDL_COMMON_FAVORITES 0x1f
+CONSTANT: CSIDL_INTERNET_CACHE 0x20
+CONSTANT: CSIDL_COOKIES 0x21
+CONSTANT: CSIDL_HISTORY 0x22
+CONSTANT: CSIDL_COMMON_APPDATA 0x23
+CONSTANT: CSIDL_WINDOWS 0x24
+CONSTANT: CSIDL_SYSTEM 0x25
+CONSTANT: CSIDL_PROGRAM_FILES 0x26
+CONSTANT: CSIDL_MYPICTURES 0x27
+CONSTANT: CSIDL_PROFILE 0x28
+CONSTANT: CSIDL_SYSTEMX86 0x29
+CONSTANT: CSIDL_PROGRAM_FILESX86 0x2a
+CONSTANT: CSIDL_PROGRAM_FILES_COMMON 0x2b
+CONSTANT: CSIDL_PROGRAM_FILES_COMMONX86 0x2c
+CONSTANT: CSIDL_COMMON_TEMPLATES 0x2d
+CONSTANT: CSIDL_COMMON_DOCUMENTS 0x2e
+CONSTANT: CSIDL_COMMON_ADMINTOOLS 0x2f
+CONSTANT: CSIDL_ADMINTOOLS 0x30
+CONSTANT: CSIDL_CONNECTIONS 0x31
+CONSTANT: CSIDL_COMMON_MUSIC 0x35
+CONSTANT: CSIDL_COMMON_PICTURES 0x36
+CONSTANT: CSIDL_COMMON_VIDEO 0x37
+CONSTANT: CSIDL_RESOURCES 0x38
+CONSTANT: CSIDL_RESOURCES_LOCALIZED 0x39
+CONSTANT: CSIDL_COMMON_OEM_LINKS 0x3a
+CONSTANT: CSIDL_CDBURN_AREA 0x3b
+CONSTANT: CSIDL_COMPUTERSNEARME 0x3d
+CONSTANT: CSIDL_PROFILES 0x3e
+CONSTANT: CSIDL_FOLDER_MASK 0xff
+CONSTANT: CSIDL_FLAG_PER_USER_INIT 0x800
+CONSTANT: CSIDL_FLAG_NO_ALIAS 0x1000
+CONSTANT: CSIDL_FLAG_DONT_VERIFY 0x4000
+CONSTANT: CSIDL_FLAG_CREATE 0x8000
+CONSTANT: CSIDL_FLAG_MASK 0xff00
+
+
+CONSTANT: ERROR_FILE_NOT_FOUND 2
+
+CONSTANT: SHGFP_TYPE_CURRENT 0
+CONSTANT: SHGFP_TYPE_DEFAULT 1
LIBRARY: shell32
FUNCTION: HRESULT SHGetFolderPathW ( HWND hwndOwner, int nFolder, HANDLE hToken, DWORD dwReserved, LPTSTR pszPath ) ;
-: SHGetFolderPath SHGetFolderPathW ; inline
+ALIAS: SHGetFolderPath SHGetFolderPathW
FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFile, LPCTSTR lpParameters, LPCTSTR lpDirectory, INT nShowCmd ) ;
-: ShellExecute ShellExecuteW ; inline
-
-: open-in-explorer ( dir -- )
- f "open" rot (normalize-path) f f SW_SHOWNORMAL ShellExecute drop ;
-
-: shell32-error ( n -- )
- ole32-error ; inline
+ALIAS: ShellExecute ShellExecuteW
: shell32-directory ( n -- str )
f swap f SHGFP_TYPE_DEFAULT
- MAX_UNICODE_PATH "ushort" <c-array>
- [ SHGetFolderPath shell32-error ] keep utf16n alien>string ;
+ MAX_UNICODE_PATH ushort <c-array>
+ [ SHGetFolderPath drop ] keep utf16n alien>string ;
: desktop ( -- str )
CSIDL_DESKTOPDIRECTORY shell32-directory ;
: application-data ( -- str )
CSIDL_APPDATA shell32-directory ;
-: windows ( -- str )
+: windows-directory ( -- str )
CSIDL_WINDOWS shell32-directory ;
: programs ( -- str )
: program-files-common-x86 ( -- str )
CSIDL_PROGRAM_FILES_COMMONX86 shell32-directory ;
-: SHCONTF_FOLDERS 32 ; inline
-: SHCONTF_NONFOLDERS 64 ; inline
-: SHCONTF_INCLUDEHIDDEN 128 ; inline
-: SHCONTF_INIT_ON_FIRST_NEXT 256 ; inline
-: SHCONTF_NETPRINTERSRCH 512 ; inline
-: SHCONTF_SHAREABLE 1024 ; inline
-: SHCONTF_STORAGE 2048 ; inline
+CONSTANT: SHCONTF_FOLDERS 32
+CONSTANT: SHCONTF_NONFOLDERS 64
+CONSTANT: SHCONTF_INCLUDEHIDDEN 128
+CONSTANT: SHCONTF_INIT_ON_FIRST_NEXT 256
+CONSTANT: SHCONTF_NETPRINTERSRCH 512
+CONSTANT: SHCONTF_SHAREABLE 1024
+CONSTANT: SHCONTF_STORAGE 2048
TYPEDEF: DWORD SHCONTF
-: SHGDN_NORMAL 0 ; inline
-: SHGDN_INFOLDER 1 ; inline
-: SHGDN_FOREDITING HEX: 1000 ; inline
-: SHGDN_INCLUDE_NONFILESYS HEX: 2000 ; inline
-: SHGDN_FORADDRESSBAR HEX: 4000 ; inline
-: SHGDN_FORPARSING HEX: 8000 ; inline
+CONSTANT: SHGDN_NORMAL 0
+CONSTANT: SHGDN_INFOLDER 1
+CONSTANT: SHGDN_FOREDITING 0x1000
+CONSTANT: SHGDN_INCLUDE_NONFILESYS 0x2000
+CONSTANT: SHGDN_FORADDRESSBAR 0x4000
+CONSTANT: SHGDN_FORPARSING 0x8000
TYPEDEF: DWORD SHGDNF
-: SFGAO_CANCOPY DROPEFFECT_COPY ; inline
-: SFGAO_CANMOVE DROPEFFECT_MOVE ; inline
-: SFGAO_CANLINK DROPEFFECT_LINK ; inline
-: SFGAO_CANRENAME HEX: 00000010 ; inline
-: SFGAO_CANDELETE HEX: 00000020 ; inline
-: SFGAO_HASPROPSHEET HEX: 00000040 ; inline
-: SFGAO_DROPTARGET HEX: 00000100 ; inline
-: SFGAO_CAPABILITYMASK HEX: 00000177 ; inline
-: SFGAO_LINK HEX: 00010000 ; inline
-: SFGAO_SHARE HEX: 00020000 ; inline
-: SFGAO_READONLY HEX: 00040000 ; inline
-: SFGAO_GHOSTED HEX: 00080000 ; inline
-: SFGAO_HIDDEN HEX: 00080000 ; inline
-: SFGAO_DISPLAYATTRMASK HEX: 000F0000 ; inline
-: SFGAO_FILESYSANCESTOR HEX: 10000000 ; inline
-: SFGAO_FOLDER HEX: 20000000 ; inline
-: SFGAO_FILESYSTEM HEX: 40000000 ; inline
-: SFGAO_HASSUBFOLDER HEX: 80000000 ; inline
-: SFGAO_CONTENTSMASK HEX: 80000000 ; inline
-: SFGAO_VALIDATE HEX: 01000000 ; inline
-: SFGAO_REMOVABLE HEX: 02000000 ; inline
-: SFGAO_COMPRESSED HEX: 04000000 ; inline
-: SFGAO_BROWSABLE HEX: 08000000 ; inline
-: SFGAO_NONENUMERATED HEX: 00100000 ; inline
-: SFGAO_NEWCONTENT HEX: 00200000 ; inline
+ALIAS: SFGAO_CANCOPY DROPEFFECT_COPY
+ALIAS: SFGAO_CANMOVE DROPEFFECT_MOVE
+ALIAS: SFGAO_CANLINK DROPEFFECT_LINK
+CONSTANT: SFGAO_CANRENAME 0x00000010
+CONSTANT: SFGAO_CANDELETE 0x00000020
+CONSTANT: SFGAO_HASPROPSHEET 0x00000040
+CONSTANT: SFGAO_DROPTARGET 0x00000100
+CONSTANT: SFGAO_CAPABILITYMASK 0x00000177
+CONSTANT: SFGAO_LINK 0x00010000
+CONSTANT: SFGAO_SHARE 0x00020000
+CONSTANT: SFGAO_READONLY 0x00040000
+CONSTANT: SFGAO_GHOSTED 0x00080000
+CONSTANT: SFGAO_HIDDEN 0x00080000
+CONSTANT: SFGAO_DISPLAYATTRMASK 0x000F0000
+CONSTANT: SFGAO_FILESYSANCESTOR 0x10000000
+CONSTANT: SFGAO_FOLDER 0x20000000
+CONSTANT: SFGAO_FILESYSTEM 0x40000000
+CONSTANT: SFGAO_HASSUBFOLDER 0x80000000
+CONSTANT: SFGAO_CONTENTSMASK 0x80000000
+CONSTANT: SFGAO_VALIDATE 0x01000000
+CONSTANT: SFGAO_REMOVABLE 0x02000000
+CONSTANT: SFGAO_COMPRESSED 0x04000000
+CONSTANT: SFGAO_BROWSABLE 0x08000000
+CONSTANT: SFGAO_NONENUMERATED 0x00100000
+CONSTANT: SFGAO_NEWCONTENT 0x00200000
TYPEDEF: ULONG SFGAOF
-C-STRUCT: DROPFILES
- { "DWORD" "pFiles" }
- { "POINT" "pt" }
- { "BOOL" "fNC" }
- { "BOOL" "fWide" } ;
+STRUCT: DROPFILES
+ { pFiles DWORD }
+ { pt POINT }
+ { fNC BOOL }
+ { fWide BOOL } ;
TYPEDEF: DROPFILES* LPDROPFILES
TYPEDEF: DROPFILES* LPCDROPFILES
TYPEDEF: HANDLE HDROP
-C-STRUCT: SHITEMID
- { "USHORT" "cb" }
- { "BYTE[1]" "abID" } ;
+STRUCT: SHITEMID
+ { cb USHORT }
+ { abID BYTE[1] } ;
TYPEDEF: SHITEMID* LPSHITEMID
TYPEDEF: SHITEMID* LPCSHITEMID
-C-STRUCT: ITEMIDLIST
- { "SHITEMID" "mkid" } ;
+STRUCT: ITEMIDLIST
+ { mkid SHITEMID } ;
TYPEDEF: ITEMIDLIST* LPITEMIDLIST
TYPEDEF: ITEMIDLIST* LPCITEMIDLIST
TYPEDEF: ITEMIDLIST ITEMID_CHILD
TYPEDEF: ITEMID_CHILD* PITEMID_CHILD
TYPEDEF: ITEMID_CHILD* PCUITEMID_CHILD
-: STRRET_WSTR 0 ; inline
-: STRRET_OFFSET 1 ; inline
-: STRRET_CSTR 2 ; inline
+CONSTANT: STRRET_WSTR 0
+CONSTANT: STRRET_OFFSET 1
+CONSTANT: STRRET_CSTR 2
-C-UNION: STRRET-union "LPWSTR" "LPSTR" "UINT" "char[260]" ;
-C-STRUCT: STRRET
- { "int" "uType" }
- { "STRRET-union" "union" } ;
+UNION-STRUCT: STRRET-union
+ { pOleStr LPWSTR }
+ { uOffset UINT }
+ { cStr char[260] } ;
+STRUCT: STRRET
+ { uType int }
+ { value STRRET-union } ;
COM-INTERFACE: IEnumIDList IUnknown {000214F2-0000-0000-C000-000000000046}
HRESULT Next ( ULONG celt, LPITEMIDLIST* rgelt, ULONG* pceltFetched )
FUNCTION: HRESULT SHGetDesktopFolder ( IShellFolder** ppshf ) ;
FUNCTION: UINT DragQueryFileW ( HDROP hDrop, UINT iFile, LPWSTR lpszFile, UINT cch ) ;
-: DragQueryFile DragQueryFileW ; inline
+ALIAS: DragQueryFile DragQueryFileW
+FUNCTION: BOOL IsUserAnAdmin ( ) ;