// Copyright (c) 2014 by SiegeLord
//
// All rights reserved. Distributed under LGPL 3.0. For full terms see the file LICENSE.

use serde::{de, ser};
use std;
use std::cmp::{max, min};
use std::fmt::{self, Display};
use std::path::Path;
use std::str::CharIndices;
use std::usize;

pub enum StringQuoteType
{
	Naked,
	Quoted(usize),
}

pub fn get_string_quote_type(s: &str) -> StringQuoteType
{
	if s.is_empty()
	{
		return StringQuoteType::Quoted(0);
	}

	let mut max_brace_run: i32 = -1;
	let mut curr_brace_run: i32 = -1;
	let mut naked = true;
	for (i, c) in s.chars().enumerate()
	{
		if i == 0 && !is_string_border(c)
		{
			naked = false;
		}
		if i == s.len() - 1 && !is_string_border(c)
		{
			naked = false;
		}
		if i > 1 && i < s.len() - 1 && !is_string_middle(c)
		{
			naked = false;
		}

		if curr_brace_run >= 0
		{
			if c == '}'
			{
				curr_brace_run += 1;
				max_brace_run = max(max_brace_run, curr_brace_run);
			}
			else
			{
				curr_brace_run = -1;
			}
		}
		else if c == '"'
		{
			curr_brace_run = 0;
			max_brace_run = max(max_brace_run, curr_brace_run);
		}
		else if c == '\\'
		{
			naked = false;
			max_brace_run = 0;
		}
	}
	if naked
	{
		return StringQuoteType::Naked;
	}
	else if max_brace_run >= 0
	{
		StringQuoteType::Quoted(max(2, max_brace_run as usize + 1))
	}
	else
	{
		StringQuoteType::Quoted(0)
	}
}

fn grow_str(string: &mut String, count: usize, ch: char)
{
	string.reserve(count);
	for _ in 0..count
	{
		string.push(ch);
	}
}

/// Type representing a certain sub-section of the source.
#[derive(Debug, Copy, Clone)]
pub struct Span
{
	start: usize,
	len: usize,
}

impl Span
{
	pub fn new() -> Span
	{
		Span {
			start: usize::MAX,
			len: 0,
		}
	}

	pub fn is_valid(&self) -> bool
	{
		self.start != usize::MAX
	}

	pub fn combine(&mut self, other: Span)
	{
		if !self.is_valid()
		{
			*self = other;
		}
		else if other.is_valid()
		{
			self.start = min(self.start, other.start);
			self.len = max(self.start + self.len, other.start + other.len) - self.start;
		}
	}
}

#[derive(Debug, Copy, Clone)]
pub struct Token<'s>
{
	pub kind: TokenKind<'s>,
	pub span: Span,
}

impl<'s> Token<'s>
{
	fn new(kind: TokenKind<'s>, span: Span) -> Token<'s>
	{
		Token {
			kind: kind,
			span: span,
		}
	}
}

#[derive(PartialEq, Debug, Copy, Clone)]
pub enum TokenKind<'l>
{
	EscapedString(&'l str),
	RawString(&'l str),
	Assign,
	LeftBracket,
	RightBracket,
	LeftBrace,
	RightBrace,
	Dollar,
	Comma,
	Tilde,
	Eof,
}

impl<'l> TokenKind<'l>
{
	pub fn is_string(&self) -> bool
	{
		match *self
		{
			TokenKind::EscapedString(_) | TokenKind::RawString(_) => true,
			_ => false,
		}
	}
}

fn is_string_border(c: char) -> bool
{
	!c.is_whitespace()
		&& c != '='
		&& c != '['
		&& c != ']'
		&& c != '{'
		&& c != '}'
		&& c != '$'
		&& c != ','
		&& c != '~'
		&& c != '"'
		&& c != '#'
}

fn is_string_middle(c: char) -> bool
{
	is_string_border(c) || c == ' '
}

fn is_newline(c: char) -> bool
{
	c == '\n'
}

/// Annotated representation of the configuration source string.
#[derive(Clone)]
pub struct Source<'l>
{
	filename: &'l Path,
	source: &'l str,
	chars: CharIndices<'l>,

	cur_char: Option<char>,
	cur_pos: usize,

	next_char: Option<char>,
	next_pos: usize,

	line_start_pos: usize,
	at_newline: bool,

	line_ends: Vec<usize>,

	span_start: usize,
}

impl<'l> Source<'l>
{
	pub fn new(filename: &'l Path, source: &'l str) -> Source<'l>
	{
		let chars = source.char_indices();
		let mut src = Source {
			filename: filename,
			source: source,
			chars: chars,
			cur_char: None,
			cur_pos: 0,
			next_char: None,
			next_pos: 0,
			line_start_pos: 0,
			at_newline: false,
			line_ends: vec![],
			span_start: 0,
		};
		src.bump();
		src.bump();
		src
	}

	fn reset(&mut self)
	{
		*self = Source::new(self.filename, self.source);
	}

	fn get_line_start_end(&self, line: usize) -> (usize, usize)
	{
		if line > self.line_ends.len() + 1
		{
			panic!("Trying to get an unvisited line!");
		}
		let start = if line == 0
		{
			0
		}
		else
		{
			self.line_ends[line - 1]
		};
		let start = match self.source[start..].chars().position(|c| !is_newline(c))
		{
			Some(offset) => start + offset,
			None => self.source.len(),
		};
		let end = match self.source[start..].chars().position(|c| is_newline(c))
		{
			Some(end) => end + start,
			None => self.source.len(),
		};
		(start, end)
	}

	fn get_line(&self, line: usize) -> &str
	{
		let (start, end) = self.get_line_start_end(line);
		&self.source[start..end]
	}

	#[allow(dead_code)]
	fn get_cur_col(&self) -> usize
	{
		if self.cur_pos >= self.line_start_pos
		{
			self.cur_pos - self.line_start_pos
		}
		else
		{
			0
		}
	}

	#[allow(dead_code)]
	fn get_cur_line(&self) -> usize
	{
		self.line_ends.len()
	}

	fn start_span(&mut self)
	{
		self.span_start = self.cur_pos;
	}

	fn get_span(&self) -> Span
	{
		let len = if self.cur_pos == self.span_start
		{
			1
		}
		else
		{
			self.cur_pos - self.span_start
		};
		Span {
			start: self.span_start,
			len: len,
		}
	}

	fn get_line_col_from_pos(&self, pos: usize) -> (usize, usize)
	{
		let line = match self.line_ends.binary_search(&pos)
		{
			Ok(n) => n,
			Err(n) => n,
		};
		let (start, _) = self.get_line_start_end(line);
		if pos < start
		{
			panic!("Position less than line start (somehow got a position inside a newline!)")
		}
		(line, pos - start)
	}

	fn bump(&mut self) -> Option<char>
	{
		self.cur_char = self.next_char;
		self.cur_pos = self.next_pos;

		match self.chars.next()
		{
			Some((pos, c)) =>
			{
				self.next_pos = pos;
				self.next_char = Some(c);
			}
			None =>
			{
				self.next_pos = self.source.len();
				self.next_char = None;
			}
		}

		self.at_newline = self.cur_char.map_or(false, |c| is_newline(c));

		if self.at_newline
		{
			self.line_start_pos = self.cur_pos + 1;
			self.line_ends.push(self.cur_pos);
		}

		self.cur_char
	}
}

impl<'l> Iterator for Source<'l>
{
	type Item = char;
	fn next(&mut self) -> Option<char>
	{
		self.bump()
	}
}

/// A type handling the lexing.
pub struct Lexer<'l, 's>
where
	's: 'l,
{
	source: &'l mut Source<'s>,
	pub cur_token: Option<Result<Token<'s>, Error>>,
	pub next_token: Option<Result<Token<'s>, Error>>,
}

/// An enum describing the kind of the error, to allow treating different
/// errors differenly.
#[derive(Debug, Copy, Clone, PartialEq)]
pub enum ErrorKind
{
	/// A parse error has occured. This error is not recoverable.
	ParseFailure,
	/// An object could not be parsed from its ConfigElement representation.
	/// This error is recoverable, but the value the the object is in an
	/// unspecified state.
	InvalidRepr,
	/// While parsing a struct from a table, an unknown field was found. This
	/// error is recoverable, and the struct is unaffected.
	UnknownField,
	/// A custom error available to 3rd party implementors. The semantics are
	/// defined by the 3rd party.
	Custom(i32),
}

/// The error type used throughout this crate.
#[derive(Debug, Clone)]
pub struct Error
{
	pub kind: ErrorKind,
	pub text: String,
}

impl Error
{
	pub fn new(kind: ErrorKind, text: String) -> Error
	{
		Error {
			kind: kind,
			text: text,
		}
	}

	fn from_pos<'l>(pos: usize, source: Option<&Source<'l>>, kind: ErrorKind, msg: &str) -> Error
	{
		match source
		{
			Some(source) =>
			{
				let (line, col) = source.get_line_col_from_pos(pos);

				let source_line = source.get_line(line);
				let mut col_str = String::with_capacity(col + 1);
				if col > 0
				{
					let num_tabs = source_line[..col].chars().filter(|&c| c == '\t').count();
					grow_str(&mut col_str, col + num_tabs * 3, ' ');
				}
				col_str.push('^');

				let source_line = source_line.replace("\t", "    ");
				Error::new(
					kind,
					format!(
						"{}:{}:{}: error: {}\n{}\n{}\n",
						source.filename.display(),
						line + 1,
						col,
						msg,
						source_line,
						col_str
					),
				)
			}
			None => Error::new(kind, format!("error: {}\n", msg)),
		}
	}

	/// Creates an error from a certain span of the source. The source argument,
	/// if set, must be set to the source that was used when the span was created.
	pub fn from_span(span: Span, source: Option<&Source>, kind: ErrorKind, msg: &str) -> Error
	{
		match source
		{
			Some(source) =>
			{
				if span.is_valid()
				{
					let (start_line, start_col) = source.get_line_col_from_pos(span.start);
					let (end_line, end_col) =
						source.get_line_col_from_pos(span.start + span.len - 1);

					let source_line = source.get_line(start_line);
					let end_col = if start_line == end_line
					{
						end_col
					}
					else
					{
						source_line.len() - 1
					};

					let mut col_str = String::with_capacity(end_col);
					if start_col > 0
					{
						let num_start_tabs = source_line[..start_col]
							.chars()
							.filter(|&c| c == '\t')
							.count();
						grow_str(&mut col_str, start_col + num_start_tabs * 3, ' ');
					}
					col_str.push('^');
					if end_col > start_col + 1
					{
						let num_end_tabs = source_line[start_col..end_col]
							.chars()
							.filter(|&c| c == '\t')
							.count();
						grow_str(&mut col_str, end_col - start_col + num_end_tabs * 3, '~');
					}

					let source_line = source_line.replace("\t", "    ");
					Error::new(
						kind,
						format!(
							"{}:{}:{}-{}:{}: error: {}\n{}\n{}\n",
							source.filename.display(),
							start_line + 1,
							start_col,
							end_line + 1,
							end_col,
							msg,
							source_line,
							col_str
						),
					)
				}
				else
				{
					Error::new(
						kind,
						format!("{}: error: {}\n", source.filename.display(), msg),
					)
				}
			}
			None => Error::new(kind, format!("error: {}\n", msg)),
		}
	}
}

impl ser::Error for Error
{
	fn custom<T: Display>(msg: T) -> Self
	{
		Error::new(ErrorKind::InvalidRepr, msg.to_string())
	}
}

impl de::Error for Error
{
	fn custom<T: Display>(msg: T) -> Self
	{
		Error::new(ErrorKind::InvalidRepr, msg.to_string())
	}
}

impl Display for Error
{
	fn fmt(&self, formatter: &mut fmt::Formatter) -> fmt::Result
	{
		formatter.write_str(&self.text)
	}
}

impl std::error::Error for Error
{
	fn description(&self) -> &str
	{
		&self.text
	}
}

fn lex_error<'l, T>(pos: usize, source: &Source<'l>, msg: &str) -> Result<T, Error>
{
	Err(Error::from_pos(
		pos,
		Some(source),
		ErrorKind::ParseFailure,
		msg,
	))
}

impl<'l, 's> Lexer<'l, 's>
{
	/// Creates a new lexer from a source. The source will be reset by this
	/// operation, and must not be used with any spans created from a previous
	/// lexing done with that source.
	pub fn new(source: &'l mut Source<'s>) -> Lexer<'l, 's>
	{
		source.reset();
		let mut lex = Lexer {
			source: source,
			cur_token: None,
			next_token: None,
		};
		lex.next();
		lex
	}

	pub fn get_source(&self) -> &Source<'s>
	{
		&self.source
	}

	fn skip_whitespace(&mut self) -> bool
	{
		if !self.source.cur_char.map_or(false, |c| c.is_whitespace())
		{
			return false;
		}
		for c in &mut self.source
		{
			if !c.is_whitespace()
			{
				break;
			}
		}
		true
	}

	fn skip_comments(&mut self) -> bool
	{
		if self.source.cur_char != Some('#')
		{
			return false;
		}

		loop
		{
			if self.source.next().is_none()
			{
				break;
			}
			if self.source.at_newline
			{
				break;
			}
		}
		true
	}

	fn eat_string(&mut self) -> Option<Result<Token<'s>, Error>>
	{
		//~ println!("naked: {}", self.source.cur_char);
		if !self
			.source
			.cur_char
			.map_or(false, |c| is_string_border(c) || c == '\\')
		{
			return None;
		}

		let start_pos = self.source.cur_pos;
		let mut end_pos = self.source.cur_pos;
		let mut last_is_border = true;
		let mut escape_next = false;
		loop
		{
			if last_is_border
			{
				end_pos = self.source.cur_pos;
			}

			match self.source.cur_char
			{
				Some(c) =>
				{
					if escape_next
					{
						last_is_border = true;
						escape_next = false;
					}
					else if is_string_border(c)
					{
						last_is_border = true;
						if c == '\\'
						{
							escape_next = true;
						}
					}
					else if is_string_middle(c)
					{
						last_is_border = false;
					}
					else
					{
						break;
					}
				}
				None =>
				{
					break;
				}
			}
			self.source.bump();
		}

		if escape_next
		{
			/* Got EOF while trying to escape it... */
			return Some(lex_error(
				end_pos,
				&self.source,
				"Unexpected EOF while parsing escape in string literal",
			));
		}

		let contents = &self.source.source[start_pos..end_pos];
		let span = Span {
			start: start_pos,
			len: end_pos - start_pos,
		};
		Some(Ok(Token::new(TokenKind::EscapedString(contents), span)))
	}

	fn eat_raw_string(&mut self) -> Option<Result<Token<'s>, Error>>
	{
		if self.source.cur_char != Some('"')
			&& !(self.source.cur_char == Some('{') && self.source.next_char == Some('{'))
		{
			return None;
		}
		self.source.start_span();
		let mut num_leading_braces = 0;
		loop
		{
			match self.source.cur_char
			{
				Some(c) => match c
				{
					'{' =>
					{
						num_leading_braces += 1;
						self.source.bump();
					}
					'"' =>
					{
						self.source.bump();
						break;
					}
					_ =>
					{
						return Some(lex_error(
							self.source.span_start,
							&self.source,
							r#"Unexpected character while parsing raw string literal (expected '{' or '"')"#,
						))
					}
				},
				None => break,
			}
		}

		let start_pos = self.source.cur_pos;
		let mut end_pos = start_pos;
		let mut num_trailing_braces = 0;
		let mut counting = false;
		loop
		{
			match self.source.cur_char
			{
				Some(c) =>
				{
					if c == '"'
					{
						end_pos = self.source.cur_pos;
						counting = true;
						num_trailing_braces = 0;
					}
					else if counting
					{
						if c == '}'
						{
							num_trailing_braces += 1;
						}
						else
						{
							counting = false;
							num_trailing_braces = 0;
						}
					}
					if counting && num_trailing_braces == num_leading_braces
					{
						self.source.bump();
						break;
					}
				}
				None => break,
			}
			self.source.bump();
		}

		if self.source.cur_char.is_none()
		{
			Some(lex_error(
				self.source.span_start,
				&self.source,
				"Unterminated quoted string literal",
			))
		}
		else
		{
			if num_leading_braces == 0
			{
				Some(Ok(Token::new(
					TokenKind::EscapedString(&self.source.source[start_pos..end_pos]),
					self.source.get_span(),
				)))
			}
			else
			{
				Some(Ok(Token::new(
					TokenKind::RawString(&self.source.source[start_pos..end_pos]),
					self.source.get_span(),
				)))
			}
		}
	}

	fn eat_char_tokens(&mut self) -> Option<Result<Token<'s>, Error>>
	{
		//~ println!("char");
		#[cfg_attr(rustfmt, rustfmt_skip)]
		self.source
			.cur_char
			.and_then(|c| match c
			{
				'=' => Some(TokenKind::Assign),
				'[' => Some(TokenKind::LeftBracket),
				']' => Some(TokenKind::RightBracket),
				'{' => Some(TokenKind::LeftBrace),
				'}' => Some(TokenKind::RightBrace),
				'$' => Some(TokenKind::Dollar),
				',' => Some(TokenKind::Comma),
				'~' => Some(TokenKind::Tilde),
				_ => None,
			})
			.map(|kind| {
					self.source.start_span();
					self.source.bump();
					Ok(Token::new(kind, self.source.get_span()))
				})
	}

	pub fn next(&mut self) -> Option<Result<Token<'s>, Error>>
	{
		if self.cur_token.as_ref().map_or(true, |res| res.is_ok())
		{
			while self.skip_whitespace() || self.skip_comments()
			{}
			self.cur_token = self.next_token.take();
			self.next_token = self
				.eat_raw_string()
				.or_else(|| self.eat_char_tokens())
				.or_else(|| self.eat_string());
		}

		self.cur_token.clone()
	}
}