Signed-off-by: Jo-Philipp Wich <jow@openwrt.org> SVN-Revision: 43957master
parent
1070fec51f
commit
6dec519be7
@ -0,0 +1,29 @@ |
||||
#!/usr/bin/env perl |
||||
|
||||
use strict; |
||||
use Getopt::Long; |
||||
|
||||
my $output; |
||||
my $version; |
||||
|
||||
Getopt::Long::Configure('pass_through'); |
||||
Getopt::Long::GetOptions( |
||||
'output=s' => \$output, |
||||
'version' => \$version |
||||
); |
||||
|
||||
if ($version) |
||||
{ |
||||
printf "OpenWrt help2man 1.40.10\n"; |
||||
exit 0; |
||||
} |
||||
elsif ($output) |
||||
{ |
||||
open O, "> $output" || die "Unable to open $output: $!\n"; |
||||
print O "Dummy man page.\n"; |
||||
close O; |
||||
} |
||||
else |
||||
{ |
||||
print O "Dummy man page.\n"; |
||||
} |
@ -0,0 +1,112 @@ |
||||
#!/usr/bin/env perl |
||||
|
||||
use strict; |
||||
use Getopt::Long; |
||||
|
||||
my $output; |
||||
my $version; |
||||
my $docbook; |
||||
my $html; |
||||
my $xml; |
||||
my $plaintext; |
||||
my $no_split; |
||||
my $no_headers; |
||||
|
||||
Getopt::Long::Configure('pass_through'); |
||||
Getopt::Long::GetOptions( |
||||
'output=s' => \$output, |
||||
'version' => \$version, |
||||
'no-split' => \$no_split, |
||||
'no-headers' => \$no_headers, |
||||
'docbook' => \$docbook, |
||||
'html' => \$html, |
||||
'xml' => \$xml, |
||||
'plaintext' => \$plaintext |
||||
); |
||||
|
||||
if ($version) |
||||
{ |
||||
print "makeinfo (OpenWrt stub) 4.13\n"; |
||||
exit 0; |
||||
} |
||||
|
||||
|
||||
sub output_filename |
||||
{ |
||||
my $path = shift || return; |
||||
my $name = $path; |
||||
my $setfile; |
||||
|
||||
if (open F, "< $path") |
||||
{ |
||||
while (defined(my $line = readline F)) |
||||
{ |
||||
if ($line =~ /\@setfilename\s+(\S+)/) |
||||
{ |
||||
$setfile = $1; |
||||
$setfile =~ s!^.+/!!; |
||||
last; |
||||
} |
||||
} |
||||
|
||||
close F; |
||||
} |
||||
|
||||
$name =~ s!^.+/!!; |
||||
$name =~ s!\.[^.]+$!!; |
||||
|
||||
if ($html) |
||||
{ |
||||
$setfile =~ s!\.[^.]+$!! if $setfile; |
||||
|
||||
if ($no_split) |
||||
{ |
||||
return $setfile ? "$setfile.html" : "$name.html" unless $output; |
||||
return $output; |
||||
} |
||||
|
||||
return $setfile ? "$setfile/index.html" : "$name/index.html" unless $output; |
||||
return "$output/index.html"; |
||||
} |
||||
elsif ($xml || $docbook) |
||||
{ |
||||
$setfile =~ s!\.[^.]+$!! if $setfile; |
||||
|
||||
return $setfile ? "$setfile.xml" : "$name.info" unless $output; |
||||
return $output; |
||||
} |
||||
elsif ($plaintext) |
||||
{ |
||||
return ($output || "-"); |
||||
} |
||||
|
||||
return ($output || $setfile || "$name.info"); |
||||
} |
||||
|
||||
foreach my $arg (@ARGV) |
||||
{ |
||||
next unless -f $arg; |
||||
|
||||
my $out = output_filename($arg); |
||||
if ($out =~ m!^(.+/)[^/]+$!) |
||||
{ |
||||
system("mkdir", "-p", $1); |
||||
} |
||||
|
||||
my $fd = \*STDOUT; |
||||
if ($out ne "-" && !$no_headers) |
||||
{ |
||||
open $fd, "> $out" || die "Can't open $out: $!\n"; |
||||
} |
||||
|
||||
if ($html || $xml || $docbook) |
||||
{ |
||||
print $fd "<!-- Dummy output for $arg -->\n"; |
||||
} |
||||
else |
||||
{ |
||||
print $fd "Dummy output for $arg\n"; |
||||
} |
||||
|
||||
close $fd; |
||||
} |
Loading…
Reference in new issue