Generate usage message from comments in the .rst.

1 files changed, 18 insertions, 0 deletions

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";