From a500a5e534b3c03c685f3397050afe6667b740f8 Mon Sep 17 00:00:00 2001
From: Laurent Bercot <ska-skaware@skarnet.org>
Date: Mon, 16 Mar 2026 01:39:48 +0000
Subject:  Add phread_mutex_clocklock() sysdep, pthread_mutex_tailock()
 function

---
 src/include/skalibs/pthread.h          | 13 +++++++++++++
 src/include/skalibs/stddjb.h           |  1 +
 src/libstddjb/pthread_mutex_tailock.c  | 24 ++++++++++++++++++++++++
 src/sysdeps/trypthreadmutexclocklock.c | 11 +++++++++++
 4 files changed, 49 insertions(+)
 create mode 100644 src/include/skalibs/pthread.h
 create mode 100644 src/libstddjb/pthread_mutex_tailock.c
 create mode 100644 src/sysdeps/trypthreadmutexclocklock.c

(limited to 'src')

diff --git a/src/include/skalibs/pthread.h b/src/include/skalibs/pthread.h
new file mode 100644
index 0000000..a368595
--- /dev/null
+++ b/src/include/skalibs/pthread.h
@@ -0,0 +1,13 @@
+/* ISC license. */
+
+#ifndef SKALIBS_PTHREAD_H
+#define SKALIBS_PTHREAD_H
+
+#include <pthread.h>
+
+#include <skalibs/tai.h>
+
+extern int pthread_mutex_tailock (pthread_mutex_t *, tain const *, tain *) ;
+#define pthread_mutex_tailock_g(mtx, deadline) pthread_mutex_tailock(mtx, (deadline), &STAMP)
+
+#endif
diff --git a/src/include/skalibs/stddjb.h b/src/include/skalibs/stddjb.h
index 2575b06..668e3af 100644
--- a/src/include/skalibs/stddjb.h
+++ b/src/include/skalibs/stddjb.h
@@ -47,5 +47,6 @@
 #include <skalibs/socket.h>
 #include <skalibs/stralloc.h>
 #include <skalibs/tai.h>
+#include <skalibs/pthread.h>
 
 #endif
diff --git a/src/libstddjb/pthread_mutex_tailock.c b/src/libstddjb/pthread_mutex_tailock.c
new file mode 100644
index 0000000..affa8b3
--- /dev/null
+++ b/src/libstddjb/pthread_mutex_tailock.c
@@ -0,0 +1,24 @@
+/* ISC license. */
+
+#include <errno.h>
+#include <time.h>
+#include <pthread.h>
+
+#include <skalibs/sysdeps.h>
+#include <skalibs/tai.h>
+#include <skalibs/pthread.h>
+
+int pthread_mutex_tailock (pthread_mutex_t *mtx, tain const *deadline, tain *stamp)
+{
+  struct timespec ts ;
+  tain tto ;
+  tain_sub(&tto, deadline, stamp) ;
+  if (!timespec_from_tain_relative(&ts, &tto)) return errno ;
+#ifdef SKALIBS_HASPTHREADMUTEXCLOCKLOCK
+  if (&tain_now != &tain_wallclock_read)
+    return pthread_mutex_clocklock(mtx, CLOCK_MONOTONIC, &ts) ;
+  else
+#else
+  return pthread_mutex_timedlock(mtx, &ts) ;
+#endif
+}
diff --git a/src/sysdeps/trypthreadmutexclocklock.c b/src/sysdeps/trypthreadmutexclocklock.c
new file mode 100644
index 0000000..b102db2
--- /dev/null
+++ b/src/sysdeps/trypthreadmutexclocklock.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <time.h>
+#include <pthread.h>
+
+int main (void)
+{
+  pthread_mutex_t mtx = PTHREAD_MUTEX_INIT ;
+  strict timespec ts = { .tv_sec = 0, .tv_nsec = 1 } ;
+  return pthread_mutex_clocklock(&mtx, CLOCK_MONOTONIC, &ts) ;
+}
-- 
cgit v1.3.1