use CONSTANT: and fix compile errors
parent
bc4b8c8dee
commit
1ae5a3e08e
|
@ -3,87 +3,87 @@
|
|||
USING: alien alien.c-types alien.strings alien.syntax
|
||||
combinators io.encodings.utf16n io.files io.pathnames kernel
|
||||
windows windows.com windows.com.syntax windows.ole32
|
||||
windows.user32 ;
|
||||
windows.user32 constants alias ;
|
||||
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
|
||||
CONSTANT: CSIDL_DESKTOP HEX: 00
|
||||
CONSTANT: CSIDL_INTERNET HEX: 01
|
||||
CONSTANT: CSIDL_PROGRAMS HEX: 02
|
||||
CONSTANT: CSIDL_CONTROLS HEX: 03
|
||||
CONSTANT: CSIDL_PRINTERS HEX: 04
|
||||
CONSTANT: CSIDL_PERSONAL HEX: 05
|
||||
CONSTANT: CSIDL_FAVORITES HEX: 06
|
||||
CONSTANT: CSIDL_STARTUP HEX: 07
|
||||
CONSTANT: CSIDL_RECENT HEX: 08
|
||||
CONSTANT: CSIDL_SENDTO HEX: 09
|
||||
CONSTANT: CSIDL_BITBUCKET HEX: 0a
|
||||
CONSTANT: CSIDL_STARTMENU HEX: 0b
|
||||
CONSTANT: CSIDL_MYDOCUMENTS HEX: 0c
|
||||
CONSTANT: CSIDL_MYMUSIC HEX: 0d
|
||||
CONSTANT: CSIDL_MYVIDEO HEX: 0e
|
||||
CONSTANT: CSIDL_DESKTOPDIRECTORY HEX: 10
|
||||
CONSTANT: CSIDL_DRIVES HEX: 11
|
||||
CONSTANT: CSIDL_NETWORK HEX: 12
|
||||
CONSTANT: CSIDL_NETHOOD HEX: 13
|
||||
CONSTANT: CSIDL_FONTS HEX: 14
|
||||
CONSTANT: CSIDL_TEMPLATES HEX: 15
|
||||
CONSTANT: CSIDL_COMMON_STARTMENU HEX: 16
|
||||
CONSTANT: CSIDL_COMMON_PROGRAMS HEX: 17
|
||||
CONSTANT: CSIDL_COMMON_STARTUP HEX: 18
|
||||
CONSTANT: CSIDL_COMMON_DESKTOPDIRECTORY HEX: 19
|
||||
CONSTANT: CSIDL_APPDATA HEX: 1a
|
||||
CONSTANT: CSIDL_PRINTHOOD HEX: 1b
|
||||
CONSTANT: CSIDL_LOCAL_APPDATA HEX: 1c
|
||||
CONSTANT: CSIDL_ALTSTARTUP HEX: 1d
|
||||
CONSTANT: CSIDL_COMMON_ALTSTARTUP HEX: 1e
|
||||
CONSTANT: CSIDL_COMMON_FAVORITES HEX: 1f
|
||||
CONSTANT: CSIDL_INTERNET_CACHE HEX: 20
|
||||
CONSTANT: CSIDL_COOKIES HEX: 21
|
||||
CONSTANT: CSIDL_HISTORY HEX: 22
|
||||
CONSTANT: CSIDL_COMMON_APPDATA HEX: 23
|
||||
CONSTANT: CSIDL_WINDOWS HEX: 24
|
||||
CONSTANT: CSIDL_SYSTEM HEX: 25
|
||||
CONSTANT: CSIDL_PROGRAM_FILES HEX: 26
|
||||
CONSTANT: CSIDL_MYPICTURES HEX: 27
|
||||
CONSTANT: CSIDL_PROFILE HEX: 28
|
||||
CONSTANT: CSIDL_SYSTEMX86 HEX: 29
|
||||
CONSTANT: CSIDL_PROGRAM_FILESX86 HEX: 2a
|
||||
CONSTANT: CSIDL_PROGRAM_FILES_COMMON HEX: 2b
|
||||
CONSTANT: CSIDL_PROGRAM_FILES_COMMONX86 HEX: 2c
|
||||
CONSTANT: CSIDL_COMMON_TEMPLATES HEX: 2d
|
||||
CONSTANT: CSIDL_COMMON_DOCUMENTS HEX: 2e
|
||||
CONSTANT: CSIDL_COMMON_ADMINTOOLS HEX: 2f
|
||||
CONSTANT: CSIDL_ADMINTOOLS HEX: 30
|
||||
CONSTANT: CSIDL_CONNECTIONS HEX: 31
|
||||
CONSTANT: CSIDL_COMMON_MUSIC HEX: 35
|
||||
CONSTANT: CSIDL_COMMON_PICTURES HEX: 36
|
||||
CONSTANT: CSIDL_COMMON_VIDEO HEX: 37
|
||||
CONSTANT: CSIDL_RESOURCES HEX: 38
|
||||
CONSTANT: CSIDL_RESOURCES_LOCALIZED HEX: 39
|
||||
CONSTANT: CSIDL_COMMON_OEM_LINKS HEX: 3a
|
||||
CONSTANT: CSIDL_CDBURN_AREA HEX: 3b
|
||||
CONSTANT: CSIDL_COMPUTERSNEARME HEX: 3d
|
||||
CONSTANT: CSIDL_PROFILES HEX: 3e
|
||||
CONSTANT: CSIDL_FOLDER_MASK HEX: ff
|
||||
CONSTANT: CSIDL_FLAG_PER_USER_INIT HEX: 800
|
||||
CONSTANT: CSIDL_FLAG_NO_ALIAS HEX: 1000
|
||||
CONSTANT: CSIDL_FLAG_DONT_VERIFY HEX: 4000
|
||||
CONSTANT: CSIDL_FLAG_CREATE HEX: 8000
|
||||
CONSTANT: CSIDL_FLAG_MASK HEX: ff00
|
||||
|
||||
|
||||
: ERROR_FILE_NOT_FOUND 2 ; inline
|
||||
CONSTANT: ERROR_FILE_NOT_FOUND 2
|
||||
|
||||
: SHGFP_TYPE_CURRENT 0 ; inline
|
||||
: SHGFP_TYPE_DEFAULT 1 ; inline
|
||||
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
|
||||
ALIAS: ShellExecute ShellExecuteW
|
||||
|
||||
: open-in-explorer ( dir -- )
|
||||
f "open" rot (normalize-path) f f SW_SHOWNORMAL ShellExecute drop ;
|
||||
|
@ -123,50 +123,50 @@ FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFi
|
|||
: 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 HEX: 1000
|
||||
CONSTANT: SHGDN_INCLUDE_NONFILESYS HEX: 2000
|
||||
CONSTANT: SHGDN_FORADDRESSBAR HEX: 4000
|
||||
CONSTANT: SHGDN_FORPARSING HEX: 8000
|
||||
|
||||
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 HEX: 00000010
|
||||
CONSTANT: SFGAO_CANDELETE HEX: 00000020
|
||||
CONSTANT: SFGAO_HASPROPSHEET HEX: 00000040
|
||||
CONSTANT: SFGAO_DROPTARGET HEX: 00000100
|
||||
CONSTANT: SFGAO_CAPABILITYMASK HEX: 00000177
|
||||
CONSTANT: SFGAO_LINK HEX: 00010000
|
||||
CONSTANT: SFGAO_SHARE HEX: 00020000
|
||||
CONSTANT: SFGAO_READONLY HEX: 00040000
|
||||
CONSTANT: SFGAO_GHOSTED HEX: 00080000
|
||||
CONSTANT: SFGAO_HIDDEN HEX: 00080000
|
||||
CONSTANT: SFGAO_DISPLAYATTRMASK HEX: 000F0000
|
||||
CONSTANT: SFGAO_FILESYSANCESTOR HEX: 10000000
|
||||
CONSTANT: SFGAO_FOLDER HEX: 20000000
|
||||
CONSTANT: SFGAO_FILESYSTEM HEX: 40000000
|
||||
CONSTANT: SFGAO_HASSUBFOLDER HEX: 80000000
|
||||
CONSTANT: SFGAO_CONTENTSMASK HEX: 80000000
|
||||
CONSTANT: SFGAO_VALIDATE HEX: 01000000
|
||||
CONSTANT: SFGAO_REMOVABLE HEX: 02000000
|
||||
CONSTANT: SFGAO_COMPRESSED HEX: 04000000
|
||||
CONSTANT: SFGAO_BROWSABLE HEX: 08000000
|
||||
CONSTANT: SFGAO_NONENUMERATED HEX: 00100000
|
||||
CONSTANT: SFGAO_NEWCONTENT HEX: 00200000
|
||||
|
||||
TYPEDEF: ULONG SFGAOF
|
||||
|
||||
|
@ -223,5 +223,4 @@ COM-INTERFACE: IShellFolder IUnknown {000214E6-0000-0000-C000-000000000046}
|
|||
FUNCTION: HRESULT SHGetDesktopFolder ( IShellFolder** ppshf ) ;
|
||||
|
||||
FUNCTION: UINT DragQueryFileW ( HDROP hDrop, UINT iFile, LPWSTR lpszFile, UINT cch ) ;
|
||||
: DragQueryFile DragQueryFileW ; inline
|
||||
|
||||
ALIAS: DragQueryFile DragQueryFileW
|
||||
|
|
Loading…
Reference in New Issue