bottomspeak 0.2.0

An esoteric programming language for bottoms.
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82

#![cfg(test)]

use pretty_assertions::assert_eq;

use super::*;
use crate::lexer::Lexer;

#[test]
fn test_runtime_eval() -> crate::Result<()> {
    // source is irrelevant for this test
    let mut ctx = SourceContext::new("", "<test>")?;

    let mut lexer = Lexer::new(&mut ctx);
    lexer.lex_tokens();

    let mut sub = Subroutine::default();
    sub.emit_op(Op::new(OpCode::Push(8), 0..0));
    sub.emit_op(Op::new(OpCode::Push(16), 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Push(28), 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Push(1), 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Push(8), 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Push(3), 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Push(32), 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Push(12), 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Swap, 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Push(8), 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Push(11), 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Push(3), 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Duplicate, 0..0));
    sub.emit_op(Op::new(OpCode::Push(6), 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Push(1), 0..0));
    sub.emit_op(Op::new(OpCode::Add, 0..0));
    sub.emit_op(Op::new(OpCode::Print, 0..0));
    sub.emit_op(Op::new(OpCode::Return, 0..0));

    let submap = BTreeMap::from([("hawwo".to_string(), sub)]);

    let mut vm = Vm::new(&mut ctx, submap);
    vm.run()?;

    assert_eq!(vm.printed_output, "Hello, world!".to_string());

    Ok(())
}