3 # create-html-usage.pl -- insert usage lines into README
4 # Cpoyright (C) 2015,2017 Kyle J. McKay.
6 # License GPLv2 or, at your option, any later version.
16 while (length($s) > $w && $s =~ /^(.{1,$w})(?<=\w)\b[ \t]+(.+)$/s) {
20 $ans .= $s if $s !~ /^\s*$/;
26 # From the Perl camel book "Fluent Perl" section (slightly modified)
27 s/(.*?)(\t+)/$1 . ' ' x (length($2) * 8 - length($1) % 8)/eg;
28 s
'^``(.*)``$'wrap
(78, 4, $1)'e;
29 s'^(\s
*):`(.+?)`_
:'"$1$2 "'e
;
30 s
'^(\s*):(\w+?)_?:'"$1$2"'e;