8 my $mydir = dirname
($0);
14 if ( -x
"$mydir/tg-$name" ) {
15 my $usage = `"$mydir/tg-$name" -h 2>&1`;
17 $usage =~ s/^(Usage|\s+Or):\s*//mig;
18 return split "\n", $usage;
19 } elsif ($name eq "help") {
20 return "tg help [-w] [<command>]";
25 while (my $line = <>) {
28 if ($line =~ /^[~]+$/ && $last =~ /^tg ([^\s]+)$/) {
29 my @usage = get_tg_usage
($1);
32 print map({"\t| ".'``'.$_.'``'."\n"} @usage);
40 print $last if defined($last);