https://gcc.gnu.org/g:7132a4a945579f096b59a59460196f0f44fbe18b
commit r16-6454-g7132a4a945579f096b59a59460196f0f44fbe18b Author: Jose E. Marchesi <[email protected]> Date: Thu Jan 1 14:30:12 2026 +0100 a68: fix portability problems in sppp.awk Happy new year! Turns out the optional third argument of 'match' is a GNU extension and is not POSIX. Also, POSIX doens't recognize interval expressions in regexps. This patch vandalizes sppp.awk to remove the use of these nonportable (but nice) constructs. Tested with mawk. Signed-off-by: Jose E. Marchesi <[email protected]> libga68/ChangeLog * sppp.awk: Fix non-portable uses of 'match'. Diff: --- libga68/sppp.awk | 61 ++++++++++++++++++++++++++++++++++++++++++++++---------- 1 file changed, 51 insertions(+), 10 deletions(-) diff --git a/libga68/sppp.awk b/libga68/sppp.awk index e2701e03b175..e793ee815036 100644 --- a/libga68/sppp.awk +++ b/libga68/sppp.awk @@ -34,20 +34,44 @@ BEGIN { } /^[ \t]*\{[ \t]*iter[ \t]+/ { - if (match ($0, /[ \t]*\{[ \t]*iter[ \t]+([a-zA-Z_]+)[\t ]*(\{.*\}[ \t]*){1,}[ \t]*\}/, matches) == 0) + line=$0 + if (match (line, /[ \t\*\{[ \t]*iter[ \t]+/) == 0) error(FNR ": invalid iter") - - iter_name = matches[1] - iter_alts = matches[2] + line = substr (line, RSTART + RLENGTH) + # Iterator name. # + if (match (line, /[a-zA-Z_]+/) == 0) + error(FNR ": expected iterator name") + iter_name = substr (line, RSTART, RLENGTH) + line = substr (line, RSTART + RLENGTH) + # Blanks. # + if (match (line, /[\t ]*/) == 0) + error(FNR ": invalid iter") + line = substr (line, RSTART + RLENGTH) + # Iterator alternatives. # + if (match (line, /\{.*\}/) == 0) + error(FNR ": expected iterator alternatives") + iter_alts = substr (line, RSTART, RLENGTH) + line = substr (line, RSTART + RLENGTH) # Count and collect alternatives. # iter_num_alternatives = 0 - while (match (iter_alts, /[ \t]*\{([^\}]*)\}/, matches) > 0) - { + while (match (iter_alts, /[ \t]*\{([^\}]*)\}/) > 0) + { iter_num_alternatives++ - iter_alts = substr (iter_alts, RSTART + RLENGTH) iter_names[iter_name] = 1 - iterators[iter_name,iter_num_alternatives] = matches[1] + # Skip prefix. # + if (match (iter_alts, /[ \t]*\{/) == 0) + error(FNR ": invalid iterator alternative") + iter_alts = substr (iter_alts, RSTART + RLENGTH) + # Get alternative contents. # + if (match (iter_alts, /[^\}]*/) == 0) + error(FNR ": invalid iterator alternative") + iterators[iter_name,iter_num_alternatives] = substr (iter_alts, RSTART, RLENGTH) + iter_alts = substr (iter_alts, RSTART + RLENGTH) + # Skip trailer. # + if (match (iter_alts, /\}/) == 0) + error(FNR ": invalid iterator alternative") + iter_alts = substr (iter_alts, RSTART + RLENGTH) } if (in_iter == 1) @@ -63,8 +87,25 @@ BEGIN { /^[ \t]*\{[ \t]*reti/ { separator = "" - if (match ($0, /[ \t]*\{[ \t]*reti[ \t]+\{([^\}]*)\}/, matches) > 0) - separator = matches[1] + line = $0 + if (match (line, /[ \t]*\{[ \t]*reti[ \t]*\{/) > 0) + { + # Extract separator. # + line = substr (line, RSTART + RLENGTH) + if (match (line, /[^\}]*/) == 0) + error(FNR ": invalid separator in reti") + separator = substr (line, RSTART, RLENGTH) + line = substr (line, RSTART + RLENGTH) + # Skip suffix + if (match (line, /\}/) == 0) + error(FNR ": expected closing } in reti separator") + } + else + { + # No separator. # + if (match (line, /[ \t]*\{[ \t]*reti[ \t]*\}/) == 0) + error(FNR ": invalid reti") + } for (nalt = 1; nalt <= num_alternatives; nalt++) {
