#[crate_id(name="sleep", vers="1.0.0", author="Arcterus")];

/*
 * This file is part of the uutils coreutils package.
 *
 * (c) Arcterus <arcterus@mail.com>
 *
 * For the full copyright and license information, please view the LICENSE
 * file that was distributed with this source code.
 */

#[feature(macro_rules)];

extern mod extra;
extern mod getopts;

use std::num;
use std::cast;
use std::os;
use std::io::{print, timer};

#[path = "../util.rs"]
mod util;

static NAME: &'static str = "sleep";

fn main() {
    let args = os::args();
    let program = args[0].clone();

    let opts = ~[
        getopts::optflag("h", "help", "display this help and exit"),
        getopts::optflag("V", "version", "output version information and exit")
    ];
    let matches = match getopts::getopts(args.tail(), opts) {
        Ok(m) => m,
        Err(f) => {
            show_error!(1, "{}", f.to_err_msg());
            return
        }
    };

    if matches.opt_present("help") {
        println!("sleep 1.0.0");
        println!("");
        println!("Usage:");
        println!("  {0:s} NUMBER[SUFFIX]", program);
        println!("or");
        println!("  {0:s} OPTION", program);
        println!("");
        print(getopts::usage("Pause for NUMBER seconds.  SUFFIX may be 's' for seconds (the default),
'm' for minutes, 'h' for hours or 'd' for days.  Unlike most implementations
that require NUMBER be an integer, here NUMBER may be an arbitrary floating
point number.  Given two or more arguments, pause for the amount of time
specified by the sum of their values.", opts));
    } else if matches.opt_present("version") {
        println!("sleep 1.0.0");
    } else if matches.free.is_empty() {
        show_error!(1, "missing an argument");
        show_error!(1, "for help, try '{0:s} --help'", program);
    } else {
        sleep(matches.free);
    }
}

fn sleep(args: &[~str]) {
    let sleep_time = args.iter().fold(0.0, |result, arg| {
        let suffix_time = match match_suffix(unsafe { cast::transmute(arg) }) {
            Ok(m) => m,
            Err(f) => {
                crash!(1, "{}", f)
            }
        };
        let num =
            if suffix_time == 0 {
                0.0
            } else {
                match num::from_str_radix::<f64>((*arg), 10) {
                    Some(m) => m,
                    None => {
                        crash!(1, "Invalid time interval '{}'", *arg)
                    }
                }
            };
        result + num * suffix_time as f64
    });
    timer::sleep((sleep_time * 1000.0) as u64);
}

fn match_suffix(arg: &mut ~str) -> Result<int, ~str> {
    let result = match (*arg).pop_char() {
        's' | 'S' => Ok(1),
        'm' | 'M' => Ok(60),
        'h' | 'H' => Ok(60 * 60),
        'd' | 'D' => Ok(60 * 60 * 24),
        val => {
            (*arg).push_char(val);
            if !val.is_alphabetic() {
                return Ok(1)
            } else {
                return Err(format!("Invalid time interval '{}'", *arg))
            }
        }
    };
    result
}