3 # create-html-usage.pl -- insert usage lines into README
4 # Cpoyright (C) 2015 Kyle J. McKay. All rights reserved.
5 # License GPLv2 or, at your option, any later version.
12 my $mydir = dirname
($0);
18 if ( -x
"$mydir/tg-$name" ) {
19 my $usage = `"$mydir/tg-$name" -h 2>&1`;
21 $usage =~ s/^(Usage|\s+Or):\s*//mig;
22 return split "\n", $usage;
23 } elsif ($name eq "help") {
24 return "tg help [-w] [<command>]";
25 } elsif ($name eq "status") {
26 return "tg status [-v]";
36 while (length($s) > $w && $s =~ /^(.{1,$w})(?<=\w)\b[ \t]+(.+)$/s) {
40 $ans .= $s if $s !~ /^\s*$/;
45 $textmode=1, shift if defined($ARGV[0]) && $ARGV[0] eq '--text';
47 while (my $line = <>) {
49 1 while $line =~ s/\t+/" " x (($+[0] - $-[0]) * 8 - $-[0] % 8)/e;
50 $line =~ s
'^``(.*)``$'wrap
(78, 4, $1)'e if $textmode;
51 $line =~ s'^(\s
*):`(.+?)`_
:'"$1$2 "'e
if $textmode;
54 if ($line =~ /^[~]+$/ && $last =~ /^tg ([^\s]+)$/) {
55 my @usage = get_tg_usage
($1);
59 printf "%s", join("",map({wrap
(78, 12, "$tab$_")."\n"} @usage));
61 printf "%s", join("",map({"$tab| ".'``'.$_.'``'."\n"} @usage));
70 printf "%s\n", $last if defined($last);