Skip to content
Newer
Older
100644 89 lines (80 sloc) 1.9 KB
f998cbb @moritz start to put back tai-utc and Instant (Duration still missing)
moritz authored Aug 4, 2011
1 # This file keeps track of the differences between TAI and UTC
2 # for internal use. The "BEGIN" and "END" comments are for
3 # tools/update-tai-utc.pl.
4
5 # Some handy tables:
6 # http://tf.nist.gov/pubs/bulletin/leapsecond.htm
7 # http://hpiers.obspm.fr/eop-pc/earthor/utc/TAI-UTC_tab.html
8
9 my module tai-utc {
10
11 #our $initial-offset = 10;
12 our sub initial-offset() { 10 }
13 # TAI - UTC at the Unix epoch (1970-01-01T00:00:00Z).
14
15 # our @leap-second-dates = <
16 our sub leap-second-dates() {
17 #BEGIN leap-second-dates
18 <
19 1972-06-30
20 1972-12-31
21 1973-12-31
22 1974-12-31
23 1975-12-31
24 1976-12-31
25 1977-12-31
26 1978-12-31
27 1979-12-31
28 1981-06-30
29 1982-06-30
30 1983-06-30
31 1985-06-30
32 1987-12-31
33 1989-12-31
34 1990-12-31
35 1992-06-30
36 1993-06-30
37 1994-06-30
38 1995-12-31
39 1997-06-30
40 1998-12-31
41 2005-12-31
42 2008-12-31
b27b216 @coke ooh, new leap second
coke authored Apr 19, 2012
43 2012-06-30
f998cbb @moritz start to put back tai-utc and Instant (Duration still missing)
moritz authored Aug 4, 2011
44 >
45 #END leap-second-dates
46 };
47
48 # our %leap-seconds =
49 # @leap-second-dates Z=> $initial-offset + 1 .. *;
50
51 # So for any date $d in @leap-second-dates, $d 23:59:00 UTC
52 # is the leap second that made (or will make) UTC
53 # %leap-seconds{$d} seconds behind TAI.
54
55 # Ambiguous POSIX times.
56 our sub leap-second-posix() {
57 #BEGIN leap-second-posix
58 <
59 78796800
60 94694400
61 126230400
62 157766400
63 189302400
64 220924800
65 252460800
66 283996800
67 315532800
68 362793600
69 394329600
70 425865600
71 489024000
72 567993600
73 631152000
74 662688000
75 709948800
76 741484800
77 773020800
78 820454400
79 867715200
80 915148800
81 1136073600
82 1230768000
b27b216 @coke ooh, new leap second
coke authored Apr 19, 2012
83 1341100800
f998cbb @moritz start to put back tai-utc and Instant (Duration still missing)
moritz authored Aug 4, 2011
84 >
85 #END leap-second-posix
86 };
87
88 };
Something went wrong with that request. Please try again.