Implement value in pattern pattern matching

Author: eregon

src/main/java/org/truffleruby/parser/YARPTranslator.java

@@ -2558,7 +2558,17 @@ public RubyNode visitMatchLastLineNode(Nodes.MatchLastLineNode node) {
 
     @Override
     public RubyNode visitMatchPredicateNode(Nodes.MatchPredicateNode node) {
-        return defaultVisit(node);
+        var translator = new YARPPatternMatchingTranslator(language, environment, rubySource, this);
+
+        // Evaluate the expression and store it in a local
+        final int tempSlot = environment.declareLocalTemp("value_of_=>");
+        final ReadLocalNode readTemp = environment.readNode(tempSlot, node);
+        final RubyNode assignTemp = readTemp.makeWriteNode(node.value.accept(this));
+
+        RubyNode condition = translator.translatePatternNode(node.pattern, readTemp);
+
+        final RubyNode ret = sequence(Arrays.asList(assignTemp, condition));
+        return assignPositionAndFlags(node, ret);
     }
 
     @Override

test/mri/excludes/TestPatternMatching.rb

@@ -5,15 +5,12 @@
 exclude :test_alternative_pattern, "/home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:204:in `test_alternative_pattern'."
 exclude :test_invalid_syntax, "/home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:1269:in `test_invalid_syntax'."
 exclude :test_deconstruct_keys, "Failed assertion, no message given."
-exclude :test_pin_operator_expr_pattern, "/home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:468:in `test_pin_operator_expr_pattern'."
 exclude :test_single_pattern_error_as_pattern, "Expected Exception(NoMatchingPatternError) was raised, but the message doesn't match."
 exclude :test_single_pattern_error_value_pattern, "Expected Exception(NoMatchingPatternError) was raised, but the message doesn't match."
 exclude :test_single_pattern_error_hash_pattern, "Expected Exception(NoMatchingPatternError) was raised, but the message doesn't match."
 exclude :test_literal_value_pattern, "/home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:347:in `test_literal_value_pattern'."
 exclude :test_find_pattern, "SyntaxError: /home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:806: YARPDefNodeTranslator does not know how to translate FindPatternNode at /home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:806"
-exclude :test_one_line, "SyntaxError: /home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:1571: YARPDefNodeTranslator does not know how to translate MatchPredicateNode at /home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:1571"
-exclude :test_hash_pattern, "NoMatchingPatternError: #<TestPatternMatching::C:0x6f8 @obj={:a=>0}>"
-exclude :test_array_pattern, "NoMatchingPatternError: #<TestPatternMatching::C:0x778 @obj=[0]>"
-exclude :test_bug18990, "SyntaxError: /home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:1581: YARPDefNodeTranslator does not know how to translate MatchPredicateNode at /home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:1581"
+exclude :test_hash_pattern, "NoMatchingPatternError: #<TestPatternMatching::C:0x708 @obj={:a=>0}>"
+exclude :test_array_pattern, "NoMatchingPatternError: #<TestPatternMatching::C:0x758 @obj=[0]>"
 exclude :test_single_pattern_error_find_pattern, "SyntaxError: /home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:1623: YARPBlockNodeTranslator does not know how to translate FindPatternNode at /home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:1623"
 exclude :test_deconstruct_cache, "SyntaxError: /home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:1451: YARPBlockNodeTranslator does not know how to translate FindPatternNode at /home/eregon/code/truffleruby-ws/truffleruby/test/mri/tests/ruby/test_pattern_matching.rb:1451"

test/mri/excludes/TestPatternMatching/TestPatternMatchingRefinements.rb

@@ -1 +1 @@
-exclude :test_refinements, "NoMatchingPatternError: #<TestPatternMatching::TestPatternMatchingRefinements::C1:0x9f8>"
+exclude :test_refinements, "NoMatchingPatternError: #<TestPatternMatching::TestPatternMatchingRefinements::C1:0x9b8>"