Add new primitive(G|S)etWorkingDirectory prims

Author: fniephaus

src/de.hpi.swa.trufflesqueak/src/de/hpi/swa/trufflesqueak/nodes/plugins/AbstractOSProcessPlugin.java

@@ -127,10 +127,9 @@ protected final NilObject doChdir(@SuppressWarnings("unused") final Object recei
     @GenerateNodeFactory
     @SqueakPrimitive(names = "primitiveGetCurrentWorkingDirectory")
     protected abstract static class PrimGetCurrentWorkingDirectoryNode extends AbstractPrimitiveNode implements Primitive0 {
-
         @Specialization
-        protected final NativeObject doGet(@SuppressWarnings("unused") final Object receiver) {
-            final SqueakImageContext image = getContext();
+        protected static final NativeObject doGet(@SuppressWarnings("unused") final Object receiver,
+                        @Bind final SqueakImageContext image) {
             return image.asByteString(image.env.getCurrentWorkingDirectory().getPath());
         }
     }

src/de.hpi.swa.trufflesqueak/src/de/hpi/swa/trufflesqueak/nodes/plugins/FilePlugin.java

@@ -25,10 +25,13 @@
 import com.oracle.truffle.api.TruffleFile;
 import com.oracle.truffle.api.TruffleFile.AttributeDescriptor;
 import com.oracle.truffle.api.TruffleFile.Attributes;
+import com.oracle.truffle.api.TruffleLanguage.Env;
+import com.oracle.truffle.api.dsl.Bind;
 import com.oracle.truffle.api.dsl.GenerateNodeFactory;
 import com.oracle.truffle.api.dsl.ImportStatic;
 import com.oracle.truffle.api.dsl.NodeFactory;
 import com.oracle.truffle.api.dsl.Specialization;
+import com.oracle.truffle.api.nodes.Node;
 
 import de.hpi.swa.trufflesqueak.exceptions.PrimitiveFailed;
 import de.hpi.swa.trufflesqueak.image.SqueakImageContext;
@@ -711,6 +714,16 @@ private static void writeToOutputStream(final OutputStream outputStream, final b
         }
     }
 
+    @GenerateNodeFactory
+    @SqueakPrimitive(names = "primitiveGetWorkingDirectory")
+    protected abstract static class PrimGetWorkingDirectoryNode extends AbstractPrimitiveNode implements Primitive0 {
+        @Specialization
+        protected static final NativeObject getWorkingDirectory(@SuppressWarnings("unused") final Object receiver,
+                        @Bind final SqueakImageContext image) {
+            return image.asByteString(image.env.getCurrentWorkingDirectory().getPath());
+        }
+    }
+
     @GenerateNodeFactory
     @SqueakPrimitive(names = "primitiveHasFileAccess")
     protected abstract static class PrimHasFileAccessNode extends AbstractPrimitiveNode implements Primitive0 {
@@ -719,4 +732,20 @@ protected final boolean hasFileAccess(@SuppressWarnings("unused") final Object r
             return BooleanObject.wrap(getContext().env.isFileIOAllowed());
         }
     }
+
+    @GenerateNodeFactory
+    @SqueakPrimitive(names = "primitiveSetWorkingDirectory")
+    protected abstract static class PrimSetWorkingDirectoryNode extends AbstractPrimitiveNode implements Primitive1WithFallback {
+        @Specialization(guards = "path.isByteType()")
+        protected static final Object setWorkingDirectory(final Object receiver, final NativeObject path,
+                        @Bind final Node node) {
+            final Env env = getContext(node).env;
+            final TruffleFile file = env.getPublicTruffleFile(path.asStringUnsafe());
+            if (!file.exists()) {
+                throw PrimitiveFailed.andTransferToInterpreter();
+            }
+            env.setCurrentWorkingDirectory(file);
+            return receiver;
+        }
+    }
 }