skalibs

Mirror/fork of https://skarnet.org/software/skalibs/
git clone https://ccx.te2000.cz/git/skalibs
Log | Files | Refs | README | LICENSE

tain_ulong.c (160B)

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