From 3534b428629be185e096be99e3bd5fdfe32d5544 Mon Sep 17 00:00:00 2001 From: Laurent Bercot Date: Thu, 18 Sep 2014 18:55:44 +0000 Subject: initial commit with rc for skalibs-2.0.0.0 --- src/libstddjb/leapsecs_sub.c | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 src/libstddjb/leapsecs_sub.c (limited to 'src/libstddjb/leapsecs_sub.c') 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 +#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 ; +} -- cgit v1.2.3