ID# 3308400: allow Yacc-style %(code brackets}%

diff --git a/re2c/scanner.re b/re2c/scanner.re
index 87755cd1925872d1934048cb60351a5a496821d1..1dd6dc1000584e9635553e7ab359859081b83676 100644 (file)
--- a/re2c/scanner.re
+++ b/re2c/scanner.re
@@ -64,7 +64,8 @@ Scanner::ParseMode Scanner::echo()
        tok = cursor;
 echo:
 /*!re2c
-       "/*!re2c"       {
+   beginRE     =  "%{" | "/*!re2c";
+   beginRE     {
                                        if (rFlag)
                                        {
                                                fatal("found standard 're2c' block while using -r flag");
@@ -266,7 +267,8 @@ scan:
                                        goto comment;
                                }
 
-       "*/"            {
+   endRE    =  "%}" | "*/";
+   endRE    {
                                        tok = cursor;
                                        RETURN(0);
                                }