---

yaml
---
r: 23039
b: refs/heads/master
c: 672bfa5
h: refs/heads/master
i:
  23037: 6215ec9
  23035: 5212a62
  23031: d96ba14
  23023: 5fabe1a
  23007: 16ffff0
  22975: 1a5496a
  22911: e663af9
  22783: 26c4b42
  22527: 8f84e2e
v: v3

Author: eholk

[refs]

@@ -1,5 +1,5 @@
 ---
-refs/heads/master: 8d1922d4c80335d7c850e5856ae0ec549b8a0481
+refs/heads/master: 672bfa5773913ce99524703e943729e3e50953b8
 refs/heads/snap-stage1: e33de59e47c5076a89eadeb38f4934f58a3618a6
 refs/heads/snap-stage3: cd6f24f9d14ac90d167386a56e7a6ac1f0318195
 refs/heads/try: ffbe0e0e00374358b789b0037bcb3a577cd218be

trunk/src/test/run-pass/pipe-select-macro.rs

@@ -0,0 +1,112 @@
+// xfail-test
+
+// Protocols
+proto! foo {
+    foo:recv {
+        do_foo -> foo
+    }
+}
+
+proto! bar {
+    bar:recv {
+        do_bar(int) -> barbar,
+        do_baz(bool) -> bazbar,
+    }
+
+    barbar:send {
+        rebarbar -> bar,
+    }
+
+    bazbar:send {
+        rebazbar -> bar
+    }
+}
+
+
+// select!
+macro_rules! select_if {
+    {
+        $index:expr,
+        $count:expr,
+        $port:path => [
+            $($message:path$(($($x: ident),+))dont_type_this*
+              -> $next:ident $e:expr),+
+        ],
+        $( $ports:path => [
+            $($messages:path$(($($xs: ident),+))dont_type_this*
+              -> $nexts:ident $es:expr),+
+        ], )*
+    } => {
+        log_syntax!{select_if1};
+        if $index == $count {
+            alt move pipes::try_recv($port) {
+              $(some($message($($($x,)+)* next)) => {
+                // FIXME (#2329) we really want move out of enum here.
+                let $next = unsafe { let x <- *ptr::addr_of(next); x };
+                $e
+              })+
+              _ => fail
+            }
+        } else {
+            select_if!{
+                $index,
+                $count + 1,
+                $( $ports => [
+                    $($messages$(($($xs),+))dont_type_this*
+                      -> $nexts $es),+
+                ], )*
+            }
+        }
+    };
+
+    {
+        $index:expr,
+        $count:expr,
+    } => {
+        log_syntax!{select_if2};
+        fail
+    }
+}
+
+macro_rules! select {
+    {
+        $( $port:path => {
+            $($message:path$(($($x: ident),+))dont_type_this*
+              -> $next:ident $e:expr),+
+        } )+
+    } => {
+        let index = pipes::selecti([$(($port).header()),+]/_);
+        log_syntax!{select};
+        log_syntax!{
+        select_if!{index, 0, $( $port => [
+            $($message$(($($x),+))dont_type_this* -> $next $e),+
+        ], )+}
+        };
+        select_if!{index, 0, $( $port => [
+            $($message$(($($x),+))dont_type_this* -> $next $e),+
+        ], )+}
+    }
+}
+
+// Code
+fn test(+foo: foo::client::foo, +bar: bar::client::bar) {
+    select! {
+        foo => {
+            foo::do_foo -> _next {
+            }
+        }
+
+        bar => {
+            bar::do_bar(x) -> _next {
+                //debug!("%?", x)
+            },
+
+            do_baz(b) -> _next {
+                //if b { debug!("true") } else { debug!("false") }
+            }
+        }
+    }
+}
+
+fn main() {
+}