steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

calendar.format: Add some utility words for implementing top.

db4
Doug Coleman 2013-02-24 18:29:00 -08:00
parent 7d9a8b69af
commit 1ef827cd92
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
basis/calendar/format/format.factor
View File

@ -281,6 +281,12 @@ TYPED: timestamp>ymd ( timestamp: timestamp -- str )
TYPED: timestamp>hms ( timestamp: timestamp -- str ) TYPED: timestamp>hms ( timestamp: timestamp -- str )
[ (timestamp>hms) ] with-string-writer ; [ (timestamp>hms) ] with-string-writer ;
: (timestamp>hm) ( timestamp -- )
{ hh ":" mm } formatted ;
TYPED: timestamp>hm ( timestamp: timestamp -- str )
[ (timestamp>hm) ] with-string-writer ;
TYPED: timestamp>ymdhms ( timestamp: timestamp -- str ) TYPED: timestamp>ymdhms ( timestamp: timestamp -- str )
[ [
>gmt >gmt
@ -299,3 +305,24 @@ TYPED: timestamp>ymdhms ( timestamp: timestamp -- str )
] with-string-writer ; ] with-string-writer ;
M: timestamp present timestamp>string ; M: timestamp present timestamp>string ;
TYPED: duration>hm ( duration: duration -- string )
[ duration>hours >integer 24 mod pad-00 ]
[ duration>minutes >integer 60 mod pad-00 ] bi ":" glue ;
TYPED: duration>human-readable ( duration: duration -- string )
[
[
duration>years >integer
[
[ number>string write ]
[ 1 > " years, " " year, " ? write ] bi
] unless-zero
] [
duration>days >integer 365 mod
[
[ number>string write ]
[ 1 > " days, " " day, " ? write ] bi
] unless-zero
] [ duration>hm write ] tri
] with-string-writer ;