USING: system ;

IN: tools.files

HOOK: file-spec>string os ( file-listing spec -- string )

USING: accessors calendar.format combinators kernel math.parser
tools.files tools.files.private ;

M: object file-spec>string
{
{ +file-name+ [ directory-entry>> name>> ] }
{ +directory-or-size+ [ file-info>> dir-or-size ] }
{ +file-size+ [ file-info>> size>> number>string ] }
{ +file-date+ [ file-info>> modified>> listing-date ] }
{ +file-time+ [ file-info>> modified>> listing-time ] }
{
+file-datetime+
[ file-info>> modified>> timestamp>ymdhms ]
}
[ unknown-file-spec ]
} case ;

USING: accessors combinators generic io.files.info.unix kernel
math.parser sequences system tools.files
tools.files.unix.private unix.groups unix.users ;

M: unix file-spec>string
{
{
+file-name/type+
[
directory-entry>>
[ name>> ] [ file-type>trailing ] bi append
]
}
{ +permissions+ [ file-info>> permissions-string ] }
{ +nlinks+ [ file-info>> nlink>> number>string ] }
{ +user+ [ file-info>> uid>> user-name ] }
{ +group+ [ file-info>> gid>> group-name ] }
{ +uid+ [ file-info>> uid>> number>string ] }
{ +gid+ [ file-info>> gid>> number>string ] }
[ M\ unix file-spec>string (call-next-method) ]
} case ;