basis/tools/files/windows/windows.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors calendar.format combinators io.files
   4 kernel math.parser sequences splitting system tools.files
   5 generalizations tools.files.private io.files.info math.order ;
   6 IN: tools.files.windows
   7
   8 <PRIVATE
   9
  10 M: windows (directory.) ( entries -- lines )
  11     <listing-tool>
  12         { +file-datetime+ +directory-or-size+ +file-name+ } >>specs
  13         { { directory-entry>> name>> <=> } } >>sort
  14     list-files ;
  15
  16 PRIVATE>