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

Find timezone based on string

db4
Doug Coleman 2011-07-05 12:24:26 -05:00
parent f4c66e8be7
commit f625f3ea47
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
extra/zoneinfo/zoneinfo.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: combinators combinators.smart io.encodings.utf8 io.files USING: combinators combinators.smart io.encodings.utf8 io.files
kernel namespaces sequences splitting unicode.case accessors kernel namespaces sequences splitting unicode.case accessors
math.parser calendar ; math.parser calendar memoize fry ;
IN: zoneinfo IN: zoneinfo
CONSTANT: zoneinfo-paths CONSTANT: zoneinfo-paths
@ -125,9 +125,23 @@ TUPLE: leap ;
[ "\t " split harvest ] map harvest [ "\t " split harvest ] map harvest
[ [ parse-line ] map ] with-scope ; [ [ parse-line ] map ] with-scope ;
: load-zoneinfo-files ( -- seq ) MEMO: zoneinfo-files ( -- seq )
zoneinfo-paths [ parse-zoneinfo-file ] map ; zoneinfo-paths [ parse-zoneinfo-file ] map ;
GENERIC: zone-matches? ( string rule -- ? )
M: raw-rule zone-matches? name>> = ;
M: raw-zone zone-matches? name>> = ;
M: raw-link zone-matches? from>> = ;
M: raw-leap zone-matches? 2drop f ;
: find-timezone-rules ( string -- seq )
[ zoneinfo-files ] dip '[
[ [ _ ] dip zone-matches? ] filter
] map concat sift ;
: find-applicable-rules ( string -- seq )
find-timezone-rules [ until>> empty? ] filter ;
! Rule ! Rule