From 0f4d0a93434aa7586c9f66c6a48707b561ebf00a Mon Sep 17 00:00:00 2001
From: "B. Watson" <urchlay@slackware.uk>
Date: Fri, 14 Nov 2025 06:27:22 -0500
Subject: Generate usage message from comments in the .rst.

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

(limited to 'src/mkusage.pl')

diff --git a/src/mkusage.pl b/src/mkusage.pl
new file mode 100644
index 0000000..d8a5c77
--- /dev/null
+++ b/src/mkusage.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl -w
+
+print "const char *usage_msg[] = {\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