/******************************************************************************
 *
 *  file:  ZshCompletionOutput.h
 *
 *  Copyright (c) 2006, Oliver Kiddle
 *  All rights reverved.
 *
 *  See the file COPYING in the top directory of this distribution for
 *  more information.
 *
 *  THE SOFTWARE IS PROVIDED _AS IS_, WITHOUT WARRANTY OF ANY KIND, EXPRESS
 *  OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 *  FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
 *  THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 *  LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 *  FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 *  DEALINGS IN THE SOFTWARE.
 *
 *****************************************************************************/

#ifndef TCLAP_ZSHCOMPLETIONOUTPUT_H
#define TCLAP_ZSHCOMPLETIONOUTPUT_H

#include <string>
#include <vector>
#include <list>
#include <iostream>
#include <map>

#include <tclap/CmdLineInterface.h>
#include <tclap/CmdLineOutput.h>
#include <tclap/XorHandler.h>
#include <tclap/Arg.h>

namespace TCLAP
{
	/**
	 * A class that generates a Zsh completion function as output from the usage()
	 * method for the given CmdLine and its Args.
	 */
	class ZshCompletionOutput : public CmdLineOutput
	{
		public:
			ZshCompletionOutput();

			/**
			 * Prints the usage to stdout.  Can be overridden to
			 * produce alternative behavior.
			 * \param c - The CmdLine object the output is generated for.
			 */
			virtual void usage(CmdLineInterface &c);

			/**
			 * Prints the version to stdout. Can be overridden
			 * to produce alternative behavior.
			 * \param c - The CmdLine object the output is generated for.
			 */
			virtual void version(CmdLineInterface &c);

			/**
			 * Prints (to stderr) an error message, short usage
			 * Can be overridden to produce alternative behavior.
			 * \param c - The CmdLine object the output is generated for.
			 * \param e - The ArgException that caused the failure.
			 */
			virtual void failure(CmdLineInterface &c, ArgException &e);

		protected:
			void basename(std::string &s);
			void quoteSpecialChars(std::string &s);

			std::string getMutexList(CmdLineInterface &_cmd, Arg *a);
			void        printOption(Arg *it, std::string mutex);
			void        printArg(Arg *it);

			std::map<std::string, std::string> common;
			char theDelimiter;
	};

	inline ZshCompletionOutput::ZshCompletionOutput()
	{
		common["host"]      = "_hosts";
		common["hostname"]  = "_hosts";
		common["file"]      = "_files";
		common["filename"]  = "_files";
		common["user"]      = "_users";
		common["username"]  = "_users";
		common["directory"] = "_directories";
		common["path"]      = "_directories";
		common["url"]       = "_urls";
	}

	inline void ZshCompletionOutput::version(CmdLineInterface &_cmd)
	{
		std::cout << _cmd.getVersion() << std::endl;
	}

	inline void ZshCompletionOutput::usage(CmdLineInterface &_cmd)
	{
		std::list<Arg*> argList  = _cmd.getArgList();
		std::string     progName = _cmd.getProgramName();
		std::string     version  = _cmd.getVersion();
		theDelimiter = _cmd.getDelimiter();
		basename(progName);

		std::cout << "#compdef " << progName << std::endl << std::endl << "# " << progName <<
		        " version " << _cmd.getVersion() << std::endl << std::endl << "_arguments -s -S";

		for (ArgListIterator it = argList.begin(); it != argList.end(); it++)
		{
			if ((*it)->shortID().at(0) == '<')
			{
				printArg((*it));
			}
			else if ((*it)->getFlag() != "-")
			{
				printOption((*it), getMutexList(_cmd, *it));
			}
		}

		std::cout << std::endl;
	}

	inline void ZshCompletionOutput::failure(CmdLineInterface &_cmd, ArgException &e)
	{
		static_cast<void>(_cmd); // unused
		std::cout << e.what() << std::endl;
	}

	inline void ZshCompletionOutput::quoteSpecialChars(std::string &s)
	{
		size_t idx = s.find_last_of(':');
		while (idx != std::string::npos)
		{
			s.insert(idx, 1, '\\');
			idx = s.find_last_of(':', idx);
		}
		idx = s.find_last_of('\'');
		while (idx != std::string::npos)
		{
			s.insert(idx, "'\\'");
			if (idx == 0)
			{
				idx = std::string::npos;
			}
			else
			{
				idx = s.find_last_of('\'', --idx);
			}
		}
	}

	inline void ZshCompletionOutput::basename(std::string &s)
	{
		size_t p = s.find_last_of('/');
		if (p != std::string::npos)
		{
			s.erase(0, p + 1);
		}
	}

	inline void ZshCompletionOutput::printArg(Arg *a)
	{
		static int count = 1;

		std::cout << " \\" << std::endl << "  '";
		if (a->acceptsMultipleValues())
		{
			std::cout << '*';
		}
		else
		{
			std::cout << count++;
		}
		std::cout << ':';
		if (!a->isRequired())
		{
			std::cout << ':';
		}

		std::cout << a->getName() << ':';
		std::map<std::string, std::string>::iterator compArg = common.find(a->getName());
		if (compArg != common.end())
		{
			std::cout << compArg->second;
		}
		else
		{
			std::cout << "_guard \"^-*\" " << a->getName();
		}
		std::cout << '\'';
	}

	inline void ZshCompletionOutput::printOption(Arg *a, std::string mutex)
	{
		std::string flag = a->flagStartChar() + a->getFlag();
		std::string name = a->nameStartString() + a->getName();
		std::string desc = a->getDescription();

		// remove full stop and capitalisation from description as
		// this is the convention for zsh function
		if (!desc.compare(0, 12, "(required)  "))
		{
			desc.erase(0, 12);
		}
		if (!desc.compare(0, 15, "(OR required)  "))
		{
			desc.erase(0, 15);
		}
		size_t len = desc.length();
		if (len && desc.at(--len) == '.')
		{
			desc.erase(len);
		}
		if (len)
		{
			desc.replace(0, 1, 1, tolower(desc.at(0)));
		}

		std::cout << " \\" << std::endl << "  '" << mutex;

		if (a->getFlag().empty())
		{
			std::cout << name;
		}
		else
		{
			std::cout << "'{" << flag << ',' << name << "}'";
		}
		if (theDelimiter == '=' && a->isValueRequired())
		{
			std::cout << "=-";
		}
		quoteSpecialChars(desc);
		std::cout << '[' << desc << ']';

		if (a->isValueRequired())
		{
			std::string arg = a->shortID();
			arg.erase(0, arg.find_last_of(theDelimiter) + 1);
			if (arg.at(arg.length() - 1) == ']')
			{
				arg.erase(arg.length() - 1);
			}
			if (arg.at(arg.length() - 1) == ']')
			{
				arg.erase(arg.length() - 1);
			}
			if (arg.at(0) == '<')
			{
				arg.erase(arg.length() - 1);
				arg.erase(0, 1);
			}
			size_t p = arg.find('|');
			if (p != std::string::npos)
			{
				do
				{
					arg.replace(p, 1, 1, ' ');
				}
				while ((p = arg.find_first_of('|', p)) != std::string::npos);
				quoteSpecialChars(arg);
				std::cout << ": :(" << arg << ')';
			}
			else
			{
				std::cout << ':' << arg;
				std::map<std::string, std::string>::iterator compArg = common.find(arg);
				if (compArg != common.end())
				{
					std::cout << ':' << compArg->second;
				}
			}
		}

		std::cout << '\'';
	}

	inline std::string ZshCompletionOutput::getMutexList(CmdLineInterface &_cmd, Arg *a)
	{
		XorHandler xorHandler = _cmd.getXorHandler();
		std::vector<std::vector<Arg*>> xorList = xorHandler.getXorList();

		if (a->getName() == "help" || a->getName() == "version")
		{
			return "(-)";
		}

		std::ostringstream list;
		if (a->acceptsMultipleValues())
		{
			list << '*';
		}

		for (int i = 0; static_cast<unsigned int>(i) < xorList.size(); i++)
		{
			for (ArgVectorIterator it = xorList[i].begin();
			        it != xorList[i].end();
			        it++)
			{
				if (a == (*it))
				{
					list << '(';
					for (ArgVectorIterator iu = xorList[i].begin();
					        iu != xorList[i].end();
					        iu++)
					{
						bool notCur  = (*iu) != a;
						bool hasFlag = !(*iu)->getFlag().empty();
						if (iu != xorList[i].begin() && (notCur || hasFlag))
						{
							list << ' ';
						}
						if (hasFlag)
						{
							list << (*iu)->flagStartChar() << (*iu)->getFlag() << ' ';
						}
						if (notCur || hasFlag)
						{
							list << (*iu)->nameStartString() << (*iu)->getName();
						}
					}
					list << ')';
					return list.str();
				}
			}
		}

		// wasn't found in xor list
		if (!a->getFlag().empty())
		{
			list << "(" << a->flagStartChar() << a->getFlag() << ' ' << a->nameStartString() <<
			        a->getName() << ')';
		}

		return list.str();
	}
}

#endif
