ferth 0.2.0

A safe, native-sized Forth. no_std compatible.
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
62

use criterion::{BatchSize, Criterion, criterion_group, criterion_main};
use ferth::{Ferth, host::NullHost};
use std::hint::black_box;

macro_rules! impl_bench {
    ($fn:ident, $label:literal, $file:literal, $expr:expr, $fe:expr) => {
        fn $fn(c: &mut Criterion) {
            c.bench_function($label, |b| {
                b.iter_batched(
                    || {
                        let mut fe = $fe;
                        for line in include_bytes!($file).split(|&b| b == b'\n') {
                            if !line.is_empty() {
                                fe.evaluate(line).unwrap();
                            }
                        }
                        fe
                    },
                    |mut fe| fe.evaluate(black_box($expr)).unwrap(),
                    BatchSize::SmallInput,
                )
            });
        }
    };
}

macro_rules! bench {
    ($fn:ident, $label:literal, $file:literal, $expr:expr) => {
        impl_bench!(
            $fn,
            $label,
            $file,
            $expr,
            Ferth::new([0u8; 65536], NullHost).unwrap()
        );
    };
}

bench!(fib, "forth/fib(20)", "fib.fth", b"20 fib drop");
bench!(
    rangesum,
    "forth/rangesum(1m)",
    "rangesum.fth",
    b"1000000 rangesum drop"
);
bench!(sieve, "forth/sieve(100)", "sieve.fth", b"100 sieve drop");
bench!(deepchain, "forth/deepchain", "deepchain.fth", b"0 f5 drop");
bench!(
    countdown,
    "forth/countdown(60)",
    "countdown.fth",
    b"60 countdown"
);
bench!(
    crc32,
    "forth/crc32(4k)",
    "crc32.fth",
    b"here 4096 erase here 4096 crc32 drop"
);

criterion_group!(benches, fib, rangesum, sieve, deepchain, countdown, crc32);
criterion_main!(benches);