1 files changed, 27 insertions, 0 deletions
diff --git a/src/libexecline/exlsn_exlp.c b/src/libexecline/exlsn_exlp.c
new file mode 100644
index 0000000..4ca513e
--- /dev/null
+++ b/src/libexecline/exlsn_exlp.c
@@ -0,0 +1,27 @@
+/* ISC license. */
+
+#include <skalibs/sgetopt.h>
+#include <skalibs/uint.h>
+#include "exlsn.h"
+
+int exlsn_exlp (int argc, char const **argv, char const *const *envp, exlsn_t *info)
+{
+  subgetopt_t localopt = SUBGETOPT_ZERO ;
+  unsigned int nmin = 0 ;
+  int n ;
+  for (;;)
+  {
+    register int opt = subgetopt_r(argc, argv, "P:", &localopt) ;
+    if (opt < 0) break ;
+    switch (opt)
+    {
+      case 'P' : if (uint0_scan(localopt.arg, &nmin)) break ;
+      default : return -3 ;
+    }
+  }
+  argc -= localopt.ind ; argv += localopt.ind ;
+  if (!argc) return -3 ;
+  n = exlp(nmin, envp, info) ;
+  if (n < 0) return n ;
+  return localopt.ind ;
+}