Adding actions body

Author: dwarring

lib/CSS/Specification/Build.rakumod

@@ -216,9 +216,6 @@ module CSS::Specification::Build {
     sub generate-raku-actions(@defs, %references) {
 
         for @defs -> $def {
-
-            my $synopsis = $def<synopsis>;
-
             with $def<props> -> @props {
                 for @props -> $prop {
 

lib/CSS/Specification/Compiler/RakuAST.rakumod

@@ -9,3 +9,17 @@ sub param(Str:D $name) is export {
         target => RakuAST::ParameterTarget::Var.new(:$name)
     )
 }
+
+sub expression($expression) is export {
+    RakuAST::Statement::Expression.new: :$expression;
+}
+
+proto statements($) is export {*}
+
+multi sub statements(@exprs) {
+    RakuAST::StatementList.new(|@exprs);
+}
+multi sub statements($expr) {
+    RakuAST::StatementList.new($expr);
+}
+

lib/CSS/Specification/Compiler/RakuAST/Actions.rakumod

@@ -8,10 +8,67 @@ method actions { ... }
 method defs { ... }
 
 method build-actions(@actions-id) {
-    # stub
+    my RakuAST::Method @methods = self!actions-methods;
+    my RakuAST::Statement::Expression @expressions = @methods.map(&expression);
+    my RakuAST::Blockoid $body .= new: @expressions.&statements;
     my RakuAST::Name $name .= from-identifier-parts(|@actions-id);
     RakuAST::Class.new(
         :$name,
         :scope<unit>,
+        :$body,
     );
 }
+
+sub build-action(Str $id) {
+    RakuAST::Blockoid.new(
+        RakuAST::Call::Name::WithoutParentheses.new(
+            name => RakuAST::Name.from-identifier("make"),
+            args => RakuAST::ArgList.new(
+                RakuAST::ApplyPostfix.new(
+                    operand => RakuAST::Var::Attribute::Public.new(
+                        name => "\$.build"
+                    ),
+                    postfix => RakuAST::Call::Method.new(
+                        name => RakuAST::Name.from-identifier($id),
+                        args => RakuAST::ArgList.new(
+                            RakuAST::Var::Lexical.new("\$/")
+                        )
+                    )
+                )
+            )
+        ).&expression.&statements
+    );
+}
+
+
+
+method !actions-methods {
+    my RakuAST::Method @methods;
+    my %references = $.actions.rule-refs;
+
+    my RakuAST::Signature $signature .= new(
+        :parameters( '$/'.&param )
+    );
+
+    my $expr-body = 'list'.&build-action;
+    my $rule-body = 'rule'.&build-action;
+
+    for @.defs -> $def {
+        with $def<props> -> @props {
+            for @props -> $prop {
+                my $expr = 'expr-' ~ $prop;
+                if %references{$expr}:delete {
+                    my RakuAST::Name $name = $expr.&name;
+                    @methods.push: RakuAST::Method.new: :$name, :$signature, body => $expr-body;
+                }
+            }
+        }
+        else {
+            my $rule = $def<rule>;
+            my RakuAST::Name $name = $rule.&name;
+            @methods.push: RakuAST::Method.new: :$name, :$signature, body => $rule-body;
+        }
+    }
+
+    @methods;
+}

lib/CSS/Specification/Compiler/RakuAST/Grammars.rakumod

@@ -20,17 +20,6 @@ sub rule(RakuAST::Name:D :$name!, RakuAST::Regex:D :$body!) {
         )
 }
 
-multi sub statements(@exprs) {
-    RakuAST::StatementList.new(|@exprs);
-}
-multi sub statements($expr) {
-    RakuAST::StatementList.new($expr);
-}
-
-sub expression($expression) {
-    RakuAST::Statement::Expression.new: :$expression;
-}
-
 sub property-decl(Str:D $prop-name) {
     my RakuAST::Name $name = "decl:sym<$prop-name>".&name;
     rule(

lib/CSS/Specification/Compiler/RakuAST/Roles.rakumod

@@ -8,8 +8,8 @@ method actions { ... }
 
 method build-role(@role-id) {
     my RakuAST::Method @methods = self!interface-methods;
-    my @expressions = @methods.map(-> $expression { RakuAST::Statement::Expression.new: :$expression });
-    my RakuAST::Blockoid $body .= new: RakuAST::StatementList.new(|@expressions);
+    my RakuAST::Statement::Expression @expressions = @methods.map(&expression);
+    my RakuAST::Blockoid $body .= new: @expressions.&statements;
     my RakuAST::Name $name .= from-identifier-parts(|@role-id);
 
     RakuAST::Role.new(
@@ -32,11 +32,7 @@ method !interface-methods {
     );
 
     my RakuAST::Blockoid $body .= new(
-        RakuAST::StatementList.new(
-            RakuAST::Statement::Expression.new(
-                expression => RakuAST::Stub::Fail.new
-            )
-        )
+        RakuAST::Stub::Fail.new.&expression.&statements
     );
 
     my Str @stubs = %unresolved.keys.sort;

t/lib/Test/CSS/Aural/Spec/ActionsAST.rakumod

@@ -1 +1,13 @@
 unit class Test::CSS::Aural::Spec::ActionsAST;
+method expr-cue-after ($/) {
+    make $.build.list($/)
+}
+method expr-cue-before ($/) {
+    make $.build.list($/)
+}
+method generic-voice ($/) {
+    make $.build.rule($/)
+}
+method specific-voice ($/) {
+    make $.build.rule($/)
+}