Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 88 lines (80 sloc) 2.036 kb
179fd4bf » svatsan
2013-01-17 updated tai-utc
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 2012-06-30
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
83 1341100800
84 >
85 #END leap-second-posix
86 };
87
88 };
Something went wrong with that request. Please try again.