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

use proc_macro::{self, TokenStream};
use quote::quote;
use syn::{parse_macro_input, DeriveInput};

fn add_trait_bounds(mut generics: syn::Generics) -> syn::Generics {
    for param in &mut generics.params {
        if let syn::GenericParam::Type(ref mut type_param) = *param {
            type_param.bounds.push(syn::parse_quote!(TypeNameable));
        }
    }
    generics
}

use darling::FromDeriveInput;

#[derive(FromDeriveInput, Debug)]
#[darling(attributes(typenameable))]
struct TypeNameArguments {
    #[darling(default)]
    type_name: Option<syn::Ident>,
    #[darling(default)]
    crate_name: Option<syn::Ident>,
    #[darling(default)]
    crate_module: Option<String>,
    #[darling(default)]
    crate_version: Option<String>,
    #[darling(default)]
    rustc_version: Option<String>,
    #[darling(default)]
    default_to_none: bool,
}

#[proc_macro_derive(TypeNameable, attributes(typenameable))]
pub fn derive_type_name(tokens: TokenStream) -> TokenStream {
    let derived = parse_macro_input!(tokens);
    let TypeNameArguments {
        type_name,
        crate_name,
        crate_module,
        crate_version,
        rustc_version,
        default_to_none,
    } = TypeNameArguments::from_derive_input(&derived).unwrap();
    let DeriveInput {
        ident,
        attrs: _,
        vis: _,
        generics,
        data: _,
    } = derived;
    let generics = add_trait_bounds(generics);
    let (impl_generics, ty_generics, where_clause) = generics.split_for_impl();

    let type_name = type_name
        .map(|x| x.to_string())
        .unwrap_or_else(|| ident.to_string());
    let crate_name = if let Some(crate_name) = crate_name {
        quote!(Some(stringify!(#crate_name).to_owned()))
    } else if default_to_none {
        quote!(None)
    } else {
        quote!(Some(env!("CARGO_PKG_NAME").to_owned()))
    };
    let module_path_import;
    let crate_module = if let Some(crate_module) = crate_module {
        module_path_import = quote! {};
        quote!(Some(#crate_module.to_owned()))
    } else if default_to_none {
        module_path_import = quote! {};
        quote!(None)
    } else {
        module_path_import = quote! {use ::std::module_path as std_module_path_module_path;};
        quote!(Some(std_module_path_module_path!().to_owned()))
    };
    let crate_version = if let Some(crate_version) = crate_version {
        quote!(Some(
                <::typenaming::Version as ::std::str::FromStr>::from_str(
                #crate_version
            )
            .expect(&format!("Failed to parse crate version argument '{}'", #crate_version)))
        )
    } else if default_to_none {
        quote!(None)
    } else {
        quote!(Some(::typenaming::new_semver_version(
            env!("CARGO_PKG_VERSION_MAJOR"),
            env!("CARGO_PKG_VERSION_MINOR"),
            env!("CARGO_PKG_VERSION_PATCH"),
            env!("CARGO_PKG_VERSION_PRE")
        )))
    };
    let rustc_version = if let Some(rustc_version) = rustc_version {
        quote!(Some(
            <::typenaming::Version as ::std::str::FromStr>::from_str(
                #rustc_version
            )
            .expect(&format!("Failed to parse rustc version argument '{}'", #rustc_version))
        ))
    } else if default_to_none {
        quote!(None)
    } else {
        quote!(Some(
            ::typenaming::rustc_version().expect("Failed to fetch rustc version")
        ))
    };
    let generics = generics
        .type_params()
        .map(|x| x.ident.clone())
        .collect::<Vec<_>>();
    let generics = quote!(#(<#generics as ::typenaming::TypeNameable>::type_info()),*);
    let body = quote! {
        #module_path_import
        ::typenaming::TypeInfo::new(
            #type_name.to_owned(),
            #crate_name,
            #crate_module,
            #crate_version,
            #rustc_version,
            vec![
              #generics
            ]
        )
    };
    quote! {
        #[automatically_derived]
        impl #impl_generics TypeNameable for #ident #ty_generics #where_clause {
            fn type_info() -> ::typenaming::TypeInfo {
                #body
            }
        }
    }
    .into()
}