149 lines
4.3 KiB
Rust
149 lines
4.3 KiB
Rust
// Copyright 2012 The Rust Project Developers. See the COPYRIGHT
|
|
// file at the top-level directory of this distribution and at
|
|
// http://rust-lang.org/COPYRIGHT.
|
|
//
|
|
// Licensed under the Apache License, Version 2.0 <LICENSE-APACHE or
|
|
// http://www.apache.org/licenses/LICENSE-2.0> or the MIT license
|
|
// <LICENSE-MIT or http://opensource.org/licenses/MIT>, at your
|
|
// option. This file may not be copied, modified, or distributed
|
|
// except according to those terms.
|
|
|
|
use core::cast;
|
|
use core::prelude::*;
|
|
use core::ptr;
|
|
use core::sys;
|
|
use core::uint;
|
|
use core::vec;
|
|
|
|
use future_spawn = future::spawn;
|
|
|
|
|
|
/**
|
|
* The maximum number of tasks this module will spawn for a single
|
|
* operation.
|
|
*/
|
|
static max_tasks : uint = 32u;
|
|
|
|
/// The minimum number of elements each task will process.
|
|
static min_granularity : uint = 1024u;
|
|
|
|
/**
|
|
* An internal helper to map a function over a large vector and
|
|
* return the intermediate results.
|
|
*
|
|
* This is used to build most of the other parallel vector functions,
|
|
* like map or alli.
|
|
*/
|
|
fn map_slices<A:Copy + Owned,B:Copy + Owned>(
|
|
xs: &[A],
|
|
f: &fn() -> ~fn(uint, v: &[A]) -> B)
|
|
-> ~[B] {
|
|
|
|
let len = xs.len();
|
|
if len < min_granularity {
|
|
info!("small slice");
|
|
// This is a small vector, fall back on the normal map.
|
|
~[f()(0u, xs)]
|
|
}
|
|
else {
|
|
let num_tasks = uint::min(max_tasks, len / min_granularity);
|
|
|
|
let items_per_task = len / num_tasks;
|
|
|
|
let mut futures = ~[];
|
|
let mut base = 0u;
|
|
info!("spawning tasks");
|
|
while base < len {
|
|
let end = uint::min(len, base + items_per_task);
|
|
do vec::as_imm_buf(xs) |p, _len| {
|
|
let f = f();
|
|
let base = base;
|
|
let f = do future_spawn() || {
|
|
unsafe {
|
|
let len = end - base;
|
|
let slice = (ptr::offset(p, base),
|
|
len * sys::size_of::<A>());
|
|
info!("pre-slice: %?", (base, slice));
|
|
let slice : &[A] =
|
|
cast::reinterpret_cast(&slice);
|
|
info!("slice: %?",
|
|
(base, vec::len(slice), end - base));
|
|
fail_unless!((vec::len(slice) == end - base));
|
|
f(base, slice)
|
|
}
|
|
};
|
|
futures.push(f);
|
|
};
|
|
base += items_per_task;
|
|
}
|
|
info!("tasks spawned");
|
|
|
|
info!("num_tasks: %?", (num_tasks, futures.len()));
|
|
fail_unless!((num_tasks == futures.len()));
|
|
|
|
let r = do futures.map() |ys| {
|
|
ys.get()
|
|
};
|
|
fail_unless!((r.len() == futures.len()));
|
|
r
|
|
}
|
|
}
|
|
|
|
/// A parallel version of map.
|
|
pub fn map<A:Copy + Owned,B:Copy + Owned>(
|
|
xs: &[A], fn_factory: &fn() -> ~fn(&A) -> B) -> ~[B] {
|
|
vec::concat(map_slices(xs, || {
|
|
let f = fn_factory();
|
|
let result: ~fn(uint, &[A]) -> ~[B] =
|
|
|_, slice| vec::map(slice, |x| f(x));
|
|
result
|
|
}))
|
|
}
|
|
|
|
/// A parallel version of mapi.
|
|
pub fn mapi<A:Copy + Owned,B:Copy + Owned>(
|
|
xs: &[A],
|
|
fn_factory: &fn() -> ~fn(uint, &A) -> B) -> ~[B] {
|
|
let slices = map_slices(xs, || {
|
|
let f = fn_factory();
|
|
let result: ~fn(uint, &[A]) -> ~[B] = |base, slice| {
|
|
vec::mapi(slice, |i, x| {
|
|
f(i + base, x)
|
|
})
|
|
};
|
|
result
|
|
});
|
|
let r = vec::concat(slices);
|
|
info!("%?", (r.len(), xs.len()));
|
|
fail_unless!((r.len() == xs.len()));
|
|
r
|
|
}
|
|
|
|
/// Returns true if the function holds for all elements in the vector.
|
|
pub fn alli<A:Copy + Owned>(
|
|
xs: &[A],
|
|
fn_factory: &fn() -> ~fn(uint, &A) -> bool) -> bool
|
|
{
|
|
do vec::all(map_slices(xs, || {
|
|
let f = fn_factory();
|
|
let result: ~fn(uint, &[A]) -> bool = |base, slice| {
|
|
vec::alli(slice, |i, x| {
|
|
f(i + base, x)
|
|
})
|
|
};
|
|
result
|
|
})) |x| { *x }
|
|
}
|
|
|
|
/// Returns true if the function holds for any elements in the vector.
|
|
pub fn any<A:Copy + Owned>(
|
|
xs: &[A],
|
|
fn_factory: &fn() -> ~fn(&A) -> bool) -> bool {
|
|
do vec::any(map_slices(xs, || {
|
|
let f = fn_factory();
|
|
let result: ~fn(uint, &[A]) -> bool =
|
|
|_, slice| vec::any(slice, |x| f(x));
|
|
result
|
|
})) |x| { *x }
|
|
}
|