use nom::*;

use std::str;
use std::str::FromStr;
use super::messages::HWProtocolMessage;
use super::messages::HWProtocolMessage::*;

named!(end_of_message, tag!("\n\n"));
named!(a_line<&[u8], &str>, map_res!(not_line_ending, str::from_utf8));
//fn number_line<T>(input: &[u8]) -> IResult<&[u8], T> {
//}
named!(basic_message<&[u8], HWProtocolMessage>, alt!(
    do_parse!(tag!("PING") >> (Ping))
    | do_parse!(tag!("PONG") >> (Pong))
    | do_parse!(tag!("LIST") >> (List))
    | do_parse!(tag!("BANLIST") >> (BanList))
    | do_parse!(tag!("GET_SERVER_VAR") >> (GetServerVar))
    | do_parse!(tag!("TOGGLE_READY") >> (ToggleReady))
    | do_parse!(tag!("START_GAME") >> (StartGame))
    | do_parse!(tag!("ROUNDFINISHED") >> (RoundFinished))
    | do_parse!(tag!("TOGGLE_RESTRICT_JOINS") >> (ToggleRestrictJoin))
    | do_parse!(tag!("TOGGLE_RESTRICT_TEAMS") >> (ToggleRestrictTeams))
    | do_parse!(tag!("TOGGLE_REGISTERED_ONLY") >> (ToggleRegisteredOnly))
));

named!(one_param_message<&[u8], HWProtocolMessage>, alt!(
    do_parse!(tag!("NICK") >> eol >> n: a_line >> (Nick(n)))
    | do_parse!(tag!("PROTO") >> eol >> d: map_res!(a_line, FromStr::from_str) >> (Proto(d)))
));

named!(message<&[u8],HWProtocolMessage>, terminated!(alt!(
    basic_message
    | one_param_message
), end_of_message));

named!(messages<&[u8], Vec<HWProtocolMessage> >, many0!(message));

#[test]
fn parse_test() {
    assert_eq!(message(b"PING\n\n"), IResult::Done(&b""[..], Ping));
    assert_eq!(message(b"START_GAME\n\n"), IResult::Done(&b""[..], StartGame));
    assert_eq!(message(b"NICK\nit's me\n\n"), IResult::Done(&b""[..], Nick("it's me")));
    assert_eq!(message(b"PROTO\n51\n\n"), IResult::Done(&b""[..], Proto(51)));
}