2012-07-12 17:57:12 -05:00
|
|
|
// A port of the simplistic benchmark from
|
|
|
|
//
|
|
|
|
// http://github.com/PaulKeeble/ScalaVErlangAgents
|
|
|
|
//
|
|
|
|
// I *think* it's the same, more or less.
|
|
|
|
|
|
|
|
// This version uses pipes with a shared send endpoint. It should have
|
|
|
|
// different scalability characteristics compared to the select
|
|
|
|
// version.
|
|
|
|
|
2012-07-12 22:09:19 -05:00
|
|
|
// xfail-pretty
|
|
|
|
|
2012-09-18 17:52:21 -05:00
|
|
|
#[legacy_modes];
|
|
|
|
|
2012-09-11 19:46:20 -05:00
|
|
|
extern mod std;
|
2012-09-05 14:32:05 -05:00
|
|
|
use io::Writer;
|
|
|
|
use io::WriterUtil;
|
2012-07-12 17:57:12 -05:00
|
|
|
|
2012-09-05 14:32:05 -05:00
|
|
|
use pipes::{Port, Chan, SharedChan};
|
2012-07-12 17:57:12 -05:00
|
|
|
|
2012-08-22 19:47:11 -05:00
|
|
|
macro_rules! move_out (
|
2012-07-12 17:57:12 -05:00
|
|
|
{ $x:expr } => { unsafe { let y <- *ptr::addr_of($x); y } }
|
2012-08-22 19:47:11 -05:00
|
|
|
)
|
2012-07-12 17:57:12 -05:00
|
|
|
|
|
|
|
enum request {
|
|
|
|
get_count,
|
|
|
|
bytes(uint),
|
|
|
|
stop
|
|
|
|
}
|
|
|
|
|
2012-08-28 13:11:15 -05:00
|
|
|
fn server(requests: Port<request>, responses: pipes::Chan<uint>) {
|
2012-07-12 17:57:12 -05:00
|
|
|
let mut count = 0u;
|
|
|
|
let mut done = false;
|
|
|
|
while !done {
|
2012-08-06 14:34:08 -05:00
|
|
|
match requests.try_recv() {
|
2012-08-20 14:23:37 -05:00
|
|
|
Some(get_count) => { responses.send(copy count); }
|
|
|
|
Some(bytes(b)) => {
|
2012-08-22 19:24:52 -05:00
|
|
|
//error!("server: received %? bytes", b);
|
2012-07-12 17:57:12 -05:00
|
|
|
count += b;
|
|
|
|
}
|
2012-08-20 14:23:37 -05:00
|
|
|
None => { done = true; }
|
2012-08-03 21:59:04 -05:00
|
|
|
_ => { }
|
2012-07-12 17:57:12 -05:00
|
|
|
}
|
|
|
|
}
|
|
|
|
responses.send(count);
|
2012-08-22 19:24:52 -05:00
|
|
|
//error!("server exiting");
|
2012-07-12 17:57:12 -05:00
|
|
|
}
|
|
|
|
|
2012-07-14 00:57:48 -05:00
|
|
|
fn run(args: &[~str]) {
|
2012-07-12 17:57:12 -05:00
|
|
|
let (to_parent, from_child) = pipes::stream();
|
|
|
|
let (to_child, from_parent) = pipes::stream();
|
|
|
|
|
2012-08-16 19:50:21 -05:00
|
|
|
let to_child = SharedChan(to_child);
|
2012-07-12 17:57:12 -05:00
|
|
|
|
2012-09-21 21:37:57 -05:00
|
|
|
let size = uint::from_str(args[1]).get();
|
|
|
|
let workers = uint::from_str(args[2]).get();
|
2012-07-12 17:57:12 -05:00
|
|
|
let num_bytes = 100;
|
|
|
|
let start = std::time::precise_time_s();
|
|
|
|
let mut worker_results = ~[];
|
|
|
|
for uint::range(0u, workers) |i| {
|
|
|
|
let to_child = to_child.clone();
|
2012-08-07 13:26:03 -05:00
|
|
|
do task::task().future_result(|+r| {
|
2012-07-23 18:58:47 -05:00
|
|
|
vec::push(worker_results, r);
|
|
|
|
}).spawn {
|
2012-07-12 17:57:12 -05:00
|
|
|
for uint::range(0u, size / workers) |_i| {
|
2012-08-22 19:24:52 -05:00
|
|
|
//error!("worker %?: sending %? bytes", i, num_bytes);
|
2012-07-12 17:57:12 -05:00
|
|
|
to_child.send(bytes(num_bytes));
|
|
|
|
}
|
2012-08-22 19:24:52 -05:00
|
|
|
//error!("worker %? exiting", i);
|
2012-07-12 17:57:12 -05:00
|
|
|
};
|
|
|
|
}
|
|
|
|
do task::spawn {
|
|
|
|
server(from_parent, to_parent);
|
|
|
|
}
|
|
|
|
|
2012-09-18 23:41:37 -05:00
|
|
|
for vec::each(worker_results) |r| {
|
|
|
|
future::get(r);
|
|
|
|
}
|
|
|
|
|
2012-08-22 19:24:52 -05:00
|
|
|
//error!("sending stop message");
|
2012-07-12 17:57:12 -05:00
|
|
|
to_child.send(stop);
|
2012-08-22 19:24:52 -05:00
|
|
|
move_out!(to_child);
|
2012-07-12 17:57:12 -05:00
|
|
|
let result = from_child.recv();
|
|
|
|
let end = std::time::precise_time_s();
|
|
|
|
let elapsed = end - start;
|
2012-08-22 19:24:52 -05:00
|
|
|
io::stdout().write_str(fmt!("Count is %?\n", result));
|
|
|
|
io::stdout().write_str(fmt!("Test took %? seconds\n", elapsed));
|
2012-07-12 17:57:12 -05:00
|
|
|
let thruput = ((size / workers * workers) as float) / (elapsed as float);
|
2012-08-22 19:24:52 -05:00
|
|
|
io::stdout().write_str(fmt!("Throughput=%f per sec\n", thruput));
|
2012-07-12 17:57:12 -05:00
|
|
|
assert result == num_bytes * size;
|
|
|
|
}
|
|
|
|
|
2012-09-20 17:59:09 -05:00
|
|
|
fn main(++args: ~[~str]) {
|
2012-07-14 00:57:48 -05:00
|
|
|
let args = if os::getenv(~"RUST_BENCH").is_some() {
|
|
|
|
~[~"", ~"1000000", ~"10000"]
|
2012-07-12 17:57:12 -05:00
|
|
|
} else if args.len() <= 1u {
|
2012-07-14 00:57:48 -05:00
|
|
|
~[~"", ~"10000", ~"4"]
|
2012-07-12 17:57:12 -05:00
|
|
|
} else {
|
|
|
|
copy args
|
|
|
|
};
|
|
|
|
|
2012-08-22 19:24:52 -05:00
|
|
|
debug!("%?", args);
|
2012-07-12 17:57:12 -05:00
|
|
|
run(args);
|
|
|
|
}
|