diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | awkgram.c | 7 | ||||
| -rw-r--r-- | awkgram.y | 7 | ||||
| -rw-r--r-- | test/ChangeLog | 5 | ||||
| -rw-r--r-- | test/Makefile.am | 6 | ||||
| -rw-r--r-- | test/Makefile.in | 11 | ||||
| -rw-r--r-- | test/Maketests | 5 | ||||
| -rw-r--r-- | test/rebrackloc.awk | 31 | ||||
| -rw-r--r-- | test/rebrackloc.in | 3 | ||||
| -rw-r--r-- | test/rebrackloc.ok | 17 |
10 files changed, 90 insertions, 8 deletions
@@ -1,3 +1,9 @@ +2015-05-05 Arnold D. Robbins <arnold@skeeve.com> + + * awkgram.y (yylex): Yet Another Fix for parsing bracket + expressions. Thanks yet again to Andrew Schorr. Maybe it's + even finally nailed down now. + 2015-05-01 Arnold D. Robbins <arnold@skeeve.com> * awkgram.y: Make sure values are not null in param list. @@ -5579,11 +5579,12 @@ yylex(void) cur_index = tok - tokstart; if (gawk_mb_cur_max == 1 || nextc_is_1stbyte) switch (c) { case '[': - if (nextc(false) == ':' || in_brack == 0) + if (nextc(false) == ':' || in_brack == 0) { in_brack++; + if (in_brack == 1) + b_index = tok - tokstart; + } pushback(); - if (in_brack == 1) - b_index = tok - tokstart; break; case ']': if (in_brack > 0 @@ -3247,11 +3247,12 @@ yylex(void) cur_index = tok - tokstart; if (gawk_mb_cur_max == 1 || nextc_is_1stbyte) switch (c) { case '[': - if (nextc(false) == ':' || in_brack == 0) + if (nextc(false) == ':' || in_brack == 0) { in_brack++; + if (in_brack == 1) + b_index = tok - tokstart; + } pushback(); - if (in_brack == 1) - b_index = tok - tokstart; break; case ']': if (in_brack > 0 diff --git a/test/ChangeLog b/test/ChangeLog index 7c3ab9c8..71a9887f 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2015-05-05 Andrew J. Schorr <aschorr@telemetry-investments.com> + + * Makefile.am (rebrackloc): New test. + * rebrackloc.awk, rebrackloc.in, rebrackloc.ok: New files. + 2015-04-29 Arnold D. Robbins <arnold@skeeve.com> * 4.1.2: Release tar ball made. diff --git a/test/Makefile.am b/test/Makefile.am index c53e65c1..b69e9e81 100644 --- a/test/Makefile.am +++ b/test/Makefile.am @@ -770,6 +770,9 @@ EXTRA_DIST = \ readdir0.awk \ readfile2.awk \ readfile2.ok \ + rebrackloc.awk \ + rebrackloc.in \ + rebrackloc.ok \ rebt8b1.awk \ rebt8b1.ok \ rebt8b2.awk \ @@ -1051,7 +1054,8 @@ BASIC_TESTS = \ paramdup paramres paramtyp paramuninitglobal parse1 parsefld parseme \ pcntplus posix2008sub prdupval prec printf0 printf1 prmarscl prmreuse \ prt1eval prtoeval \ - rand randtest range1 rebt8b1 redfilnm regeq regexpbrack regexpbrack2 regexprange regrange reindops \ + rand randtest range1 rebrackloc rebt8b1 redfilnm regeq regexpbrack regexpbrack2 \ + regexprange regrange reindops \ reparse resplit rri1 rs rsnul1nl rsnulbig rsnulbig2 rstest1 rstest2 \ rstest3 rstest4 rstest5 rswhite \ scalar sclforin sclifin sortempty sortglos splitargv splitarr splitdef \ diff --git a/test/Makefile.in b/test/Makefile.in index caae2ba5..a06fa07f 100644 --- a/test/Makefile.in +++ b/test/Makefile.in @@ -1027,6 +1027,9 @@ EXTRA_DIST = \ readdir0.awk \ readfile2.awk \ readfile2.ok \ + rebrackloc.awk \ + rebrackloc.in \ + rebrackloc.ok \ rebt8b1.awk \ rebt8b1.ok \ rebt8b2.awk \ @@ -1307,7 +1310,8 @@ BASIC_TESTS = \ paramdup paramres paramtyp paramuninitglobal parse1 parsefld parseme \ pcntplus posix2008sub prdupval prec printf0 printf1 prmarscl prmreuse \ prt1eval prtoeval \ - rand randtest range1 rebt8b1 redfilnm regeq regexpbrack regexpbrack2 regexprange regrange reindops \ + rand randtest range1 rebrackloc rebt8b1 redfilnm regeq regexpbrack regexpbrack2 \ + regexprange regrange reindops \ reparse resplit rri1 rs rsnul1nl rsnulbig rsnulbig2 rstest1 rstest2 \ rstest3 rstest4 rstest5 rswhite \ scalar sclforin sclifin sortempty sortglos splitargv splitarr splitdef \ @@ -3250,6 +3254,11 @@ range1: @AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ +rebrackloc: + @echo $@ + @AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + rebt8b1: @echo $@ @AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ diff --git a/test/Maketests b/test/Maketests index 61b0ec8e..017caa76 100644 --- a/test/Maketests +++ b/test/Maketests @@ -702,6 +702,11 @@ range1: @AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ +rebrackloc: + @echo $@ + @AWKPATH="$(srcdir)" $(AWK) -f $@.awk < "$(srcdir)"/$@.in >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ + @-$(CMP) "$(srcdir)"/$@.ok _$@ && rm -f _$@ + rebt8b1: @echo $@ @AWKPATH="$(srcdir)" $(AWK) -f $@.awk >_$@ 2>&1 || echo EXIT CODE: $$? >>_$@ diff --git a/test/rebrackloc.awk b/test/rebrackloc.awk new file mode 100644 index 00000000..c5987fcb --- /dev/null +++ b/test/rebrackloc.awk @@ -0,0 +1,31 @@ +match($0, /([Nn]ew) Value +[\([]? *([[:upper:]]+)/, f) { + print "re1", NR, f[1], f[2] +} + +match($0, /([][])/, f) { + print "re2", NR, f[1] +} + +/[]]/ { + print "re3", NR, $0 +} + +/[\[]/ { + print "re4", NR, $0 +} + +/[[]/ { + print "re5", NR, $0 +} + +/[][]/ { + print "re6", NR, $0 +} + +/[\([][[:upper:]]*/ { + print "re7", NR, $0 +} + +/[\([]/ { + print "re8", NR, $0 +} diff --git a/test/rebrackloc.in b/test/rebrackloc.in new file mode 100644 index 00000000..d82369b6 --- /dev/null +++ b/test/rebrackloc.in @@ -0,0 +1,3 @@ +New Value [XYZ] +[ +] diff --git a/test/rebrackloc.ok b/test/rebrackloc.ok new file mode 100644 index 00000000..ec98bf58 --- /dev/null +++ b/test/rebrackloc.ok @@ -0,0 +1,17 @@ +re1 1 New XYZ +re2 1 [ +re3 1 New Value [XYZ] +re4 1 New Value [XYZ] +re5 1 New Value [XYZ] +re6 1 New Value [XYZ] +re7 1 New Value [XYZ] +re8 1 New Value [XYZ] +re2 2 [ +re4 2 [ +re5 2 [ +re6 2 [ +re7 2 [ +re8 2 [ +re2 3 ] +re3 3 ] +re6 3 ] |