[SCM] gawk branch, feature/minrx, updated. gawk-4.1.0-5440-g9504036c

[Arnold Robbins]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "gawk".

The branch, feature/minrx has been updated
       via  9504036cdb9e03d55f4624bc977fb8a7f760708d (commit)
      from  b0cc45828644068cc3e36fb924d79ec87b7a726e (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=9504036cdb9e03d55f4624bc977fb8a7f760708d

commit 9504036cdb9e03d55f4624bc977fb8a7f760708d
Author: Arnold D. Robbins <arnold@skeeve.com>
Date:   Fri Oct 27 08:10:38 2023 +0300

    Updates for fifth drop.

diff --git a/re.c b/re.c
index 2bc01bf9..6f8d0bc8 100644
--- a/re.c
+++ b/re.c
@@ -218,6 +218,24 @@ make_regexp(const char *s, size_t len, bool ignorecase, 
bool dfa, bool canfatal)
                        }
                }
                        break;
+               case '`':
+                       /* gnu regex op */
+                       if (! do_traditional) {
+                               *dest++ = '^';
+                               src++;
+                               break;
+                       }
+                       else
+                               goto do_default;
+               case '\'':
+                       /* gnu regex op */
+                       if (! do_traditional) {
+                               *dest++ = '$';
+                               src++;
+                               break;
+                       }
+                       else
+                               goto do_default;
                case 'y':       /* normally \b */
                        /* gnu regex op */
                        if (! do_traditional) {
@@ -236,6 +254,7 @@ make_regexp(const char *s, size_t len, bool ignorecase, 
bool dfa, bool canfatal)
                         * once the awk program is running. Therefore,
                         * neither does ok_to_escape.
                         */
+               do_default:
                        if (ok_to_escape == NULL) {
                                if (do_posix || do_traditional)
                                        ok_to_escape = "{}()|*+?.^$\\[]/-";
@@ -333,6 +352,9 @@ make_regexp(const char *s, size_t len, bool ignorecase, 
bool dfa, bool canfatal)
                if (ignorecase)
                        flags |= MINRX_REG_ICASE;
 
+               if (syn == RE_SYNTAX_GNU_AWK)
+                       flags |= (MINRX_REG_EXTENSIONS_GNU | 
MINRX_REG_EXTENSIONS_BSD);
+
                if ((ret = minrx_regncomp(& rp->mre_pat, len, buf, flags)) != 
0) {
                        /* rerr already gettextized inside regex routines */
                        rerr = get_minrx_regerror(ret, rp);

-----------------------------------------------------------------------

Summary of changes:
 re.c | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)


hooks/post-receive
-- 
gawk