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

calendar.parser: fix : in word name

modern-harvey3-triple
Doug Coleman 2018-08-09 22:04:08 -04:00
parent 8c3df2ede4
commit 3f0f387cbe
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/calendar/parser/parser.factor
View File

@ -94,7 +94,7 @@ CONSTANT: rfc822-named-zones H{
] ]
} cond ; } cond ;
: read-hh:mm:ss ( -- hh mm ss ) : read-hh-mm-ss ( -- hh mm ss )
":" read-token checked-number ":" read-token checked-number
":" read-token checked-number ":" read-token checked-number
read-sp checked-number ; read-sp checked-number ;
@ -105,7 +105,7 @@ CONSTANT: rfc822-named-zones H{
read-sp checked-number read-sp checked-number
read-sp month-abbreviations index 1 + check-timestamp read-sp month-abbreviations index 1 + check-timestamp
read-sp checked-number spin read-sp checked-number spin
read-hh:mm:ss read-hh-mm-ss
" " read-until drop parse-rfc822-gmt-offset <timestamp> ; " " read-until drop parse-rfc822-gmt-offset <timestamp> ;
: rfc822>timestamp ( str -- timestamp ) : rfc822>timestamp ( str -- timestamp )
@ -121,7 +121,7 @@ CONSTANT: rfc822-named-zones H{
"-" read-token checked-number "-" read-token checked-number
"-" read-token month-abbreviations index 1 + check-timestamp "-" read-token month-abbreviations index 1 + check-timestamp
read-sp checked-number spin read-sp checked-number spin
read-hh:mm:ss read-hh-mm-ss
" " read-until drop parse-rfc822-gmt-offset <timestamp> ; " " read-until drop parse-rfc822-gmt-offset <timestamp> ;
: cookie-string>timestamp-1 ( str -- timestamp ) : cookie-string>timestamp-1 ( str -- timestamp )
@ -131,7 +131,7 @@ CONSTANT: rfc822-named-zones H{
read-sp check-day-name read-sp check-day-name
read-sp month-abbreviations index 1 + check-timestamp read-sp month-abbreviations index 1 + check-timestamp
read-sp checked-number read-sp checked-number
read-hh:mm:ss read-hh-mm-ss
[ read-sp checked-number ] 5 ndip [ read-sp checked-number ] 5 ndip
" " read-until drop parse-rfc822-gmt-offset <timestamp> ; " " read-until drop parse-rfc822-gmt-offset <timestamp> ;