atat_derive 0.24.1

use proc_macro2::Span;
use syn::parse::{Error, Parse, ParseStream, Result};
use syn::{
    Attribute, Data, DataEnum, DataStruct, DeriveInput, Expr, ExprLit, ExprPath, Fields, Generics,
    Ident, Lit, LitByteStr, Path, Type,
};

#[derive(Clone)]
pub struct ParseInput {
    pub ident: Ident,
    pub generics: Generics,
    pub at_cmd: Option<CmdAttributes>,
    pub at_enum: Option<EnumAttributes>,
    pub variants: Vec<Variant>,
}

/// Parsed attributes of `#[at_cmd(..)]`
#[derive(Clone)]
pub struct CmdAttributes {
    pub cmd: String,
    pub resp: Path,
    pub parse: Option<Path>,
    pub timeout_ms: Option<u32>,
    pub attempts: Option<u8>,
    pub abortable: Option<bool>,
    pub reattempt_on_parse_err: Option<bool>,
    pub response_code: Option<bool>,
    pub value_sep: bool,
    pub cmd_prefix: String,
    pub termination: String,
    pub quote_escape_strings: bool,
}
/// Parsed attributes of `#[at_arg(..)]`
#[derive(Clone)]
pub struct ArgAttributes {
    pub value: Option<i64>,
    pub position: Option<usize>,
    pub len: Option<usize>,
    pub default: bool,
}

/// Parsed attributes of `#[at_urc(..)]`
#[derive(Clone)]
pub struct UrcAttributes {
    pub code: LitByteStr,
    pub parse: Option<Path>,
}

/// Parsed attributes of `#[at_enum(..)]`
#[derive(Clone)]
pub struct EnumAttributes {
    pub repr: Ident,
}

/// Parsed field level attributes
#[derive(Clone)]
pub struct FieldAttributes {
    pub at_urc: Option<UrcAttributes>,
    pub at_arg: Option<ArgAttributes>,
}

#[derive(Clone)]
pub struct Variant {
    /// Ident will be set on named variants, and None on unnamed variants
    pub ident: Option<Ident>,
    /// Type of a struct variant
    pub ty: Option<Type>,
    /// Fields of an enum variant
    pub fields: Option<Fields>,
    /// Parsed contents on `#[at_arg(..)]` and `#[at_urc(..)]`
    pub attrs: FieldAttributes,
}

/// Parse valid field attributes
pub fn parse_field_attr(attributes: &[Attribute]) -> Result<FieldAttributes> {
    let mut attrs = FieldAttributes {
        at_urc: None,
        at_arg: None,
    };
    for attr in attributes {
        if attr.path().is_ident("at_arg") {
            attrs.at_arg = Some(attr.parse_args()?);
        } else if attr.path().is_ident("at_urc") {
            attrs.at_urc = Some(attr.parse_args()?);
        }
    }
    Ok(attrs)
}

fn sorted_variants(data: Data) -> Result<Vec<Variant>> {
    let mut variants = match data {
        Data::Struct(DataStruct { fields, .. }) => {
            let unwrapped_fields = match fields {
                Fields::Named(fields) => fields.named.iter().cloned().collect(),
                Fields::Unnamed(fields) => fields.unnamed.iter().cloned().collect(),
                Fields::Unit => Vec::new(),
            };

            unwrapped_fields
                .into_iter()
                .enumerate()
                .map(|(i, f)| {
                    Ok((
                        i,
                        Variant {
                            ident: f.ident,
                            ty: Some(f.ty),
                            fields: None,
                            attrs: parse_field_attr(&f.attrs)?,
                        },
                    ))
                })
                .collect::<Result<Vec<(usize, Variant)>>>()?
        }
        Data::Enum(DataEnum { variants, .. }) => variants
            .into_iter()
            .enumerate()
            .map(|(i, v)| {
                Ok((
                    i,
                    Variant {
                        ident: Some(v.ident.clone()),
                        ty: None,
                        fields: Some(v.fields.clone()),
                        attrs: parse_field_attr(&v.attrs)?,
                    },
                ))
            })
            .collect::<Result<Vec<(usize, Variant)>>>()?,
        Data::Union(_) => {
            return Err(Error::new(Span::call_site(), "union types are unsupported"));
        }
    };

    variants.sort_by(|(ai, a), (bi, b)| {
        let ap = if let Some(ArgAttributes {
            position: Some(p), ..
        }) = a.attrs.at_arg
        {
            p
        } else {
            *ai
        };

        let bp = if let Some(ArgAttributes {
            position: Some(p), ..
        }) = b.attrs.at_arg
        {
            p
        } else {
            *bi
        };

        ap.cmp(&bp)
    });

    Ok(variants.into_iter().map(|t| t.1).collect())
}

impl Parse for ArgAttributes {
    fn parse(input: ParseStream) -> Result<Self> {
        let mut attrs = Self {
            value: None,
            position: None,
            len: None,
            default: false,
        };

        while {
            match input.parse::<syn::Meta>()? {
                syn::Meta::NameValue(name_value) if name_value.path.is_ident("value") => {
                    match name_value.value.clone() {
                        Expr::Lit(ExprLit {
                            lit: Lit::Int(v), ..
                        }) => attrs.value = Some(v.base10_parse().unwrap()),
                        _ => {
                            return Err(Error::new(
                                Span::call_site(),
                                "value argument must be an integer",
                            ))
                        }
                    }
                }
                syn::Meta::NameValue(name_value) if name_value.path.is_ident("position") => {
                    match name_value.value.clone() {
                        Expr::Lit(ExprLit {
                            lit: Lit::Int(v), ..
                        }) => attrs.position = Some(v.base10_parse().unwrap()),
                        _ => {
                            return Err(Error::new(
                                Span::call_site(),
                                "position argument must be a positive integer",
                            ))
                        }
                    }
                }
                syn::Meta::NameValue(name_value) if name_value.path.is_ident("len") => {
                    match name_value.value.clone() {
                        Expr::Lit(ExprLit {
                            lit: Lit::Int(v), ..
                        }) => attrs.len = Some(v.base10_parse().unwrap()),
                        _ => {
                            return Err(Error::new(
                                Span::call_site(),
                                "len argument must be a positive integer",
                            ))
                        }
                    }
                }
                syn::Meta::NameValue(name_value) if name_value.path.is_ident("default") => {
                    return Err(Error::new(
                        Span::call_site(),
                        "default does not have a value. Eg #[at_arg(default)]",
                    ))
                }
                syn::Meta::Path(path) if path.is_ident("default") => {
                    attrs.default = true;
                }
                _ => return Err(Error::new(Span::call_site(), "unknown argument!")),
            }

            input.parse::<syn::token::Comma>().is_ok()
        } {}

        Ok(attrs)
    }
}

impl Parse for UrcAttributes {
    fn parse(input: ParseStream) -> Result<Self> {
        let code = match input.parse::<syn::Lit>() {
            Ok(Lit::ByteStr(b)) => b,
            Ok(Lit::Str(s)) => LitByteStr::new(s.value().as_bytes(), input.span()),
            _ => {
                return Err(Error::new(
                    input.span(),
                    "expected string value for `at_urc`",
                ))
            }
        };

        let mut at_urc = Self { code, parse: None };

        while input.parse::<syn::token::Comma>().is_ok() {
            let optional = input.parse::<syn::MetaNameValue>()?;
            if optional.path.is_ident("parse") {
                match optional.value {
                    Expr::Path(ExprPath { path, .. }) => {
                        at_urc.parse = Some(path);
                    }
                    _ => return Err(Error::new(input.span(), "expected function for 'parse'")),
                }
            }
        }

        Ok(at_urc)
    }
}

impl Parse for CmdAttributes {
    fn parse(input: ParseStream) -> Result<Self> {
        let cmd = input.parse::<syn::LitStr>()?;
        let _comma = input.parse::<syn::token::Comma>()?;
        let response_ident = input.parse::<Path>()?;

        let mut at_cmd = Self {
            cmd: cmd.value(),
            resp: response_ident,
            parse: None,
            timeout_ms: None,
            attempts: None,
            abortable: None,
            reattempt_on_parse_err: None,
            response_code: None,
            value_sep: true,
            cmd_prefix: String::from("AT"),
            termination: String::from("\r"),
            quote_escape_strings: true,
        };

        while input.parse::<syn::token::Comma>().is_ok() {
            let optional = input.parse::<syn::MetaNameValue>()?;
            if optional.path.is_ident("timeout_ms") {
                match optional.value {
                    Expr::Lit(ExprLit {
                        lit: Lit::Int(v), ..
                    }) => {
                        at_cmd.timeout_ms = Some(v.base10_parse().unwrap());
                    }
                    _ => {
                        return Err(Error::new(
                            Span::call_site(),
                            "expected integer value for 'timeout_ms'",
                        ))
                    }
                }
            } else if optional.path.is_ident("attempts") {
                match optional.value {
                    Expr::Lit(ExprLit {
                        lit: Lit::Int(v), ..
                    }) => {
                        at_cmd.attempts = Some(v.base10_parse().unwrap());
                    }
                    _ => {
                        return Err(Error::new(
                            Span::call_site(),
                            "expected integer value for 'attempts'",
                        ))
                    }
                }
            } else if optional.path.is_ident("parse") {
                match optional.value {
                    Expr::Path(ExprPath { path, .. }) => {
                        at_cmd.parse = Some(path);
                    }
                    _ => {
                        return Err(Error::new(
                            Span::call_site(),
                            "expected function for 'parse'",
                        ))
                    }
                }
            } else if optional.path.is_ident("reattempt_on_parse_err") {
                match optional.value {
                    Expr::Lit(ExprLit {
                        lit: Lit::Bool(v), ..
                    }) => {
                        at_cmd.reattempt_on_parse_err = Some(v.value);
                    }
                    _ => {
                        return Err(Error::new(
                            Span::call_site(),
                            "expected bool value for 'reattempt_on_parse_err'",
                        ))
                    }
                }
            } else if optional.path.is_ident("abortable") {
                match optional.value {
                    Expr::Lit(ExprLit {
                        lit: Lit::Bool(v), ..
                    }) => {
                        at_cmd.abortable = Some(v.value);
                    }
                    _ => {
                        return Err(Error::new(
                            Span::call_site(),
                            "expected bool value for 'abortable'",
                        ))
                    }
                }
            } else if optional.path.is_ident("value_sep") {
                match optional.value {
                    Expr::Lit(ExprLit {
                        lit: Lit::Bool(v), ..
                    }) => {
                        at_cmd.value_sep = v.value;
                    }
                    _ => {
                        return Err(Error::new(
                            Span::call_site(),
                            "expected bool value for 'value_sep'",
                        ))
                    }
                }
            } else if optional.path.is_ident("cmd_prefix") {
                match optional.value {
                    Expr::Lit(ExprLit {
                        lit: Lit::Str(v), ..
                    }) => {
                        at_cmd.cmd_prefix = v.value();
                    }
                    _ => {
                        return Err(Error::new(
                            Span::call_site(),
                            "expected string value for 'cmd_prefix'",
                        ))
                    }
                }
            } else if optional.path.is_ident("termination") {
                match optional.value {
                    Expr::Lit(ExprLit {
                        lit: Lit::Str(v), ..
                    }) => {
                        at_cmd.termination = v.value();
                    }
                    _ => {
                        return Err(Error::new(
                            Span::call_site(),
                            "expected string value for 'termination'",
                        ))
                    }
                }
            } else if optional.path.is_ident("quote_escape_strings") {
                match optional.value {
                    Expr::Lit(ExprLit {
                        lit: Lit::Bool(v), ..
                    }) => {
                        at_cmd.quote_escape_strings = v.value;
                    }
                    _ => {
                        return Err(Error::new(
                            Span::call_site(),
                            "expected bool value for 'quote_escape_strings'",
                        ))
                    }
                }
            } else if optional.path.is_ident("response_code") {
                match optional.value {
                    Expr::Lit(ExprLit {
                        lit: Lit::Bool(v), ..
                    }) => {
                        at_cmd.response_code = Some(v.value);
                    }
                    _ => {
                        return Err(Error::new(
                            Span::call_site(),
                            "expected bool value for 'response_code'",
                        ))
                    }
                }
            }
        }

        Ok(at_cmd)
    }
}

impl Parse for ParseInput {
    fn parse(input: ParseStream) -> Result<Self> {
        let derive_input = DeriveInput::parse(input)?;

        let mut at_cmd = None;
        let mut at_enum = None;

        // Parse valid container attributes
        for attr in derive_input.attrs {
            if attr.path().is_ident("at_cmd") {
                at_cmd = Some(attr.parse_args()?);
            } else if attr.path().is_ident("at_enum") {
                at_enum = Some(EnumAttributes {
                    repr: attr.parse_args()?,
                });
            }
        }

        Ok(Self {
            ident: derive_input.ident,
            generics: derive_input.generics,
            at_cmd,
            at_enum,
            variants: sorted_variants(derive_input.data)?,
        })
    }
}