rename all crates

crates/pacdef_macros/Cargo.toml

@@ -0,0 +1,18 @@
+[package]
+name = "pacdef_macros"
+version = "0.1.0"
+edition = "2021"
+license = "GPLv3"
+readme = "README.md"
+repository = "https://github.com/steven-omaha/pacdef"
+description = "procedural macros for pacdef"
+keywords = ["macro", "proc-macro"]
+categories = ["command-line-utilities"]
+
+[dependencies]
+proc-macro2 = "1.0"
+quote = "1.0"
+syn = "1.0"
+
+[lib]
+proc-macro = true

crates/pacdef_macros/README.md

@@ -0,0 +1,3 @@
+# pacdef_macros
+
+procedural macros for pacdef

crates/pacdef_macros/src/action.rs

@@ -0,0 +1,79 @@
+use proc_macro::TokenStream;
+use quote::quote;
+use syn::DeriveInput;
+use syn::__private::TokenStream2;
+
+pub fn action(input: TokenStream) -> TokenStream {
+    let input = syn::parse::<DeriveInput>(input).unwrap();
+
+    let name = &input.ident;
+
+    let enum_data = if let syn::Data::Enum(enum_data) = &input.data {
+        enum_data
+    } else {
+        panic!("`Register` can only be used on enums");
+    };
+
+    let variant_description = generate_variant_description(enum_data);
+    let variant_constants = generate_variant_constants(name, enum_data);
+
+    let expanded = compile_output(name, variant_description, variant_constants);
+
+    TokenStream::from(expanded)
+}
+
+fn generate_variant_description(
+    enum_data: &syn::DataEnum,
+) -> impl Iterator<Item = TokenStream2> + '_ {
+    let variant_matches_backend = enum_data.variants.iter().map(|variant| {
+        let variant_name = &variant.ident;
+        let variant_lowercase =
+            proc_macro2::Literal::string(&variant_name.to_string().to_lowercase());
+        quote! {
+            Self::#variant_name => #variant_lowercase,
+        }
+    });
+    variant_matches_backend
+}
+
+fn generate_variant_constants<'a>(
+    name: &'a syn::Ident,
+    enum_data: &'a syn::DataEnum,
+) -> impl Iterator<Item = TokenStream2> + 'a {
+    let result = enum_data.variants.iter().map(move |variant| {
+        let variant_name = &variant.ident;
+
+        let variant_uppercase = proc_macro2::Ident::new(
+            &variant_name.to_string().to_uppercase(),
+            proc_macro2::Span::call_site(),
+        );
+
+        quote! {
+            pub const #variant_uppercase: &str = #name::#variant_name.name();
+        }
+    });
+    result
+}
+
+fn compile_output<T, U>(
+    name: &syn::Ident,
+    variant_description: T,
+    variant_constants: U,
+) -> TokenStream2
+where
+    T: Iterator<Item = TokenStream2>,
+    U: Iterator<Item = TokenStream2>,
+{
+    let expanded = quote! {
+        impl #name {
+            pub const fn name(&self) -> &'static str {
+                match self {
+                    #(#variant_description)*
+                }
+            }
+        }
+
+        #(#variant_constants)*
+    };
+    expanded
+}

crates/pacdef_macros/src/lib.rs

@@ -0,0 +1,14 @@
+mod action;
+mod register;
+
+use proc_macro::TokenStream;
+
+#[proc_macro_derive(Register)]
+pub fn register(input: TokenStream) -> TokenStream {
+    register::register(input)
+}
+
+#[proc_macro_derive(Action)]
+pub fn action(input: TokenStream) -> TokenStream {
+    action::action(input)
+}

crates/pacdef_macros/src/register.rs

@@ -0,0 +1,114 @@
+use proc_macro::TokenStream;
+use quote::quote;
+use syn::DeriveInput;
+use syn::__private::TokenStream2;
+
+pub fn register(input: TokenStream) -> TokenStream {
+    let input = syn::parse::<DeriveInput>(input).unwrap();
+
+    let name = &input.ident;
+
+    let enum_data = if let syn::Data::Enum(enum_data) = &input.data {
+        enum_data
+    } else {
+        panic!("`Register` can only be used on enums");
+    };
+
+    let first_variant = &enum_data.variants[0].ident;
+
+    let variant_matches_backend = generate_variant_backend(enum_data);
+    let variant_matches_next = generate_variant_matches_next(enum_data);
+    let variant_imports = generate_variant_imports(enum_data);
+
+    let expanded = compile_output(
+        name,
+        first_variant,
+        variant_matches_backend,
+        variant_matches_next,
+        variant_imports,
+    );
+
+    TokenStream::from(expanded)
+}
+
+fn compile_output<T, U, V>(
+    name: &syn::Ident,
+    first_variant: &syn::Ident,
+    variant_backend: T,
+    variant_next: U,
+    variant_imports: V,
+) -> TokenStream2
+where
+    T: Iterator<Item = TokenStream2>,
+    U: Iterator<Item = TokenStream2>,
+    V: Iterator<Item = TokenStream2>,
+{
+    let expanded = quote! {
+        #(#variant_imports)*
+
+        impl #name {
+            pub fn iter() -> BackendIter {
+                BackendIter {
+                    next: Some(Self::#first_variant),
+                }
+            }
+            fn get_backend(&self) -> Box<dyn Backend> {
+                match self {
+                    #(#variant_backend)*
+                }
+            }
+            fn next(&self) -> Option<Self> {
+                match self {
+                    #(#variant_next)*
+                }
+            }
+        }
+    };
+    expanded
+}
+
+fn generate_variant_imports(enum_data: &syn::DataEnum) -> impl Iterator<Item = TokenStream2> + '_ {
+    let variant_imports = enum_data.variants.iter().map(|variant| {
+        let variant_name = &variant.ident;
+
+        let variant_module = proc_macro2::Ident::new(
+            &variant_name.to_string().to_lowercase(),
+            proc_macro2::Span::call_site(),
+        );
+
+        quote! {
+            pub use actual::#variant_module::#variant_name;
+
+        }
+    });
+    variant_imports
+}
+
+fn generate_variant_matches_next(
+    enum_data: &syn::DataEnum,
+) -> impl Iterator<Item = TokenStream2> + '_ {
+    let variant_matches_next = enum_data.variants.iter().enumerate().map(|(i, variant)| {
+        let variant_name = &variant.ident;
+        if i == enum_data.variants.len() - 1 {
+            quote! {
+                Self::#variant_name => None,
+            }
+        } else {
+            let next_variant = &enum_data.variants[i + 1].ident;
+            quote! {
+                Self::#variant_name => Some(Self::#next_variant),
+            }
+        }
+    });
+    variant_matches_next
+}
+
+fn generate_variant_backend(enum_data: &syn::DataEnum) -> impl Iterator<Item = TokenStream2> + '_ {
+    let variant_matches_backend = enum_data.variants.iter().map(|variant| {
+        let variant_name = &variant.ident;
+        quote! {
+            Self::#variant_name => Box::new(#variant_name::new()),
+        }
+    });
+    variant_matches_backend
+}