[Rd] additional leap second

[Ei-ji Nakama]

sorry, i didnt watch src/main/datetime.c ...

Index: leap_second/src/main/datetime.c
===================================================================
--- leap_second/src/main/datetime.c    (リビジョン 68608)
+++ leap_second/src/main/datetime.c    (作業コピー)
@@ -303,14 +303,15 @@
 }

 #ifndef HAVE_POSIX_LEAPSECONDS
-/* There have been 25 leapseconds: see .leap.seconds in R
+/* There have been many leapseconds: see .leap.seconds in R
+ * (as.Date(.leap.seconds)-as.Date("1970-01-01"))*86400
  */
-static int n_leapseconds = 25;
 static const time_t leapseconds[] =
 {  78796800, 94694400,126230400,157766400,189302400,220924800,252460800,
   283996800,315532800,362793600,394329600,425865600,489024000,567993600,
   631152000,662688000,709948800,741484800,773020800,820454400,867715200,
-   915148800,1136073600,1230768000,1341100800};
+   915148800,1136073600,1230768000,1341100800,1435708800};
+static int n_leapseconds = sizeof(leapseconds)/sizeof(time_t);
 #endif

 static double guess_offset (stm *tm)

2015-07-01 17:13 GMT+09:00 Prof Brian Ripley <ripley at stats.ox.ac.uk>:
> Thanks, I was working on this.
>
> There are other changes needed in src/main/datetime.c and ?.leap.seconds
> which I will commit shortly, and the example in hist.POSIXt() needed
> alteration (it seems DJM did not run 'make check'!).
>
>
>
> On 01/07/2015 06:20, Ei-ji Nakama wrote:
>>
>> hi,
>>
>> Index: leap_second/src/library/base/R/zdatetime.R
>> ===================================================================
>> --- leap_second/src/library/base/R/zdatetime.R    (revision 68608)
>> +++ leap_second/src/library/base/R/zdatetime.R    (working copy)
>> @@ -24,7 +24,8 @@
>>             "1979-12-31", "1981-6-30", "1982-6-30", "1983-6-30",
>>             "1985-6-30", "1987-12-31", "1989-12-31", "1990-12-31",
>>             "1992-6-30", "1993-6-30", "1994-6-30","1995-12-31",
>> -          "1997-6-30", "1998-12-31", "2005-12-31", "2008-12-31",
>> "2012-6-30")
>> +          "1997-6-30", "1998-12-31", "2005-12-31", "2008-12-31",
>> +          "2012-6-30", "2015-6-30")
>>       .leap.seconds <- strptime(paste(.leap.seconds , "23:59:60"),
>>                                 "%Y-%m-%d %H:%M:%S")
>>       c(as.POSIXct(.leap.seconds, "GMT")) # lose the timezone
>>
>> Best Regards,
>> --
>> Eiji NAKAMA <nakama (a) ki.rim.or.jp>
>> "\u4e2d\u9593\u6804\u6cbb"  <nakama (a) ki.rim.or.jp>
>>
>> ______________________________________________
>> R-devel at r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-devel
>>
>
>
> --
> Brian D. Ripley,                  ripley at stats.ox.ac.uk
> Emeritus Professor of Applied Statistics, University of Oxford
> 1 South Parks Road, Oxford OX1 3TG, UK



-- 
Best Regards,
--
Eiji NAKAMA <nakama (a) ki.rim.or.jp>
"\u4e2d\u9593\u6804\u6cbb"  <nakama (a) ki.rim.or.jp>