kamo 0.9.2

A library to assist in the creation of an interpreter or compiler and its associated runtime.
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
100
101
102
103
104
105
106
107
108
109
110
111
112

use regex::Regex;

use crate::parser::{code, Input, ParseError, ParseResult};

use super::CharacterError;

/// Matches a sequence that matches the given regular expression.
///
/// # Examples
///
/// ```rust
/// # use kamo::{Position, parser::{prelude::*, CharacterError, code, Input}};
/// # use regex::Regex;
/// let regex = Regex::new(r"^[a-z]+").unwrap();
/// let (output, input) = match_re(&regex)(Input::new("hello world")).expect("valid output");
///
/// assert_eq!(output, "hello");
/// assert_eq!(input, Input::from(" world"));
/// assert_eq!(input.position(), Position::new(5, 1, 6));
/// assert_eq!(input.current(), Some(' '));
///
/// let regex = Regex::new(r"^#t(rue)?").unwrap();
/// let error = match_re(&regex)(Input::new("#f")).expect_err("error output");
///
/// assert_eq!(error, ParseError::new(
///     Position::new(0, 1, 1),
///     code::ERR_REGEX,
///     CharacterError::Regex(regex.to_string())
/// ));
/// ```
pub fn match_re(regex: &Regex) -> impl for<'a> Fn(Input<'a>) -> ParseResult<'a, &'a str> + '_ {
    move |input| match regex.find(input.as_str()) {
        Some(m) => {
            if m.is_empty() {
                return Ok(("", input));
            }

            let mut cursor = input;
            let matched = &input.as_str()[..m.end()];

            for _ in matched.chars() {
                cursor.advance();
            }
            Ok((matched, cursor))
        }
        None => Err(ParseError::new(
            input,
            code::ERR_REGEX,
            CharacterError::Regex(regex.to_string()),
        )),
    }
}

#[cfg(test)]
mod tests {
    use crate::Position;

    use super::*;

    #[test]
    fn match_re_success() {
        let regex = Regex::new(r"^[a-z]+").unwrap();
        let (value, input) = match_re(&regex)(Input::new("hello world")).expect("valid output");

        assert_eq!(value, "hello");
        assert_eq!(input, Input::from(" world"));
        assert_eq!(input.position(), Position::new(5, 1, 6));
        assert_eq!(input.current(), Some(' '));

        let regex = Regex::new(r"^#t(rue)?").unwrap();
        let (value, input) = match_re(&regex)(Input::new("#t")).expect("valid output");

        assert_eq!(value, "#t");
        assert_eq!(input, Input::from(""));
        assert_eq!(input.position(), Position::new(2, 1, 3));
        assert_eq!(input.current(), None);

        let (value, input) = match_re(&regex)(Input::new("#true")).expect("valid output");

        assert_eq!(value, "#true");
        assert_eq!(input, Input::from(""));
        assert_eq!(input.position(), Position::new(5, 1, 6));
        assert_eq!(input.current(), None);
    }

    #[test]
    fn match_re_failure() {
        let regex = Regex::new(r"^[a-z]+").unwrap();
        let error = match_re(&regex)(Input::new("123 hello world"));

        assert_eq!(
            error,
            Err(ParseError::new(
                Position::new(0, 1, 1),
                code::ERR_REGEX,
                CharacterError::Regex(regex.to_string())
            ))
        );

        let regex = Regex::new(r"^#t(rue)?$").unwrap();
        let error = match_re(&regex)(Input::new("#tr"));

        assert_eq!(
            error,
            Err(ParseError::new(
                Position::new(0, 1, 1),
                code::ERR_REGEX,
                CharacterError::Regex(regex.to_string())
            ))
        );
    }
}