1 files changed, 65 insertions, 0 deletions
diff --git a/src/libstddjb/alarm_timeout.c b/src/libstddjb/alarm_timeout.c
new file mode 100644
index 0000000..630b524
--- /dev/null
+++ b/src/libstddjb/alarm_timeout.c
@@ -0,0 +1,65 @@
+/* ISC license. */
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/tai.h>
+#include <skalibs/alarm.h>
+
+#ifdef SKALIBS_HASTIMER
+
+#include <errno.h>
+#include <signal.h>
+#include <time.h>
+#include "alarm-internal.h"
+
+#undef MYCLOCK
+#ifdef SKALIBS_HASCLOCKMON
+# define MYCLOCK CLOCK_MONOTONIC
+#else
+# define MYCLOCK CLOCK_REALTIME
+#endif
+
+int alarm_timeout (tain_t const *tto)
+{
+  struct itimerspec it = { .it_interval = { .tv_sec = 0, .tv_nsec = 0 } } ;
+  struct sigevent se = { .sigev_notify = SIGEV_SIGNAL, .sigev_signo = SIGALRM, .sigev_value = { .sival_int = 0 }, .sigev_notify_function = 0, .sigev_notify_attributes = 0 } ;
+  if (!timespec_from_tain_relative(&it.it_value, tto)) return 0 ;
+  if (timer_create(MYCLOCK, &se, &timer_here) < 0) return 0 ;
+  if (timer_settime(timer_here, 0, &it, 0) < 0)
+  {
+    int e = errno ;
+    timer_delete(timer_here) ;
+    errno = e ;
+    return 0 ;
+  }
+  return 1 ;
+}
+
+#else
+#ifdef SKALIBS_HASITIMER
+
+#include <sys/time.h>
+
+int alarm_timeout (tain_t const *tto)
+{
+  struct itimerval it = { .it_interval = { .tv_sec = 0, .tv_usec = 0 } } ;
+  if (!timeval_from_tain_relative(&it.it_value, tto)) return 0 ;
+  if (setitimer(ITIMER_REAL, &it, 0) < 0) return 0 ;
+  return 1 ;
+}
+
+#else
+
+#include <unistd.h>
+#include <limits.h>
+
+int alarm_timeout (tain_t const *tto)
+{
+  int t = tain_to_millisecs(tto) ;
+  if (t < 0 || t > INT_MAX - 999) return 0 ;
+  t = (t + 999) / 1000 ;
+  alarm(t) ;
+  return 1 ;
+}
+
+#endif
+#endif