frustration/frustration.rs

use std::io;
use std::convert::TryFrom;

//const CORE_SIZE: usize = 32640;
const CORE_SIZE: usize = 128;

#[derive(Debug)]
struct Core {
    ram: [u16; CORE_SIZE],
    ip: usize,
    dstack: [u16; 64],
    tds: usize,
    rstack: [u16; 64],
    trs: usize
}

fn new_core() -> Core {
    return Core { ram: [0; CORE_SIZE], ip: 0,
                  dstack: [0; 64], tds: 0,
                  rstack: [0; 64], trs: 0 };
}

fn push(c: &mut Core, val: u16) {
    c.dstack[c.tds] = val;
    c.tds += 1;
}

fn pop(c: &mut Core) -> u16 {
    c.tds -= 1;
    return c.dstack[c.tds];
}

fn to_r(c: &mut Core, val: u16) {
    c.rstack[c.trs] = val;
    c.trs += 1;
}

fn from_r(c: &mut Core) -> u16 {
    c.trs -= 1;
    return c.rstack[c.trs];
}

fn call(c: &mut Core, val: u16) {
    to_r(c, u16::try_from(c.ip).unwrap());  // or panic
    c.ip = val as usize;
}

fn ret(c: &mut Core) {
    c.ip = from_r(c) as usize;
}

fn store(c: &mut Core) {
    let addr = pop(c);
    let val = pop(c);
    c.ram[addr as usize] = val;
}

fn load(c: &mut Core) {
    let addr = pop(c);
    push(c, c.ram[addr as usize]);
}

fn add(c: &mut Core) {
    let v1 = pop(c);
    let v2 = pop(c);
    push(c, v1 + v2);
}

fn sub(c: &mut Core) {
    let v1 = pop(c);
    let v2 = pop(c);
    push(c, v2 - v1);
}

fn mul(c: &mut Core) {
    let v1 = pop(c);
    let v2 = pop(c);
    push(c, v1 * v2);
}

fn div(c: &mut Core) {
    let v1 = pop(c);
    let v2 = pop(c);
    push(c, v2 / v1);
}

fn dot(c: &mut Core) {
    print!("{} ", pop(c));
}

fn outer(c: &mut Core, s: &str) {
    let ss = s.trim();
    let tokens = ss.split(" ");
    for t in tokens {
        match t {
            "+" => {
                add(c);
            },
            "-" => {
                sub(c);
            },
            "*" => {
                mul(c);
            },
            "/" => {
                div(c);
            },
            "@" => {
                load(c);
            },
            "!" => {
                store(c);
            },
            "." => {
                dot(c);
            },
            _ => {
                let val = t.parse::<u16>();
                match val {
                    Ok(n) => { push(c, n) }
                    Err(_) => { if t != "" { println!("{}?", t) }}
                }
            }
        }
    }
}

fn main() {
    let mut c = new_core();
    loop {
        let mut buf = String::new();
        match io::stdin().read_line(&mut buf) {
            Ok(_) => { outer(&mut c, &buf); println!(" ok");}
            Err(_) => { break; }
        }
    }
    //push(&mut c, 56); push(&mut c, 9); mul(&mut c); dot(&mut c);
    //let v = pop(&mut c); call(&mut c, v);
    println!("{:?}", c);
}