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

calendar.format: change rfc3339 to always print microseconds.

db4
John Benediktsson 2014-10-08 15:36:08 -07:00
parent 7328fa306f
commit 794baf3222
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/calendar/format/format-tests.factor
View File

@ -95,7 +95,7 @@ IN: calendar.format.tests
} }
] [ "2013-04-23T13:50:24" rfc3339>timestamp ] unit-test ] [ "2013-04-23T13:50:24" rfc3339>timestamp ] unit-test
{ "2001-12-14T21:59:43.1-05:00" } [ "2001-12-14T21:59:43.1-05:00" rfc3339>timestamp timestamp>rfc3339 ] unit-test { "2001-12-14T21:59:43.100000-05:00" } [ "2001-12-14T21:59:43.1-05:00" rfc3339>timestamp timestamp>rfc3339 ] unit-test
[ [
T{ timestamp T{ timestamp

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

@ -136,16 +136,12 @@ M: timestamp year. ( timestamp -- )
! Should be enough for anyone, allows to not do a fancy ! Should be enough for anyone, allows to not do a fancy
! algorithm to detect infinite decimals (e.g 1/3) ! algorithm to detect infinite decimals (e.g 1/3)
: write-rfc3339-seconds ( timestamp -- ) : ss.SSSSSS ( timestamp -- )
second>> 1 mod [ second>> >float "%.6f" format-float 9 CHAR: 0 pad-head write ;
>float "%.6f" format-float [ CHAR: 0 = ] trim
dup length 1 > [ write ] [ drop ] if
] unless-zero ;
: (timestamp>rfc3339) ( timestamp -- ) : (timestamp>rfc3339) ( timestamp -- )
{ {
YYYY "-" MM "-" DD "T" hh ":" mm ":" ss YYYY "-" MM "-" DD "T" hh ":" mm ":" ss.SSSSSS
write-rfc3339-seconds
[ gmt-offset>> write-rfc3339-gmt-offset ] [ gmt-offset>> write-rfc3339-gmt-offset ]
} formatted ; } formatted ;