Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

updated tai-utc

  • Loading branch information...
commit 179fd4bf0b248c1ce6b04d06e5f2a36dd54e6a6f 1 parent efac0f1
authored January 17, 2013

Showing 1 changed file with 88 additions and 88 deletions. Show diff stats Hide diff stats

  1. 176  src/core/tai-utc.pm
176  src/core/tai-utc.pm
... ...
@@ -1,88 +1,88 @@
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  
-};
  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
+};

0 notes on commit 179fd4b

Please sign in to comment.
Something went wrong with that request. Please try again.