Miroirs/frustration
1
0
Fork 0
mirror of https://gitlab.cs.washington.edu/fidelp/frustration.git synced 2024-12-25 21:58:11 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

get rid of special words understood by outer interpreter

Browse source
This commit is contained in:
psf 2022-03-26 21:11:55 -07:00
parent a6e611ad2f
commit 75304a0c82
1 changed files with 26 additions and 33 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

59
frustration.rs
View file

@ -1,6 +1,5 @@
use std::cmp;
use std::io;
use std::process;
//use std::process;
use std::convert::TryInto;
//const CORE_SIZE: usize = 65408
@ -40,7 +39,6 @@ fn truncate_name(name: &str) -> ShortName {
let n = std::cmp::min(3, out.length) as usize;
out.bytes[0..n].copy_from_slice(&name_bytes[0..n]);
return out;
}
struct TableEntry {
@ -49,11 +47,12 @@ struct TableEntry {
immediate: bool
}
const PRIMITIVES: [TableEntry; 13] = [
const PRIMITIVES: [TableEntry; 14] = [
TableEntry {f: ret , name: None, immediate: false},
TableEntry {f: lit , name: None, immediate: false},
TableEntry {f: call , name: Some(ShortName {bytes: *b"cal", length: 4}), immediate: false},
TableEntry {f: dot , name: Some(ShortName {bytes: *b". ", length: 1}), immediate: false},
TableEntry {f: dump , name: Some(ShortName {bytes: *b"dum", length: 4}), immediate: false},
TableEntry {f: comma_ , name: Some(ShortName {bytes: *b", ", length: 1}), immediate: false},
TableEntry {f: store , name: Some(ShortName {bytes: *b"! ", length: 1}), immediate: false},
TableEntry {f: load , name: Some(ShortName {bytes: *b"@ ", length: 1}), immediate: false},
@ -181,9 +180,6 @@ fn call(c: &mut Core) {
// note: this is an inline primitive, not a dict entry
fn ret(c: &mut Core) {
if c.trs == 0 {
}
c.ip = from_r(c);
}
@ -228,6 +224,10 @@ fn dot(c: &mut Core) {
print!("{} ", pop(c));
}
fn dump(c: &mut Core) {
println!("{:?}", c);
}
// note: this is an inline primitive, not a dict entry
fn lit(c: &mut Core) {
let ip = c.ip as usize;
@ -273,35 +273,28 @@ fn outer(c: &mut Core, s: &str) {
let ss = s.trim();
let tokens = ss.split(" ");
for t in tokens {
match t {
"dmp" => {
println!("{:?}", c);
},
_ => {
match find(c, truncate_name(t)) {
Some(addr) => {
if c.state == State::Interpreting || is_immediate(c, addr) {
c.ip = addr;
inner(c);
} else {
comma(c, addr);
}
}
None => {
let val = t.parse::<u16>();
match val {
Ok(n) => {
match c.state {
State::Interpreting => { push(c, n) }
State::Compiling => {
comma(c, 65534); // lit
comma(c, n);
}
}
match find(c, truncate_name(t)) {
Some(addr) => {
if c.state == State::Interpreting || is_immediate(c, addr) {
c.ip = addr;
inner(c);
} else {
comma(c, addr);
}
}
None => {
let val = t.parse::<u16>();
match val {
Ok(n) => {
match c.state {
State::Interpreting => { push(c, n) }
State::Compiling => {
comma(c, 65534); // lit
comma(c, n);
}
Err(_) => { if t != "" { println!("{}?", t) }}
}
}
Err(_) => { if t != "" { println!("{}?", t) }}
}
}
}