14 lines
465 B
Factor
14 lines
465 B
Factor
! Copyright (C) 2008 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: arrays continuations fry io.files io.paths
|
|
kernel windows.shell32 sequences ;
|
|
IN: io.paths.windows
|
|
|
|
: program-files-directories ( -- array )
|
|
program-files program-files-x86 2array ; inline
|
|
|
|
: find-in-program-files ( base-directory bfs? quot -- path )
|
|
[
|
|
[ program-files-directories ] dip '[ _ append-path ] map
|
|
] 2dip find-in-directories ; inline
|