tweak_manpage

   1 #!/usr/bin/perl -i -p
   2
   3 use strict;
   4 use warnings;
   5
   6 # We only need to use "\&'" or "\&." at the start of a line.
   7 s/(?<=.)\\\&(['.])/$1/g;
   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 }