Add FilePlugin#primitiveHasFileAccess

hpi-swa · Oct 24, 2021 · f154536 · f154536
1 parent 8fc5486
commit f154536
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/src/de.hpi.swa.trufflesqueak/src/de/hpi/swa/trufflesqueak/nodes/plugins/FilePlugin.java b/src/de.hpi.swa.trufflesqueak/src/de/hpi/swa/trufflesqueak/nodes/plugins/FilePlugin.java
@@ -1,5 +1,6 @@
 /*
  * Copyright (c) 2017-2021 Software Architecture Group, Hasso Plattner Institute
+ * Copyright (c) 2021 Oracle and/or its affiliates
  *
  * Licensed under the MIT License.
  */
@@ -696,4 +697,19 @@ private static void writeToOutputStream(final OutputStream outputStream, final b
             }
         }
     }
+
+    @GenerateNodeFactory
+    @SqueakPrimitive(names = "primitiveHasFileAccess")
+    protected abstract static class PrimHasFileAccessNode extends AbstractPrimitiveNode {
+        @Specialization
+        @TruffleBoundary
+        protected final boolean hasFileAccess(@SuppressWarnings("unused") final Object receiver) {
+            try {
+                getContext().env.getCurrentWorkingDirectory();
+                return BooleanObject.TRUE;
+            } catch (final SecurityException e) {
+                return BooleanObject.FALSE;
+            }
+        }
+    }
 }