mirror/curl
2
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2025-03-13 15:37:04 +08:00
Code Issues Packages Projects Releases Wiki Activity

managen: output tabs for each 8 leading spaces

Browse Source 
This replacing of eight leading spaces into tabs was already done for
the embedded uncompressed version in tool_hugehelp.c so it does not save
anything there. But the gzip compressed version ends up almost 2K
smaller.

The output in a terminal should be identical.

Before using TABs:

curl.txt 282492 bytes
curl.txt.gz 73261 bytes

With this change applied:

curl.txt 249382 bytes
curl.txt.gz 71470 bytes

Closes #14016
This commit is contained in:
Daniel Stenberg 2024-06-25 13:37:51 +02:00
parent d14a53eea7
commit 473ec8a05d
No known key found for this signature in database
GPG Key ID: 5CC908FDB71E12C2
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scripts/managen
View File

@ -89,6 +89,12 @@ sub manpageify {
my $colwidth=79; # max number of columns
sub prefixline {
my ($num) = @_;
print "\t" x ($num/8);
print ' ' x ($num%8);
}
sub justline {
my ($lvl, @line) = @_;
my $w = -1;
@ -105,7 +111,7 @@ sub justline {
$ratio = $inject / $spaces;
}
my $spare = 0;
print ' ' x ($lvl * $indent);
prefixline($lvl * $indent);
my $prev;
for(@line) {
while($spare >= 0.90) {
@ -121,7 +127,7 @@ sub justline {
sub lastline {
my ($lvl, @line) = @_;
print ' ' x ($lvl * $indent);
prefixline($lvl * $indent);
my $prev = 0;
for(@line) {
printf "%s%s", $prev?" ":"", $_;

1
src/mkhelp.pl
View File

@ -167,6 +167,7 @@ for my $n (@out) {
chomp $n;
$n =~ s/\\/\\\\/g;
$n =~ s/\"/\\\"/g;
$n =~ s/\t/\\t/g;
if(!$n) {
$blank++;