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

//! Provides parsers for f-assign-das.

use crate::parsers::parens;
use crate::parsers::{parse_assign_op, parse_f_exp_da, parse_f_head};
use crate::types::FAssignDa;
use nom::character::complete::multispace1;
use nom::combinator::map;
use nom::sequence::{preceded, tuple};
use nom::IResult;

/// Parses an f-assign-da.
///
/// ## Example
/// ```
/// # use pddl::parsers::parse_f_assign_da;
/// assert!(parse_f_assign_da("(assign fun-sym ?duration)").is_ok());
///```
pub fn parse_f_assign_da(input: &str) -> IResult<&str, FAssignDa> {
    map(
        parens(tuple((
            parse_assign_op,
            preceded(multispace1, parse_f_head),
            preceded(multispace1, parse_f_exp_da),
        ))),
        FAssignDa::from,
    )(input)
}

#[cfg(test)]
mod tests {
    use super::*;

    #[test]
    fn it_works() {
        let input = "(increase (distance-travelled) 5)";
        let (_, _effect) = parse_f_assign_da(input).unwrap();
    }
}