generate-cmdlist.perl

#!/usr/bin/perl
use strict;
use warnings;

print <<"EOT";
/* Automatically generated by $0 */

struct cmdname_help {
	char name[16];
	char help[80];
	unsigned char group;
};

static char *common_cmd_groups[] = {
EOT

my $n = 0;
my %grp;
while (<>) {
	last if /^### command list/;
	next if (1../^### common groups/) || /^#/ || /^\s*$/;
	chop;
	my ($k, $v) = split ' ', $_, 2;
	$grp{$k} = $n++;
	print "\tN_(\"$v\"),\n";
}

print "};\n\nstatic struct cmdname_help common_cmds[] = {\n";

while (<>) {
	next if /^#/ || /^\s*$/;
	my @tags = split;
	my $cmd = shift @tags;
	for my $t (@tags) {
		if (exists $grp{$t}) {
			my $s;
			open my $f, '<', "Documentation/$cmd.txt" or die;
			while (<$f>) {
				($s) = /^$cmd - (.+)$/;
				last if $s;
			}
			close $f;
			$cmd =~ s/^git-//;
			print "\t{\"$cmd\", N_(\"$s\"), $grp{$t}},\n";
			last;
		}
	}
}

print "};\n";