blob: fa5f96d6950ab4193b8e83726c74d92909ecd2dd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(define-module (datetime instance)
:use-module (util)
:use-module (ice-9 rdelim)
:use-module (datetime zic)
:export (zoneinfo))
(define-once
zoneinfo
(let* ((pipe
(-> (@ (global) basedir)
dirname
(string-append "/tzget")
((@ (ice-9 popen) open-input-pipe))))
(path (read-line pipe))
(names (string-split (read-line pipe) #\space)))
(read-zoneinfo
(map (lambda (s) (string-append path file-name-separator-string s))
names))))
|