[truffle] Implement nqp::list_s

Author: pmurias

src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPListStrNode.java

@@ -0,0 +1,35 @@
+package org.perl6.nqp.truffle.nodes.expression;
+
+import com.oracle.truffle.api.CompilerAsserts;
+import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.api.nodes.ExplodeLoop;
+import com.oracle.truffle.api.nodes.NodeInfo;
+
+import org.perl6.nqp.truffle.nodes.NQPNode;
+import org.perl6.nqp.truffle.nodes.NQPObjNode;
+import org.perl6.nqp.truffle.runtime.NQPListStr;
+import org.perl6.nqp.dsl.Deserializer;
+
+@NodeInfo(shortName = "list_s")
+public final class NQPListStrNode extends NQPObjNode {
+    @Children private final NQPNode[] bodyNodes;
+
+    @Deserializer
+    public NQPListStrNode(NQPNode[] bodyNodes) {
+        this.bodyNodes = bodyNodes;
+    }
+
+    @Override
+    @ExplodeLoop
+    public Object execute(VirtualFrame frame) {
+        NQPListStr list = new NQPListStr();
+
+        CompilerAsserts.compilationConstant(bodyNodes.length);
+
+        for (NQPNode statement : bodyNodes) {
+            list.pushStr(statement.executeStr(frame));
+        }
+
+        return list;
+    }
+}

src/vm/jvm/runtime/org/perl6/nqp/truffle/runtime/NQPListStr.java

@@ -0,0 +1,57 @@
+package org.perl6.nqp.truffle.runtime;
+
+import java.util.ArrayList;
+
+public final class NQPListStr {
+    ArrayList<String> contents;
+
+    public NQPListStr() {
+        this.contents = new ArrayList<String>();
+    }
+
+    public String pushStr(String element) {
+        contents.add(element);       
+        return element;
+    }
+
+    public String popStr() {
+        return contents.remove(contents.size() - 1);
+    }
+
+    public String unshiftStr(String element) {
+        contents.add(0, element);
+        return element;
+    }
+
+    public String shiftStr() {
+        return contents.remove(0);
+    }
+
+    public String atposStr(long pos) {
+        if (pos < 0) {
+            pos = pos + contents.size();
+        }
+        String value = contents.get((int)pos);
+        if (value == null) {
+            return null;
+        } else {
+            return value;
+        }
+    }
+
+    public String bindposStr(long pos, String value) {
+        if (pos >= contents.size()) {
+            for (int i = contents.size(); i < pos; i++) {
+                contents.add(null);
+            }
+            contents.add(value);
+            return value;
+        } else {
+            return contents.set((int)pos, value);
+        }
+    }
+
+    public int elems() {
+        return contents.size();
+    }
+}