[GR-14628] Update RFileTypeDetector to implement TruffleFile.FileTypeDectector.

PullRequest: fastr/1971

Author: tzezula

com.oracle.truffle.r.engine/src/META-INF/services/java.nio.file.spi.FileTypeDetector

@@ -23,21 +23,24 @@
 package com.oracle.truffle.r.engine;
 
 import java.io.IOException;
-import java.nio.file.Path;
-import java.nio.file.spi.FileTypeDetector;
+import java.nio.charset.Charset;
+import com.oracle.truffle.api.TruffleFile;
 
 import com.oracle.truffle.r.runtime.RRuntime;
 
-public final class RFileTypeDetector extends FileTypeDetector {
+public final class RFileTypeDetector implements TruffleFile.FileTypeDetector {
+
     @Override
-    public String probeContentType(Path path) throws IOException {
-        Path fileNamePath = path.getFileName();
-        if (fileNamePath != null) {
-            String fileName = fileNamePath.toString();
-            if (fileName.endsWith(".R") || fileName.endsWith(".r")) {
-                return RRuntime.R_TEXT_MIME;
-            }
+    public String findMimeType(TruffleFile file) throws IOException {
+        String fileName = file.getName();
+        if (fileName != null && (fileName.endsWith(".R") || fileName.endsWith(".r"))) {
+            return RRuntime.R_TEXT_MIME;
         }
         return null;
     }
+
+    @Override
+    public Charset findEncoding(TruffleFile file) throws IOException {
+        return null;
+    }
 }

com.oracle.truffle.r.engine/src/com/oracle/truffle/r/engine/RFileTypeDetector.java

@@ -69,7 +69,7 @@
 import com.oracle.truffle.r.runtime.nodes.RBaseNode;
 import org.graalvm.options.OptionDescriptors;
 
-@TruffleLanguage.Registration(name = "R", id = "R", version = "3.5.1", mimeType = {RRuntime.R_APP_MIME, RRuntime.R_TEXT_MIME}, interactive = true)
+@TruffleLanguage.Registration(name = "R", id = "R", version = "3.5.1", mimeType = {RRuntime.R_APP_MIME, RRuntime.R_TEXT_MIME}, interactive = true, fileTypeDetectors = RFileTypeDetector.class)
 @ProvidedTags({StandardTags.CallTag.class, StandardTags.StatementTag.class, StandardTags.RootTag.class, RSyntaxTags.LoopTag.class, FunctionBodyBlockTag.class})
 public final class TruffleRLanguageImpl extends TruffleRLanguage {