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

use td_clua;

use LuaPush;
use LuaRead;

macro_rules! tuple_impl {
    ($ty:ident) => (
        impl<$ty> LuaPush for ($ty,) where $ty: LuaPush {
            fn push_to_lua(self, lua: *mut td_clua::lua_State) -> i32 {
                self.0.push_to_lua(lua)
            }
        }

        impl<$ty> LuaRead for ($ty,) where $ty: LuaRead {
            fn lua_read_with_pop_impl(lua: *mut td_clua::lua_State, index: i32, _pop: i32) -> Option<($ty,)> {
                LuaRead::lua_read_at_position(lua, index).map(|v| (v,))
            }
        }
    );

    ($first:ident, $($other:ident),+) => (
        #[allow(non_snake_case)]
        impl<$first: LuaPush, $($other: LuaPush),+>
            LuaPush for ($first, $($other),+)
        {
            fn push_to_lua(self, lua: *mut td_clua::lua_State) -> i32 {
                match self {
                    ($first, $($other),+) => {
                        let mut total = $first.push_to_lua(lua);

                        $(
                            total += $other.push_to_lua(lua);
                        )+

                        total
                    }
                }
            }
        }

        // TODO: what if T or U are also tuples? indices won't match
        #[allow(unused_assignments)]
        #[allow(non_snake_case)]
        impl<$first: LuaRead, $($other: LuaRead),+>
            LuaRead for ($first, $($other),+)
        {
            fn lua_read_with_pop_impl(lua: *mut td_clua::lua_State, index: i32, _pop: i32) -> Option<($first, $($other),+)> {
                let mut i = index;
                let $first: $first = match LuaRead::lua_read_at_position(lua, i) {
                    Some(v) => v,
                    None => return None
                };

                i += 1;

                $(
                    let $other: $other = match LuaRead::lua_read_at_position(lua, i) {
                        Some(v) => v,
                        None => return None
                    };
                    i += 1;
                )+

                Some(($first, $($other),+))

            }
        }

        tuple_impl!($($other),+);
    );
}

tuple_impl!(A, B, C, D, E, F, G, H, I, J, K, L, M);