From efe47381c599b07e4c7bbdb2e91e8090a541c887 Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Sun, 7 Apr 2024 17:53:52 +0200 Subject: Adding upstream version 2.23.4+deb12u1. Signed-off-by: Daniel Baumann --- doc/genmanpage.pl | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100755 doc/genmanpage.pl (limited to 'doc/genmanpage.pl') diff --git a/doc/genmanpage.pl b/doc/genmanpage.pl new file mode 100755 index 0000000..9d33c15 --- /dev/null +++ b/doc/genmanpage.pl @@ -0,0 +1,30 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +# Define item leadin/leadout for man output +my $ITEM_LEADIN = '.IP "\fI'; +my $ITEM_LEADOUT = '\fR(1)"'; + +my $package; +my $description; + + +# Parse the shortened README file +while (<>) { + chomp; + # A line starting with ' -' indicates a script + if (/^ - ([^:]*): (.*)/) { + if ($package and $description) { + # If we get here, then we need to output the man code + print $ITEM_LEADIN . $package . $ITEM_LEADOUT . "\n"; + print $description . "\n"; + } + $package = $1; + $description = $2; + } else { + s/^ //; + $description .= $_; + } +} -- cgit v1.2.3