When dynamically loading symbol: check also the name with trailing underscore (like GNU-R)

Author: steve-s

CHANGELOG.md

@@ -29,6 +29,7 @@ Bug fixes:
 Added missing R builtins and C APIs
 
 * Dummy implementations of `X_IS_SORTED` and `X_NO_NA` for `X = STRING,INTEGER,REAL` #156
+* when loading native symbol dynamically, FastR also checks the name with trailing underscode to be compatible with GNU-R
 
 # 20.1.0
 

com.oracle.truffle.r.runtime/src/com/oracle/truffle/r/runtime/ffi/DLL.java

@@ -879,6 +879,14 @@ public SymbolHandle execute(DLLInfo dllInfo, String name, RegisteredNativeSymbol
             if (rns != null && rns.nst == NativeSymbolType.Fortran) {
                 mName = name.toLowerCase() + "_";
             }
+            SymbolHandle result = dynamicLookup(dllInfo, mName);
+            if (result == SYMBOL_NOT_FOUND && rns != null && rns.nst == NativeSymbolType.Any) {
+                result = dynamicLookup(dllInfo, name + "_");
+            }
+            return result;
+        }
+
+        private SymbolHandle dynamicLookup(DLLInfo dllInfo, String mName) {
             try {
                 if (dllInfo.unsuccessfulLookups.contains(mName)) {
                     return SYMBOL_NOT_FOUND;