p/liberty
1
1
Fork 0
Code Issues Pull Requests Releases Activity

asciiman: have fewer "unexpected EOF" situations
Some checks failed
Alpine 3.20 Scripts failed
Details

Browse Source 
Easily caused by the new help2adoc.
This commit is contained in:
Přemysl Eric Janouch 2024-12-31 11:03:33 +01:00
parent 09e635cf97
commit b01df19b80
Signed by: p
GPG Key ID: A0420B94F92B9493
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tools/asciiman.awk
View File

@ -200,7 +200,7 @@ function inline(line) {
} }
# Returns 1 iff the left-over $0 should be processed further. # Returns 1 iff the left-over $0 should be processed further.
function process(firstline, posattrs, namedattrs) { function process(firstline, posattrs, namedattrs, ok) {
if (readattribute(firstline)) if (readattribute(firstline))
return 0 return 0
if (getline <= 0) { if (getline <= 0) {
@ -281,9 +281,11 @@ function process(firstline, posattrs, namedattrs) {
while ($0) { while ($0) {
sub(/^[[:space:]]+/, "") sub(/^[[:space:]]+/, "")
sub(/^[+]$/, "") sub(/^[+]$/, "")
if (!process($0) && getline <= 0) if (!process($0) && (ok = getline) <= 0) {
fatal("unexpected EOF") if (ok < 0)
if (match($0, /^[[:space:]]*[*][[:space:]]+/)) fatal("getline failed")
$0 = ""
} else if (match($0, /^[[:space:]]*[*][[:space:]]+/))
break break
} }
print ".RE" print ".RE"
@ -318,9 +320,11 @@ function process(firstline, posattrs, namedattrs) {
while ($0) { while ($0) {
sub(/^[[:space:]]+/, "") sub(/^[[:space:]]+/, "")
sub(/^[+]$/, "") sub(/^[+]$/, "")
if (!process($0) && getline <= 0) if (!process($0) && (ok = getline) <= 0) {
fatal("unexpected EOF") if (ok < 0)
if (match($0, /::$/)) fatal("getline failed")
$0 = ""
} else if (match($0, /::$/))
break break
} }
print ".RE" print ".RE"