[truffle] Implement nqp::codepointfromname

Author: MasterDuke17

src/vm/jvm/Truffle.nqp

@@ -221,6 +221,7 @@ class QAST::OperationsTruffle {
     add_simple_op('x', $STR, [$STR, $INT]);
 
     add_simple_op('chr', $STR, [$INT]);
+    add_simple_op('codepointfromname', $INT, [$STR]);
 
     for <postinc postdec> -> $op {
         add_op($op, sub ($comp, $node, :$want) {

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

@@ -0,0 +1,22 @@
+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.truffle.runtime.StringOps;
+import org.perl6.nqp.dsl.Deserializer;
+
+@NodeInfo(shortName = "codepointfromname")
+public final class NQPCodepointfromnameNode extends NQPIntNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPCodepointfromnameNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public long executeInt(VirtualFrame frame) {
+        return StringOps.codepointfromname(argNode.executeStr(frame));
+    }
+}