Return to tweak_manpage CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / rsync

Annotation of embedaddon/rsync/tweak_manpage, revision 1.1

1.1     ! misho       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: }