io.directories.search.windows: Windows8 doesn't find ProgramFiles with the
existing methods, find it in an os-env.db4
parent
6c106fb422
commit
84a93dd998
|
@ -1,11 +1,16 @@
|
|||
! Copyright (C) 2008 Doug Coleman.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: arrays fry io.pathnames kernel sequences windows.shell32
|
||||
io.directories.search ;
|
||||
USING: arrays combinators.smart environment fry
|
||||
io.directories.search io.pathnames kernel sequences
|
||||
sets windows.shell32 ;
|
||||
IN: io.directories.search.windows
|
||||
|
||||
: 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 )
|
||||
t swap [
|
||||
|
|
Loading…
Reference in New Issue