[ikiwiki] / mdwn2man

#!/usr/bin/perl
# Warning: hack

my $prog=shift;
my $section=shift;

print ".TH $prog $section\n";

while (<>) {
	s{(\\?)\[\[([^\s\|\]]+)(\|[^\s\]]+)?\]\]}{$1 ? "[[$2]]" : $2}eg;
	s/\`//g;
	s/^\s*\./\\&./g;
	if (/^#\s/) {
		s/^#\s/.SH /;
		<>; # blank;
	}
	s/^\s+//;
	s/-/\\-/g;
	s/^Warning:.*//g;
	s/^$/.PP\n/;
	s/^\*\s+(.*)/.IP "$1"/;
	next if $_ eq ".PP\n" && $skippara;
	if (/^.IP /) {
		$inlist=1;
		$spippara=0;
	}
	elsif (/.SH/) {
		$skippara=0;
		$inlist=0;
	}
	elsif (/^\./) {
		$skippara=1;
	}
	else {
		$skippara=0;
	}
	if ($inlist && $_ eq ".PP\n") {
		$_=".IP\n";
	}

	print $_;
}
Commit	Line	Data
a1a7019f	1	#!/usr/bin/perl
	2	# Warning: hack
	3
dd7a3814	4	my $prog=shift;
	5	my $section=shift;
	6
	7	print ".TH $prog $section\n";
a1a7019f	8
a1a7019f	9	while (<>) {
67cdde03	10	s{(\\?)\[\[([^\s\\|\]]+)(\\|[^\s\]]+)?\]\]}{$1 ? "[[$2]]" : $2}eg;
b5748518	11	s/\`//g;
0daa7a12	12	s/^\s*\./\\&./g;
4b36dee3	13	if (/^#\s/) {
	14	s/^#\s/.SH /;
	15	<>; # blank;
	16	}
a1a7019f	17	s/^\s+//;
4b36dee3	18	s/-/\\-/g;
a1a7019f	19	s/^Warning:.*//g;
a1a7019f	20	s/^$/.PP\n/;
a1a7019f	21	s/^\\s+(.)/.IP "$1"/;
	22	next if $_ eq ".PP\n" && $skippara;
	23	if (/^.IP /) {
	24	$inlist=1;
	25	$spippara=0;
	26	}
	27	elsif (/.SH/) {
	28	$skippara=0;
	29	$inlist=0;
	30	}
	31	elsif (/^\./) {
	32	$skippara=1;
	33	}
	34	else {
	35	$skippara=0;
	36	}
	37	if ($inlist && $_ eq ".PP\n") {
	38	$_=".IP\n";
	39	}
	40
	41	print $_;
	42	}