func translateBinaryExpr(node *ast.BinaryExprNode) core.CoreExpr {
left := translateExpr(node.Left)
right := translateExpr(node.Right)
var oper string
switch node.Op {
case token.ADD:
oper = "+"
case token.SUB:
oper = "-"
case token.MUL:
oper = "*"
case token.QUO:
oper = "/"
case token.REM:
oper = "%"
case token.EQL:
oper = "=="
case token.LSS:
oper = "<"
case token.GTR:
oper = ">"
default:
oper = ""
}
fmt.Println("BinaryExpr: ", left, oper, right)
return core.EAp{core.EAp{core.EVar(oper), left}, right} // TODO: Incomplete fn require support of prelude in core-ast
}
func translateVariable(node *ast.VariableNode) core.CoreExpr {
return core.EVar(node.Ident)
}