|
| 1 | +use crate::error::Error; |
| 2 | +use crate::syntax::{Expr, LiteralValue, Visitor}; |
| 3 | +use crate::token::{Token, TokenType}; |
| 4 | + |
| 5 | +/// A simple representation of an Lox object akin to a Java `Object`. |
| 6 | +enum Object { |
| 7 | + Boolean(bool), |
| 8 | + Null, |
| 9 | + Number(f64), |
| 10 | + String(String), |
| 11 | +} |
| 12 | + |
| 13 | +impl Object { |
| 14 | + fn equals(&self, other: &Object) -> bool { |
| 15 | + match (self, other) { |
| 16 | + (Object::Null, Object::Null) => true, |
| 17 | + (_, Object::Null) => false, |
| 18 | + (Object::Null, _) => false, |
| 19 | + (Object::Boolean(left), Object::Boolean(right)) => left == right, |
| 20 | + (Object::Number(left), Object::Number(right)) => left == right, |
| 21 | + (Object::String(left), Object::String(right)) => left.eq(right), |
| 22 | + _ => false, |
| 23 | + } |
| 24 | + } |
| 25 | +} |
| 26 | + |
| 27 | +pub struct Interpreter; |
| 28 | + |
| 29 | +impl Interpreter { |
| 30 | + pub fn interpret(&self, expression: &Expr) -> Result<String, Error> { |
| 31 | + self.evaluate(expression).map(|value| self.stringify(value)) |
| 32 | + } |
| 33 | + |
| 34 | + fn evaluate(&self, expression: &Expr) -> Result<Object, Error> { |
| 35 | + expression.accept(self) |
| 36 | + } |
| 37 | + |
| 38 | + fn is_truthy(&self, object: &Object) -> bool { |
| 39 | + match object { |
| 40 | + Object::Null => false, |
| 41 | + Object::Boolean(b) => b.clone(), |
| 42 | + _ => true, |
| 43 | + } |
| 44 | + } |
| 45 | + |
| 46 | + fn is_equal(&self, left: &Object, right: &Object) -> bool { |
| 47 | + left.equals(right) |
| 48 | + } |
| 49 | + |
| 50 | + fn stringify(&self, object: Object) -> String { |
| 51 | + match object { |
| 52 | + Object::Null => "nil".to_string(), |
| 53 | + Object::Number(n) => n.to_string(), |
| 54 | + Object::Boolean(b) => b.to_string(), |
| 55 | + Object::String(s) => s, |
| 56 | + } |
| 57 | + } |
| 58 | + |
| 59 | + /// Equivalent to checkNumberOperands |
| 60 | + fn number_operand_error<R>(&self, operator: &Token) -> Result<R, Error> { |
| 61 | + Err(Error::Runtime { |
| 62 | + token: operator.clone(), |
| 63 | + message: "Operand must be a number.".to_string(), |
| 64 | + }) |
| 65 | + } |
| 66 | +} |
| 67 | + |
| 68 | +impl Visitor<Object> for Interpreter { |
| 69 | + fn visit_binary_expr( |
| 70 | + &self, |
| 71 | + left: &Expr, |
| 72 | + operator: &Token, |
| 73 | + right: &Expr, |
| 74 | + ) -> Result<Object, Error> { |
| 75 | + let l = self.evaluate(left)?; |
| 76 | + let r = self.evaluate(right)?; |
| 77 | + |
| 78 | + match &operator.tpe { |
| 79 | + TokenType::Greater => match (l, r) { |
| 80 | + (Object::Number(left_number), Object::Number(right_number)) => { |
| 81 | + Ok(Object::Boolean(left_number > right_number)) |
| 82 | + } |
| 83 | + _ => self.number_operand_error(operator), |
| 84 | + }, |
| 85 | + TokenType::GreaterEqual => match (l, r) { |
| 86 | + (Object::Number(left_number), Object::Number(right_number)) => { |
| 87 | + Ok(Object::Boolean(left_number >= right_number)) |
| 88 | + } |
| 89 | + _ => self.number_operand_error(operator), |
| 90 | + }, |
| 91 | + TokenType::Less => match (l, r) { |
| 92 | + (Object::Number(left_number), Object::Number(right_number)) => { |
| 93 | + Ok(Object::Boolean(left_number < right_number)) |
| 94 | + } |
| 95 | + _ => self.number_operand_error(operator), |
| 96 | + }, |
| 97 | + TokenType::LessEqual => match (l, r) { |
| 98 | + (Object::Number(left_number), Object::Number(right_number)) => { |
| 99 | + Ok(Object::Boolean(left_number <= right_number)) |
| 100 | + } |
| 101 | + _ => self.number_operand_error(operator), |
| 102 | + }, |
| 103 | + TokenType::Minus => match (l, r) { |
| 104 | + (Object::Number(left_number), Object::Number(right_number)) => { |
| 105 | + Ok(Object::Number(left_number - right_number)) |
| 106 | + } |
| 107 | + _ => self.number_operand_error(operator), |
| 108 | + }, |
| 109 | + TokenType::Plus => match (l, r) { |
| 110 | + (Object::Number(left_number), Object::Number(right_number)) => { |
| 111 | + Ok(Object::Number(left_number + right_number)) |
| 112 | + } |
| 113 | + (Object::String(left_string), Object::String(right_string)) => { |
| 114 | + Ok(Object::String(left_string.clone() + &right_string)) |
| 115 | + } |
| 116 | + _ => Err(Error::Runtime { |
| 117 | + token: operator.clone(), |
| 118 | + message: "Operands must be two numbers or two strings.".to_string(), |
| 119 | + }), |
| 120 | + }, |
| 121 | + TokenType::Slash => match (l, r) { |
| 122 | + (Object::Number(left_number), Object::Number(right_number)) => { |
| 123 | + Ok(Object::Number(left_number / right_number)) |
| 124 | + } |
| 125 | + _ => self.number_operand_error(operator), |
| 126 | + }, |
| 127 | + TokenType::Star => match (l, r) { |
| 128 | + (Object::Number(left_number), Object::Number(right_number)) => { |
| 129 | + Ok(Object::Number(left_number * right_number)) |
| 130 | + } |
| 131 | + _ => self.number_operand_error(operator), |
| 132 | + }, |
| 133 | + TokenType::BangEqual => Ok(Object::Boolean(!self.is_equal(&l, &r))), |
| 134 | + TokenType::EqualEqual => Ok(Object::Boolean(self.is_equal(&l, &r))), |
| 135 | + _ => unreachable!(), |
| 136 | + } |
| 137 | + } |
| 138 | + |
| 139 | + fn visit_grouping_expr(&self, expr: &Expr) -> Result<Object, Error> { |
| 140 | + self.evaluate(expr) |
| 141 | + } |
| 142 | + |
| 143 | + fn visit_literal_expr(&self, value: &LiteralValue) -> Result<Object, Error> { |
| 144 | + match value { |
| 145 | + LiteralValue::Boolean(b) => Ok(Object::Boolean(b.clone())), |
| 146 | + LiteralValue::Null => Ok(Object::Null), |
| 147 | + LiteralValue::Number(n) => Ok(Object::Number(n.clone())), |
| 148 | + LiteralValue::String(s) => Ok(Object::String(s.clone())), |
| 149 | + } |
| 150 | + } |
| 151 | + |
| 152 | + fn visit_unary_expr(&self, operator: &Token, right: &Expr) -> Result<Object, Error> { |
| 153 | + let right = self.evaluate(right)?; |
| 154 | + |
| 155 | + match &operator.tpe { |
| 156 | + TokenType::Minus => match right { |
| 157 | + Object::Number(n) => Ok(Object::Number(-n.clone())), |
| 158 | + _ => self.number_operand_error(operator), |
| 159 | + }, |
| 160 | + TokenType::Bang => Ok(Object::Boolean(!self.is_truthy(&right))), // TODO: is_truthy could simply return an Object. |
| 161 | + _ => unreachable!(), // TODO: fail if right is not a number. |
| 162 | + } |
| 163 | + } |
| 164 | +} |
0 commit comments