2011-07-12 16:19:38 -05:00
|
|
|
/**
|
|
|
|
A somewhat reduced test case to expose some Valgrind issues.
|
|
|
|
|
|
|
|
This originally came from the word-count benchmark.
|
|
|
|
*/
|
|
|
|
|
|
|
|
use std;
|
|
|
|
|
2012-01-31 19:05:20 -06:00
|
|
|
import option = option;
|
2012-08-20 14:23:37 -05:00
|
|
|
import option::Some;
|
|
|
|
import option::None;
|
2011-12-13 18:25:51 -06:00
|
|
|
import str;
|
|
|
|
import vec;
|
2011-07-12 16:19:38 -05:00
|
|
|
import std::map;
|
2012-03-07 18:48:57 -06:00
|
|
|
import std::map::hashmap;
|
2011-12-13 18:25:51 -06:00
|
|
|
import task;
|
2012-08-15 16:10:46 -05:00
|
|
|
import comm::Chan;
|
2012-08-27 16:22:25 -05:00
|
|
|
import comm::Port;
|
2011-12-13 18:25:51 -06:00
|
|
|
import comm::send;
|
|
|
|
import comm::recv;
|
|
|
|
import comm;
|
2011-07-12 16:19:38 -05:00
|
|
|
|
2012-07-14 00:57:48 -05:00
|
|
|
fn map(filename: ~str, emit: map_reduce::putter) { emit(filename, ~"1"); }
|
2011-07-12 16:19:38 -05:00
|
|
|
|
|
|
|
mod map_reduce {
|
|
|
|
export putter;
|
|
|
|
export mapper;
|
|
|
|
export map_reduce;
|
|
|
|
|
2012-07-14 00:57:48 -05:00
|
|
|
type putter = fn@(~str, ~str);
|
2011-07-12 16:19:38 -05:00
|
|
|
|
2012-07-14 00:57:48 -05:00
|
|
|
type mapper = extern fn(~str, putter);
|
2011-07-12 16:19:38 -05:00
|
|
|
|
2012-08-15 16:10:46 -05:00
|
|
|
enum ctrl_proto { find_reducer(~[u8], Chan<int>), mapper_done, }
|
2011-07-12 16:19:38 -05:00
|
|
|
|
2012-08-15 16:10:46 -05:00
|
|
|
fn start_mappers(ctrl: Chan<ctrl_proto>, inputs: ~[~str]) {
|
2012-06-30 18:19:07 -05:00
|
|
|
for inputs.each |i| {
|
|
|
|
task::spawn(|| map_task(ctrl, i) );
|
2012-01-04 23:14:53 -06:00
|
|
|
}
|
2011-07-12 16:19:38 -05:00
|
|
|
}
|
|
|
|
|
2012-08-15 16:10:46 -05:00
|
|
|
fn map_task(ctrl: Chan<ctrl_proto>, input: ~str) {
|
2012-03-14 14:07:23 -05:00
|
|
|
let intermediates = map::str_hash();
|
2011-07-27 07:19:39 -05:00
|
|
|
|
2012-08-15 16:10:46 -05:00
|
|
|
fn emit(im: map::hashmap<~str, int>, ctrl: Chan<ctrl_proto>, key: ~str,
|
2012-07-14 00:57:48 -05:00
|
|
|
val: ~str) {
|
2012-03-22 10:39:41 -05:00
|
|
|
let mut c;
|
2012-08-06 14:34:08 -05:00
|
|
|
match im.find(key) {
|
2012-08-20 14:23:37 -05:00
|
|
|
Some(_c) => { c = _c }
|
|
|
|
None => {
|
2012-08-27 16:22:25 -05:00
|
|
|
let p = Port();
|
2012-08-22 19:24:52 -05:00
|
|
|
error!("sending find_reducer");
|
2012-08-27 16:22:25 -05:00
|
|
|
send(ctrl, find_reducer(str::to_bytes(key), Chan(p)));
|
2012-08-22 19:24:52 -05:00
|
|
|
error!("receiving");
|
2011-08-25 13:20:43 -05:00
|
|
|
c = recv(p);
|
2011-12-22 19:53:53 -06:00
|
|
|
log(error, c);
|
2011-08-31 17:23:34 -05:00
|
|
|
im.insert(key, c);
|
2011-07-27 07:19:39 -05:00
|
|
|
}
|
2011-07-12 16:19:38 -05:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2012-06-30 18:19:07 -05:00
|
|
|
map(input, |a,b| emit(intermediates, ctrl, a, b) );
|
2011-08-13 17:20:11 -05:00
|
|
|
send(ctrl, mapper_done);
|
2011-07-12 16:19:38 -05:00
|
|
|
}
|
|
|
|
|
2012-07-14 00:57:48 -05:00
|
|
|
fn map_reduce(inputs: ~[~str]) {
|
2012-08-27 16:22:25 -05:00
|
|
|
let ctrl = Port();
|
2011-07-12 16:19:38 -05:00
|
|
|
|
|
|
|
// This task becomes the master control task. It spawns others
|
|
|
|
// to do the rest.
|
|
|
|
|
2012-07-14 00:57:48 -05:00
|
|
|
let mut reducers: map::hashmap<~str, int>;
|
2011-07-12 16:19:38 -05:00
|
|
|
|
2012-03-14 14:07:23 -05:00
|
|
|
reducers = map::str_hash();
|
2011-07-12 16:19:38 -05:00
|
|
|
|
2012-08-27 16:22:25 -05:00
|
|
|
start_mappers(Chan(ctrl), inputs);
|
2011-07-12 16:19:38 -05:00
|
|
|
|
2012-03-22 10:39:41 -05:00
|
|
|
let mut num_mappers = vec::len(inputs) as int;
|
2011-07-12 16:19:38 -05:00
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
while num_mappers > 0 {
|
2012-08-06 14:34:08 -05:00
|
|
|
match recv(ctrl) {
|
2012-08-03 21:59:04 -05:00
|
|
|
mapper_done => { num_mappers -= 1; }
|
|
|
|
find_reducer(k, cc) => {
|
2012-03-22 10:39:41 -05:00
|
|
|
let mut c;
|
2012-08-06 14:34:08 -05:00
|
|
|
match reducers.find(str::from_bytes(k)) {
|
2012-08-20 14:23:37 -05:00
|
|
|
Some(_c) => { c = _c; }
|
|
|
|
None => { c = 0; }
|
2011-08-13 17:20:11 -05:00
|
|
|
}
|
|
|
|
send(cc, c);
|
2011-07-27 07:19:39 -05:00
|
|
|
}
|
2011-07-12 16:19:38 -05:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2011-07-23 15:01:05 -05:00
|
|
|
fn main() {
|
2012-07-14 00:57:48 -05:00
|
|
|
map_reduce::map_reduce(~[~"../src/test/run-pass/hashmap-memory.rs"]);
|
2011-08-15 23:54:52 -05:00
|
|
|
}
|