[truffle] Implement nqp::list

Author: pmurias

nqp-truffle.nqp

@@ -124,6 +124,21 @@ class QAST::OperationsTruffle {
     add_op('numify', sub ($comp, $node, :$want) {
         $comp.as_truffle($node[0], :want($NUM));
     });
+    for ['_i', $INT, '', $OBJ, '_s', $STR, '_n', $NUM] -> $suffix, $type {
+        my str $op_name := 'list' ~ $suffix;
+        add_op($op_name, sub ($comp, $node, :$want) {
+
+           my @tree := [$op_name];
+
+           for $node.list -> $elem {
+               my $tast := $comp.as_truffle($elem, :want($type));
+               @tree.push($tast.tree);
+           }
+
+           TAST.new($OBJ, @tree);
+        });
+    }
+
     # explicit takeclosure is used by the JVM backend we no-op it.
     add_op('takeclosure', sub ($comp, $node, :$want) {
         $comp.as_truffle($node[0], :want($want));

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

@@ -27,6 +27,8 @@
 
 import org.perl6.nqp.truffle.nodes.control.NQPIfNode;
 
+import org.perl6.nqp.truffle.nodes.expression.NQPListNode;
+
 import org.perl6.nqp.truffle.nodes.variables.NQPReadLocalVariableNode;
 import org.perl6.nqp.truffle.nodes.variables.NQPBindLocalVariableNode;
 import org.perl6.nqp.truffle.nodes.variables.NQPGetPositionalNode;
@@ -70,6 +72,7 @@ public NQPNode build(SixModelObject node, NQPScope scope, ThreadContext tc) {
                 NQPNode children[] = expressions(node, scope, tc);
                 return new NQPStmts(children);
             }
+            case "list": return new NQPListNode(expressions(node, scope, tc));
             case "ival":
                 return new NQPIValNode(node.at_pos_boxed(tc, 1).get_int(tc));
             case "nval":

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

@@ -0,0 +1,32 @@
+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.runtime.NQPList;
+
+@NodeInfo(shortName = "list")
+public final class NQPListNode extends NQPNode {
+    @Children private final NQPNode[] bodyNodes;
+
+    public NQPListNode(NQPNode[] bodyNodes) {
+        this.bodyNodes = bodyNodes;
+    }
+
+    @Override
+    @ExplodeLoop
+    public Object execute(VirtualFrame frame) {
+        NQPList list = new NQPList();
+
+        CompilerAsserts.compilationConstant(bodyNodes.length);
+
+        for (NQPNode statement : bodyNodes) {
+            list.push(statement.execute(frame));
+        }
+
+        return list;
+    }
+}

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

@@ -0,0 +1,15 @@
+package org.perl6.nqp.truffle.runtime;
+
+import java.util.ArrayList;
+
+public final class NQPList {
+    ArrayList<Object> contents;
+
+    public NQPList() {
+        this.contents = new ArrayList<Object>();
+    }
+
+    public void push(Object element) {
+        this.contents.add(element);       
+    }
+}