romenskiy2012/curl
1
0
Fork 0
mirror of https://github.com/curl/curl.git synced 2026-06-07 21:24:17 +03:00
Code Issues Projects Releases Packages Wiki Activity

managen: fix num/string confusion with <num>q values

Browse source
This commit is contained in:
Viktor Szakats 2025-07-11 17:30:29 +02:00
parent 8b80814eff
commit 28c6272fa0
No known key found for this signature in database
GPG key ID: B5ABD165E2AEF201
1 changed files with 13 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

18
scripts/managen
View file

@ -179,9 +179,11 @@ sub printdesc {
}
else {
my $p = -1;
my $pnum;
my $para = '';
for my $l (@desc) {
my $lvl = 0;
my $lvlnum;
if($l !~ /^[\n\r]+/) {
# get the indent level off the string
$l =~ s/^\[([0-9q]*)\]//;
@ -191,15 +193,19 @@ sub printdesc {
# the previous was quoted, this is not
print "\n";
}
if($lvl != $p) {
outputpara($baselvl + $p, $para);
if($lvl ne $p) {
$pnum = $p;
$pnum =~ s/q$//;
outputpara($baselvl + $pnum, $para);
$para = "";
}
if($lvl =~ /q/) {
# quoted, do not right-justify
chomp $l;
lastline($baselvl + $lvl + 1, $l);
my $w = ($baselvl + $lvl + 1) * $indent + length($l);
$lvlnum = $lvl;
$lvlnum =~ s/q$//;
lastline($baselvl + $lvlnum + 1, $l);
my $w = ($baselvl + $lvlnum + 1) * $indent + length($l);
if($w > $colwidth) {
print STDERR "ERROR: $w columns is too long\n";
print STDERR "$l\n";
@ -212,7 +218,9 @@ sub printdesc {
$p = $lvl;
}
outputpara($baselvl + $p, $para);
$pnum = $p;
$pnum =~ s/q$//;
outputpara($baselvl + $pnum, $para);
}
}