mandoc2docbook.pl revision 8b862ad2b77326a01c6a4045c0ce5f4f428a5120
#
# Copyright (C) 2001 Nominum Inc
#
# Permission to use, copy, modify, and distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
# THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM
# DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL
# INTERNET SOFTWARE CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT,
# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
# FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT,
# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
# $Id: mandoc2docbook.pl,v 1.2 2001/04/02 21:48:31 gson Exp $
#
# Do a quick-and-dirty conversion of .mandoc man pages to
# DocBook SGML.
#
# Minor hand editing of the output is usually required.
# This has only been tested with library function man pages
# (section 3); it probably does not work well for program
# man pages.
#
print <<\END;
<!--
-
-
-->
<refentry>
END
my $cursection = undef;
my $in_para = 0;
sub begin_para() {
if (! $in_para) {
print "<para>\n";
$in_para = 1;
}
}
sub end_para() {
if ($in_para) {
print "</para>\n";
$in_para = 0;
}
}
sub end_section {
if ($cursection) {
print "</$cursection>\n"
}
}
sub section {
my ($tag) = @_;
end_para();
end_section();
print "<$tag>\n";
$cursection = $tag;
}
my %tagmap = (
);
while (<>) {
next if m/^\.\\\"/;
if (/^\.Dd (.*)$/) {
print "<date>$1<\/date>\n<\/refentryinfo>\n";
next;
}
elsif (/^\.Dt ([^ ]+) ([^ ]+)$/) {
my $title = lc $1;
my $volume = $2;
chomp $volume;
print <<END;
<refmeta>
</refmeta>
END
next;
}
elsif (/^\.Os (.*)$/) {
next;
}
elsif (/^\.ds (.*)$/) {
next;
}
elsif (/^\.Nm (.*)$/) {
if ($cursection eq "refnamediv") {
my $t = $1;
$t =~ s/ ,$//;
print "<refname>$t<\/refname>\n";
} else {
print "<command>$1<\/command>\n";
}
next;
}
elsif (/^\.Nd (.*)$/) {
print "<refpurpose>$1</refpurpose>\n";
next;
}
elsif (/^\.Sh (.*)$/) {
section("refsect1");
print "<title>$1</title>\n"; next;
}
# special: spaces can occur in arg
elsif (/^\.Fd (.*)$/) {
$_ = $1;
s/</</g;
s/>/>/g;
print "<funcsynopsisinfo>$_<\/funcsynopsisinfo>\n";
next;
}
elsif (/^\.Fn (.*?)( ([^"]+))?$/) {
# special: add parenthesis
print "<function>$1()<\/function>$3\n";
}
# special: add dash
print "<option>-$1<\/option>$3\n";
}
elsif (/^\.Fl (.*?)( ([^"]+))?$/) {
# special: add dash
print "<option>-$1<\/option>$3\n";
}
elsif (/^\.Ft (.*)$/) {
print "<funcprototype>\n";
print "<funcdef>\n";
print "$1\n";
next;
}
elsif (/^\.Fa (.*?)( ([^"]+))?$/) {
if ($cursection eq "refsynopsisdiv") {
my $t = $1;
$t =~ s/^"//;
$t =~ s/"$//;
print "<paramdef>$t<\/paramdef>\n";
} else {
print "<parameter>$1<\/parameter>$3\n";
}
next;
}
elsif (/^\.Fo (.*)$/) {
print "<function>$1<\/function></funcdef>\n";
next;
}
elsif (/^\.Xr ([^ ]+) ([^ ]+)( ([^ ]+))?$/) {
print "<citerefentry>\n";
print "<refentrytitle>$1</refentrytitle><manvolnum>$2</manvolnum>\n";
print "</citerefentry>$4\n";
next;
}
elsif (/^\.([A-Z][a-z]) (.*?)( ([^"]+))?$/ && defined($tagmap{$1})) {
my $t = $2;
my $punct = $4;
$t =~ s/^"//;
$t =~ s/"$//;
$t =~ s/</</g;
$t =~ s/>/>/g;
print "<$tag>$t<\/$tag>$punct\n";
next;
}
elsif (/^\.Fc$/) {
print "</funcprototype>\n";
next;
}
elsif (/^\.Pp$/) {
end_para();
begin_para();
}
elsif (/^\.Bd /) {
print "<programlisting>\n";
}
elsif (/^\.Ed$/) {
print "</programlisting>\n";
}
elsif (/^\.Bl /) {
print "<variablelist>\n";
}
elsif (/^\.El$/) {
print "</para>\n";
print "</listitem>\n";
print "</variablelist>\n";
$in_list = 0;
}
elsif (/^\.It .. (.*)$/) {
if ($in_list) {
print "</listitem>\n";
}
print "<varlistentry><term><constant>$1</constant></term>\n";
print "<listitem>\n";
print "<para>\n";
$in_list = 1;
}
if ($in_list) {
print "</listitem>\n";
}
print "<varlistentry><term><errorcode>$1</errorcode></term>\n";
print "<listitem>\n";
print "<para>\n";
$in_list = 1;
} else {
if (/./) {
begin_para();
}
print;
}
}
end_para();
end_section();
print "</refentry>\n";