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

year month day > timestamp 

year month day hour minute second > timestamp
db4
Doug Coleman 2008-03-05 16:07:25 -06:00
parent 4fd4882e02
commit 914456f315
1 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
extra/calendar/format/format.factor
View File

@ -125,6 +125,35 @@ M: timestamp year. ( timestamp -- )
: rfc3339>timestamp ( str -- timestamp ) : rfc3339>timestamp ( str -- timestamp )
[ (rfc3339>timestamp) ] with-string-reader ; [ (rfc3339>timestamp) ] with-string-reader ;
: (ymdhms>timestamp) ( -- timestamp )
read-0000 ! year
"-" expect
read-00 ! month
"-" expect
read-00 ! day
" " expect
read-00 ! hour
":" expect
read-00 ! minute
":" expect
read-00 ! second
0 ! timezone
<timestamp> ;
: ymdhms>timestamp ( str -- timestamp )
[ (ymdhms>timestamp) ] with-string-reader ;
: (ymd>timestamp) ( -- timestamp )
read-0000 ! year
"-" expect
read-00 ! month
"-" expect
read-00 ! day
0 0 0 0 <timestamp> ;
: ymd>timestamp ( str -- timestamp )
[ (ymd>timestamp) ] with-string-reader ;
: file-time-string ( timestamp -- string ) : file-time-string ( timestamp -- string )
[ [
[ month>> month-abbreviations nth write ] keep bl [ month>> month-abbreviations nth write ] keep bl