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

calendar.format: use math.parser format directive.

db4
John Benediktsson 2014-07-08 16:03:02 -07:00
parent 902d3b9bcd
commit 116086ddf7
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2,7 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays calendar calendar.format.macros USING: accessors arrays calendar calendar.format.macros
combinators io io.streams.string kernel math math.functions combinators io io.streams.string kernel math math.functions
math.order math.parser present sequences typed ; math.order math.parser math.parser.private present sequences
typed ;
IN: calendar.format IN: calendar.format
: pad-00 ( n -- str ) number>string 2 CHAR: 0 pad-head ; : pad-00 ( n -- str ) number>string 2 CHAR: 0 pad-head ;
@ -135,11 +136,11 @@ 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)
CONSTANT: rfc3339-precision 5
: write-rfc3339-seconds ( timestamp -- ) : write-rfc3339-seconds ( timestamp -- )
second>> 1 mod rfc3339-precision 10^ * round >integer second>> 1 mod [
number>string rfc3339-precision CHAR: 0 pad-head >float "%.6f" format-float [ CHAR: 0 = ] trim
[ CHAR: 0 = ] trim-tail [ "." write write ] unless-empty ; dup length 1 > [ write ] [ drop ] if
] unless-zero ;
: (timestamp>rfc3339) ( timestamp -- ) : (timestamp>rfc3339) ( timestamp -- )
{ {