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

calendar feature

release
erg 2006-08-29 00:36:04 +00:00
parent 4ae5a69f59
commit 766ef0175e
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/calendar/calendar.factor
View File

@ -200,9 +200,15 @@ M: number +second ( timestamp n -- timestamp )
: >gmt ( timestamp -- timestamp )
0 convert-timezone ;
: unix-1970
1970 1 1 0 0 0 0 <timestamp> ;
: unix>gmt ( n -- timestamp )
unix-1970 swap seconds +dt ;
: gmt ( -- timestamp )
#! GMT time, right now
1970 1 1 0 0 0 0 <timestamp> millis 1000 /f seconds +dt ;
unix-1970 millis 1000 /f seconds +dt ;
: timestamp- ( timestamp timestamp -- dt )
[ >gmt time>array ] 2apply v- array>dt ;