[rsync/rsync.git] / tweak_manpage

#!/usr/bin/perl -i -p

use strict;
use warnings;

# We only need to use "\&'" or "\&." at the start of a line.
s/(?<=.)\\\&(['.])/$1/g;

# Some quotes turn into open/close quotes.
s/'(.)'/\\(oq$1\\(cq/g;
s/(^|[ (])"(?!( |$))/$1\\(lq/gm;
s/(?<! )"([.,:;! )]|$)/\\(rq$1/gm;
s/(\\\(lq[^(]*) "( |$)/$1 \\(rq$2/gm;
s/(^| )" ([^(]*\\\(rq)/$1\\(lq $2/gm;

# And some don't.
s/^([. ])(.*)/ $1 . realquotes($2) /egm;
s/(\\f(B|\(CW).*?\\fP)/ realquotes($1) /egs;

s/^\\\&(\\\(oq)/$1/gm;

sub realquotes
{
    my($txt) = @_;
    $txt =~ s/\\\([lr]q/"/g;
    $txt =~ s/\\\([oc]q/'/g;
    $txt;
}
Commit	Line	Data
5e61bdb4	1	#!/usr/bin/perl -i -p
39411fa8	2
810dc9fc WD	3	use strict;
810dc9fc WD	4	use warnings;
39411fa8 WD	5
39411fa8 WD	6	# We only need to use "\&'" or "\&." at the start of a line.
810dc9fc	7	s/(?<=.)\\\&(['.])/$1/g;
39411fa8 WD	8
	9	# Some quotes turn into open/close quotes.
	10	s/'(.)'/\\(oq$1\\(cq/g;
	11	s/(^\|[ (])"(?!( \|$))/$1\\(lq/gm;
	12	s/(?<! )"([.,:;! )]\|$)/\\(rq$1/gm;
	13	s/(\\\(lq[^(]*) "( \|$)/$1 \\(rq$2/gm;
	14	s/(^\| )" ([^(]*\\\(rq)/$1\\(lq $2/gm;
	15
	16	# And some don't.
	17	s/^([. ])(.*)/ $1 . realquotes($2) /egm;
	18	s/(\\f(B\|\(CW).*?\\fP)/ realquotes($1) /egs;
	19
	20	s/^\\\&(\\\(oq)/$1/gm;
	21
	22	sub realquotes
	23	{
	24	my($txt) = @_;
	25	$txt =~ s/\\\([lr]q/"/g;
	26	$txt =~ s/\\\([oc]q/'/g;
	27	$txt;
	28	}