basis/io/standard-paths/windows/windows.factor

   1 ! Copyright (C) 2011 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: environment fry io.directories.search.windows io.files
   4 io.pathnames io.standard-paths kernel sequences splitting
   5 system unicode.case ;
   6 IN: io.standard-paths.windows
   7
   8 M: windows find-in-applications
   9     >lower
  10     '[ [ >lower _ tail? ] find-in-program-files ] map-find drop ;
  11
  12 M: windows find-in-path*
  13     [ "PATH" os-env ";" split ] dip
  14     '[ _ append-path exists? ] find nip ;