2008-12-14 21:03:00 -05:00
|
|
|
! Copyright (C) 2008 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-12-15 22:45:36 -05:00
|
|
|
USING: arrays fry io.pathnames kernel sequences windows.shell32
|
|
|
|
|
io.directories.search ;
|
|
|
|
|
IN: io.directories.search.windows
|
2008-12-14 21:03:00 -05:00
|
|
|
|
|
|
|
|
: program-files-directories ( -- array )
|
2009-01-16 13:36:08 -05:00
|
|
|
program-files program-files-x86 2array harvest ; inline
|
2008-12-14 21:03:00 -05:00
|
|
|
|
2009-02-26 22:50:01 -05:00
|
|
|
: find-in-program-files ( base-directory quot -- path )
|
|
|
|
|
t swap [
|
2008-12-14 21:03:00 -05:00
|
|
|
[ program-files-directories ] dip '[ _ append-path ] map
|
|
|
|
|
] 2dip find-in-directories ; inline
|
