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

#[macro_export]
macro_rules! vindaloo {
    (@as_expr $e:expr) => { $e };

    (@emit [$($mov:ident)*] [$(($($param:tt)*))*] [$($ret:tt)*] $($body:tt)*) => {
        vindaloo!(@as_expr $($mov)* $(|$($param)*|)move* $($ret)* $($body)*)
    };

    (| | -> $ret:ty { $($body:tt)* }) => {
        vindaloo!(@emit [] [] [-> $ret] { $($body)* })
    };
    (| | $body:expr) => {
        vindaloo!(@emit [] [] [] $body)
    };
    (|| -> $ret:ty { $($body:tt)* }) => {
        vindaloo!(@emit [] [] [-> $ret] { $($body)* })
    };
    (|| $body:expr) => {
        vindaloo!(@emit [] [] [] $body)
    };
    (|$($param:ident),+| -> $ret:ty { $($body:tt)* }) => {
        vindaloo!(@emit [] [$(($param))+] [-> $ret] { $($body)* })
    };
    (|$($param:ident),+| $body:expr) => {
        vindaloo!(@emit [] [$(($param))+] [] $body)
    };
    (|$($parname:ident: $partyp:ty),+| -> $ret:ty { $($body:tt)* }) => {
        vindaloo!(@emit [] [$(($parname: $partyp))+] [-> $ret] { $($body)* })
    };
    (|$($parname:ident: $partyp:ty),+| $body:expr) => {
        vindaloo!(@emit [] [$(($parname: $partyp))+] [] $body)
    };
    (move | | -> $ret:ty { $($body:tt)* }) => {
        vindaloo!(@emit [] [] [-> $ret] { $($body)* })
    };
    (move | | $body:expr) => {
        vindaloo!(@emit [] [] [] $body)
    };
    (move || -> $ret:ty { $($body:tt)* }) => {
        vindaloo!(@emit [] [] [-> $ret] { $($body)* })
    };
    (move || $body:expr) => {
        vindaloo!(@emit [] [] [] $body)
    };
    (move |$($param:ident),+| -> $ret:ty { $($body:tt)* }) => {
        vindaloo!(@emit [] [$(($param))+] [-> $ret] { $($body)* })
    };
    (move |$($param:ident),+| $body:expr) => {
        vindaloo!(@emit [] [$(($param))+] [] $body)
    };
    (move |$($parname:ident: $partyp:ty),+| -> $ret:ty { $($body:tt)* }) => {
        vindaloo!(@emit [] [$(($parname: $partyp))+] [-> $ret] { $($body)* })
    };
    (move |$($parname:ident: $partyp:ty),+| $body:expr) => {
        vindaloo!(@emit [] [$(($parname: $partyp))+] [] $body)
    };
}