piske 0.1.2

The piske programming langauge for generative art
Documentation 
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

extern crate piske;
extern crate sindra;

use sindra::Node;

use piske::parse::{expression};
use piske::ast::ast::*;

include!("macros.rs");

#[test]
fn test_infix() {

    assert_eq!(expression("2 + 3"), Ok(add!(int!(2), int!(3))));
    assert_eq!(expression("2 +3"), Ok(add!(int!(2), int!(3))));
    assert_eq!(expression("2+ 3"), Ok(add!(int!(2), int!(3))));
    assert_eq!(expression("1 + 2 * 3"), Ok(add!(int!(1), multiply!(int!(2), int!(3)))));
    assert_eq!(expression("(1 + 2) * 3"), Ok(multiply!(add!(int!(1), int!(2)), int!(3))));
    assert_eq!(expression("1 - 2 + 3"), Ok(add!(subtract!(int!(1), int!(2)), int!(3))));
    assert_eq!(expression("1 * (2 + 3) / 4"),
        Ok(divide!(multiply!(int!(1), add!(int!(2), int!(3))), int!(4))));

    assert_eq!(expression("(1 + 2) * (3 + 4)"),
        Ok(multiply!(add!(int!(1), int!(2)), add!(int!(3), int!(4)))));
    assert_eq!(expression("1 + 2 * 3 + 4"),
        Ok(add!(add!(int!(1), multiply!(int!(2), int!(3))), int!(4))));

    assert_eq!(expression("(1 + 3)"), Ok(add!(int!(1), int!(3))));
    assert_eq!(expression("(1 * (2 + 3))"), Ok(multiply!(int!(1), add!(int!(2), int!(3)))));
    assert_eq!(expression("(1 * (2 + (3 - 4)))"),
        Ok(multiply!(int!(1), add!(int!(2), subtract!(int!(3), int!(4))))));

    assert_eq!(expression("1 + 2 + 3"), Ok(add!(add!(int!(1), int!(2)), int!(3))));
    assert_eq!(expression("1 + (2 + 3)"), Ok(add!(int!(1), add!(int!(2), int!(3)))));
}

#[test]
fn test_prefix() {
    assert_eq!(expression("-2"), Ok(uminus!(int!(2))));
    assert_eq!(expression(" - 2"), Ok(uminus!(int!(2))));
    assert_eq!(expression(" -2"), Ok(uminus!(int!(2))));
    assert_eq!(expression("- 2"), Ok(uminus!(int!(2))));

    assert_eq!(expression("+2"), Ok(uplus!(int!(2))));

    assert_eq!(expression("-2 + 4"), Ok(add!(uminus!(int!(2)), int!(4))));
    assert_eq!(expression("-(2 + 4)"), Ok(uminus!(add!(int!(2), int!(4)))));
}

#[test]
fn test_conjugate() {
    assert_eq!(expression("2`"), Ok(conj!(int!(2))));
    assert_eq!(expression("2` * 3"), Ok(multiply!(conj!(int!(2)), int!(3))));
    assert_eq!(expression("2 * 3`"), Ok(multiply!(int!(2), conj!(int!(3)))));
}