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

io.directories.search.windows: Windows8 doesn't find ProgramFiles with the 

existing methods, find it in an os-env.
db4
Doug Coleman 2013-04-09 12:16:27 -07:00
parent 6c106fb422
commit 84a93dd998
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,11 +1,16 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays fry io.pathnames kernel sequences windows.shell32 USING: arrays combinators.smart environment fry
io.directories.search ; io.directories.search io.pathnames kernel sequences
sets windows.shell32 ;
IN: io.directories.search.windows IN: io.directories.search.windows
: program-files-directories ( -- array ) : program-files-directories ( -- array )
program-files program-files-x86 2array harvest ; inline [
program-files
program-files-x86
"ProgramW6432" os-env
] output>array harvest members ; inline
: find-in-program-files ( base-directory quot -- path ) : find-in-program-files ( base-directory quot -- path )
t swap [ t swap [