basis/io/files/info/info.factor

   1 ! Copyright (C) 2008 Doug Coleman, Eduardo Cavazos.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors kernel system sequences combinators
   4 vocabs.loader io.files.types ;
   5 IN: io.files.info
   6
   7 ! File info
   8 TUPLE: file-info type size permissions created modified
   9 accessed ;
  10
  11 HOOK: file-info os ( path -- info )
  12
  13 HOOK: link-info os ( path -- info )
  14
  15 : directory? ( file-info -- ? ) type>> +directory+ = ;
  16
  17 ! File systems
  18 HOOK: file-systems os ( -- array )
  19
  20 TUPLE: file-system-info device-name mount-point type
  21 available-space free-space used-space total-space ;
  22
  23 HOOK: file-system-info os ( path -- file-system-info )
  24
  25 {
  26     { [ os unix? ] [ "io.files.info.unix." os name>> append ] }
  27     { [ os windows? ] [ "io.files.info.windows" ] }
  28 } cond require