RakuAST: add adverb handling to RakuAST::QuotedRegex .raku/deparsing

rakudo · Mar 19, 2023 · b8488d2 · b8488d2
1 parent 18a5dab
commit b8488d2
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/src/core.c/RakuAST/Deparse.pm6 b/src/core.c/RakuAST/Deparse.pm6
@@ -806,7 +806,9 @@ class RakuAST::Deparse {
 #- Q ---------------------------------------------------------------------------
 
     multi method deparse(RakuAST::QuotedRegex:D $ast --> Str:D) {
-        ($ast.match-immediately ?? 'm' !! '')
+        my str $adverbs = $ast.adverbs.map({ self.deparse($_) }).join;
+        ($ast.match-immediately ?? 'm' !! $adverbs ?? 'rx' !! '')
+          ~ $adverbs
           ~ $.regex-open
           ~ self.deparse($ast.body)
           ~ $.regex-close

diff --git a/src/core.c/RakuAST/Raku.pm6 b/src/core.c/RakuAST/Raku.pm6
@@ -90,6 +90,10 @@ augment class RakuAST::Node {
         }
 
         my $special := BEGIN nqp::hash(
+          'adverbs', -> {
+              my $adverbs := nqp::decont(self.adverbs);
+              :$adverbs if $adverbs
+          },
           'args', -> {
               my $args := self.args;
               :$args if $args && $args.args
@@ -522,7 +526,7 @@ augment class RakuAST::Node {
 #- Q ---------------------------------------------------------------------------
 
     multi method raku(RakuAST::QuotedRegex:D: --> Str:D) {
-        self!nameds: <match-immediately body>
+        self!nameds: <match-immediately body adverbs>
     }
 
     multi method raku(RakuAST::QuotedString:D: --> Str:D) {