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 ;
   6 IN: tools.files.windows
   7
   8 <PRIVATE
   9
  10 : directory-or-size ( file-info -- str )
  11     dup directory? [
  12         drop "<DIR>" 20 CHAR: \s pad-right
  13     ] [
  14         size>> number>string 20 CHAR: \s pad-left
  15     ] if ;
  16
  17 M: windows (directory.) ( entries -- lines )
  18     [
  19         dup file-info {
  20             [ modified>> timestamp>ymdhms ]
  21             [ directory-or-size ]
  22         } cleave 2 narray swap suffix " " join
  23     ] map ;
  24
  25 PRIVATE>