' . $func . '(3) Manual Page

#!/usr/bin/perl -w use strict; my @dlstack = (); die unless $ARGV[0]; my $f = $ARGV[0]; my $a = $ARGV[1]; my $html = ""; sub Splitify { my @t; my $q = 0; my $t = undef; my @c = split //, shift; for (@c) { if (/"/) { $q = 1 - $q; } elsif (/ /) { if ($q) { $t .= " "; } elsif (defined $t) { push @t, $t; $t = undef; } } elsif (/[\S]/) { $t .= $_; } else { die $_; } } push @t, $t if defined $t; @t; } sub FromTo { my ($from, $to) = @_; my $codes; return "" if ($from eq $to); $codes .= "" unless ($from eq "R"); $codes .= "<$to>" unless ($to eq "R"); $codes; } sub FixFont { my ($cur, $string) = @_; my $out; $out .= FromTo("R", $cur); my @c = split //, $string; for (my $i = 0; $i <= $#c; ++$i) { if ($c[$i] eq '\\' and $c[$i + 1] eq 'f') { my $new = $c[$i + 2]; die $string unless $new; $out .= FromTo($cur, $new); $cur = $new; $i += 2; } else { $out .= $c[$i]; } } $out .= FromTo($cur, "R"); $out; } sub Alternate { my @types; my $string; ($types[0], $types[1], $string) = @_; my $s = 1; my @t = Splitify($string); my $h = shift @t; for (@t) { $h .= "\\f" . $types[$s] . $_; $s = 1 - $s; } FixFont($types[0], $h); } my $dl = 0; my $rs = 0; my $pd = 0; my $ul = 0; my $nf = 0; my $header = 0; my $table = 0; my $dl_end = 0; my $pd_data; my $vers="Version 0.0.0"; my $date="Date unknown."; open F, $f or die "Can't open $f: $!"; while() { next if (/^\.\\"/); chomp; if ($_ eq "" and not $nf) { $_ = ($dl == 1) ? ".DP" : ".PP"; } $_ = ".IP" if ($_ =~ /\.in /); $_ = ".PP" if ($_ eq ".in"); #strip email addresses? if (/^<[^ ]*@[^ ]*>./) { $html .= ". "; next; } s/\\-/-/g; s/&/&/g; s//>/g; s/\\t/ /g; s/\\\|/ /g; s/""""/""/g; s/\\e"/\\"/g; s/ *\\\(em */—/g; s/\\\(co/©/g; s/ -([0-9])/ −$1/g; # Undo header.tmac s/^\.F3 ([^ ]*) *(.*)/.BR $1 (3)$2/; s/^\.FN ([^ ]*) *(.*)/.BR $1 ()$2/; s/^\.SC$/.fam C/; s/^\.EC$/.fam/; s/^\.ARG ([^ ]+)$/.I $1/; s/^\.ARG ([^ ]+) +(.*)/.IR $1 $2/; s/^\.SPM ([^ ]+) ([^ ]+) ([^ ]+)/.IB $1 -> $2\\fR$3/; s/^\.SPM ([^ ]+) ([^ ]+)/.IB $1 -> $2/; s/ / /g if ($nf and not /^\./); # sugar s/\*\*([0-9]+)/^{$1<\/sup>/;

if ($table) {
if (/center tab/) {
$html .= '';
$header = 1;
} elsif (/^\.TE/) {
$html .= "";
$table = 0;
} elsif (/cbscbs/ or /rlrl/) {
;
} else {
if ($header) {
s/\|/<\/TH>/g;
$html .= "$_";
$header = 0;
} else {
s/\|/<\/TD>/g;
$html .= "$_";
}
}
next;
}

#$html .= "[$dl+$#dlstack;$rs]";
if (/^\.TH ([Gg][Dd]_\w*) 3 "(.*?)" "(.*?)"/) {
$vers = $3;
$date = $2;
my $func = $a || $1;
$html .= '' .
'' .
'' .
$func . '(3) Manual Page' . $func . "(3)";
} elsif (/^\.TH ([^ ]*) ([15]) "(.*?)" "(.*?)"/) {
$vers = $4;
$date = $3;
my $sect = $2;
my $name = $a || $1;
$html .= '' .
'' .
'' .
$name . "($sect) Manual Page" . $name .
"($sect)";
} elsif (/^[^.]/) {
$html .= FixFont("R", $_) . " ";
} elsif (/^\.DD (.*)$/) {
my $args = $1;

if ($dl == 1) {
$html .= "";
} else {
push @dlstack, $dl if ($dl);
$html .= "";
}

if ($args =~ /^"([^"]+)"$/ || $args =~/^([^ ]+)$/) {
$html .= "" . FixFont("B", $1) . "
";
} elsif ($args =~ /^([^ ]+) +([^ ]+)$/) {
$html .= "
" . FixFont("B", "$1") . "
";
$html .= FixFont("B", "$2") . "
";
} elsif ($args =~ /^([^ ]+) +([^ ]+) +([^ ]+)$/) {
$html .= "
" . FixFont("B", "$1") . "
";
$html .= FixFont("B", "$2") . "
";
$html .= FixFont("B", "$3") . "
";
}
$dl = 1;
} elsif (/^\.B (.*)/) {
if ($pd) {
$pd_data = $1;
} elsif ($dl == 2) {
$html .= "
";
if ($pd_data) {
$html .= FixFont("B", $pd_data) . "
";
$pd_data = undef;
}
$html .= FixFont("B", $1) . "
";
$dl = 1;
} else {
$html .= FixFont("B", $1) . " ";
}
} elsif (/^\.BI (.*)/) {
if ($dl == 2) {
$html .= "
";
$html .= Alternate("B", "I", $1) . " ";
$html .= "
";
$dl = 1;
} else {
$html .= Alternate("B", "I", $1) . " ";
}
} elsif (/^\.BR (.*)/) {
if ($dl == 2) {
$html .= "
";
$html .= Alternate("B", "R", $1) . " ";
$html .= "
";
$dl = 1;
} else {
$html .= Alternate("B", "R", $1) . " ";
}
} elsif (/^\.DP$/) {
$html .= "";
} elsif (/^\.HP$/) {
if ($dl == 1) { $html .= ""; $dl = pop(@dlstack) || 0; };
if ($ul == 1) { $html .= ""; $ul = 0; };

$html .= '';
} elsif (/^\.I (.*)/) {
if ($dl == 2) {
$html .= "
" . FixFont("I", $1) . "
";
$dl = 1;
} else {
$html .= FixFont("I", $1) . " ";
}
} elsif (/^\.IB (.*)/) {
if ($dl == 2) {
$html .= "
";
$html .= Alternate("I", "B", $1) . " ";
$html .= "
";
$dl = 1;
} else {
$html .= Alternate("I", "B", $1) . " ";
}
} elsif (/^\.IP \\\(bu/) {
if ($dl == 1) { $html .= ""; $dl = pop(@dlstack) || 0; };
if ($ul == 1) {
$html .= "";
} else {
$html .= "";
$ul = 1;
}
} elsif (/^\.IP/) {
if ($ul == 1) { $html .= ""; $ul = 0; };

if ($dl and not $rs) {
$html .= '';
} else {
$html .= '
';
}
} elsif (/^\.IR (.*)/) {
if ($dl == 2) {
$html .= "
";
$html .= Alternate("I", "R", $1) . " ";
$html .= "
";
$dl = 1;
} else {
$html .= Alternate("I", "R", $1) . " ";
}
} elsif (/^\.PP?$/) {
$dl_end = 0;
if ($dl == 1) {
$dl_end = 3;
$html .= "";
if ($rs) {
$dl = 0;
} else {
$dl = pop(@dlstack) || 0;
}
}
if ($rs == 2) { $html .= ''; $rs = 1; }
if ($ul == 1) { $html .= ""; $ul = 0; };

$html .= "";
} elsif (/^\.PD 0/) {
if ($dl_end) {
$dl_end = 0;
$dl = 1;
# chop off "
"
for (my $i = 0; $i < length("
"); ++$i) {
chop $html;
}
}
$pd = 1;
} elsif (/^\.PD/) {
$pd = 0;
} elsif (/^\.RB (.*)/) {
if ($dl == 2) {
$html .= "
";
$html .= Alternate("R", "B", $1) . " ";
$html .= "
";
$dl = 1;
} else {
$html .= Alternate("R", "B", $1) . " ";
}
} elsif (/^\.RE/) {
if ($dl == 1) { $html .= "" }
if ($rs == 2) { $html .= '' }
$dl = pop @dlstack;
$rs = 0;
} elsif (/^\.RI (.*)/) {
if ($dl == 2) {
$html .= "";
$html .= Alternate("R", "I", $1) . " ";
$html .= "
";
$dl = 1;
} else {
$html .= Alternate("R", "I", $1) . " ";
}
} elsif (/^\.RS/) {
$html .= '';
push @dlstack, $dl;
$rs = 2;
$dl = 0;
} elsif (/^\.SH (.*)/) {
if ($dl == 1) { $html .= ""; $dl = pop(@dlstack) || 0; };
if ($ul == 1) { $html .= ""; $ul = 0; };

$html .= "$1
";
} elsif (/^\.SS (.*)/) {
if ($dl == 1) { $html .= ""; $dl = pop(@dlstack) || 0; };
if ($ul == 1) { $html .= ""; $ul = 0; };

$html .= "
$1
";
} elsif (/^\.TP/) {
if ($ul == 1) { $html .= ""; $ul = 0; };

if ($dl == 1) {
$html .= "";
} else {
push @dlstack, $dl if ($dl);
$html .= "
";
}
$dl = 2;
next;
} elsif (/\.TS/) {
$table = 1;
} elsif (/^\.br/) {
$html .= "
";
} elsif (/\.fam C/) {
$html .= "";
next;
} elsif (/\.fam/) {
$html .= "";
next;
} elsif (/\.fi/) {
$nf = 0;
next;
} elsif (/\.nf/) {
$nf = 1;
next;
} elsif (/^\.(?:nh|ad|hy)/) {
; # ignored
} else {
die $_ if ($dl == 2);
print STDERR $_, "\n" if /^\./;
$html .= $_;
}
$html .= "
" if $nf;
$dl_end-- if ($dl_end);
}
$html .= "";

$html =~ s/ \* / × /g;
$html =~ s/\\~/ /g;
$html =~ s/(([Gg][Dd]_\w*?)<\/B>$3$)/$1<\/A>/g;
$html =~ s/((dirfile[-a-z]*)<\/B>$5$)/$1<\/A>/g;
$html =~ s/([^>])(dirfile[-a-z]*)<\/B>$5$/$1$2<\/A>/g;

$html =~ s/\\e/\\/g;

$html .= "
Last updated on $date for GetData $vers.";

print $html;}

' . $func . "(3)

" . $name . "($sect)

$1

$1