rd-ast 0.0.1

Canonical, producer-agnostic AST for R's Rd (documentation) format
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
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140

use super::structured::lower_character_vector;
use super::*;

pub(super) fn lower_raw_children(
    context: &mut LowerContext,
    tag: Option<&str>,
    attribute: Option<&str>,
    value: &RValue,
) -> Result<(Vec<RdNode>, Option<RawRdValue>), LowerError> {
    match value {
        RValue::List(children) => {
            lower_children(context, attribute, children).map(|children| (children, None))
        }
        RValue::Character(_) => {
            if let Some(tag) = tag
                && let Some(leaf) = lower_leaf(context, Some(tag), attribute, tag, value)?
            {
                return Ok((vec![leaf], None));
            }

            Ok((
                vec![RdNode::Text(lower_character_vector(
                    context, tag, attribute, value,
                )?)],
                None,
            ))
        }
        _ => Ok((
            Vec::new(),
            Some(lower_raw_value(context, tag, attribute, value)?),
        )),
    }
}

pub(super) fn lower_raw_object(
    context: &mut LowerContext,
    tag: Option<&str>,
    attribute: Option<&str>,
    object: &RObject,
) -> Result<RawRdObject, LowerError> {
    let attributes = object
        .attributes()
        .iter()
        .map(|nested| {
            context.scoped(
                RdPathSegment::Attribute(nested.name().as_str().to_string()),
                |context| lower_attribute(context, tag, nested),
            )
        })
        .collect::<Result<_, _>>()?;

    Ok(producer::raw_object(
        lower_raw_value(context, tag, attribute, object.value())?,
        attributes,
    ))
}

pub(super) fn lower_raw_value(
    context: &mut LowerContext,
    tag: Option<&str>,
    attribute: Option<&str>,
    value: &RValue,
) -> Result<RawRdValue, LowerError> {
    Ok(match value {
        RValue::Null => RawRdValue::Null,
        RValue::Logical(values) => RawRdValue::Logical(values.clone()),
        RValue::Integer(values) => RawRdValue::Integer(values.clone()),
        RValue::Real(values) => {
            RawRdValue::Real(values.iter().copied().map(lower_raw_real).collect())
        }
        RValue::Character(values) => {
            RawRdValue::Character(lower_raw_strings(context, tag, attribute, values)?)
        }
        RValue::List(values) => RawRdValue::List(
            values
                .iter()
                .enumerate()
                .map(|(index, object)| {
                    context.scoped(RdPathSegment::ListElement(index), |context| {
                        lower_raw_object(context, tag, attribute, object)
                    })
                })
                .collect::<Result<_, _>>()?,
        ),
        RValue::Symbol(symbol) => RawRdValue::Symbol(symbol.as_str().to_string()),
        RValue::Persisted(value) => RawRdValue::Persisted(lower_raw_strings(
            context,
            tag,
            attribute,
            value.as_slice(),
        )?),
        RValue::Environment(value) => RawRdValue::Environment(match value {
            EnvHandle::Global => RawRdEnvironment::Global,
            EnvHandle::Base => RawRdEnvironment::Base,
            EnvHandle::Empty => RawRdEnvironment::Empty,
            EnvHandle::Other => RawRdEnvironment::Other,
            _ => RawRdEnvironment::Other,
        }),
        _ => {
            return Err(LowerError::UnsupportedValue {
                location: context.location(tag, attribute),
            });
        }
    })
}

pub(super) fn lower_raw_real(value: Option<f64>) -> RawRdReal {
    match value {
        None => RawRdReal::Na,
        Some(value) if value.is_nan() => RawRdReal::Nan,
        Some(value) if value == f64::INFINITY => RawRdReal::PositiveInfinity,
        Some(value) if value == f64::NEG_INFINITY => RawRdReal::NegativeInfinity,
        Some(value) => RawRdReal::Finite(value),
    }
}

pub(super) fn lower_raw_strings(
    context: &mut LowerContext,
    tag: Option<&str>,
    attribute: Option<&str>,
    values: &[RStr],
) -> Result<Vec<Option<String>>, LowerError> {
    let mut decoded = Vec::with_capacity(values.len());
    for (index, raw_value) in values.iter().enumerate() {
        let Some(value) = raw_value.as_str() else {
            decoded.push(None);
            continue;
        };
        decoded.push(Some(
            value
                .map_err(|_| {
                    context.scoped(RdPathSegment::CharacterElement(index), |context| {
                        context.invalid_string(tag, attribute, raw_value)
                    })
                })?
                .into_owned(),
        ));
    }
    Ok(decoded)
}