/**
 * \file BiblioInfo.cpp
 * This file is part of LyX, the document processor.
 * Licence details can be found in the file COPYING.
 *
 * \author Angus Leeming
 * \author Herbert Voß
 * \author Richard Heck
 *
 * Full author contact details are available in file CREDITS.
 */

#include <config.h>

#include "BiblioInfo.h"
#include "Buffer.h"
#include "BufferParams.h"
#include "buffer_funcs.h"
#include "gettext.h"
#include "InsetIterator.h"
#include "Paragraph.h"

#include "insets/Inset.h"
#include "insets/InsetBibitem.h"
#include "insets/InsetBibtex.h"
#include "insets/InsetInclude.h"

#include "support/lstrings.h"
#include "support/docstream.h"

#include "boost/regex.hpp"

using std::string;
using std::vector;
using std::pair;
using std::endl;
using std::set;

namespace lyx {
using support::bformat;
using support::compare_no_case;
using support::getVectorFromString;
using support::ltrim;
using support::rtrim;

////////////////////////////////////////
//
// BibTeXInfo
//
////////////////////////////////////////

BibTeXInfo::BibTeXInfo() : isBibTeX(true)
{}

	
bool BibTeXInfo::hasField(docstring const & field) const
{
	return count(field) == 1;
}


docstring const & BibTeXInfo::getValueForField(docstring const & field) const
{
	BibTeXInfo::const_iterator it = find(field);
	if (it != end())
		return it->second;
	static docstring const empty_value = docstring();
	return empty_value;
}
	
	
docstring const & BibTeXInfo::getValueForField(string const & field) const
{
	return getValueForField(from_ascii(field));
}


namespace {
	docstring const familyName(docstring const & name)
	{
		if (name.empty())
			return docstring();

		// Very simple parser
		docstring fname = name;

		// possible authorname combinations are:
		// "Surname, FirstName"
		// "Surname, F."
		// "FirstName Surname"
		// "F. Surname"
		docstring::size_type idx = fname.find(',');
		if (idx != docstring::npos)
			return ltrim(fname.substr(0, idx));
		idx = fname.rfind('.');
		if (idx != docstring::npos && idx + 1 < fname.size())
			fname = ltrim(fname.substr(idx + 1));
		// test if we have a LaTeX Space in front
		if (fname[0] == '\\')
			return fname.substr(2);
		return rtrim(fname);
	}
} // namespace anon



docstring const BibTeXInfo::getAbbreviatedAuthor() const
{
	if (!isBibTeX) 
		return docstring();
 
	docstring author = getValueForField("author");
 
	if (author.empty()) {
		author = getValueForField("editor");
		if (author.empty())
			return bibKey;
	}

	//OK, we've got some names. Let's format them.
	//Try to split the author list on " and "
	vector<docstring> const authors =
		getVectorFromString(author, from_ascii(" and "));
	
	if (authors.size() == 2)
		return bformat(_("%1$s and %2$s"),
			familyName(authors[0]), familyName(authors[1]));
	else if (authors.size() > 2)
		return bformat(_("%1$s et al."), familyName(authors[0]));
	else  
		return familyName(authors[0]);
}

docstring const BibTeXInfo::getYear() const
{
	if (!isBibTeX) 
		return docstring();
 
	docstring year = getValueForField("year");
	if (year.empty())
		year = _("No year");
	return year;
}


docstring const BibTeXInfo::getInfo() const
{
	if (!isBibTeX) {
		BibTeXInfo::const_iterator it = find(from_ascii("ref"));
		return it->second;
	}
 
	//FIXME
	//This could be made alot better using the entryType
	//field to customize the output based upon entry type.
	
	//Search for all possible "required" fields
	docstring author = getValueForField("author");
	if (author.empty())
		author = getValueForField("editor");
 
	docstring year      = getValueForField("year");
	docstring title     = getValueForField("title");
	docstring docLoc    = getValueForField("pages");
	if (docLoc.empty()) {
		docLoc = getValueForField("chapter");
		if (!docLoc.empty())
			docLoc = from_ascii("Ch. ") + docLoc;
	}	else 
		docLoc = from_ascii("pp. ") + docLoc;
		docstring media = getValueForField("journal");
		if (media.empty()) {
			media = getValueForField("publisher");
			if (media.empty()) {
				media = getValueForField("school");
				if (media.empty())
					media = getValueForField("institution");
			}
		}
		docstring volume = getValueForField("volume");
 
		odocstringstream result;
		if (!author.empty())
			result << author << ", ";
		if (!title.empty())
			result << title;
		if (!media.empty())
			result << ", " << media;
		if (!year.empty())
			result << ", " << year;
		if (!docLoc.empty())
			result << ", " << docLoc;
 
		docstring const result_str = rtrim(result.str());
		if (!result_str.empty())
			return result_str;
 
 	// This should never happen (or at least be very unusual!)
		return docstring();
}


////////////////////////////////////////
//
// BiblioInfo
//
////////////////////////////////////////

namespace {
// A functor for use with std::sort, leading to case insensitive sorting
	class compareNoCase: public std::binary_function<docstring, docstring, bool>
	{
		public:
			bool operator()(docstring const & s1, docstring const & s2) const {
				return compare_no_case(s1, s2) < 0;
			}
	};
} // namespace anon


vector<docstring> const BiblioInfo::getKeys() const
{
	vector<docstring> bibkeys;
	BiblioInfo::const_iterator it  = begin();
	for (; it != end(); ++it)
		bibkeys.push_back(it->first);
	std::sort(bibkeys.begin(), bibkeys.end(), compareNoCase());
	return bibkeys;
}


vector<docstring> const BiblioInfo::getFields() const
{
	vector<docstring> bibfields;
	set<docstring>::const_iterator it = fieldNames.begin();
	set<docstring>::const_iterator end = fieldNames.end();
	for (; it != end; ++it)
		bibfields.push_back(*it);
	std::sort(bibfields.begin(), bibfields.end());
	return bibfields;
}


vector<docstring> const BiblioInfo::getEntries() const
{
	vector<docstring> bibentries;
	set<docstring>::const_iterator it = entryTypes.begin();
	set<docstring>::const_iterator end = entryTypes.end();
	for (; it != end; ++it)
		bibentries.push_back(*it);
	std::sort(bibentries.begin(), bibentries.end());
	return bibentries;
}


docstring const BiblioInfo::getAbbreviatedAuthor(docstring const & key) const
{
	BiblioInfo::const_iterator it = find(key);
	if (it == end())
		return docstring();
	BibTeXInfo const & data = it->second;
	return data.getAbbreviatedAuthor();
}


docstring const BiblioInfo::getYear(docstring const & key) const
{
	BiblioInfo::const_iterator it = find(key);
	if (it == end())
		return docstring();
	BibTeXInfo const & data = it->second;
	return data.getYear();
}


docstring const BiblioInfo::getInfo(docstring const & key) const
{
	BiblioInfo::const_iterator it = find(key);
	if (it == end())
		return docstring();
	BibTeXInfo const & data = it->second;
	return data.getInfo();
}


vector<docstring> const BiblioInfo::getCiteStrings(
	docstring const & key, Buffer const & buf) const
{
	biblio::CiteEngine const engine = buf.params().getEngine();
	if (engine == biblio::ENGINE_NATBIB_NUMERICAL)
		return getNumericalStrings(key, buf);
	else
		return getAuthorYearStrings(key, buf);
}


vector<docstring> const BiblioInfo::getNumericalStrings(
	docstring const & key, Buffer const & buf) const
{
	if (empty())
		return vector<docstring>();

	docstring const author = getAbbreviatedAuthor(key);
	docstring const year   = getYear(key);
	if (author.empty() || year.empty())
		return vector<docstring>();

	vector<biblio::CiteStyle> const & styles = 
		biblio::getCiteStyles(buf.params().getEngine());
	
	vector<docstring> vec(styles.size());
	for (vector<docstring>::size_type i = 0; i != vec.size(); ++i) {
		docstring str;

		switch (styles[i]) {
			case biblio::CITE:
			case biblio::CITEP:
				str = from_ascii("[#ID]");
				break;

			case biblio::CITET:
				str = author + " [#ID]";
				break;

			case biblio::CITEALT:
				str = author + " #ID";
				break;

			case biblio::CITEALP:
				str = from_ascii("#ID");
				break;

			case biblio::CITEAUTHOR:
				str = author;
				break;

			case biblio::CITEYEAR:
				str = year;
				break;

			case biblio::CITEYEARPAR:
				str = '(' + year + ')';
				break;
		}

		vec[i] = str;
	}

	return vec;
}


vector<docstring> const BiblioInfo::getAuthorYearStrings(
	docstring const & key, Buffer const & buf) const
{
	if (empty())
		return vector<docstring>();

	docstring const author = getAbbreviatedAuthor(key);
	docstring const year   = getYear(key);
	if (author.empty() || year.empty())
		return vector<docstring>();

	vector<biblio::CiteStyle> const & styles = 
		getCiteStyles(buf.params().getEngine());
	
	vector<docstring> vec(styles.size());
	for (vector<docstring>::size_type i = 0; i != vec.size(); ++i) {
		docstring str;

		switch (styles[i]) {
			case biblio::CITE:
		// jurabib only: Author/Annotator
		// (i.e. the "before" field, 2nd opt arg)
				str = author + "/<" + _("before") + '>';
				break;

			case biblio::CITET:
				str = author + " (" + year + ')';
				break;

			case biblio::CITEP:
				str = '(' + author + ", " + year + ')';
				break;

			case biblio::CITEALT:
				str = author + ' ' + year ;
				break;

			case biblio::CITEALP:
				str = author + ", " + year ;
				break;

			case biblio::CITEAUTHOR:
				str = author;
				break;

			case biblio::CITEYEAR:
				str = year;
				break;

			case biblio::CITEYEARPAR:
				str = '(' + year + ')';
				break;
		}
		vec[i] = str;
	}
	return vec;
}


void BiblioInfo::fillWithBibKeys(Buffer const * const buf)
{	
	/// if this is a child document and the parent is already loaded
	/// use the parent's list instead  [ale990412]
	Buffer const * const tmp = buf->masterBuffer();
	BOOST_ASSERT(tmp);
	if (tmp != buf) {
		this->fillWithBibKeys(tmp);
		return;
	}

	// Pre-load all child documents.
	buf->loadChildDocuments();

	for (InsetIterator it = inset_iterator_begin(buf->inset()); it; ++it)
		it->fillWithBibKeys(*buf, *this, it);
}


namespace biblio {

////////////////////////////////////////
//
// CitationStyle
//
////////////////////////////////////////

namespace {


char const * const citeCommands[] = {
	"cite", "citet", "citep", "citealt", "citealp", "citeauthor",
	"citeyear", "citeyearpar" };

unsigned int const nCiteCommands =
		sizeof(citeCommands) / sizeof(char *);

CiteStyle const citeStyles[] = {
	CITE, CITET, CITEP, CITEALT, CITEALP,
CITEAUTHOR, CITEYEAR, CITEYEARPAR };

unsigned int const nCiteStyles =
		sizeof(citeStyles) / sizeof(CiteStyle);

CiteStyle const citeStylesFull[] = {
	CITET, CITEP, CITEALT, CITEALP, CITEAUTHOR };

unsigned int const nCiteStylesFull =
		sizeof(citeStylesFull) / sizeof(CiteStyle);

CiteStyle const citeStylesUCase[] = {
	CITET, CITEP, CITEALT, CITEALP, CITEAUTHOR };

unsigned int const nCiteStylesUCase =
	sizeof(citeStylesUCase) / sizeof(CiteStyle);

} // namespace anon


CitationStyle::CitationStyle(string const & command)
	: style(CITE), full(false), forceUCase(false)
{
	if (command.empty())
		return;

	string cmd = command;
	if (cmd[0] == 'C') {
		forceUCase = true;
		cmd[0] = 'c';
	}

	string::size_type const n = cmd.size() - 1;
	if (cmd != "cite" && cmd[n] == '*') {
		full = true;
		cmd = cmd.substr(0,n);
	}

	char const * const * const last = citeCommands + nCiteCommands;
	char const * const * const ptr = std::find(citeCommands, last, cmd);

	if (ptr != last) {
		size_t idx = ptr - citeCommands;
		style = citeStyles[idx];
	}
}


string const CitationStyle::asLatexStr() const
{
	string cite = citeCommands[style];
	if (full) {
		CiteStyle const * last = citeStylesFull + nCiteStylesFull;
		if (std::find(citeStylesFull, last, style) != last)
			cite += '*';
	}

	if (forceUCase) {
		CiteStyle const * last = citeStylesUCase + nCiteStylesUCase;
		if (std::find(citeStylesUCase, last, style) != last)
			cite[0] = 'C';
	}

	return cite;
}


vector<CiteStyle> const getCiteStyles(CiteEngine const engine)
{
	unsigned int nStyles = 0;
	unsigned int start = 0;

	switch (engine) {
		case ENGINE_BASIC:
			nStyles = 1;
			start = 0;
			break;
		case ENGINE_NATBIB_AUTHORYEAR:
		case ENGINE_NATBIB_NUMERICAL:
			nStyles = nCiteStyles - 1;
			start = 1;
			break;
		case ENGINE_JURABIB:
			nStyles = nCiteStyles;
			start = 0;
			break;
	}

	typedef vector<CiteStyle> cite_vec;

	cite_vec styles(nStyles);
	cite_vec::size_type i = 0;
	int j = start;
	for (; i != styles.size(); ++i, ++j)
		styles[i] = citeStyles[j];

	return styles;
}

} // namespace biblio
} // namespace lyx