Adwaith-Rajesh/gperf
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/gperf.git synced 2025-12-02 21:19:24 +00:00
Code Activity

Update help2man.

Browse Source
This commit is contained in:
Bruno Haible
2000-11-20 17:59:45 +00:00
parent c2c3c31500
commit 65e80de5eb
2 changed files with 22 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@@ -1,3 +1,7 @@
2000-11-20 Bruno Haible <bruno@linuix.math.u-bordeaux.fr>
* doc/help2man: Update to version 1.23.
2000-09-26 Bruno Haible <bruno@linuix.math.u-bordeaux.fr> 2000-09-26 Bruno Haible <bruno@linuix.math.u-bordeaux.fr>
* gperf-2.7.2 released. * gperf-2.7.2 released.

32
doc/help2man
View File

@@ -27,7 +27,7 @@ use Text::Tabs qw(expand);
use POSIX qw(strftime setlocale LC_TIME); use POSIX qw(strftime setlocale LC_TIME);
my $this_program = 'help2man'; my $this_program = 'help2man';
my $this_version = '1.022'; my $this_version = '1.23';
my $version_info = <<EOT; my $version_info = <<EOT;
GNU $this_program $this_version GNU $this_program $this_version
@@ -269,9 +269,11 @@ s/^\n+//;
s/\n*$/\n/; s/\n*$/\n/;
s/\n\n+/\n\n/g; s/\n\n+/\n\n/g;
# Temporarily exchange leading dots and backslashes for tokens. # Temporarily exchange leading dots, apostrophes and backslashes for
# tokens.
s/^\./\x80/mg; s/^\./\x80/mg;
s/\\/\x81/g; s/^'/\x81/mg;
s/\\/\x82/g;
# Start a new paragraph (if required) for these. # Start a new paragraph (if required) for these.
s/([^\n])\n(Report +bugs|Email +bug +reports +to|Written +by)/$1\n\n$2/g; s/([^\n])\n(Report +bugs|Email +bug +reports +to|Written +by)/$1\n\n$2/g;
@@ -366,7 +368,7 @@ while (length)
{ {
$matched .= $& if %append; $matched .= $& if %append;
$indent = length ($4 || "$1$3"); $indent = length ($4 || "$1$3");
$content = ".TP\n\x82$2\n\x82$5\n"; $content = ".TP\n\x83$2\n\x83$5\n";
unless ($4) unless ($4)
{ {
# Indent may be different on second line. # Indent may be different on second line.
@@ -378,7 +380,7 @@ while (length)
elsif (s/^ {1,10}([+-]\S.*)\n//) elsif (s/^ {1,10}([+-]\S.*)\n//)
{ {
$matched .= $& if %append; $matched .= $& if %append;
$content = ".HP\n\x82$1\n"; $content = ".HP\n\x83$1\n";
$indent = 80; # not continued $indent = 80; # not continued
} }
@@ -387,7 +389,7 @@ while (length)
{ {
$matched .= $& if %append; $matched .= $& if %append;
$indent = length $1; $indent = length $1;
$content = ".TP\n\x82$2\n\x82$3\n"; $content = ".TP\n\x83$2\n\x83$3\n";
} }
# Indented paragraph. # Indented paragraph.
@@ -395,7 +397,7 @@ while (length)
{ {
$matched .= $& if %append; $matched .= $& if %append;
$indent = length $1; $indent = length $1;
$content = ".IP\n\x82$2\n"; $content = ".IP\n\x83$2\n";
} }
# Left justified paragraph. # Left justified paragraph.
@@ -411,7 +413,7 @@ while (length)
while (s/^ {$indent}(\S.*)\n//) while (s/^ {$indent}(\S.*)\n//)
{ {
$matched .= $& if %append; $matched .= $& if %append;
$content .= "\x82$1\n" $content .= "\x83$1\n"
} }
# Move to next paragraph. # Move to next paragraph.
@@ -419,9 +421,10 @@ while (length)
for ($content) for ($content)
{ {
# Leading dot protection. # Leading dot and apostrophe protection.
s/\x82\./\x80/g; s/\x83\./\x80/g;
s/\x82//g; s/\x83'/\x81/g;
s/\x83//g;
# Convert options. # Convert options.
s/(^| )(-[][\w=-]+)/$1 . convert_option $2/mge; s/(^| )(-[][\w=-]+)/$1 . convert_option $2/mge;
@@ -482,12 +485,13 @@ for (@pre, (grep ! /^($filter)$/o, @include), @post)
{ {
my $quote = /\W/ ? '"' : ''; my $quote = /\W/ ? '"' : '';
print ".SH $quote$_$quote\n"; print ".SH $quote$_$quote\n";
for ($include{$_}) for ($include{$_})
{ {
# Replace leading dot an backslash tokens. # Replace leading dot, apostrophe and backslash tokens.
s/\x80/\\&./g; s/\x80/\\&./g;
s/\x81/\\e/g; s/\x81/\\&'/g;
s/\x82/\\e/g;
print; print;
} }
} }