// 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.

// A port of the simplistic benchmark from
//
//    http://github.com/PaulKeeble/ScalaVErlangAgents
//
// I *think* it's the same, more or less.

extern mod extra;

use std::os;
use std::task;
use std::uint;

fn move_out<T>(_x: T) {}

enum request {
    get_count,
    bytes(uint),
    stop
}

fn server(requests: &Port<request>, responses: &Chan<uint>) {
    let mut count: uint = 0;
    let mut done = false;
    while !done {
        match requests.recv_opt() {
          Some(get_count) => { responses.send(count.clone()); }
          Some(bytes(b)) => {
            //error!("server: received {:?} bytes", b);
            count += b;
          }
          None => { done = true; }
          _ => { }
        }
    }
    responses.send(count);
    //error!("server exiting");
}

fn run(args: &[~str]) {
    let (from_child, to_parent) = Chan::new();

    let size = from_str::<uint>(args[1]).unwrap();
    let workers = from_str::<uint>(args[2]).unwrap();
    let num_bytes = 100;
    let start = extra::time::precise_time_s();
    let mut worker_results = ~[];
    let from_parent = if workers == 1 {
        let (from_parent, to_child) = Chan::new();
        let mut builder = task::task();
        worker_results.push(builder.future_result());
        builder.spawn(proc() {
            for _ in range(0u, size / workers) {
                //error!("worker {:?}: sending {:?} bytes", i, num_bytes);
                to_child.send(bytes(num_bytes));
            }
            //error!("worker {:?} exiting", i);
        });
        from_parent
    } else {
        let (from_parent, to_child) = Chan::new();
        for _ in range(0u, workers) {
            let to_child = to_child.clone();
            let mut builder = task::task();
            worker_results.push(builder.future_result());
            builder.spawn(proc() {
                for _ in range(0u, size / workers) {
                    //error!("worker {:?}: sending {:?} bytes", i, num_bytes);
                    to_child.send(bytes(num_bytes));
                }
                //error!("worker {:?} exiting", i);
            });
        }
        from_parent
    };
    task::spawn(proc() {
        server(&from_parent, &to_parent);
    });

    for r in worker_results.iter() {
        r.recv();
    }

    //error!("sending stop message");
    //to_child.send(stop);
    //move_out(to_child);
    let result = from_child.recv();
    let end = extra::time::precise_time_s();
    let elapsed = end - start;
    print!("Count is {:?}\n", result);
    print!("Test took {:?} seconds\n", elapsed);
    let thruput = ((size / workers * workers) as f64) / (elapsed as f64);
    print!("Throughput={} per sec\n", thruput);
    assert_eq!(result, num_bytes * size);
}

fn main() {
    let args = os::args();
    let args = if os::getenv("RUST_BENCH").is_some() {
        ~[~"", ~"1000000", ~"8"]
    } else if args.len() <= 1u {
        ~[~"", ~"10000", ~"4"]
    } else {
        args.clone()
    };

    info!("{:?}", args);
    run(args);
}