objc2 0.4.1

/// Forward selector and arguments to `MessageReceiver::send_message[_error]`.
///
/// Note: We can't forward to `msg_send!` since that doesn't support selectors
/// with space between.
#[doc(hidden)]
#[macro_export]
macro_rules! __method_msg_send {
    // Selector with no arguments
    (
        ($receiver:expr)
        ($sel:ident)
        ()

        ()
        ()
    ) => {
        $crate::__msg_send_helper! {
            @(send_message)
            @($receiver)
            @($sel)
            @()
        }
    };

    // Skip using `MainThreadMarker` in the message send.
    //
    // This is a purely textual match, and using e.g.
    // `Foundation::MainThreadMarker` would fail - but that would just be
    // detected as giving a wrong number of arguments, so it's fine for now.
    (
        ($receiver:expr)
        ($($sel_rest:tt)*)
        ($arg:ident: MainThreadMarker $(, $($args_rest:tt)*)?)

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
    ) => ({
        let _ = $arg;
        $crate::__method_msg_send! {
            ($receiver)
            ($($sel_rest)*)
            ($($($args_rest)*)?)

            ($($sel_parsed)*)
            ($($arg_parsed)*)
        }
    });

    // Parse each argument-selector pair
    (
        ($receiver:expr)
        ($($sel:ident)? : $($sel_rest:tt)*)
        ($arg:ident : $_arg_ty:ty $(, $($args_rest:tt)*)?)

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
    ) => {
        $crate::__method_msg_send! {
            ($receiver)
            ($($sel_rest)*)
            ($($($args_rest)*)?)

            ($($sel_parsed)* $($sel)? :)
            ($($arg_parsed)* $arg,)
        }
    };
    // Handle path separator token
    (
        ($receiver:expr)
        ($($sel:ident)? :: $($sel_rest:tt)*)
        ($arg1:ident : $_arg_ty1:ty, $arg2:ident : $_arg_ty2:ty $(, $($args_rest:tt)*)?)

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
    ) => {
        $crate::__method_msg_send! {
            ($receiver)
            ($($sel_rest)*)
            ($($($args_rest)*)?)

            ($($sel_parsed)* $($sel)? : :)
            ($($arg_parsed)* $arg1, $arg2,)
        }
    };

    // Normal return
    (
        ($receiver:expr)
        ()
        ()

        // Notice the "+" here; we must make sure we actually _did_ parse
        // a selector, and haven't just gotten an empty `#[method()]`.
        ($($sel_parsed:tt)+)
        ($($arg_parsed:tt)*)
    ) => {
        $crate::__msg_send_helper! {
            @(send_message)
            @($receiver)
            @($($sel_parsed)*)
            @($($arg_parsed)*)
        }
    };

    // Error return
    (
        ($receiver:expr)
        // `sel:_` without a corresponding argument
        ($sel:ident : _)
        ()

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
    ) => {
        $crate::__msg_send_helper! {
            // Use error method
            @(__send_message_error)
            @($receiver)
            @($($sel_parsed)* $sel :)
            @($($arg_parsed)*)
        }
    };

    // Variadic method
    (
        ($receiver:expr)
        ($($sel:ident : _)?)
        ($($arg:ident :)? ...)

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
    ) => ({
        $crate::__macro_helpers::compile_error!(
            "variadic methods are not yet supported"
        )
    });

    // Mismatched selector/argument
    (
        ($receiver:expr)
        ($($sel_rest:tt)*)
        ($($args_rest:tt)*)

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
    ) => ({
        $crate::__macro_helpers::compile_error!(
            "number of arguments in function and selector did not match"
        )
    });
}

/// Same as `__method_msg_send`, just for `msg_send_id!`.
#[doc(hidden)]
#[macro_export]
macro_rules! __method_msg_send_id {
    // Selector with no arguments
    (
        ($receiver:expr)
        ($(@__retain_semantics $retain_semantics:ident)? $sel:ident)
        ()

        ()
        ()
        ()
    ) => {
        $crate::__msg_send_id_helper! {
            @(send_message_id)
            @($receiver)
            @($($retain_semantics)?)
            @($sel)
            @()
        }
    };

    // Parse retain semantics
    //
    // Note: While this is not public, it is still a breaking change to change
    // this, since `icrate` relies on it.
    (
        ($receiver:expr)
        (@__retain_semantics $retain_semantics:ident $($sel_rest:tt)*)
        ($($args_rest:tt)*)

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
        ()
    ) => {
        $crate::__method_msg_send_id! {
            ($receiver)
            ($($sel_rest)*)
            ($($args_rest)*)

            ($($sel_parsed)*)
            ($($arg_parsed)*)
            ($retain_semantics)
        }
    };

    // Skip using `MainThreadMarker` in the message send.
    //
    // This is a purely textual match, and using e.g.
    // `Foundation::MainThreadMarker` would fail - but that would just be
    // detected as giving a wrong number of arguments, so it's fine for now.
    (
        ($receiver:expr)
        ($($sel_rest:tt)*)
        ($arg:ident: MainThreadMarker $(, $($args_rest:tt)*)?)

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
        ($($retain_semantics:ident)?)
    ) => ({
        let _ = $arg;
        $crate::__method_msg_send_id! {
            ($receiver)
            ($($sel_rest)*)
            ($($($args_rest)*)?)

            ($($sel_parsed)*)
            ($($arg_parsed)*)
            ($($retain_semantics)?)
        }
    });

    // Parse each argument-selector pair
    (
        ($receiver:expr)
        ($($sel:ident)? : $($sel_rest:tt)*)
        ($arg:ident : $_arg_ty:ty $(, $($args_rest:tt)*)?)

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
        ($($retain_semantics:ident)?)
    ) => {
        $crate::__method_msg_send_id! {
            ($receiver)
            ($($sel_rest)*)
            ($($($args_rest)*)?)

            ($($sel_parsed)* $($sel)? :)
            ($($arg_parsed)* $arg,)
            ($($retain_semantics)?)
        }
    };
    // Handle path separator token
    (
        ($receiver:expr)
        ($($sel:ident)? :: $($sel_rest:tt)*)
        ($arg1:ident : $_arg_ty1:ty, $arg2:ident : $_arg_ty2:ty $(, $($args_rest:tt)*)?)

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
        ($($retain_semantics:ident)?)
    ) => {
        $crate::__method_msg_send_id! {
            ($receiver)
            ($($sel_rest)*)
            ($($($args_rest)*)?)

            ($($sel_parsed)* $($sel)? : :)
            ($($arg_parsed)* $arg1, $arg2,)
            ($($retain_semantics)?)
        }
    };

    // Normal return
    (
        ($receiver:expr)
        ()
        ()

        // Notice the "+" here; we must make sure we actually _did_ parse
        // a selector, and haven't just gotten an empty `#[method()]`.
        ($($sel_parsed:tt)+)
        ($($arg_parsed:tt)*)
        ($($retain_semantics:ident)?)
    ) => {
        $crate::__msg_send_id_helper! {
            @(send_message_id)
            @($receiver)
            @($($retain_semantics)?)
            @($($sel_parsed)*)
            @($($arg_parsed)*)
        }
    };

    // Error return
    (
        ($receiver:expr)
        // `sel:_` without a corresponding argument
        ($sel:ident : _)
        ()

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
        ($($retain_semantics:ident)?)
    ) => {
        $crate::__msg_send_id_helper! {
            // Use error method
            @(send_message_id_error)
            @($receiver)
            @($($retain_semantics)?)
            @($($sel_parsed)* $sel :)
            @($($arg_parsed)*)
        }
    };

    // Variadic method
    (
        ($receiver:expr)
        ($($sel:ident : _)?)
        ($($arg:ident :)? ...)

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
        ($($retain_semantics:ident)?)
    ) => ({
        $crate::__macro_helpers::compile_error!(
            "variadic methods are not yet supported"
        )
    });

    // Mismatched selector/argument
    (
        ($receiver:expr)
        ($($sel_rest:tt)*)
        ($($args_rest:tt)*)

        ($($sel_parsed:tt)*)
        ($($arg_parsed:tt)*)
        ($($retain_semantics:ident)?)
    ) => ({
        $crate::__macro_helpers::compile_error!(
            "number of arguments in function and selector did not match"
        )
    });
}