make more words private
parent
a6af48f812
commit
7b5f7f95fb
|
@ -5,6 +5,8 @@ math.parser sequences system vocabs.loader calendar ;
|
|||
|
||||
IN: io.files.listing
|
||||
|
||||
<PRIVATE
|
||||
|
||||
: ls-time ( timestamp -- string )
|
||||
[ hour>> ] [ minute>> ] bi
|
||||
[ number>string 2 CHAR: 0 pad-left ] bi@ ":" swap 3append ;
|
||||
|
@ -26,6 +28,8 @@ IN: io.files.listing
|
|||
|
||||
HOOK: (directory.) os ( path -- lines )
|
||||
|
||||
PRIVATE>
|
||||
|
||||
: directory. ( path -- )
|
||||
[ (directory.) ] with-directory-files [ print ] each ;
|
||||
|
||||
|
|
|
@ -5,6 +5,8 @@ io.unix.files io.files.listing generalizations strings
|
|||
arrays sequences io.files math.parser unix.groups unix.users ;
|
||||
IN: io.files.listing.unix
|
||||
|
||||
<PRIVATE
|
||||
|
||||
: unix-execute>string ( str bools -- str' )
|
||||
swap {
|
||||
{ { t t } [ >lower ] }
|
||||
|
@ -41,3 +43,5 @@ M: unix (directory.) ( path -- lines )
|
|||
} cleave 4 narray swap suffix " " join
|
||||
] map
|
||||
] with-group-cache ] with-user-cache ;
|
||||
|
||||
PRIVATE>
|
||||
|
|
|
@ -5,6 +5,8 @@ kernel math.parser sequences splitting system io.files.listing
|
|||
generalizations ;
|
||||
IN: io.files.listing.windows
|
||||
|
||||
<PRIVATE
|
||||
|
||||
: directory-or-size ( file-info -- str )
|
||||
dup directory? [
|
||||
drop "<DIR>" 20 CHAR: \s pad-right
|
||||
|
@ -19,3 +21,5 @@ M: windows (directory.) ( entries -- lines )
|
|||
[ directory-or-size ]
|
||||
} cleave 2 narray swap suffix " " join
|
||||
] map ;
|
||||
|
||||
PRIVATE>
|
||||
|
|
Loading…
Reference in New Issue