extern crate proc_macro;
use proc_macro::TokenStream;
use quote::quote;
use syn::{parse_macro_input, Data, DeriveInput, Fields, Ident, LitStr};
#[proc_macro_derive(ActorMsgHandle, attributes(actor))]
pub fn actor_msg_handle_derive(input: TokenStream) -> TokenStream {
    let input = parse_macro_input!(input as DeriveInput);
    let enum_name = input.ident; let mut actor_ident = None;
    for attr in input.attrs {
        if attr.path().is_ident("actor") {
            attr.parse_nested_meta(|meta| {
                if meta.path.is_ident("kind") {
                    let value = meta.value()?; let lit_str: LitStr = value.parse()?; actor_ident = Some(Ident::new(&lit_str.value(), lit_str.span()));
                    Ok(())
                } else {
                    Err(meta.error("no kind attribute"))
                }
            })
                .unwrap_or_else(|err| {
                    panic!("Failed to parse actor attribute: {}", err);
                });
        }
    }
    let actor_ident = actor_ident.expect("Expected actor name in #[actor(...)] attribute");
    let variants = if let Data::Enum(data_enum) = input.data {
        data_enum.variants.iter().map(|variant| {
            let variant_name = &variant.ident;
            match &variant.fields {
                Fields::Unnamed(fields) if fields.unnamed.len() == 1 => {
                    quote! {
                        #enum_name::#variant_name(val) => pupactor::AsyncHandle::async_handle(self, val).await.into(),
                    }
                }
                _ => quote! {
                    _ => panic!("Unsupported enum variant or structure"),
                },
            }
        }).collect::<Vec<_>>()
    } else {
        panic!("ActorMsgHandle can only be derived for enums");
    };
    let expanded = quote! {
        impl pupactor::AsyncHandle<#enum_name> for #actor_ident {
            #[inline(always)]
            async fn async_handle(&mut self, value: #enum_name) -> pupactor::ActorCommand<Self::ShutDown> {
                match value {
                    #(#variants)*
                }
            }
        }
    };
    TokenStream::from(expanded)
}
#[proc_macro_derive(Pupactor, attributes(actor, listener))]
pub fn pupactor_derive(input: TokenStream) -> TokenStream {
    let input = parse_macro_input!(input as DeriveInput);
    let struct_name = input.ident;
    let mut shutdown_ident = None;
    for attr in input.attrs {
        if attr.path().is_ident("actor") {
            attr.parse_nested_meta(|meta| {
                if meta.path.is_ident("shutdown") {
                    let value = meta.value()?; let lit_str: LitStr = value.parse()?; shutdown_ident = Some(Ident::new(&lit_str.value(), lit_str.span()));
                    Ok(())
                } else {
                    Err(meta.error("no kind attribute"))
                }
            })
                .unwrap_or_else(|err| {
                    panic!("Failed to parse actor attribute: {}", err);
                });
        }
    }
    let shutdown_ident = match shutdown_ident {
        Some(shutdown_ident) => {
            quote! { #shutdown_ident }
        }
        None => quote! { std::convert::Infallible }
    };
    let listeners = if let Data::Struct(data_struct) = input.data {
        data_struct
            .fields
            .iter()
            .filter_map(|field| {
                let field_name = field.ident.clone();
                field
                    .attrs
                    .iter()
                    .find(|attr| attr.path().is_ident("listener"))
                    .map(|_| field_name)
            })
            .collect::<Vec<_>>()
    } else {
        panic!("`Pupactor` can only be derived for structs");
    };
    let match_msg_inside_loop = quote! {
        match msg {
            pupactor::ActorMsg::Msg(msg) => {
                let command: pupactor::ActorCommand<Self::ShutDown> = <Self as pupactor::AsyncHandle<_>>::async_handle(self, msg).await.into();
                if let Err(err) = command.0 {
                    let _ = err?;
                    break;
                } else {
                    continue;
                }
            }
            pupactor::ActorMsg::Shutdown(shutdown) => {
                return Err(Self::ShutDown::from(shutdown));
            }
        }
    };
    let internal_loop = match listeners.len() {
        0 => quote! { },
        1 => {
            quote! {
                while let Some(msg) =  self.interval.next_msg().await {
                    #match_msg_inside_loop
                }
            }
        }
        _ => {
            let listener_branches = listeners.iter().map(|field_name| {
                quote! {
                    msg = Listener::next_msg(&mut self.#field_name) => {
                        if let Some(msg) = msg {
                            #match_msg_inside_loop
                        } else {
                            break;
                        }
                    }
                }
            });
            quote! {
                loop {
                    tokio::select! {
                        #(#listener_branches)*
                    }
                }
            }
        }
    };
    let expanded = quote! {
        impl pupactor::Actor for #struct_name {
            type ShutDown = #shutdown_ident;
            async fn infinite_loop(&mut self) -> Result<pupactor::Break, Self::ShutDown> {
                #internal_loop
                Ok(pupactor::Break)
            }
        }
    };
    TokenStream::from(expanded)
}
#[proc_macro_derive(ActorShutdown)]
pub fn actor_shutdown_derive(input: TokenStream) -> TokenStream {
    let input = parse_macro_input!(input as DeriveInput);
    let struct_name = input.ident; let expanded = quote! {
        impl From<std::convert::Infallible> for #struct_name {
            #[inline(always)]
            fn from(_: std::convert::Infallible) -> Self {
                unreachable!()
            }
        }
    };
    TokenStream::from(expanded)
}