initial commit with rc for skalibs-2.0.0.0

1 files changed, 22 insertions, 0 deletions

diff --git a/src/libstddjb/leapsecs_sub.c b/src/libstddjb/leapsecs_sub.c
new file mode 100644
index 0000000..271f592
--- /dev/null
+++ b/src/libstddjb/leapsecs_sub.c
@@ -0,0 +1,22 @@
+/* ISC license. */
+
+#include <skalibs/uint64.h>
+#include "djbtime-internal.h"
+
+int leapsecs_sub_r (uint64 *t, char const *file, uint64 *leapsecs)
+{
+  uint64 u = *t ;
+  uint64 d = 0 ;
+  int n = leapsecs_init_r(file, leapsecs) ;
+  register unsigned int i = 0 ;
+  register int hit = 0 ;
+  if (n < 0) return -1 ;
+  for (; i < (unsigned int)n ; i++)
+  {
+    if (u < leapsecs[i]) break ;
+    ++d ;
+    if (u == leapsecs[i]) hit = 1 ;
+  }
+  *t = u - d ;
+  return hit ;
+}