chiark / gitweb /
Most of intro section
[disorder] / scripts / htmlman
CommitLineData
460b9539 1#! /bin/sh
2#
3# This file is part of DisOrder
5aff007d 4# Copyright (C) 2004, 2005, 2007, 2008 Richard Kettlewell
460b9539 5#
e7eb3a27 6# This program is free software: you can redistribute it and/or modify
460b9539 7# it under the terms of the GNU General Public License as published by
e7eb3a27 8# the Free Software Foundation, either version 3 of the License, or
460b9539 9# (at your option) any later version.
e7eb3a27
RK
10#
11# This program is distributed in the hope that it will be useful,
12# but WITHOUT ANY WARRANTY; without even the implied warranty of
13# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14# GNU General Public License for more details.
15#
460b9539 16# You should have received a copy of the GNU General Public License
e7eb3a27 17# along with this program. If not, see <http://www.gnu.org/licenses/>.
460b9539 18#
19
20set -e
21
13affe66
RK
22stdhead=false
23
24while test $# -gt 0; do
25 case "$1" in
26 -stdhead )
27 stdhead=true
28 ;;
29 -* )
30 echo >&2 "ERROR: unknown option $1"
31 exit 1
32 ;;
33 * )
34 break
35 esac
36 shift
37done
38
460b9539 39title=$(basename $1)
40
13affe66
RK
41echo "<html>"
42echo " <head>"
43if $stdhead; then
40dcd866 44 echo "@quiethead@#"
13affe66
RK
45fi
46echo " <title>$title</title>"
47echo " </head>"
48echo " <body>"
49if $stdhead; then
40dcd866 50 echo "@stdmenu{}@#"
13affe66 51fi
460b9539 52printf " <pre class=manpage>"
53# this is kind of painful using only BREs
86029191 54nroff -Tascii -man "$1" | ${GNUSED} \
13affe66 55 '1d;$d;
74aefe58 56 1,/./{/^$/d};
13affe66 57 s/&/\&amp;/g;
460b9539 58 s/</\&lt;/g;
59 s/>/\&gt;/g;
60 s/@/\&#64;/g;
61 s!\(.\)\b\1!<b>\1</b>!g;
62 s!\(&[#0-9a-z][0-9a-z]*;\)\b\1!<b>\1</b>!g;
63 s!_\b\(.\)!<i>\1</i>!g;
64 s!_\b\(&[#0-9a-z][0-9a-z]*;\)!<i>\1</i>!g;
65 s!</\([bi]\)><\1>!!g'
13affe66
RK
66echo "</pre>"
67if $stdhead; then
0d0253c9 68 echo "@credits"
13affe66
RK
69fi
70echo " </body>"
71echo "</html>"