[truffle] Implement a bunch of _n trigonometric ops

nqp::<asec asin acos atan atan2 cos cosh sin sinh sec sech tan tanh>
Raku · Jul 3, 2018 · afa9494 · afa9494
1 parent 4c36904
commit afa9494
Show file tree

Hide file tree

Showing 14 changed files with 267 additions and 0 deletions.
diff --git a/nqp-truffle.nqp b/nqp-truffle.nqp
@@ -189,6 +189,11 @@ class QAST::OperationsTruffle {
 
     add_simple_op('pow_n', $NUM, [$NUM, $NUM]);
 
+    for <asec asin acos atan cos cosh sin sinh sec sech tan tanh> -> $math-op {
+        add_simple_op($math-op ~ '_n', $NUM, [$NUM]);
+    }
+
+    add_simple_op('atan2_n', $NUM, [$NUM, $NUM]);
     for <postinc postdec> -> $op {
         add_op($op, sub ($comp, $node, :$want) {
             my $old_value := $comp.as_truffle($node[0], :want($INT));

diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPAcosNumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPAcosNumNode.java
@@ -0,0 +1,20 @@
+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.dsl.Deserializer;
+
+@NodeInfo(shortName = "acos_n")
+public final class NQPAcosNumNode extends NQPNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPAcosNumNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return Math.acos(argNode.executeNum(frame));
+    }
+}
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPAsecNumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPAsecNumNode.java
@@ -0,0 +1,20 @@
+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.dsl.Deserializer;
+
+@NodeInfo(shortName = "asec_n")
+public final class NQPAsecNumNode extends NQPNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPAsecNumNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return Math.acos(1 / argNode.executeNum(frame));
+    }
+}
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPAsinNumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPAsinNumNode.java
@@ -0,0 +1,20 @@
+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.dsl.Deserializer;
+
+@NodeInfo(shortName = "asin_n")
+public final class NQPAsinNumNode extends NQPNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPAsinNumNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return Math.asin(argNode.executeNum(frame));
+    }
+}
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPAtan2NumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPAtan2NumNode.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.dsl.Deserializer;
+
+@NodeInfo(shortName = "atan2_n")
+public final class NQPAtan2NumNode extends NQPNode {
+    @Child private NQPNode leftNode;
+    @Child private NQPNode rightNode;
+
+    @Deserializer
+    public NQPAtan2NumNode(NQPNode leftNode, NQPNode rightNode) {
+        this.leftNode = leftNode;
+        this.rightNode = rightNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return Math.atan2(leftNode.executeNum(frame), rightNode.executeNum(frame));
+    }
+}
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPAtanNumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPAtanNumNode.java
@@ -0,0 +1,20 @@
+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.dsl.Deserializer;
+
+@NodeInfo(shortName = "atan_n")
+public final class NQPAtanNumNode extends NQPNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPAtanNumNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return Math.atan(argNode.executeNum(frame));
+    }
+}
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPCosNumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPCosNumNode.java
@@ -0,0 +1,20 @@
+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.dsl.Deserializer;
+
+@NodeInfo(shortName = "cos_n")
+public final class NQPCosNumNode extends NQPNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPCosNumNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return Math.cos(argNode.executeNum(frame));
+    }
+}
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPCoshNumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPCoshNumNode.java
@@ -0,0 +1,20 @@
+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.dsl.Deserializer;
+
+@NodeInfo(shortName = "cosh_n")
+public final class NQPCoshNumNode extends NQPNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPCoshNumNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return Math.cosh(argNode.executeNum(frame));
+    }
+}
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPSecNumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPSecNumNode.java
@@ -0,0 +1,20 @@
+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.dsl.Deserializer;
+
+@NodeInfo(shortName = "sec_n")
+public final class NQPSecNumNode extends NQPNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPSecNumNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return 1 / Math.cos(argNode.executeNum(frame));
+    }
+}
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPSechNumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPSechNumNode.java
@@ -0,0 +1,20 @@
+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.dsl.Deserializer;
+
+@NodeInfo(shortName = "sech_n")
+public final class NQPSechNumNode extends NQPNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPSechNumNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return 1 / Math.cosh(argNode.executeNum(frame));
+    }
+}
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPSinNumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPSinNumNode.java
@@ -0,0 +1,20 @@
+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.dsl.Deserializer;
+
+@NodeInfo(shortName = "sin_n")
+public final class NQPSinNumNode extends NQPNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPSinNumNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return Math.sin(argNode.executeNum(frame));
+    }
+}
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPSinhNumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPSinhNumNode.java
@@ -0,0 +1,20 @@
+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.dsl.Deserializer;
+
+@NodeInfo(shortName = "sinh_n")
+public final class NQPSinhNumNode extends NQPNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPSinhNumNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return Math.sinh(argNode.executeNum(frame));
+    }
+}
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPTanNumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPTanNumNode.java
@@ -0,0 +1,20 @@
+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.dsl.Deserializer;
+
+@NodeInfo(shortName = "tan_n")
+public final class NQPTanNumNode extends NQPNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPTanNumNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return Math.tan(argNode.executeNum(frame));
+    }
+}
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPTanhNumNode.java b/src/vm/jvm/runtime/org/perl6/nqp/truffle/nodes/expression/NQPTanhNumNode.java
@@ -0,0 +1,20 @@
+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.dsl.Deserializer;
+
+@NodeInfo(shortName = "tanh_n")
+public final class NQPTanhNumNode extends NQPNode {
+    @Child private NQPNode argNode;
+
+    @Deserializer
+    public NQPTanhNumNode(NQPNode argNode) {
+        this.argNode = argNode;
+    }
+
+    @Override
+    public double executeNum(VirtualFrame frame) {
+        return Math.tanh(argNode.executeNum(frame));
+    }
+}