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

Strip comments in preparation for making a REAL writeup

Browse source
This commit is contained in:
psf 2022-05-18 20:20:08 -07:00
parent 0ea3d6e148
commit 8137ccd602
1 changed files with 1 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
frustration.rs
View file

@ -1,6 +1,3 @@
/* --- The virtual CPU ---
*/
use std::io; use std::io;
use std::io::Read; use std::io::Read;
use std::io::Write; use std::io::Write;
@ -171,18 +168,6 @@ const PRIMITIVES: [Primitive; 16] = [
} }
]; ];
/* --- The memory map ---
*/
/* --- The dictionary format ---
*/
/* --- The threading kind ---
*/
/* --- Create the dictionary ---
*/
struct Dict<'a> { struct Dict<'a> {
dp: u16, dp: u16,
here: u16, here: u16,
@ -344,8 +329,7 @@ fn build_dictionary(c: &mut Core) {
d.entry(); d.name(1, *b"' "); d.entry(); d.name(1, *b"' ");
forth!(word, find, RET); forth!(word, find, RET);
/* --- The outer interpreter --- /* --- The outer interpreter --- */
*/
// x10 ( n -- n*10 ) // x10 ( n -- n*10 )
d.entry(); d.name(3, *b"x10"); let x10 = d.here; d.entry(); d.name(3, *b"x10"); let x10 = d.here;