From dda18efbf37e2def7490bb7865d41b1560d8412c Mon Sep 17 00:00:00 2001
From: Laurent Bercot <ska-skaware@skarnet.org>
Date: Tue, 5 May 2015 16:41:36 +0000
Subject:  - add s6-seq  - rc for 2.0.5.0

---
 src/skaembutils/deps-exe/s6-seq |  1 +
 src/skaembutils/s6-seq.c        | 61 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 62 insertions(+)
 create mode 100644 src/skaembutils/deps-exe/s6-seq
 create mode 100644 src/skaembutils/s6-seq.c

(limited to 'src')

diff --git a/src/skaembutils/deps-exe/s6-seq b/src/skaembutils/deps-exe/s6-seq
new file mode 100644
index 0000000..e7187fe
--- /dev/null
+++ b/src/skaembutils/deps-exe/s6-seq
@@ -0,0 +1 @@
+-lskarnet
diff --git a/src/skaembutils/s6-seq.c b/src/skaembutils/s6-seq.c
new file mode 100644
index 0000000..bad4afd
--- /dev/null
+++ b/src/skaembutils/s6-seq.c
@@ -0,0 +1,61 @@
+/* ISC license. */
+
+#include <skalibs/uint.h>
+#include <skalibs/sgetopt.h>
+#include <skalibs/buffer.h>
+#include <skalibs/strerr2.h>
+
+#define USAGE "s6-seq [ -w ] [ -s separator ] limits"
+#define dieusage() strerr_dieusage(100, USAGE)
+
+int main (int argc, char const *const *argv)
+{
+  char const *sep = "\n" ;
+  unsigned int fixed = 0, seplen = 1, i = 1, increment = 1 ;
+  unsigned int last ;
+  char fmt[UINT_FMT] ;
+  PROG = "s6-seq" ;
+  {
+    subgetopt_t l = SUBGETOPT_ZERO ;
+    for (;;)
+    {
+      register int opt = subgetopt_r(argc, argv, "ws:", &l) ;
+      if (opt == -1) break ;
+      switch (opt)
+      {
+        case 'w': fixed = 1 ; break ;
+        case 's': sep = l.arg ; seplen = str_len(sep) ; break ;
+        default : dieusage() ;
+      }
+    }
+    argc -= l.ind ; argv += l.ind ;
+  }
+  switch (argc)
+  {
+    case 1 :
+      if (!uint0_scan(argv[0], &last)) dieusage() ;
+      break ;
+    case 2 :
+      if (!uint0_scan(argv[0], &i)
+       || !uint0_scan(argv[1], &last)) dieusage() ;
+      break ;
+    case 3 :
+      if (!uint0_scan(argv[0], &i)
+       || !uint0_scan(argv[1], &increment)
+       || !uint0_scan(argv[2], &last)) dieusage() ;
+      break ;
+    default : dieusage() ;
+  }
+  if (!seplen) seplen = 1 ;
+  if (fixed) fixed = uint_fmt(0, i + increment * ((last - i) / increment)) ;
+  for (; i <= last ; i += increment)
+  {
+    if (buffer_put(buffer_1, fmt, fixed ? (uint0_fmt(fmt, i, fixed), fixed) : uint_fmt(fmt, i)) < 0) goto err ;
+    if (buffer_put(buffer_1, sep, seplen) < 0) goto err ;
+  }
+  if (!buffer_flush(buffer_1)) goto err ;
+  return 0 ;
+
+err:
+  strerr_diefu1sys(111, "write to stdout") ;
+}
-- 
cgit v1.2.3