basis/io/paths/windows/windows.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: arrays continuations fry io.files io.paths
   4 kernel windows.shell32 sequences ;
   5 IN: io.paths.windows
   6
   7 : program-files-directories ( -- array )
   8     program-files program-files-x86 2array ; 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