steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix using and in, rename windows -> windows-directory in shell32

db4
Doug Coleman 2008-12-15 21:45:36 -06:00
parent f04e74f78f
commit bc4b8c8dee
3 changed files with 5 additions and 4 deletions
basis
io/directories/search
windows/shell32

2
basis/io/directories/search/search.factor
View File

@ -56,4 +56,4 @@ PRIVATE>
: find-in-directories ( directories bfs? quot -- path' )
'[ _ _ find-file ] attempt-all ; inline
os windows? [ "io.paths.windows" require ] when
os windows? [ "io.directories.search.windows" require ] when

5
basis/io/directories/search/windows/windows.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays fry io.pathnames kernel sequences windows.shell32 ;
IN: io.paths
USING: arrays fry io.pathnames kernel sequences windows.shell32
io.directories.search ;
IN: io.directories.search.windows
: program-files-directories ( -- array )
program-files program-files-x86 2array ; inline

2
basis/windows/shell32/shell32.factor
View File

@ -105,7 +105,7 @@ FUNCTION: HINSTANCE ShellExecuteW ( HWND hwnd, LPCTSTR lpOperation, LPCTSTR lpFi
: application-data ( -- str )
CSIDL_APPDATA shell32-directory ;
: windows ( -- str )
: windows-directory ( -- str )
CSIDL_WINDOWS shell32-directory ;
: programs ( -- str )