Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 87 lines (78 sloc) 1.91 kb
f998cbb @moritz start to put back tai-utc and Instant (Duration still missing)
moritz authored
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
43 >
44 #END leap-second-dates
45 };
46
47 # our %leap-seconds =
48 # @leap-second-dates Z=> $initial-offset + 1 .. *;
49
50 # So for any date $d in @leap-second-dates, $d 23:59:00 UTC
51 # is the leap second that made (or will make) UTC
52 # %leap-seconds{$d} seconds behind TAI.
53
54 # Ambiguous POSIX times.
55 our sub leap-second-posix() {
56 #BEGIN leap-second-posix
57 <
58 78796800
59 94694400
60 126230400
61 157766400
62 189302400
63 220924800
64 252460800
65 283996800
66 315532800
67 362793600
68 394329600
69 425865600
70 489024000
71 567993600
72 631152000
73 662688000
74 709948800
75 741484800
76 773020800
77 820454400
78 867715200
79 915148800
80 1136073600
81 1230768000
82 >
83 #END leap-second-posix
84 };
85
86 };
Something went wrong with that request. Please try again.