c/crafting-interpreters
1
Fork 0
Code Issues Releases Activity

[tlox] Refactor to use Truffle DSL

Browse Source
This commit is contained in:
ctsk
2022-09-13 18:21:31 +02:00
parent 3c12f50b6f
commit a93b1018ca
12 changed files with 85 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
jlox/tlox/src/main/java/xyz/ctsk/lox/LoxException.java Normal file
View File

@@ -0,0 +1,14 @@
package xyz.ctsk.lox;
import com.oracle.truffle.api.exception.AbstractTruffleException;
import com.oracle.truffle.api.nodes.Node;
public class LoxException extends AbstractTruffleException {
public LoxException(String message) {
super(message);
}
public static LoxException typeError(Node operation, Object... values) {
return new LoxException(operation.toString());
}
}

2
jlox/tlox/src/main/java/xyz/ctsk/lox/nodes/LoxExpressionNode.java
View File

@@ -4,4 +4,6 @@ import com.oracle.truffle.api.frame.VirtualFrame;
public abstract class LoxExpressionNode extends LoxNode {
public abstract double executeDouble(VirtualFrame frame);
public abstract Object executeGeneric(VirtualFrame frame);
}

1
jlox/tlox/src/main/java/xyz/ctsk/lox/nodes/LoxNode.java
View File

@@ -1,5 +1,6 @@
package xyz.ctsk.lox.nodes;
import com.oracle.truffle.api.dsl.TypeSystemReference;
import com.oracle.truffle.api.nodes.Node;
public class LoxNode extends Node {

27
jlox/tlox/src/main/java/xyz/ctsk/lox/nodes/expr/LoxAddNode.java
View File

@@ -1,24 +1,17 @@
package xyz.ctsk.lox.nodes.expr;
import com.oracle.truffle.api.frame.VirtualFrame;
import com.oracle.truffle.api.nodes.Node;
import xyz.ctsk.lox.nodes.LoxExpressionNode;
import com.oracle.truffle.api.dsl.Fallback;
import com.oracle.truffle.api.dsl.Specialization;
import xyz.ctsk.lox.LoxException;
public class LoxAddNode extends LoxExpressionNode {
@SuppressWarnings("FieldMayBeFinal")
@Node.Child
private LoxExpressionNode leftNode, rightNode;
public LoxAddNode(LoxExpressionNode leftNode, LoxExpressionNode rightNode) {
this.leftNode = leftNode;
this.rightNode = rightNode;
public abstract class LoxAddNode extends LoxBinaryNode {
@Specialization
public double add(double left, double right) {
return left + right;
}
@Override
public double executeDouble(VirtualFrame frame) {
var leftValue = leftNode.executeDouble(frame);
var rightValue = rightNode.executeDouble(frame);
return leftValue + rightValue;
@Fallback
protected Object typeError(Object left, Object right) {
throw LoxException.typeError(this, left, right);
}
}

9
jlox/tlox/src/main/java/xyz/ctsk/lox/nodes/expr/LoxBinaryNode.java Normal file
View File

@@ -0,0 +1,9 @@
package xyz.ctsk.lox.nodes.expr;
import com.oracle.truffle.api.dsl.NodeChild;
import xyz.ctsk.lox.nodes.LoxExpressionNode;
@NodeChild("leftValue")
@NodeChild("rightValue")
public abstract class LoxBinaryNode extends LoxExpressionNode {
}

26
jlox/tlox/src/main/java/xyz/ctsk/lox/nodes/expr/LoxDivNode.java
View File

@@ -1,22 +1,18 @@
package xyz.ctsk.lox.nodes.expr;
import com.oracle.truffle.api.frame.VirtualFrame;
import xyz.ctsk.lox.nodes.LoxExpressionNode;
import com.oracle.truffle.api.dsl.Fallback;
import com.oracle.truffle.api.dsl.Specialization;
import xyz.ctsk.lox.LoxException;
public class LoxDivNode extends LoxExpressionNode {
@SuppressWarnings("FieldMayBeFinal")
@Child
private LoxExpressionNode leftNode, rightNode;
public LoxDivNode(LoxExpressionNode leftNode, LoxExpressionNode rightNode) {
this.leftNode = leftNode;
this.rightNode = rightNode;
public abstract class LoxDivNode extends LoxBinaryNode {
@Specialization
public double div(double left, double right) {
return left / right;
}
@Override
public double executeDouble(VirtualFrame frame) {
var leftValue = leftNode.executeDouble(frame);
var rightValue = rightNode.executeDouble(frame);
return leftValue / rightValue;
@Fallback
protected Object typeError(Object left, Object right) {
throw LoxException.typeError(this, left, right);
}
}

26
jlox/tlox/src/main/java/xyz/ctsk/lox/nodes/expr/LoxMulNode.java
View File

@@ -1,22 +1,18 @@
package xyz.ctsk.lox.nodes.expr;
import com.oracle.truffle.api.frame.VirtualFrame;
import xyz.ctsk.lox.nodes.LoxExpressionNode;
import com.oracle.truffle.api.dsl.Fallback;
import com.oracle.truffle.api.dsl.Specialization;
import xyz.ctsk.lox.LoxException;
public class LoxMulNode extends LoxExpressionNode {
@SuppressWarnings("FieldMayBeFinal")
@Child
private LoxExpressionNode leftNode, rightNode;
public LoxMulNode(LoxExpressionNode leftNode, LoxExpressionNode rightNode) {
this.leftNode = leftNode;
this.rightNode = rightNode;
public abstract class LoxMulNode extends LoxBinaryNode {
@Specialization
public double mul(double left, double right) {
return left * right;
}
@Override
public double executeDouble(VirtualFrame frame) {
var leftValue = leftNode.executeDouble(frame);
var rightValue = rightNode.executeDouble(frame);
return leftValue * rightValue;
@Fallback
protected Object typeError(Object left, Object right) {
throw LoxException.typeError(this, left, right);
}
}

5
jlox/tlox/src/main/java/xyz/ctsk/lox/nodes/expr/LoxNumberLiteralNode.java
View File

@@ -13,4 +13,9 @@ public class LoxNumberLiteralNode extends LoxExpressionNode {
public double executeDouble(VirtualFrame frame) {
return this.value;
}
@Override
public Object executeGeneric(VirtualFrame frame) {
return this.value;
}
}

26
jlox/tlox/src/main/java/xyz/ctsk/lox/nodes/expr/LoxSubNode.java
View File

@@ -1,22 +1,18 @@
package xyz.ctsk.lox.nodes.expr;
import com.oracle.truffle.api.frame.VirtualFrame;
import xyz.ctsk.lox.nodes.LoxExpressionNode;
import com.oracle.truffle.api.dsl.Fallback;
import com.oracle.truffle.api.dsl.Specialization;
import xyz.ctsk.lox.LoxException;
public class LoxSubNode extends LoxExpressionNode {
@SuppressWarnings("FieldMayBeFinal")
@Child
private LoxExpressionNode leftNode, rightNode;
public LoxSubNode(LoxExpressionNode leftNode, LoxExpressionNode rightNode) {
this.leftNode = leftNode;
this.rightNode = rightNode;
public abstract class LoxSubNode extends LoxBinaryNode {
@Specialization
public double sub(double left, double right) {
return left - right;
}
@Override
public double executeDouble(VirtualFrame frame) {
var leftValue = leftNode.executeDouble(frame);
var rightValue = rightNode.executeDouble(frame);
return leftValue - rightValue;
@Fallback
protected Object typeError(Object left, Object right) {
throw LoxException.typeError(this, left, right);
}
}

8
jlox/tlox/src/main/java/xyz/ctsk/lox/parser/LoxNodeFactory.java
View File

@@ -12,10 +12,10 @@ public class LoxNodeFactory {
public static LoxExpressionNode createBinaryNode(Token op, LoxExpressionNode left, LoxExpressionNode right) {
return switch (op.getText()) {
case "+" -> new LoxAddNode(left, right);
case "-" -> new LoxSubNode(left, right);
case "*" -> new LoxMulNode(left, right);
case "/" -> new LoxDivNode(left, right);
case "+" -> LoxAddNodeGen.create(left, right);
case "-" -> LoxSubNodeGen.create(left, right);
case "*" -> LoxMulNodeGen.create(left, right);
case "/" -> LoxDivNodeGen.create(left, right);
default -> null;
};
}

2
jlox/tlox/src/main/resources/xyz/ctsk/lox/parser/Lox.g4
View File

@@ -28,7 +28,7 @@ file returns [LoxExpressionNode result]
;
expression returns [LoxExpressionNode result]
: literal { $result = $literal.result; }
: literal { $result = $literal.result; }
| left=expression op=( '*' | '/' ) right=expression { $result = factory.createBinaryNode($op, $left.result, $right.result); }
| left=expression op=( '+' | '-' ) right=expression { $result = factory.createBinaryNode($op, $left.result, $right.result); }
;