source: lemon-0.x/lemon/arg_parser.cc @ 2390:8450951a8e2d

/* -*- C++ -*-
 * lemon/main_params.h - Part of LEMON, a generic C++ optimization library
 *
 * Copyright (C) 2005 Egervary Jeno Kombinatorikus Optimalizalasi Kutatocsoport
 * (Egervary Research Group on Combinatorial Optimization, EGRES).
 *
 * Permission to use, modify and distribute this software is granted
 * provided that this copyright notice appears in all copies. For
 * precise terms see the accompanying LICENSE file.
 *
 * This software is provided "AS IS" with no warranty of any kind,
 * express or implied, and with no claim as to its suitability for any
 * purpose.
 *
 */

#include <lemon/arg_parser.h>

namespace lemon {

  void ArgParser::_showHelp(void *p)
  {
    (static_cast<ArgParser*>(p))->showHelp();
    exit(1);
  }

  ArgParser::ArgParser(int argc, char **argv) :_argc(argc), _argv(argv),
                                               _command_name(argv[0]) {
    option("-help","Print a short help message",_showHelp,this);
    synonym("help","-help");
    synonym("h","-help");

  }

  ArgParser &ArgParser::option(const std::string &name,
                               const std::string &help,
                               int &value, bool obl)
  {
    ParData p;
    p.int_p=&value;
    p.help=help;
    p.type=INTEGER;
    p.mandatory=obl;
    _opts[name]=p;
    return *this;
  }

  ArgParser &ArgParser::option(const std::string &name,
                               const std::string &help,
                               double &value, bool obl)
  {
    ParData p;
    p.double_p=&value;
    p.help=help;
    p.type=DOUBLE;
    p.mandatory=obl;
    _opts[name]=p;
    return *this;
  }

  ArgParser &ArgParser::option(const std::string &name,
                               const std::string &help,
                               bool &value, bool obl)
  {
    ParData p;
    p.bool_p=&value;
    p.help=help;
    p.type=BOOL;
    p.mandatory=obl;
    _opts[name]=p;

    value = false;

    return *this;
  }

  ArgParser &ArgParser::option(const std::string &name,
                               const std::string &help,
                               std::string &value, bool obl)
  {
    ParData p;
    p.string_p=&value;
    p.help=help;
    p.type=STRING;
    p.mandatory=obl;
    _opts[name]=p;
    return *this;
  }

  ArgParser &ArgParser::option(const std::string &name,
                               const std::string &help,
                               void (*func)(void *),void *data)
  {
    ParData p;
    p.func_p.p=func;
    p.func_p.data=data;
    p.help=help;
    p.type=FUNC;
    p.mandatory=false;
    _opts[name]=p;
    return *this;
  }
  ArgParser &ArgParser::optionGroup(const std::string &group,
                                    const std::string &opt)
  {
    Opts::iterator i = _opts.find(opt);
    if(i==_opts.end()) exit(3); ///\todo throw exception instead
    else if(i->second.ingroup) exit(3); ///\todo throw exception instead
    else {
      GroupData &g=_groups[group];
      g.opts.push_back(opt);
      i->second.ingroup=true;
    }
    return *this;
  }

  ArgParser &ArgParser::onlyOneGroup(const std::string &group)
  {
    GroupData &g=_groups[group];
    g.only_one=true;
    return *this;
  }

  ArgParser &ArgParser::synonym(const std::string &syn,
                                const std::string &opt)
  {
    Opts::iterator o = _opts.find(opt);
    Opts::iterator s = _opts.find(syn);
    if(o==_opts.end()||s!=_opts.end())
      exit(3); ///\todo throw exception instead
    else {
      ParData p;
      p.help=opt;
      p.mandatory=false;
      p.syn=true;
      _opts[syn]=p;
      o->second.has_syn=true;
    }
    return *this;
  }

  ArgParser &ArgParser::mandatoryGroup(const std::string &group)
  {
    GroupData &g=_groups[group];
    g.mandatory=true;
    return *this;
  }

  ArgParser &ArgParser::other(const std::string &name,
                              const std::string &help)
  {
    _others_help.push_back(OtherArg(name,help));
    return *this;
  }

  void ArgParser::show(std::ostream &os,Opts::iterator i)
  {
    os << "-" << i->first;
    if(i->second.has_syn)
      for(Opts::iterator j=_opts.begin();j!=_opts.end();++j)
        if(j->second.syn&&j->second.help==i->first)
          os << "|-" << j->first;
    switch(i->second.type) {
    case STRING:
      os << " str";
      break;
    case INTEGER:
      os << " int";
      break;
    case DOUBLE:
      os << " num";
      break;
    default:
      break;
    }
  }

  void ArgParser::show(std::ostream &os,Groups::iterator i)
  {
    GroupData::Opts::iterator o=i->second.opts.begin();
    while(o!=i->second.opts.end()) {
      show(os,_opts.find(*o));
      ++o;
      if(o!=i->second.opts.end()) os<<'|';
    }
  }
    
  void ArgParser::showHelp(Opts::iterator i)
  {
    if(i->second.help.size()==0||i->second.syn) return;
    std::cerr << "  ";
    show(std::cerr,i);
    std::cerr << std::endl;
    std::cerr << "     " << i->second.help << std::endl;
  }
  void ArgParser::showHelp(std::vector<ArgParser::OtherArg>::iterator i)
  {
    if(i->help.size()==0) return;
    std::cerr << "  " << i->name << std::endl
              << "     " << i->help << std::endl;
  }
    
  void ArgParser::shortHelp()
  {
    const unsigned int LINE_LEN=77;
    const std::string indent("    ");
    std::cerr << "Usage:\n  " << _command_name;
    int pos=_command_name.size()+2;
    for(Groups::iterator g=_groups.begin();g!=_groups.end();++g) {
      std::ostringstream cstr;
      cstr << ' ';
      if(!g->second.mandatory) cstr << '[';
      show(cstr,g);
      if(!g->second.mandatory) cstr << ']';
      if(pos+cstr.str().size()>LINE_LEN) {
        std::cerr << std::endl << indent;
        pos=indent.size();
      }
      std::cerr << cstr.str();
      pos+=cstr.str().size();
    }
    for(Opts::iterator i=_opts.begin();i!=_opts.end();++i)
      if(!i->second.ingroup&&!i->second.syn) {
        std::ostringstream cstr;
        cstr << ' ';
        if(!i->second.mandatory) cstr << '[';
        show(cstr,i);
        if(!i->second.mandatory) cstr << ']';
        if(pos+cstr.str().size()>LINE_LEN) {
          std::cerr << std::endl << indent;
          pos=indent.size();
        }
        std::cerr << cstr.str();
        pos+=cstr.str().size();
      }
    for(std::vector<OtherArg>::iterator i=_others_help.begin();
        i!=_others_help.end();++i)
      {
        std::ostringstream cstr;
        cstr << ' ' << i->name;
      
        if(pos+cstr.str().size()>LINE_LEN) {
          std::cerr << std::endl << indent;
          pos=indent.size();
        }
        std::cerr << cstr.str();
        pos+=cstr.str().size();
      }
    std::cerr << std::endl;
  }
    
  void ArgParser::showHelp()
  {
    shortHelp();
    std::cerr << "Where:\n";
    for(std::vector<OtherArg>::iterator i=_others_help.begin();
        i!=_others_help.end();++i) showHelp(i);
    for(Opts::iterator i=_opts.begin();i!=_opts.end();++i) showHelp(i);
    exit(1);
  }
    
      
  void ArgParser::unknownOpt(std::string arg) 
  {
    std::cerr << "\nUnknown option: " << arg << "\n";
    std::cerr << "\nType '" << _command_name <<
      " --help' to obtain a short summary on the usage.\n\n";
    exit(1);
  }
    
  void ArgParser::requiresValue(std::string arg, OptType t) 
  {
    std::cerr << "Argument '" << arg << "' requires a";
    switch(t) {
    case STRING:
      std::cerr << " string";
      break;
    case INTEGER:
      std::cerr << "n integer";
      break;
    case DOUBLE:
      std::cerr << " floating point";
      break;
    default:
      break;
    }
    std::cerr << " value\n\n";
    showHelp();
  }
    

  void ArgParser::checkMandatories()
  {
    bool ok=true;
    for(Opts::iterator i=_opts.begin();i!=_opts.end();++i)
      if(i->second.mandatory&&!i->second.set) 
        {
          if(ok)
            std::cerr << _command_name 
                      << ": The following mandatory arguments are missing.\n";
          ok=false;
          showHelp(i);
        }
    for(Groups::iterator i=_groups.begin();i!=_groups.end();++i)
      if(i->second.mandatory||i->second.only_one)
        {
          int set=0;
          for(GroupData::Opts::iterator o=i->second.opts.begin();
              o!=i->second.opts.end();++o)
            if(_opts.find(*o)->second.set) ++set;
          if(i->second.mandatory&&!set) {
            std::cerr << _command_name 
                      << ": At least one of the following arguments is mandatory.\n";
            ok=false;
            for(GroupData::Opts::iterator o=i->second.opts.begin();
                o!=i->second.opts.end();++o)
              showHelp(_opts.find(*o));
          }
          if(i->second.only_one&&set>1) {
            std::cerr << _command_name 
                      << ": At most one of the following arguments can be given.\n";
            ok=false;
            for(GroupData::Opts::iterator o=i->second.opts.begin();
                o!=i->second.opts.end();++o)
              showHelp(_opts.find(*o));
          }
        }
    if(!ok) {
      std::cerr << "\nType '" << _command_name <<
        " --help' to obtain a short summary on the usage.\n\n";
      exit(1);
    }
  }

  ArgParser &ArgParser::parse()
  {
    for(int ar=1; ar<_argc; ++ar) {
      std::string arg(_argv[ar]);
      if (arg[0] != '-' || arg.size() == 1) {
        _file_args.push_back(arg);
      }
      else {
        Opts::iterator i = _opts.find(arg.substr(1));
        if(i==_opts.end()) unknownOpt(arg);
        else {
          if(i->second.syn) i=_opts.find(i->second.help);
          ParData &p(i->second);
          if (p.type==BOOL) *p.bool_p=true;
          else if (p.type==FUNC) p.func_p.p(p.func_p.data);
          else if(++ar==_argc) requiresValue(arg, p.type);
          else {
            std::string val(_argv[ar]);
            std::istringstream vals(val);
            switch(p.type) {
            case STRING:
              *p.string_p=val;
              break;
            case INTEGER:
              vals >> *p.int_p;
              break;
            case DOUBLE:
              vals >> *p.double_p;
              break;
            default:
              break;
            }
            if(p.type!=STRING&&(!vals||!vals.eof()))
              requiresValue(arg, p.type);
          }
          p.set = true;
        }
      }
    }
    checkMandatories();

    return *this;
  }  
    
}