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
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

extern crate ctrlc;
extern crate rustyline;
use crate::mach::{Event, Runtime};
use rustyline::error::ReadlineError;
use rustyline::Editor;

use std::sync::atomic::{AtomicBool, Ordering};
use std::sync::Arc;

pub fn main() {
    let interrupted = Arc::new(AtomicBool::new(false));
    let int_moved = interrupted.clone();
    ctrlc::set_handler(move || {
        int_moved.store(true, Ordering::SeqCst);
    })
    .expect("Error setting Ctrl-C handler");
    main_loop(interrupted);
}

fn main_loop(interrupted: Arc<AtomicBool>) {
    let mut editor = Editor::<()>::new();
    let mut runtime = Runtime::new();

    loop {
        if interrupted.load(Ordering::SeqCst) {
            runtime.interrupt();
            interrupted.store(false, Ordering::SeqCst);
        };
        match runtime.execute(5000) {
            Event::Stopped => {
                match editor.readline("") {
                    Ok(input) => {
                        runtime.enter(&input);
                    }
                    Err(ReadlineError::Interrupted) => {
                        //print!("^C");
                    }
                    Err(ReadlineError::Eof) => {
                        break;
                    }
                    Err(err) => {
                        eprintln!("{:?}", err);
                        break;
                    }
                }
            }
            Event::Errors(errors) => {
                for error in errors.iter() {
                    println!("{}", error);
                }
            }
            Event::Print(s) => {
                print!("{}",s);
            }
            Event::List((s, _columns)) => {
                println!("{}", s);
            }
            Event::Running => {}
        }
    }
}