pddl 0.1.0

A PDDL 3.1 parser, strongly typed
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

//! Provides parsers for f-exp-da values..

use nom::branch::alt;
use nom::bytes::complete::tag;
use nom::character::complete::{char, multispace0, multispace1};
use nom::combinator::map;
use nom::sequence::{preceded, tuple};

use crate::parsers::{parens, space_separated_list1, ParseResult, Span};
use crate::parsers::{parse_binary_op, parse_f_exp, parse_multi_op};
use crate::types::FExpDa;

/// Parses an f-exp-da.
///
/// ## Example
/// ```
/// # use pddl::parsers::{parse_f_exp_da, preamble::*};
/// # use pddl::{BinaryOp, FExpDa, FExp, FunctionSymbol, MultiOp};
/// assert!(parse_f_exp_da("?duration").is_value(
///     FExpDa::Duration
/// ));
///
/// assert!(parse_f_exp_da("(+ 1.23 2.34)").is_value(
///     FExpDa::new_binary_op(
///         BinaryOp::Addition,
///             FExpDa::new_f_exp(FExp::new_number(1.23)),
///             FExpDa::new_f_exp(FExp::new_number(2.34))
///     )
/// ));
///
/// assert!(parse_f_exp_da("(+ 1.23 2.34 3.45)").is_value(
///     FExpDa::new_multi_op(
///         MultiOp::Addition,
///         FExpDa::new_f_exp(FExp::new_number(1.23)),
///         [FExp::new_number(2.34).into(), FExp::new_number(3.45).into()]
///     )
/// ));
///```
pub fn parse_f_exp_da<'a, T: Into<Span<'a>>>(input: T) -> ParseResult<'a, FExpDa> {
    // :duration-inequalities
    let duration = map(tag("?duration"), |_| FExpDa::new_duration());

    let binary_op = map(
        parens(tuple((
            parse_binary_op,
            preceded(multispace1, parse_f_exp_da),
            preceded(multispace1, parse_f_exp_da),
        ))),
        |(op, lhs, rhs)| FExpDa::new_binary_op(op, lhs, rhs),
    );

    let multi_op = map(
        parens(tuple((
            parse_multi_op,
            preceded(multispace1, parse_f_exp_da),
            preceded(multispace1, space_separated_list1(parse_f_exp_da)),
        ))),
        |(op, lhs, rhs)| FExpDa::new_multi_op(op, lhs, rhs),
    );

    let negated = map(
        parens(preceded(tuple((char('-'), multispace0)), parse_f_exp_da)),
        FExpDa::new_negative,
    );

    let f_exp = map(parse_f_exp, FExpDa::new_f_exp);

    alt((duration, binary_op, multi_op, negated, f_exp))(input.into())
}

impl crate::parsers::Parser for FExpDa {
    type Item = FExpDa;

    /// See [`parse_f_exp_da`].
    fn parse<'a, S: Into<Span<'a>>>(input: S) -> ParseResult<'a, Self::Item> {
        parse_f_exp_da(input)
    }
}

#[cfg(test)]
mod tests {
    use crate::parsers::UnwrapValue;
    use crate::{BinaryOp, FExp, FExpDa, MultiOp, Parser};

    #[test]
    fn test_parse() {
        assert!(FExpDa::parse("?duration").is_value(FExpDa::Duration));

        assert!(
            FExpDa::parse("(+ 1.23 2.34)").is_value(FExpDa::new_binary_op(
                BinaryOp::Addition,
                FExpDa::new_f_exp(FExp::new_number(1.23)),
                FExpDa::new_f_exp(FExp::new_number(2.34))
            ))
        );

        assert!(
            FExpDa::parse("(+ 1.23 2.34 3.45)").is_value(FExpDa::new_multi_op(
                MultiOp::Addition,
                FExpDa::new_f_exp(FExp::new_number(1.23)),
                [FExp::new_number(2.34).into(), FExp::new_number(3.45).into()]
            ))
        );
    }
}