39 lines
1.0 KiB
Factor
39 lines
1.0 KiB
Factor
|
! Copyright (C) 2008 Doug Coleman.
|
||
|
|
! See http://factorcode.org/license.txt for BSD license.
|
||
|
|
USING: accessors arrays combinators io io.files kernel
|
||
|
|
math.parser sequences system vocabs.loader calendar ;
|
||
|
|
IN: tools.files
|
||
|
|
|
||
|
<PRIVATE
|
||
|
|
|
||
|
|
: ls-time ( timestamp -- string )
|
||
|
|
[ hour>> ] [ minute>> ] bi
|
||
|
|
[ number>string 2 CHAR: 0 pad-left ] bi@ ":" swap 3append ;
|
||
|
|
|
||
|
|
: ls-timestamp ( timestamp -- string )
|
||
|
|
[ month>> month-abbreviation ]
|
||
|
|
[ day>> number>string 2 CHAR: \s pad-left ]
|
||
|
|
[
|
||
|
|
dup year>> dup now year>> =
|
||
|
|
[ drop ls-time ] [ nip number>string ] if
|
||
|
|
5 CHAR: \s pad-left
|
||
|
|
] tri 3array " " join ;
|
||
|
|
|
||
|
|
: read>string ( ? -- string ) "r" "-" ? ; inline
|
||
|
|
|
||
|
|
: write>string ( ? -- string ) "w" "-" ? ; inline
|
||
|
|
|
||
|
|
: execute>string ( ? -- string ) "x" "-" ? ; inline
|
||
|
|
|
||
|
|
HOOK: (directory.) os ( path -- lines )
|
||
|
|
|
||
|
|
PRIVATE>
|
||
|
|
|
||
|
|
: directory. ( path -- )
|
||
|
|
[ (directory.) ] with-directory-files [ print ] each ;
|
||
|
|
|
||
|
|
{
|
||
|
|
{ [ os unix? ] [ "tools.files.unix" ] }
|
||
|
|
{ [ os windows? ] [ "tools.files.windows" ] }
|
||
|
|
} cond require
|