parze 0.7.3

A clean, efficient parser combinator
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
63

#![cfg(feature = "macros")]
#![feature(proc_macro_hygiene)]

use parze::prelude::*;

#[test]
fn brainfuck() {
    #[derive(Clone, Debug, PartialEq)]
    enum Instr {
        Add,
        Sub,
        Left,
        Right,
        In,
        Out,
        Loop(Vec<Instr>),
    }

    parsers! {
        bf: Parser<_, _> = {
            ( '+' -> { Instr::Add }
            | '-' -> { Instr::Sub }
            | '<' -> { Instr::Left }
            | '>' -> { Instr::Right }
            | ',' -> { Instr::In }
            | '.' -> { Instr::Out }
            | '[' -& bf &- ']' => { |i| Instr::Loop(i) }
            )*
        }
    }

    let program_src = "++++[->++++<]>[->++++<]>.";

    let program_tgt = vec![ // Prints '@'
        Instr::Add,
        Instr::Add,
        Instr::Add,
        Instr::Add,
        Instr::Loop(vec![
            Instr::Sub,
            Instr::Right,
            Instr::Add,
            Instr::Add,
            Instr::Add,
            Instr::Add,
            Instr::Left,
        ]),
        Instr::Right,
        Instr::Loop(vec![
            Instr::Sub,
            Instr::Right,
            Instr::Add,
            Instr::Add,
            Instr::Add,
            Instr::Add,
            Instr::Left,
        ]),
        Instr::Right,
        Instr::Out,
    ];

    assert_eq!(bf.parse(&program_src.chars().collect::<Vec<_>>()), Ok(program_tgt));
}