A perl script that does appropriate backslash escaping of '-' chars

in manpages.

A perl script that does appropriate backslash escaping of '-' chars
in manpages.
5e61bdb4 · Wayne Davison · f964ac5e · 5e61bdb4
Commit 5e61bdb4 authored Oct 24, 2006 by Wayne Davison
Hide whitespace changes
Inline Side-by-side

Showing with 9 additions and 0 deletions

tweak_manpage tweak_manpage +9 -0

No files found.
--- a/tweak_manpage
+++ b/tweak_manpage
+#!/usr/bin/perl -i -p
+s{(--\w[-\w]+)}{ $x = $1; $x =~ s/-/\\-/g; $x }eg;
+s/(?<!\\)-(['"\d*])/\\-$1/g;
+s/ -- / \\-\\- /g;
+s#(['"(= /,])-#$1\\-#g;
+s/(\\fB)-/$1\\-/g;
+s/(\[\w)-(\w\])/$1\\-$2/g;
+s{(\\f\(CW.*?\\fP)}{ $x = $1; $x =~ s/(?<!\\)-/\\-/g; $x }eg;
+s/(\.\w+)-/$1\\-/g;