#!/usr/bin/awk -f

# $Id: db-html2man,v 1.15 2002/09/04 21:24:55 rajo Exp $

function remove_lines(str)
{ # {{{
	while (getline) {
		if (sub(str, "")) { print; break; }
	}
	return;
} # }}}

function handle_man(str)
{ # {{{
	n = split(str, a, "-->");
	for (i = 1; i <= n; i++) {
		#printf "a[%d] = '%s'\n", i, a[i];
		if (a[i] ~ /<!-- MAN:/) {
			sub(/<!-- MAN:[ \t]+/, "", a[i]);
			sub(/[ \t]+$/, "", a[i]);
			printf "%s", a[i];
		}
		else if (a[i] ~ /<!-- /)
				printf "%s -->", a[i];
			else printf "%s", a[i];
	}
} # }}}

function handle_multiline_man()
{ # {{{
	while (getline) {
		if ($0 ~ /^[ \t]*-->$/) break;
		print;
	}
	return;
} # }}}

function handle_table(str)
{ # {{{
	entries = 0;

	sub(/<table[^>]*>/, "<variablelist>");
	print;
	while (getline) {
		# end of table
		if (sub(/<\/table>/, "</variablelist>")) { return; }

		if ($0 ~ /<thead>/) {
			remove_lines("^.*<\/thead>");
		}
		sub(/<tgroup[^>]*>/, "");
		sub(/<\/tgroup>/, "");
		sub(/<tbody>/, "");
		sub(/<\/tbody>/, "");
		
		if (sub(/<row[^>]*>/, "<varlistentry>")) { entries = 0; }
		if (sub(/<\/row>/, "</varlistentry>")) {
			if (entries > 1)
				print "</listitem>";
		}
		if ($0 ~ /<entry>/) {
			entries++;
			if (entries == 1 )
				sub(/<entry>/, "<term>");
			else {
				if (entries == 2)
					print "<listitem>";
				sub(/<entry>/, "<para>");
			}
		}	
		if ($0 ~ /<\/entry>/) {
			if (entries == 1 )
				sub(/<\/entry>/, "</term>");
			else {
				sub(/<\/entry>/, "</para>");
			}
		}	
		if ($0 ~ /<!-- MAN:$/)
			handle_multiline_man();
		if ($0 ~ /<!-- MAN:/) {
			handle_man($0);
			continue;
		}

		print;
	}
} # }}}

# multiline MAN: comment
/<!-- MAN:$/ {
	handle_multiline_man();
	next;
}
# MAN: on one line
/<!-- MAN:/ {
	handle_man($0);
	next;
}

# remove "<sect1 .*</title>" -- MUST be on begin of the line!
/<sect1/ {
	remove_lines("^.*<\/title>");
	next;
}

/<table / {
	handle_table($0);
}

# default: print line
// {
	sub(/<\/sect1>/, "");
	print;
}

# vim: ft=awk cindent
# vim600: fdl=0 fdc=3 fdm=marker