From 3534b428629be185e096be99e3bd5fdfe32d5544 Mon Sep 17 00:00:00 2001 From: Laurent Bercot Date: Thu, 18 Sep 2014 18:55:44 +0000 Subject: initial commit with rc for skalibs-2.0.0.0 --- src/libstddjb/sgetopt.c | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) create mode 100644 src/libstddjb/sgetopt.c (limited to 'src/libstddjb/sgetopt.c') 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 +#include + +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 ; +} -- cgit v1.3.1