1 /* ISC license. */
2 
3 #include <skalibs/tai.h>
4 
tain_ulong(tain_t * t,unsigned long s)5 int tain_ulong (tain_t *t, unsigned long s)
6 {
7   if (!tai_u64(&t->sec, s)) return 0 ;
8   t->nano = 0 ;
9   return 1 ;
10 }
11