a2kit 4.4.2

Retro disk image and language utility
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

use tree_sitter;

fn test_assign_expr(text: &str,expected: f64) {
    let symbols = super::super::Symbols::new();
	let mut parser = tree_sitter::Parser::new();
	parser.set_language(&tree_sitter_applesoft::LANGUAGE.into()).expect("failed to init");
    let tree = parser.parse(text,None).unwrap();
    let mut curs = tree.walk();
    curs.goto_first_child(); // line
    curs.goto_first_child(); // linenum
    curs.goto_next_sibling(); // statement
    curs.goto_first_child(); // assignment
    curs.goto_last_child(); // expression
    let actual = super::super::diagnostics::expression::eval_aexpr(&curs.node(), text, &symbols).expect("expression failed");
    assert!((actual - expected).abs() < 1e-9);
}

#[test]
fn unary() {
    test_assign_expr("10 x = -1.5\n",-1.5);
    test_assign_expr("10 x = -1.5 + 2.1\n",0.6);
    test_assign_expr("10 x = -(1.5+2.1)\n",-3.6);
}

#[test]
fn simple_binary() {
    test_assign_expr("10 x = 1.5 + 2.1\n",3.6);
    test_assign_expr("10 x = 1.5 - 2.1\n",-0.6);
    test_assign_expr("10 x = 5 * 9\n",45.);
    test_assign_expr("10 x = 1 / 4\n",0.25);
}

#[test]
fn simple_prec() {
    test_assign_expr("10 x = 1.5 + 2.1 * 2\n",5.7);
    test_assign_expr("10 x = 1.5 - 2.1 * 2\n",-2.7);
    test_assign_expr("10 x = 5 + 2 / 5\n",5.4);
}

#[test]
fn logic_vals() {
    test_assign_expr("10 x = 1.5e3 > 1.0\n",1.);
    test_assign_expr("10 x = 1.5e3 < 1.0\n",0.);
    test_assign_expr("10 x = 1.5e-3 >= 1.0\n",0.);
    test_assign_expr("10 x = 1.5e-3 <= 1.0\n",1.);
    test_assign_expr("10 x = 1.5e-3 <> 1.0\n",1.);
    test_assign_expr("10 x = 1.0 >< 1.0\n",0.);
}

#[test]
fn funcs() {
    test_assign_expr("10 x = 3 * (3 + cos((5-2)*exp(1)))", 8.11096390481864);
}