2011-07-12 17:27:17 -05:00
|
|
|
use std;
|
2011-12-13 18:25:51 -06:00
|
|
|
import task;
|
|
|
|
import comm;
|
|
|
|
import comm::chan;
|
|
|
|
import comm::send;
|
|
|
|
import comm::recv;
|
2011-07-12 17:27:17 -05:00
|
|
|
|
2011-12-22 16:42:52 -06:00
|
|
|
fn main() { #debug("===== WITHOUT THREADS ====="); test00(); }
|
2010-07-19 16:05:18 -05:00
|
|
|
|
2012-01-04 23:14:53 -06:00
|
|
|
fn test00_start(ch: chan<int>, message: int, count: int) {
|
2011-12-22 16:42:52 -06:00
|
|
|
#debug("Starting test00_start");
|
2011-07-27 07:19:39 -05:00
|
|
|
let i: int = 0;
|
2011-08-10 16:38:49 -05:00
|
|
|
while i < count {
|
2011-12-22 16:42:52 -06:00
|
|
|
#debug("Sending Message");
|
2011-08-19 17:16:48 -05:00
|
|
|
send(ch, message + 0);
|
2011-08-10 16:38:49 -05:00
|
|
|
i = i + 1;
|
|
|
|
}
|
2011-12-22 16:42:52 -06:00
|
|
|
#debug("Ending test00_start");
|
2010-07-19 16:05:18 -05:00
|
|
|
}
|
|
|
|
|
2011-07-12 17:27:17 -05:00
|
|
|
fn test00() {
|
2011-07-27 07:19:39 -05:00
|
|
|
let number_of_tasks: int = 16;
|
|
|
|
let number_of_messages: int = 4;
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2011-12-22 16:42:52 -06:00
|
|
|
#debug("Creating tasks");
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2011-08-25 13:20:43 -05:00
|
|
|
let po = comm::port();
|
|
|
|
let ch = chan(po);
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2011-07-27 07:19:39 -05:00
|
|
|
let i: int = 0;
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2010-07-19 16:05:18 -05:00
|
|
|
// Create and spawn tasks...
|
2012-02-18 18:34:42 -06:00
|
|
|
let results = [];
|
2011-07-27 07:19:39 -05:00
|
|
|
while i < number_of_tasks {
|
2012-02-18 18:34:42 -06:00
|
|
|
let builder = task::mk_task_builder();
|
|
|
|
results += [task::future_result(builder)];
|
|
|
|
task::run(builder) {||
|
2012-01-04 23:14:53 -06:00
|
|
|
test00_start(ch, i, number_of_messages)
|
2012-02-18 18:34:42 -06:00
|
|
|
}
|
2010-08-09 08:53:37 -05:00
|
|
|
i = i + 1;
|
2010-07-19 16:05:18 -05:00
|
|
|
}
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2010-07-19 16:05:18 -05:00
|
|
|
// Read from spawned tasks...
|
2011-08-12 20:34:19 -05:00
|
|
|
let sum = 0;
|
2012-02-18 18:34:42 -06:00
|
|
|
for r in results {
|
2010-07-19 16:05:18 -05:00
|
|
|
i = 0;
|
2011-07-27 07:19:39 -05:00
|
|
|
while i < number_of_messages {
|
2011-08-25 13:20:43 -05:00
|
|
|
let value = recv(po);
|
2010-07-19 16:05:18 -05:00
|
|
|
sum += value;
|
|
|
|
i = i + 1;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// Join spawned tasks...
|
2012-02-18 18:34:42 -06:00
|
|
|
for r in results { future::get(r); }
|
2011-07-13 17:44:09 -05:00
|
|
|
|
2011-12-22 16:42:52 -06:00
|
|
|
#debug("Completed: Final number is: ");
|
2011-12-22 19:53:53 -06:00
|
|
|
log(error, sum);
|
2011-07-13 17:44:09 -05:00
|
|
|
// assert (sum == (((number_of_tasks * (number_of_tasks - 1)) / 2) *
|
2010-08-09 08:53:37 -05:00
|
|
|
// number_of_messages));
|
2011-05-02 19:47:24 -05:00
|
|
|
assert (sum == 480);
|
2011-08-06 12:07:39 -05:00
|
|
|
}
|