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
141
142
143
extern crate proc_macro;

use proc_macro::TokenStream;
use proc_macro2::TokenTree;
use quote::quote;
use syn::{parse_macro_input, Data, DataEnum, DeriveInput, Ident, Variant};

#[derive(Clone)]
struct EnvOptVariant {
    ident: Ident,
    name: String,
    default: Option<String>,
}

#[proc_macro_derive(EnvOpt, attributes(envopt))]
pub fn derive(input: TokenStream) -> TokenStream {
    let ast = parse_macro_input!(input as DeriveInput);
    let enum_name = ast.ident;

    if let Data::Enum(DataEnum { variants, .. }) = ast.data {
        let envopt_variants: Vec<_> = variants
            .into_iter()
            .map(|variant| {
                let ident = variant.ident.clone();
                let name = get_name_attr(&variant).expect("No name found");
                let default = get_default_attr(&variant);
                EnvOptVariant {
                    ident,
                    name,
                    default,
                }
            })
            .collect();

        let validate_matches: Vec<_> = envopt_variants
            .clone()
            .into_iter()
            .filter_map(|variant| {
                let name = variant.name;
                if variant.default.is_none() {
                    Some(quote! {
                        match std::env::var(#name) {
                            Ok(_) => {}
                            Err(_) => {
                                errors.push(concat!("Environment variable ", stringify!(#name), " not set").into());
                            }
                        }
                    })
                } else {
                    None
                }
            })
            .collect();

        let value_matches: Vec<_> = envopt_variants
            .into_iter()
            .map(|variant| {
                let ident = variant.ident;
                let name = variant.name;

                match variant.default {
                    Some(default) => quote! {
                        #enum_name::#ident => match std::env::var(#name) {
                            Ok(val) => Ok(val),
                            Err(_) => Ok(#default.into()),
                        }
                    },
                    None => quote! {
                        #enum_name::#ident => match std::env::var(#name) {
                            Ok(val) => Ok(val),
                            Err(_) => Err(concat!("Environment variable ", stringify!(#name), " not set").into()),
                        }
                    },
                }
            })
            .collect();

        let impl_env_opt = quote! {
            impl envopt::EnvOpt for #enum_name {
                fn validate() -> Result<(), Vec<String>> {
                    let mut errors = Vec::new();
                    #(#validate_matches)*

                    if errors.is_empty() {
                        Ok(())
                    } else {
                        Err(errors)
                    }
                }

                fn value(&self) -> Result<String, String> {
                    match self {
                        #(#value_matches),*
                    }
                }
            }
        };

        TokenStream::from(impl_env_opt)
    } else {
        TokenStream::new()
    }
}

fn get_attr(name: String, variant: &Variant) -> Option<String> {
    for attr in variant.attrs.clone() {
        if attr.path.segments.first().unwrap().ident == "envopt" {
            for token in attr.tokens {
                if let TokenTree::Group(group) = token.clone() {
                    let mut token_stream_iter = group.stream().into_iter();
                    while let Some(x) = token_stream_iter.next() {
                        if let TokenTree::Ident(i) = x {
                            if &i == &Ident::new(&name, i.span().clone()) {
                                token_stream_iter.next();
                                let mut s = token_stream_iter.next().unwrap().to_string();
                                // FIXME this gets rid of the escaped quots.  There must be a more
                                // idiomatic way...
                                s.remove(0);
                                s.pop();
                                return Some(s);
                            }
                        }
                    }
                }
            }
        }
    }
    None
}

fn get_name_attr(variant: &Variant) -> Option<String> {
    dbg!(get_attr("name".into(), variant))
}

fn get_default_attr(variant: &Variant) -> Option<String> {
    dbg!(get_attr("default".into(), variant))
}

#[cfg(test)]
mod test {
    #[test]
    pub fn test() {}
}