#!/usr/bin/perl
#
# man2html.pl - UNIX manpage to HTML convertor
# Copyright (C) TOYODA Eizi, 1998
#
require "getopts.pl";
&Getopts("b:f:d:Dnmp:x:");
$opt_x =~ s/^\.//;
$opt_x = substr($opt_x, 0, 3) if $opt_m;
if ($opt_p) {
$opt_x || ($opt_x = "htm");
$PATHDELIM = &isMSDOS ? ";" : ":";
@manpath = split(/$PATHDELIM/, @opt_p);
foreach (@manpath) {
&ManTreeScan($_);
}
} else {
while ($manpage = shift) {
&ManConv($manpage, &Output($manpage));
$files++;
}
!$files && &ManConv("-", "-");
}
exit 0;
sub ManTreeScan {
local($mandir) = @_;
print "tree scan in <$mandir> (not implemented)\n";
}
sub Output {
local($fnam, $section) = @_;
return "-" if (!$opt_x && !defined $section);
local($ext) = $opt_x || "htm";
$fnam =~ s/\.[^\.]*$//;
$fnam = substr($fnam, 0, 8) if $opt_m;
$fnam .= ".$ext";
if ($opt_d && $opt_p) {
$fnam = "$opt_d/htm$section/$fnam";
} elsif ($opt_d) {
$fnam = "$opt_d/$fnam";
}
$fnam;
}
sub ManConv {
($INPUT, $OUTPUT) = @_;
warn "files: $INPUT $OUTPUT\n" if ($opt_n || $opt_D);
return if $opt_n;
if ($INPUT eq "-") {
$INPUT = "STDIN";
select(STDOUT);
&ManFilter;
return;
}
open($INPUT, $INPUT) || die "$INPUT: cannot open\n";
open($OUTPUT, ">$OUTPUT") || die ">$OUTPUT: cannot open\n";
select($OUTPUT);
&ManFilter;
close($INPUT);
close($OUTPUT);
}
sub ManFilter {
$IGNORE = 1; # for ever
$ITEMIZE = 0;
$EQUATION = 0;
&chop_init;
while (<$INPUT>) {
&chop;
/^$/ && (print("\n"), next);
/^[\.']\\"/ && next;
/^[\.']/ && (&RoffCommand, next);
next if $IGNORE;
$EQUATION && /delim/ && next; # eqn emu kluge
&htquote();
print "$_\n";
}
&HtmlFooter();
}
sub htquote {
$_ = @_ ? $_[0] : $_;
s/\\\\/\\\0/g;
s/\\-/--/g;
s/]*)>/\\(A HREF=\\Q\1\\Q\\)\1\\(\/A\\)/g;
s/^relative:([!-~]+)/\\(A HREF=\\Q\1\\Q\\)\1\\(\/A\\)/;
s/\\\&//g;
s/\&/\&/g;
s//\>/g;
s/"/\"/g;
s/\\\(//g;
s/\\Q/"/g;
while (/\\f[BI]/) {
if ($& eq "\\fB") {
s/\\fB//;
s,\\fP,, || s,$,,;
} else {
s/\\fI//;
s,\\fP,, || s,$,,;
}
}
s/\\\0/\\/g;
$_;
}
sub RoffCommand {
local($cmd, @arg) = &RoffArg($_);
return if ($cmd eq "");
warn "$cmd <<", join(">><<", @arg), ">>\n" if $opt_D;
if ($cmd eq "TH") {
$IGNORE = 0;
&HtmlHeader(@arg);
} elsif ($cmd eq "SH") {
&enditem;
print "", &htquote($arg[0]), "
\n";
} elsif ($cmd eq "SS") {
&enditem;
print "", &htquote($arg[0]), "
\n";
} elsif ($cmd =~ /^[LP]P$/) {
&enditem;
print "\n";
} elsif ($cmd eq "IP") {
$ITEMIZE || ($ITEMIZE = 1, print "
");
print"- ", &htquote($arg[0]), "
- \n";
} elsif ($cmd eq "br") {
print "
\n";
} elsif ($cmd eq "nf") {
print "\n";
} elsif ($cmd eq "fi") {
print "\n";
} elsif ($cmd eq "RS" || $cmd eq "EQ") {
print "\n";
$EQUATION = ($cmd eq "EQ");
} elsif ($cmd eq "RE" || $cmd eq "EN") {
print "
\n";
$EQUATION = 0 if ($cmd eq "EN");
} elsif ($cmd eq "B") {
print "", &htquote($arg[0]), "\n";
} elsif ($cmd eq "I") {
print "", &htquote($arg[0]), "\n";
} elsif ($cmd eq "BR" && &isRefMan(@arg)) {
if ($link = &RefMan(@arg)) {
print "",
&htquote($arg[0]), "",
&htquote($arg[1]), "\n";
} else {
print "", &htquote($arg[0]), "",
&htquote($arg[1]), "\n";
}
} elsif ($cmd =~ /^[BRI][BRI]$/) {
local($pat, $args);
$pat = $cmd x 3;
while ($pat) {
($args = shift(@arg)) || last;
if ($pat =~ /^B/) {
print "", &htquote($args), "";
} elsif ($pat =~ /^I/) {
print "", &htquote($args), "";
} else {
print &htquote($args);
}
$pat =~ s/^.//;
}
print "\n";
} else {
warn "$0: unknown command $cmd\n";
}
}
sub HtmlHeader {
local($arg) = @_;
($TITLE = shift(arg)) =~ tr/a-z/A-Z/;
$TITLE .= "(" . shift(arg) . ")";
print "\n";
print "", $TITLE, "\n";
print "\n";
print "", $TITLE, "
\n";
foreach ("date:", "source:", "title:") {
($it = shift(arg)) || last;
print("
\n", $_, $it);
}
print "
\n";
}
sub HtmlFooter {
if ($IGNORE) {
warn "$0: $INPUT has no .TH command\n";
return;
}
print "
\n";
print "\n";
print "HTML-converted with TOYODA Eizi's man2html.pl\n";
print "\n";
print "