basis/io/directories/search/windows/windows.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays fry io.pathnames kernel sequences windows.shell32
   4 io.directories.search ;
   5 IN: io.directories.search.windows
   6
   7 : program-files-directories ( -- array )
   8     program-files program-files-x86 2array harvest ; inline
   9
  10 : find-in-program-files ( base-directory bfs? quot -- path )
  11     [
  12         [ program-files-directories ] dip '[ _ append-path ] map
  13     ] 2dip find-in-directories ; inline