1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

use crate::common::data::Data;
use crate::core::extract::binop;

// TODO: implement equality rather than just deriving PartialEq on Data.

// Rust hit it right on the nose with the difference between equality and partial equality
// TODO: equality vs partial equality in passerine?

/// Returns `true` if the `Data` are equal, false otherwise.
pub fn equal(data: Data) -> Result<Data, String> {
    let (left, right) = binop(data);
    Ok(Data::Boolean(left == right))
}

pub fn greater(data: Data) -> Result<Data, String> {
    // TODO: type coercion
    let result = match binop(data) {
        (Data::Real(left),    Data::Real(right))    => left > right,
        (Data::Integer(left), Data::Integer(right)) => left > right,
        _ => return Err("Expected two numbers of the same type".to_string()),
    };

    Ok(Data::Boolean(result))
}

pub fn less(data: Data) -> Result<Data, String> {
    // TODO: type coercion
    let result = match binop(data) {
        (Data::Real(left),    Data::Real(right))    => left < right,
        (Data::Integer(left), Data::Integer(right)) => left < right,
        _ => return Err("Expected two numbers of the same type".to_string()),
    };

    Ok(Data::Boolean(result))
}

pub fn greater_equal(data: Data) -> Result<Data, String> {
    // TODO: type coercion
    let result = match binop(data) {
        (Data::Real(left),    Data::Real(right))    => left >= right,
        (Data::Integer(left), Data::Integer(right)) => left >= right,
        _ => return Err("Expected two numbers of the same type".to_string()),
    };

    Ok(Data::Boolean(result))
}

pub fn less_equal(data: Data) -> Result<Data, String> {
    // TODO: type coercion
    let result = match binop(data) {
        (Data::Real(left),    Data::Real(right))    => left <= right,
        (Data::Integer(left), Data::Integer(right)) => left <= right,
        _ => return Err("Expected two numbers of the same type".to_string()),
    };

    Ok(Data::Boolean(result))
}