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

zoneinfo: Working on parsing raw rules.

db4
Doug Coleman 2013-03-19 15:32:37 -07:00
parent 50485b72c2
commit c55c4c4470
1 changed files with 26 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
extra/zoneinfo/zoneinfo.factor
View File

@ -3,7 +3,7 @@
USING: accessors assocs combinators combinators.short-circuit USING: accessors assocs combinators combinators.short-circuit
combinators.smart fry io.encodings.utf8 io.files kernel combinators.smart fry io.encodings.utf8 io.files kernel
math.parser math.statistics memoize namespaces sequences math.parser math.statistics memoize namespaces sequences
splitting unicode.case ; splitting unicode.case calendar arrays ;
IN: zoneinfo IN: zoneinfo
CONSTANT: zoneinfo-paths CONSTANT: zoneinfo-paths
@ -159,6 +159,31 @@ ERROR: zone-not-found name ;
: find-zone-rules ( string -- zone rules ) : find-zone-rules ( string -- zone rules )
find-zone dup rules/save>> find-rules ; find-zone dup rules/save>> find-rules ;
: number>value ( n -- n' )
{
{ "only" [ f ] }
{ "min" [ f ] }
{ "max" [ t ] }
[ string>number ]
} case ;
: on>value ( n -- n' )
! "3", "Thu>=8" always >=, "lastFri"
{
{ [ dup 3 swap ?nth CHAR: > = ] [
3 cut 2 tail [ day-abbreviation3>predicate ] [ string>number ] bi* 2array
] }
{ [ dup "last" head? ] [ 4 tail day-abbreviation3>n ] }
[ string>number ]
} cond ;
: raw-rule>triple ( raw-rule -- quot )
{
[ from>> string>number ]
[ in>> month-abbreviation>n ]
[ on>> on>value ]
} cleave>array ;
! "Europe/Helsinki" find-zone-rules ! "Europe/Helsinki" find-zone-rules
! Rule ! Rule