forked from PhirePhly/aprx
-
Notifications
You must be signed in to change notification settings - Fork 1
/
man-to-html.sh
118 lines (105 loc) · 3.19 KB
/
man-to-html.sh
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
#! /bin/sh
## man-page to HTML format converter, when existing ones
## were seriously unacceptable form...
##
## By Matti Aarnio, OH2MQK, <[email protected]>, about 1995
unset LC_CTYPE
LANG=en_US
export LANG
TERM=xterm
export TERM
COLUMNS=80
export COLUMNS
LINES=9999
export LINES
echo "<HTML><HEAD><TITLE>"
basename "$1"
echo '</TITLE></HEAD><BODY BGCOLOR=white><PRE>'
groff -t -man -Tascii -P-c "$1" | \
perl -e '
#select STDIN; $| = 1;
select STDERR; $| = 1;
#select STDOUT; $| = 1;
$h = "\010";
$c0 = undef;
while(read(STDIN,$c,1) > 0) {
#printf STDERR "c0 = \"%s\" c = \"%s\"\n",
# !defined $c0 ? "<UNDEF>" : (ord($c0) < 32 ?
# sprintf("\\%03o",ord($c0)): $c0),
# ord($c) < 32 ? sprintf("\\%03o",ord($c)) : $c;
if (defined $c0) {
if ($c eq $h) {
# X ^H * -> bold/italic/something
read(STDIN,$c1,1);
#printf STDERR " .. c1 = \"%s\"\n",
# ord($c1) < 32 ? sprintf("\\%03o",ord($c1)) : $c1;
if ($c0 eq $c1) {
# bold
if ($c0 eq "&") { $c0 = "&"; }
elsif ($c0 eq "<") { $c0 = "<"; }
elsif ($c0 eq ">") { $c0 = ">"; }
printf STDOUT "<B>%s</B>",$c0;
} elsif ($c0 eq "_") {
# italic
if ($c1 eq "&") { $c1 = "&"; }
elsif ($c1 eq "<") { $c1 = "<"; }
elsif ($c1 eq ">") { $c1 = ">"; }
printf STDOUT "<I>%s</I>",$c1;
} elsif ($c0.$c1 eq "+o") {
# Bullet
printf STDOUT "<B>•</B>";
} else {
# something -- overstrike ?
if ($c1 eq "&") { $c1 = "&"; }
elsif ($c1 eq "<") { $c1 = "<"; }
elsif ($c1 eq ">") { $c1 = ">"; }
printf STDOUT "<B>%s</B>",$c1;
}
$c0 = undef;
if ($c1 eq "\n") { printf STDOUT "\n"; }
} else {
# Not X ^H *, but X is defined.
if ($c0 eq "&") { $c0 = "&"; }
elsif ($c0 eq "<") { $c0 = "<"; }
elsif ($c0 eq ">") { $c0 = ">"; }
printf STDOUT "%s",$c0;
$c0 = $c;
}
} else {
# $c0 not defined!
$c0 = $c;
}
} # ... while()
if ($c0) { printf STDOUT "%s",$c0; }' | \
perl -ne '
s{</B>(\s*)<B>}{\1}og;
s{</I>(\s*)<I>}{\1}og;
s{</U>(\s*)<U>}{\1}og;
s{</I><B>_</B><I>}{_}og;
# Ordinary man-pages
s{<I>([-.0-9a-zA-Z_]+)</I>\((\dzm)\)}{<A HREF="\1.\2.html"><I>\1</I>(\2)</A>}og;
# Ordinary PERL PODs
s{<I>([-.0-9a-zA-Z_]+::[-.0-9a-zA-Z_]+)</I>\((\d\w+)\)}{<A HREF="\1.\2.html"><I>\1</I>(\2)</A>}og;
print;' | \
perl -e '
@labels=();
while (<STDIN>) {
if (m{^<B>(.*)</B>$}o) {
my $n = $1; $n =~ s/ /_/g;
printf "<A NAME=\"%s\"></A>",$n;
push @labels, $n;
}
if (m{^ <B>(.*)</B>$}o) {
my $n = $1; $n =~ s/ /_/g;
printf "<A NAME=\"%s\"></A>",$n;
push @labels, $n;
}
print;
}
printf "<p><p>\n<ul></n";
foreach $n (@labels) {
printf "<li> <A HREF=\"#%s\">%s</A>\n",$n,$n;
}
printf "</ul>\n";
'
echo "</PRE></BODY></HTML>"