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
|