rspl 0.1.3

A stream processor language.
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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99

use rspl::streams::overeager_receivers::OvereagerReceiver;
use rspl::streams::Stream;
use rspl::StreamProcessor;

use std::thread;
use std::time::Duration;

#[test]
fn test_events() {
    const RUNS_REFERENCE: usize = 9;

    const CHANNEL_SIZE: usize = 100;
    const INPUT_LATENCY: u64 = 100; // in millis

    #[derive(Copy, Clone)]
    enum Event {
        ShiftDepressed,
        ShiftReleased,
        Key(u8),
    }

    fn key_action(sign: char, c: u8) -> bool {
        if c == 0 {
            false
        } else {
            println!("{}{}", sign, c);
            true
        }
    }

    // the state where shift is released
    fn default<'a>() -> StreamProcessor<'a, Event, bool> {
        fn transition<'a>(event: Event) -> StreamProcessor<'a, Event, bool> {
            match event {
                Event::ShiftDepressed => StreamProcessor::put(true, shifted),
                Event::ShiftReleased => default(),
                Event::Key(c) => StreamProcessor::put(key_action('+', c), default),
            }
        }

        StreamProcessor::get(transition)
    }

    // the state where shift is depressed
    fn shifted<'a>() -> StreamProcessor<'a, Event, bool> {
        fn transition<'a>(event: Event) -> StreamProcessor<'a, Event, bool> {
            match event {
                Event::ShiftDepressed => shifted(),
                Event::ShiftReleased => StreamProcessor::put(true, default),
                Event::Key(c) => StreamProcessor::put(key_action('-', c), shifted),
            }
        }

        StreamProcessor::get(transition)
    }

    fn looping<S>(mut body: S) -> usize
    where
        S: Stream<bool>,
    {
        let mut n = 0;

        while *body.head() {
            body = body.tail();
            n += 1;
        }

        n
    }

    let (tevents, events) = OvereagerReceiver::channel(CHANNEL_SIZE, Event::ShiftReleased);

    let input_simulator = thread::spawn(move || {
        let events = [
            Event::Key(1),
            Event::ShiftDepressed,
            Event::Key(1),
            Event::Key(5),
            Event::ShiftReleased,
            Event::Key(5),
            Event::Key(7),
            Event::ShiftReleased,
            Event::Key(3),
            Event::ShiftDepressed,
            Event::Key(0),
        ];

        for event in events {
            thread::sleep(Duration::from_millis(INPUT_LATENCY));
            tevents.send(event).unwrap();
        }
    });

    let runs = looping(default().eval(events));

    input_simulator.join().unwrap();

    assert_eq!(runs, RUNS_REFERENCE);
}