Add Truffle::Debug.profile_translator

* Can be used like:
  jt ruby -e 'Truffle::Debug.profile_translator File.read("src/main/ruby/truffleruby/core/io.rb"), 50_000'
  jt mx profrecord -E translator -F 10000 $PWD/mxbuild/truffleruby-jvm/languages/ruby/bin/ruby -e 'Truffle::Debug.profile_translator File.read("src/main/ruby/truffleruby/core/io.rb"), 50_000'

Author: eregon

src/main/java/org/truffleruby/debug/TruffleDebugNodes.java

@@ -34,6 +34,7 @@
 import com.oracle.truffle.api.source.SourceSection;
 import com.oracle.truffle.api.strings.TruffleString;
 import org.graalvm.collections.Pair;
+import org.prism.ParseResult;
 import org.truffleruby.Layouts;
 import org.truffleruby.RubyLanguage;
 import org.truffleruby.annotations.CoreMethod;
@@ -256,19 +257,48 @@ Object ast(Object code,
                 @Cached TruffleString.FromJavaStringNode fromJavaStringNode) {
             var codeString = new TStringWithEncoding(RubyGuards.asTruffleStringUncached(code),
                     RubyStringLibrary.getUncached().getEncoding(code));
+
+            var rubySource = createRubySource(codeString);
+            var parseResult = getParseResult(getLanguage(), rubySource);
+            var ast = parseResult.value;
+
+            return createString(fromJavaStringNode, ast.toString(), Encodings.UTF_8);
+        }
+
+        private static RubySource createRubySource(TStringWithEncoding code) {
             String name = "<parse_ast>";
-            var source = Source.newBuilder("ruby", new ByteBasedCharSequence(codeString), name).build();
-            var rubySource = new RubySource(source, name);
+            var source = Source.newBuilder("ruby", new ByteBasedCharSequence(code), name).build();
+            return new RubySource(source, name);
+        }
 
-            var language = getLanguage();
+        private static ParseResult getParseResult(RubyLanguage language, RubySource rubySource) {
             var yarpSource = YARPTranslatorDriver.createYARPSource(rubySource.getBytes());
             String sourcePath = rubySource.getSourcePath(language).intern();
 
-            var parseResult = YARPTranslatorDriver.parseToYARPAST(rubySource, sourcePath, yarpSource,
+            return YARPTranslatorDriver.parseToYARPAST(rubySource, sourcePath, yarpSource,
                     Collections.emptyList(), language.options.FROZEN_STRING_LITERALS);
-            var ast = parseResult.value;
+        }
+    }
 
-            return createString(fromJavaStringNode, ast.toString(), Encodings.UTF_8);
+    @CoreMethod(names = "profile_translator", onSingleton = true, required = 2, lowerFixnum = 2)
+    public abstract static class ProfileTranslatorNode extends CoreMethodArrayArgumentsNode {
+        @TruffleBoundary
+        @Specialization
+        Object profileTranslator(Object code, int repeat) {
+            var codeString = new TStringWithEncoding(RubyGuards.asTruffleStringUncached(code),
+                    RubyStringLibrary.getUncached().getEncoding(code));
+
+            var rubySource = ParseASTNode.createRubySource(codeString);
+            var parseResult = ParseASTNode.getParseResult(getLanguage(), rubySource);
+
+            var translator = new YARPTranslatorDriver(getContext());
+
+            for (int i = 0; i < repeat; i++) {
+                translator.parse(rubySource, ParserContext.TOP_LEVEL, null, null, getContext().getRootLexicalScope(),
+                        this, parseResult);
+            }
+
+            return nil;
         }
     }
 

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

@@ -100,6 +100,11 @@ public YARPTranslatorDriver(RubyContext context) {
 
     public RootCallTarget parse(RubySource rubySource, ParserContext parserContext, String[] argumentNames,
             MaterializedFrame parentFrame, LexicalScope staticLexicalScope, Node currentNode) {
+        return parse(rubySource, parserContext, argumentNames, parentFrame, staticLexicalScope, currentNode, null);
+    }
+
+    public RootCallTarget parse(RubySource rubySource, ParserContext parserContext, String[] argumentNames,
+            MaterializedFrame parentFrame, LexicalScope staticLexicalScope, Node currentNode, ParseResult parseResult) {
         Nodes.Source yarpSource = createYARPSource(rubySource.getBytes());
         this.parseEnvironment = new ParseEnvironment(language, rubySource, yarpSource, parserContext, currentNode);
 
@@ -157,13 +162,15 @@ public RootCallTarget parse(RubySource rubySource, ParserContext parserContext,
 
         final String sourcePath = rubySource.getSourcePath(language).intern();
 
-        printParseTranslateExecuteMetric("before-parsing", context, source);
-        final ParseResult parseResult = context.getMetricsProfiler().callWithMetrics(
-                "parsing",
-                source.getName(),
-                () -> parseToYARPAST(rubySource, sourcePath, yarpSource, localsInScopes,
-                        language.options.FROZEN_STRING_LITERALS));
-        printParseTranslateExecuteMetric("after-parsing", context, source);
+        if (parseResult == null) {
+            printParseTranslateExecuteMetric("before-parsing", context, source);
+            parseResult = context.getMetricsProfiler().callWithMetrics(
+                    "parsing",
+                    source.getName(),
+                    () -> parseToYARPAST(rubySource, sourcePath, yarpSource, localsInScopes,
+                            language.options.FROZEN_STRING_LITERALS));
+            printParseTranslateExecuteMetric("after-parsing", context, source);
+        }
 
         handleWarningsErrorsPrimitives(context, parseResult, rubySource, sourcePath, parseEnvironment, rubyWarnings);