// -*- Mode: c++; c-basic-offset: 4; tab-width: 4; -*-

/****************************************************************************** 
 * 
 *  file:  ZshCompletionOutput.h
 * 
 *  Copyright (c) 2006, Oliver Kiddle
 *  Copyright (c) 2017 Google Inc.
 *  All rights reserved.
 * 
 *  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

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#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>
#include <tclap/sstream.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;
};

ZshCompletionOutput::ZshCompletionOutput()
: common(std::map<std::string, std::string>()),
  theDelimiter('=')
{
    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 xversion = _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 capitalization 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();
        // Example arg: "[-A <integer>] ... "
        size_t pos = arg.rfind(" ... ");
        if (pos != std::string::npos)
        {
            arg.erase(pos);
        }

        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 "(-)";
    }

    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();
}

} //namespace TCLAP
#endif
