initial commit with rc for skalibs-2.0.0.0

1 files changed, 24 insertions, 0 deletions

diff --git a/src/libstddjb/sgetopt.c b/src/libstddjb/sgetopt.c
new file mode 100644
index 0000000..7e6bdf6
--- /dev/null
+++ b/src/libstddjb/sgetopt.c
@@ -0,0 +1,24 @@
+/* ISC license. */
+
+/* MT-unsafe */
+
+#undef SUBGETOPT_SHORT
+
+#include <skalibs/buffer.h>
+#include <skalibs/sgetopt.h>
+
+int sgetopt_r (int argc, char const *const *argv, char const *opts, subgetopt_t *o)
+{
+  char c = (char)subgetopt_r(argc, argv, opts, o) ;
+  if (o->err && ((c == '?') || (c == ':')))
+  {
+    buffer_puts(buffer_2, o->prog ? o->prog : argv[0]) ;
+    buffer_put(buffer_2, ": ", 2) ;
+    buffer_puts(buffer_2, ((c == '?') && argv[o->ind] && (o->ind < argc)) ?
+     "illegal option" : "option requires an argument") ;
+    buffer_put(buffer_2, " -- ", 4) ;
+    buffer_put(buffer_2, &c, 1) ;
+    buffer_putflush(buffer_2, "\n", 1) ;
+  }
+  return (int)c ;
+}