1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#!/usr/bin/env perl
use strict;
sub main {
my $input = do { local $/; <> };
$input =~ s/.*?\n= Commands\n//s;
$input =~ s/(.*?)\n= Command Options\n.*?\n==? .*/$1/s;
my @list;
while ($input =~ s/.*?^- (.*?)(?=\n- |\n== |\z)//ms) {
my $text = $1;
$text =~ /\A(.*)\n((?s:.*?))\n*\z/
or die "Bad text '$text'";
my ($usage, $desc) = ($1, $2);
$usage =~ s/\A`(.*)`\z/$1/
or die "Bad usage: '$text' '$usage' '$desc'";
$usage =~ s/^git subrepo //;
(my $name = $usage) =~ s/ .*//;
push @list, [$name, $usage, $desc];
}
@list = sort { $a->[0] cmp $b->[0] } @list;
write_start();
write_all_function(@list);
for my $item (@list) {
write_usage_function(@$item);
}
write_finish();
}
sub write_start {
print <<'...';
# DO NOT EDIT. This file generated by pkg/bin/generate-help-functions.pl.
set -e
...
}
sub write_all_function {
my (@list) = @_;
my $out = '';
for my $item (@list) {
$out .= sprintf "%-20s %s\n", $item->[0], $item->[1];
}
chomp $out;
print <<"....";
help:all() {
cat <<'...'
$out
...
}
....
}
sub write_usage_function {
my ($name, $usage, $desc) = @_;
print <<"....";
help:$name() {
cat <<'...'
Usage: git subrepo $usage
$desc
...
}
....
}
sub write_help_function {
my ($name, $usage, $desc) = @_;
}
sub write_finish {
print <<'...';
# vim: set sw=2 lisp:
...
}
main;
__END__
Bad usage: '`help`
Show this manpage.
' '' ' Show this manpage.' at tool/gerate-help-functions.pl line 15, <> line 1.
|
