Add deparsing/.raku for Type::Enum

rakudo · Mar 5, 2023 · 6c3468c · 6c3468c
1 parent 6489eb8
commit 6c3468c
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/src/core.c/RakuAST/Deparse.pm6 b/src/core.c/RakuAST/Deparse.pm6
@@ -1789,6 +1789,18 @@ class RakuAST::Deparse {
 
 #- Type ------------------------------------------------------------------------
 
+    multi method deparse(RakuAST::Type::Enum:D $ast --> Str:D) {
+        my str @parts = 'enum';
+        my str $scope = $ast.scope;
+
+        @parts.unshift($scope) if $scope && $scope ne 'our'; # XXX
+        @parts.unshift(self.deparse($_)) with $ast.of;
+        @parts.push(self.deparse($_)) with $ast.name;
+        @parts.push(self.deparse($ast.term));
+
+        @parts.join(' ');
+    }
+
     multi method deparse(RakuAST::Type::Simple:D $ast --> Str:D) {
         self.deparse($ast.name)
     }

diff --git a/src/core.c/RakuAST/Raku.pm6 b/src/core.c/RakuAST/Raku.pm6
@@ -1076,6 +1076,10 @@ augment class RakuAST::Node {
 
 #- Type ------------------------------------------------------------------------
 
+    multi method raku(RakuAST::Type::Enum:D: --> Str:D) {
+        self!nameds: <scope name term of>
+    }
+
     multi method raku(RakuAST::Type::Simple:D: --> Str:D) {
         self!positional(self.name)
     }