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 ;
   6 IN: tools.files.windows
   7
   8 <PRIVATE
   9
  10 M: windows file-spec>string ( file-listing spec -- string )
  11     {
  12         { listing-datetime [ modified>> timestamp>ymdhms ] }
  13         [ call-next-method ]
  14     } case ;
  15
  16 M: windows (directory.) ( entries -- lines )
  17     <listing-tool>
  18         { file-size file-datetime file-name } >>specs
  19         { { directory-entry>> name>> <=> } } >>sort
  20     list-files ;
  21
  22 PRIVATE>