14 lines
489 B
Factor
14 lines
489 B
Factor
! 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 ;
|
|
IN: io.directories.search.windows
|
|
|
|
: program-files-directories ( -- array )
|
|
program-files program-files-x86 2array harvest ; inline
|
|
|
|
: find-in-program-files ( base-directory bfs? quot -- path )
|
|
[
|
|
[ program-files-directories ] dip '[ _ append-path ] map
|
|
] 2dip find-in-directories ; inline
|