From 67ebbac0be7ad917e794ca5ea0496d0a1ead83b8 Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Tue, 6 May 2025 04:10:06 -0400
Subject: much work (options, rc script, make install, etc etc).

---
 mkusage.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 mkusage.pl

(limited to 'mkusage.pl')

diff --git a/mkusage.pl b/mkusage.pl
new file mode 100644
index 0000000..fab9626
--- /dev/null
+++ b/mkusage.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+print "const char *helptext[] = {\n";
+
+while(<>) {
+	chomp;
+	next if /^---/;
+	if(/^-[-a-zA-Z\d]/) {
+		$opt = $_;
+		next;
+	}
+	if($opt && (/^\.\. (.*)$/)) {
+		print "\t\"  $opt: $1\",\n";
+		undef $opt;
+	}
+}
+
+print "\t(const char*)0\n};\n";
-- 
cgit v1.2.3