1 files changed, 48 insertions, 0 deletions
diff --git a/src/libs6rc/s6rc_db_check_pipelines.c b/src/libs6rc/s6rc_db_check_pipelines.c
new file mode 100644
index 0000000..19dc141
--- /dev/null
+++ b/src/libs6rc/s6rc_db_check_pipelines.c
@@ -0,0 +1,48 @@
+/* ISC license. */
+
+#include <skalibs/uint32.h>
+#include <skalibs/diuint32.h>
+#include <skalibs/bytestr.h>
+#include <skalibs/bitarray.h>
+#include <s6-rc/s6rc-db.h>
+
+int s6rc_db_check_pipelines (s6rc_db_t const *db, diuint32 *problem)
+{
+  uint32 i = db->nlong ;
+  unsigned char black[bitarray_div8(db->nlong)] ;
+  byte_zero(black, bitarray_div8(db->nlong)) ;
+  while (i--) if (!bitarray_peek(black, i))
+  {
+    uint32 j = i ;
+    uint32 start ;
+    for (;;)
+    {
+      register uint32 k = db->services[j].x.longrun.pipeline[0] ;
+      if (k >= db->nlong) break ;
+      if (k == i || bitarray_peek(black, k))
+      {
+        problem->left = i ;
+        problem->right = k ;
+        return 1 + (k == i) ;
+      }
+      j = k ;
+    }
+    start = j ;
+    j = i ;
+    for (;;)
+    {
+      register unsigned int k = db->services[j].x.longrun.pipeline[1] ;
+      if (k >= db->nlong) break ;
+      if (k == i || bitarray_peek(black, k))
+      {
+        problem->left = i ;
+        problem->right = k ;
+        return 1 + (k == i) ;
+      }
+      j = k ;
+    }
+    for (j = start ; j > db->nlong ; j = db->services[j].x.longrun.pipeline[1])
+      bitarray_set(black, j) ;
+  }
+  return 0 ;
+}