create-html-usage.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use File::Basename;
   7
   8 my $mydir = dirname($0);
   9 my $last = undef;
  10
  11 sub get_tg_usage($)
  12 {
  13         my $name = shift;
  14         if ( -x "$mydir/tg-$name" ) {
  15                 my $usage = `"$mydir/tg-$name" -h 2>&1`;
  16                 chomp $usage;
  17                 $usage =~ s/^Usage:\s*//i;
  18                 return $usage;
  19         } elsif ($name eq "help") {
  20                 return "tg help [-w] [<command>]";
  21         }
  22         return undef;
  23 }
  24
  25 while (my $line = <>) {
  26         if (defined($last)) {
  27                 print $last;
  28                 if ($line =~ /^[~]+$/ && $last =~ /^tg ([^\s]+)$/) {
  29                         my $usage = get_tg_usage($1);
  30                         if (defined($usage)) {
  31                                 print $line;
  32                                 print "\t", '``', $usage, '``', "\n";
  33                                 $line = "\n";
  34                         }
  35                 }
  36         }
  37         $last = $line;
  38 }
  39
  40 print $last if defined($last);
  41 exit 0;