[truffle] Implement nqp::ord

src/vm/jvm/Truffle.nqp

@@ -273,6 +273,19 @@ class QAST::OperationsTruffle {
     add_simple_op('findnotcclass', $INT, [$INT, $STR, $INT, $INT]);
     add_simple_op('iscclass', $INT, [$INT, $STR, $INT]);
     add_simple_op('ordbaseat', $INT, [$STR, $INT]);
+
+    add_simple_op('ordbaseat', $INT, [$STR, $INT]);
+
+    add_simple_op('ordfirst', $INT, [$STR]);
+    add_simple_op('ordat', $INT, [$STR, $INT]);
+
+    add_op('ord', sub ($comp, $node, :$want) {
+        my @operands := $node.list;
+        $comp.as_truffle(+@operands == 1
+            ?? QAST::Op.new( :op('ordfirst'), |@operands )
+            !! QAST::Op.new( :op('ordat'), |@operands ), :$want);
+    });
+
     add_simple_op('replace', $STR, [$STR, $INT, $INT, $STR]);
     add_simple_op('codes', $INT, [$STR]);
     add_simple_op('join', $STR, [$STR, $OBJ]);

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

@@ -0,0 +1,31 @@
+package org.perl6.nqp.truffle.nodes.expression;
+import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.api.nodes.NodeInfo;
+import org.perl6.nqp.truffle.nodes.NQPNode;
+import org.perl6.nqp.truffle.nodes.NQPIntNode;
+import org.perl6.nqp.dsl.Deserializer;
+
+@NodeInfo(shortName = "ordat")
+public final class NQPOrdatNode extends NQPIntNode {
+    @Child private NQPNode strNode;
+    @Child private NQPNode offsetNode;
+
+    @Deserializer
+    public NQPOrdatNode(NQPNode strNode, NQPNode offsetNode) {
+        this.strNode = strNode;
+        this.offsetNode = offsetNode;
+    }
+
+    @Override
+    public long executeInt(VirtualFrame frame) {
+        String str = strNode.executeStr(frame);
+        long offset = offsetNode.executeInt(frame);
+
+        if (offset < 0 || offset >= str.length()) {
+            return -1;
+        }
+	else {
+            return str.codePointAt((int)offset);
+        }
+    }
+}

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

@@ -0,0 +1,27 @@
+package org.perl6.nqp.truffle.nodes.expression;
+import com.oracle.truffle.api.frame.VirtualFrame;
+import com.oracle.truffle.api.nodes.NodeInfo;
+import org.perl6.nqp.truffle.nodes.NQPNode;
+import org.perl6.nqp.truffle.nodes.NQPIntNode;
+import org.perl6.nqp.dsl.Deserializer;
+
+@NodeInfo(shortName = "ordfirst")
+public final class NQPOrdfirstNode extends NQPIntNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPOrdfirstNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public long executeInt(VirtualFrame frame) {
+        String str = argNode.executeStr(frame);
+        if (str.isEmpty()) {
+            return -1;
+	}
+	else {
+            return str.codePointAt(0);
+	}
+    }
+}