wp-lang 0.3.0

WPL language crate with AST, parser, evaluator, builtins, and generators.
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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121

use super::super::prelude::*;
use crate::generator::FieldGenConf;
use crate::generator::{GenChannel, ParserValue};
use crate::parser::error::WplCodeResult;
use crate::parser::utils::{quot_r_str, quot_str, take_to_end, window_path};
use wp_model_core::model::DataField;
use wp_model_core::model::DataType;
use wp_model_core::model::FNameStr;
use wp_model_core::model::{DigitValue, Value};

use winnow::ascii::{dec_int, multispace0};
use winnow::combinator::alt;
use winnow::combinator::preceded;
use wp_primitives::Parser;
use wp_primitives::WResult as ModalResult;

use crate::eval::runtime::field::FieldEvalUnit;
use crate::eval::value::parse_def::PatternParser;

#[derive(Default)]
pub struct BoolP {}

impl ParserValue<DigitValue> for BoolP {
    fn parse_value<'a>(data: &mut &str) -> ModalResult<DigitValue> {
        preceded(multispace0, dec_int).parse_next(data)
    }
}

impl PatternParser for BoolP {
    fn pattern_parse<'a>(
        &self,
        _e_id: u64,
        _fpu: &FieldEvalUnit,
        _ups_sep: &WplSep,
        data: &mut &str,
        name: FNameStr,
        out: &mut Vec<DataField>,
    ) -> ModalResult<()> {
        multispace0.parse_next(data)?;
        let buffer = alt((quot_r_str, quot_str, window_path, take_to_end)).parse_next(data)?;
        if let Some(b) = str_to_bool(buffer) {
            out.push(DataField::new_opt(
                DataType::Bool,
                Some(name),
                Value::Bool(b),
            ));
        } else {
            fail.context(ctx_desc("str to bool")).parse_next(data)?;
        }
        Ok(())
    }

    fn patten_gen(
        &self,
        _gen: &mut GenChannel,
        f_conf: &WplField,
        _g_conf: Option<&FieldGenConf>,
    ) -> WplCodeResult<DataField> {
        Ok(DataField::from_bool(f_conf.safe_name(), false))
    }
}

fn str_to_bool(s: &str) -> Option<bool> {
    match s.to_lowercase().as_str() {
        "true" | "1" => Some(true),
        "false" | "0" => Some(false),
        _ => None,
    }
}

#[cfg(test)]
mod tests {
    use crate::ast::WplField;
    use crate::eval::value::parser::base::CharsP;
    use crate::eval::value::parser::protocol::json::JsonP;
    use crate::eval::value::test_utils::ParserTUnit;
    use crate::parser::error::WplCodeResult;
    use orion_error::dev::testing::TestAssert;

    use super::*;

    #[test]
    fn test_bool() -> WplCodeResult<()> {
        let mut data = "true";
        let conf = WplField::try_parse("bool").assert();
        let field = ParserTUnit::new(BoolP::default(), conf.clone())
            .verify_parse_suc_end(&mut data)
            .assert();
        assert_eq!(field[0], DataField::from_bool("bool", true));

        let mut data = "true";
        let conf = WplField::try_parse("chars").assert();
        let field = ParserTUnit::new(CharsP::default(), conf.clone())
            .verify_parse_suc_end(&mut data)
            .assert();
        assert_eq!(field[0], DataField::from_chars("chars", "true"));

        let mut data = "TRUE";
        let conf = WplField::try_parse("bool").assert();
        let field = ParserTUnit::new(BoolP::default(), conf.clone())
            .verify_parse_suc_end(&mut data)
            .assert();
        assert_eq!(field[0], DataField::from_bool("bool", true));

        let mut data = "1";
        let conf = WplField::try_parse("bool").assert();
        let field = ParserTUnit::new(BoolP::default(), conf)
            .verify_parse_suc_end(&mut data)
            .assert();
        assert_eq!(field[0], DataField::from_bool("bool", true));

        let mut data = r#"{"check":false}"#;
        let conf = WplField::try_parse("json(bool@check)").assert();
        let field = ParserTUnit::new(JsonP::default(), conf)
            .verify_parse_suc(&mut data)
            .assert();
        assert_eq!(field[0], DataField::from_bool("check", false));

        Ok(())
    }
}