...
This commit is contained in:
parent
7d597c4833
commit
37977622c4
@ -125,7 +125,6 @@ foreach (@ARGV) {
|
|||||||
my $fh = *USAGE;
|
my $fh = *USAGE;
|
||||||
my ($applet, $type, @line);
|
my ($applet, $type, @line);
|
||||||
while (<$fh>) {
|
while (<$fh>) {
|
||||||
|
|
||||||
if (/^#define (\w+)_(\w+)_usage/) {
|
if (/^#define (\w+)_(\w+)_usage/) {
|
||||||
$applet = $1;
|
$applet = $1;
|
||||||
$type = $2;
|
$type = $2;
|
||||||
@ -135,7 +134,6 @@ foreach (@ARGV) {
|
|||||||
my $text = join("\n", @line);
|
my $text = join("\n", @line);
|
||||||
$doc->{$type} = beautify($text);
|
$doc->{$type} = beautify($text);
|
||||||
}
|
}
|
||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -211,4 +209,4 @@ John BEPPU <beppu@lineo.com>
|
|||||||
|
|
||||||
=cut
|
=cut
|
||||||
|
|
||||||
# $Id: autodocifier.pl,v 1.11 2001/02/24 14:37:48 beppu Exp $
|
# $Id: autodocifier.pl,v 1.12 2001/02/24 14:44:25 beppu Exp $
|
||||||
|
Loading…
Reference in New Issue
Block a user