2012-01-23 17:29:09 -06:00
|
|
|
// A port of the simplistic benchmark from
|
|
|
|
//
|
|
|
|
// http://github.com/PaulKeeble/ScalaVErlangAgents
|
|
|
|
//
|
|
|
|
// I *think* it's the same, more or less.
|
|
|
|
|
|
|
|
use std;
|
2012-03-12 22:04:27 -05:00
|
|
|
import io::writer;
|
|
|
|
import io::writer_util;
|
2012-01-23 17:29:09 -06:00
|
|
|
|
|
|
|
enum request {
|
|
|
|
get_count,
|
|
|
|
bytes(uint),
|
|
|
|
stop
|
|
|
|
}
|
|
|
|
|
|
|
|
fn server(requests: comm::port<request>, responses: comm::chan<uint>) {
|
2012-03-22 10:39:41 -05:00
|
|
|
let mut count = 0u;
|
|
|
|
let mut done = false;
|
2012-01-23 17:29:09 -06:00
|
|
|
while !done {
|
|
|
|
alt comm::recv(requests) {
|
|
|
|
get_count { comm::send(responses, copy count); }
|
|
|
|
bytes(b) { count += b; }
|
|
|
|
stop { done = true; }
|
|
|
|
}
|
|
|
|
}
|
|
|
|
comm::send(responses, count);
|
|
|
|
}
|
|
|
|
|
|
|
|
fn run(args: [str]) {
|
2012-02-18 18:34:42 -06:00
|
|
|
let from_child = comm::port();
|
|
|
|
let to_parent = comm::chan(from_child);
|
|
|
|
let to_child = task::spawn_listener {|po|
|
|
|
|
server(po, to_parent);
|
|
|
|
};
|
2012-02-22 06:18:15 -06:00
|
|
|
let size = option::get(uint::from_str(args[1]));
|
|
|
|
let workers = option::get(uint::from_str(args[2]));
|
2012-01-23 17:29:09 -06:00
|
|
|
let start = std::time::precise_time_s();
|
2012-02-18 18:34:42 -06:00
|
|
|
let to_child = to_child;
|
2012-03-22 10:39:41 -05:00
|
|
|
let mut worker_results = [];
|
2012-01-23 17:29:09 -06:00
|
|
|
uint::range(0u, workers) {|_i|
|
2012-04-05 16:09:32 -05:00
|
|
|
let builder = task::builder();
|
2012-02-18 18:34:42 -06:00
|
|
|
worker_results += [task::future_result(builder)];
|
|
|
|
task::run(builder) {||
|
2012-01-23 17:29:09 -06:00
|
|
|
uint::range(0u, size / workers) {|_i|
|
|
|
|
comm::send(to_child, bytes(100u));
|
|
|
|
}
|
2012-02-18 18:34:42 -06:00
|
|
|
};
|
2012-01-23 17:29:09 -06:00
|
|
|
}
|
2012-02-18 18:34:42 -06:00
|
|
|
vec::iter(worker_results) {|r| future::get(r); }
|
|
|
|
comm::send(to_child, stop);
|
|
|
|
let result = comm::recv(from_child);
|
2012-01-23 17:29:09 -06:00
|
|
|
let end = std::time::precise_time_s();
|
|
|
|
let elapsed = end - start;
|
2012-03-12 22:04:27 -05:00
|
|
|
io::stdout().write_str(#fmt("Count is %?\n", result));
|
|
|
|
io::stdout().write_str(#fmt("Test took %? seconds\n", elapsed));
|
2012-02-09 04:50:54 -06:00
|
|
|
let thruput = ((size / workers * workers) as float) / (elapsed as float);
|
2012-03-12 22:04:27 -05:00
|
|
|
io::stdout().write_str(#fmt("Throughput=%f per sec\n", thruput));
|
2012-01-23 17:29:09 -06:00
|
|
|
}
|
|
|
|
|
|
|
|
fn main(args: [str]) {
|
|
|
|
let args1 = if vec::len(args) <= 1u { ["", "10000", "4"] } else { args };
|
|
|
|
#debug("%?", args1);
|
|
|
|
run(args1);
|
|
|
|
}
|
|
|
|
|