[truffle] Sketch out nqp::handle - it currently doesn't catch anything

Author: pmurias

src/vm/jvm/Truffle.nqp

@@ -495,6 +495,34 @@ class QAST::OperationsTruffle {
         TAST.new($OBJ, $ret);
     });
 
+    add_op('handle', :!inlinable, sub ($comp, $node, :$want) {
+        my @children := nqp::clone($node.list());
+        if @children == 0 {
+            nqp::die("The 'handle' op requires at least one child");
+        }
+
+        # If there's exactly one child, then there's nothing protecting
+        # it; just compile it and we're done.
+        my $protected := @children.shift();
+
+        unless @children {
+            return $comp.as_truffle($protected, :$want);
+        }
+
+
+        my @types;
+        my @tree := ['handle', $comp.as_truffle($protected, :want($OBJ)).tree];
+
+        for @children -> $type, $handler {
+            nqp::push(@types, $type);
+            nqp::push(@tree, $comp.as_truffle($handler, :want($OBJ)).tree);
+        }
+
+        nqp::splice(@tree, [@types], 2, 0);
+
+        TAST.new($OBJ, @tree);
+    });
+
     add_simple_op('decont', $OBJ, [$OBJ]);
 
     add_simple_op('can', $INT, [$OBJ, $STR], :decont(0));

src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/control/NQPHandleNode.java

@@ -0,0 +1,85 @@
+/*
+ * Copyright (c) 2012, 2015, Oracle and/or its affiliates. All rights reserved.
+ * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
+ *
+ * The Universal Permissive License (UPL), Version 1.0
+ *
+ * Subject to the condition set forth below, permission is hereby granted to any
+ * person obtaining a copy of this software, associated documentation and/or
+ * data (collectively the "Software"), free of charge and under any and all
+ * copyright rights in the Software, and any and all patent rights owned or
+ * freely licensable by each licensor hereunder covering either (i) the
+ * unmodified Software as contributed to or provided by such licensor, or (ii)
+ * the Larger Works (as defined below), to deal in both
+ *
+ * (a) the Software, and
+ *
+ * (b) any piece of software and/or hardware listed in the lrgrwrks.txt file if
+ * one is included with the Software each a "Larger Work" to which the Software
+ * is contributed by such licensors),
+ *
+ * without restriction, including without limitation the rights to copy, create
+ * derivative works of, display, perform, and distribute the Software and make,
+ * use, sell, offer for sale, import, export, have made, and have sold the
+ * Software and the Larger Work(s), and to sublicense the foregoing rights on
+ * either these or other terms.
+ *
+ * This license is subject to the following condition:
+ *
+ * The above copyright notice and either this complete permission notice or at a
+ * minimum a reference to the UPL must be included in all copies or substantial
+ * portions of the Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ */
+package org.perl6.nqp.truffle.nodes.call;
+
+import com.oracle.truffle.api.frame.FrameSlot;
+import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.api.instrumentation.StandardTags;
+import com.oracle.truffle.api.instrumentation.Tag;
+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.NQPCodeRef;
+import org.perl6.nqp.truffle.runtime.NQPArguments;
+import org.perl6.nqp.truffle.runtime.NQPList;
+import org.perl6.nqp.truffle.runtime.NQPHash;
+
+import com.oracle.truffle.api.CompilerDirectives.CompilationFinal;
+import org.perl6.nqp.dsl.Deserializer;
+
+
+@NodeInfo(shortName = "handle")
+public final class NQPHandleNode extends NQPObjNode {
+    @Child private NQPNode protectedNode;
+
+    final String[] types;
+    @Children private final NQPNode[] handlers;
+
+    @Deserializer
+    public NQPHandleNode(NQPNode protectedNode, String[] types, NQPNode[] handlers) {
+        this.protectedNode = protectedNode;
+        this.types = types;
+        this.handlers = handlers;
+    }
+
+    @ExplodeLoop
+    @Override
+    public Object execute(VirtualFrame frame) {
+        Object value = protectedNode.execute(frame);
+
+        // TODO handlers
+
+        return value;
+    }
+}