/**
 * Copyright (C) 2010 Johannes Weißl <jargon@molb.org>
 * License: your favourite BSD-style license
 *
 * git clone http://github.com/weisslj/cpp-optparse.git
 *
 * This is yet another option parser for C++. It is modelled after the
 * excellent Python optparse API. Although incomplete, anyone familiar to
 * optparse should feel at home:
 * http://docs.python.org/library/optparse.html
 *
 * Design decisions:
 * - elegant and easy usage more important than speed / flexibility
 * - shortness more important than feature completeness
 *   * no unicode
 *   * no checking for user programming errors
 *
 * Why not use getopt/getopt_long?
 * - not C++ / not completely POSIX
 * - too cumbersome to use, would need lot of additional code
 *
 * Why not use Boost.Program_options?
 * - boost not installed on all target platforms (esp. cluster, HPC, ...)
 * - too big to include just for option handling:
 *   322 *.h (44750 lines) + 7 *.cpp (2078 lines)
 *
 * Why not use tclap/Opag/Options/CmdLine/Anyoption/Argument_helper/...?
 * - no reason, writing one is faster than code inspection :-)
 * - similarity to Python desired for faster learning curve
 *
 * Future work:
 * - nargs > 1?
 * - comments?
 *
 * Python only features:
 * - conflict handlers
 * - adding new actions
 *
 *
 * Example:
 *
 * using optparse::OptionParser;
 *
 * OptionParser parser = OptionParser() .description("just an example");
 *
 * parser.add_option("-f", "--file") .dest("filename")
 *                   .help("write report to FILE") .metavar("FILE");
 * parser.add_option("-q", "--quiet")
 *                   .action("store_false") .dest("verbose") .set_default("1")
 *                   .help("don't print status messages to stdout");
 * 
 * optparse::Values options = parser.parse_args(argc, argv);
 * vector<string> args = parser.args();
 *
 * if (options.get("verbose"))
 *     cout << options["filename"] << endl;
 *
 */

#ifndef OPTIONPARSER_H_
#define OPTIONPARSER_H_

#include <cstddef>
#include <iostream>
#include <list>
#include <map>
#include <set>
#include <sstream>
#include <string>
#include <vector>

namespace optparse {

class OptionParser;
class OptionGroup;
class Option;
class Values;
class Value;
class Callback;

typedef std::map<std::string, std::string> strMap;
typedef std::map<std::string, std::list<std::string> > lstMap;
typedef std::map<std::string, Option const*> optMap;

const char* const SUPPRESS_HELP =
    "SUPPRESS"
    "HELP";
const char* const SUPPRESS_USAGE =
    "SUPPRESS"
    "USAGE";

//! Class for automatic conversion from string -> anytype
class Value
{
public:
    Value() : str(), valid(false) {}
    Value(const std::string& v) : str(v), valid(true) {}
    operator const char*() { return str.c_str(); }
    operator bool()
    {
        bool t;
        return (valid && (std::istringstream(str) >> t)) ? t : false;
    }
    operator short()
    {
        short t;
        return (valid && (std::istringstream(str) >> t)) ? t : 0;
    }
    operator unsigned short()
    {
        unsigned short t;
        return (valid && (std::istringstream(str) >> t)) ? t : 0;
    }
    operator int()
    {
        int t;
        return (valid && (std::istringstream(str) >> t)) ? t : 0;
    }
    operator unsigned int()
    {
        unsigned int t;
        return (valid && (std::istringstream(str) >> t)) ? t : 0;
    }
    operator long()
    {
        long t;
        return (valid && (std::istringstream(str) >> t)) ? t : 0;
    }
    operator unsigned long()
    {
        unsigned long t;
        return (valid && (std::istringstream(str) >> t)) ? t : 0;
    }
    operator float()
    {
        float t;
        return (valid && (std::istringstream(str) >> t)) ? t : 0;
    }
    operator double()
    {
        double t;
        return (valid && (std::istringstream(str) >> t)) ? t : 0;
    }
    operator long double()
    {
        long double t;
        return (valid && (std::istringstream(str) >> t)) ? t : 0;
    }

private:
    const std::string str;
    bool valid;
};

class Values
{
public:
    Values() : _map() {}
    const std::string& operator[](const std::string& d) const;
    std::string& operator[](const std::string& d) { return _map[d]; }
    bool is_set(const std::string& d) const { return _map.find(d) != _map.end(); }
    bool is_set_by_user(const std::string& d) const { return _userSet.find(d) != _userSet.end(); }
    void is_set_by_user(const std::string& d, bool yes);
    Value get(const std::string& d) const { return (is_set(d)) ? Value((*this)[d]) : Value(); }

    typedef std::list<std::string>::iterator iterator;
    typedef std::list<std::string>::const_iterator const_iterator;
    std::list<std::string>& all(const std::string& d) { return _appendMap[d]; }
    const std::list<std::string>& all(const std::string& d) const
    {
        return _appendMap.find(d)->second;
    }

private:
    strMap _map;
    lstMap _appendMap;
    std::set<std::string> _userSet;
};

class OptionParser
{
public:
    OptionParser();
    virtual ~OptionParser() {}

    OptionParser& usage(const std::string& u)
    {
        set_usage(u);
        return *this;
    }
    OptionParser& version(const std::string& v)
    {
        _version = v;
        return *this;
    }
    OptionParser& description(const std::string& d)
    {
        _description = d;
        return *this;
    }
    OptionParser& add_help_option(bool h)
    {
        _add_help_option = h;
        return *this;
    }
    OptionParser& add_version_option(bool v)
    {
        _add_version_option = v;
        return *this;
    }
    OptionParser& prog(const std::string& p)
    {
        _prog = p;
        return *this;
    }
    OptionParser& epilog(const std::string& e)
    {
        _epilog = e;
        return *this;
    }
    OptionParser& set_defaults(const std::string& dest, const std::string& val)
    {
        _defaults[dest] = val;
        return *this;
    }
    OptionParser& enable_interspersed_args()
    {
        _interspersed_args = true;
        return *this;
    }
    OptionParser& disable_interspersed_args()
    {
        _interspersed_args = false;
        return *this;
    }
    OptionParser& add_option_group(const OptionGroup& group);

    const std::string& usage() const { return _usage; }
    const std::string& version() const { return _version; }
    const std::string& description() const { return _description; }
    bool add_help_option() const { return _add_help_option; }
    bool add_version_option() const { return _add_version_option; }
    const std::string& prog() const { return _prog; }
    const std::string& epilog() const { return _epilog; }
    bool interspersed_args() const { return _interspersed_args; }

    Option& add_option(const std::string& opt);
    Option& add_option(const std::string& opt1, const std::string& opt2);
    Option& add_option(const std::string& opt1, const std::string& opt2, const std::string& opt3);
    Option& add_option(const std::vector<std::string>& opt);

    Values& parse_args(int argc, char const* const* argv);
    Values& parse_args(const std::vector<std::string>& args);
    template <typename InputIterator>
    Values& parse_args(InputIterator begin, InputIterator end)
    {
        return parse_args(std::vector<std::string>(begin, end));
    }

    const std::list<std::string>& args() const { return _leftover; }
    std::vector<std::string> args()
    {
        return std::vector<std::string>(_leftover.begin(), _leftover.end());
    }

    std::string format_help() const;
    std::string format_option_help(unsigned int indent = 2) const;
    void print_help() const;

    void set_usage(const std::string& u);
    std::string get_usage() const;
    void print_usage(std::ostream& out) const;
    void print_usage() const;

    std::string get_version() const;
    void print_version(std::ostream& out) const;
    void print_version() const;

    void error(const std::string& msg) const;
    void exit() const;

private:
    const Option& lookup_short_opt(const std::string& opt) const;
    const Option& lookup_long_opt(const std::string& opt) const;

    void handle_short_opt(const std::string& opt, const std::string& arg);
    void handle_long_opt(const std::string& optstr);

    void process_opt(const Option& option, const std::string& opt, const std::string& value);

    std::string format_usage(const std::string& u) const;

    std::string _usage;
    std::string _version;
    std::string _description;
    bool _add_help_option;
    bool _add_version_option;
    std::string _prog;
    std::string _epilog;
    bool _interspersed_args;

    Values _values;

    std::list<Option> _opts;
    optMap _optmap_s;
    optMap _optmap_l;
    strMap _defaults;
    std::list<OptionGroup const*> _groups;

    std::list<std::string> _remaining;
    std::list<std::string> _leftover;
};

class OptionGroup : public OptionParser
{
public:
    OptionGroup(const OptionParser& /* p */, const std::string& t, const std::string& d = "")
        : /* _parser(p), */ _title(t), _group_description(d)
    {
    }
    virtual ~OptionGroup() {}

    OptionGroup& title(const std::string& t)
    {
        _title = t;
        return *this;
    }
    OptionGroup& group_description(const std::string& d)
    {
        _group_description = d;
        return *this;
    }
    const std::string& title() const { return _title; }
    const std::string& group_description() const { return _group_description; }

private:
    /* const OptionParser& _parser; */
    std::string _title;
    std::string _group_description;
};

class Option
{
public:
    Option() : _action("store"), _type("string"), _nargs(1), _callback(0) {}
    virtual ~Option() {}

    Option& action(const std::string& a);
    Option& type(const std::string& t)
    {
        _type = t;
        return *this;
    }
    Option& dest(const std::string& d)
    {
        _dest = d;
        return *this;
    }
    Option& set_default(const std::string& d)
    {
        _default = d;
        return *this;
    }
    template <typename T>
    Option& set_default(T t)
    {
        std::ostringstream ss;
        ss << t;
        _default = ss.str();
        return *this;
    }
    Option& nargs(size_t n)
    {
        _nargs = n;
        return *this;
    }
    Option& set_const(const std::string& c)
    {
        _const = c;
        return *this;
    }
    template <typename InputIterator>
    Option& choices(InputIterator begin, InputIterator end)
    {
        _choices.assign(begin, end);
        type("choice");
        return *this;
    }
    template <typename InputEnumerable>
    Option& choices(InputEnumerable enumerable)
    {
        _choices.assign(enumerable.begin(), enumerable.end());
        type("choice");
        return *this;
    }
    Option& help(const std::string& h)
    {
        _help = h;
        return *this;
    }
    Option& metavar(const std::string& m)
    {
        _metavar = m;
        return *this;
    }
    Option& callback(Callback& c)
    {
        _callback = &c;
        return *this;
    }

    const std::string& action() const { return _action; }
    const std::string& type() const { return _type; }
    const std::string& dest() const { return _dest; }
    const std::string& get_default() const { return _default; }
    size_t nargs() const { return _nargs; }
    const std::string& get_const() const { return _const; }
    const std::list<std::string>& choices() const { return _choices; }
    const std::string& help() const { return _help; }
    const std::string& metavar() const { return _metavar; }
    Callback* callback() const { return _callback; }

private:
    std::string check_type(const std::string& opt, const std::string& val) const;
    std::string format_option_help(unsigned int indent = 2) const;
    std::string format_help(unsigned int indent = 2) const;

    std::set<std::string> _short_opts;
    std::set<std::string> _long_opts;

    std::string _action;
    std::string _type;
    std::string _dest;
    std::string _default;
    size_t _nargs;
    std::string _const;
    std::list<std::string> _choices;
    std::string _help;
    std::string _metavar;
    Callback* _callback;

    friend class OptionParser;
};

class Callback
{
public:
    virtual void operator()(const Option& option, const std::string& opt, const std::string& val,
                            const OptionParser& parser) = 0;
    virtual ~Callback() {}
};
}

#endif