basic-lang 0.2.0

The BASIC programming language as it was in 1978.
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

use crate::mach::{Event, Runtime};

mod expr_test;
mod for_test;

fn run(runtime: &mut Runtime) -> String {
    run_cycles(runtime, 5000)
}

fn run_cycles(runtime: &mut Runtime, cycles: usize) -> String {
    let mut s = String::new();
    loop {
        match runtime.execute(cycles) {
            Event::Stopped => {
                break;
            }
            Event::Errors(errors) => {
                for error in errors.iter() {
                    s.push_str(&format!("{}\n", error));
                }
            }
            Event::Running => {
                s.push_str(&format!("\n{} Execution cycles exceeded.\n", cycles));
                break;
            }
            Event::Print(ps) => {
                s.push_str(&ps);
            }
            Event::List((ls, _columns)) => {
                s.push_str(&format!("{}\n", ls));
            }
        }
    }
    s.trim_end_matches("READY.\n").to_string()
}