source: trunk/yat/utility/CommandLine.cc @ 979

// $Id: CommandLine.cc 979 2007-10-21 19:46:14Z peter $

/*
  Copyright (C) 2007 Peter Johansson

  This file is part of the yat library, http://trac.thep.lu.se/trac/yat

  The yat library is free software; you can redistribute it and/or
  modify it under the terms of the GNU General Public License as
  published by the Free Software Foundation; either version 2 of the
  License, or (at your option) any later version.

  The yat library is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program; if not, write to the Free Software
  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  02111-1307, USA.
*/

#include "CommandLine.h"

#include "ColumnStream.h"
#include "Option.h"
#include "OptionSwitch.h"
#include "utility.h"

#include <algorithm>
#include <functional>
#include <fstream>
#include <iostream>
#include <sstream>
#include <stdexcept>
#include <string>
#include <vector>

namespace theplu {
namespace yat {
namespace utility {

  CommandLine::CommandLine(void)
  {}


  CommandLine::~CommandLine(void)
  {
  }


  void CommandLine::add(Option& option)
  {
    if (option.long_name().size())
      long_options_[option.long_name()] = &option;
    if (option.short_name())
      short_options_[option.short_name()] = &option;
    if (option.long_name().size() || option.short_name())
      options_.push_back(&option);
    // allow `no-switch' for option `switch'
    OptionSwitch* o = dynamic_cast<OptionSwitch*>(&option);
    if (option.long_name().size() && o && 
        !( o->long_name().size()>2 && o->long_name().substr(0,3)=="no-"))
      long_options_[std::string("no-")+option.long_name()] = &option;
  }


  bool CommandLine::is_long_option(std::string str) const
  {
    return (str.size()>2 && str[0]=='-' && str[1]=='-');
  }


  bool CommandLine::is_short_option(std::string str) const
  {
    return (str.size()>=2 && str[0]=='-' && str[1]!='-');
  }


  void CommandLine::parse(int argc, char* argv[])
  {   
    using namespace std;
    // just in case it is not pristine
    for_each(options_.begin(), options_.end(),std::mem_fun(&Option::reset)); 

    std::vector<std::string> arguments;
    arguments.reserve(argc);
    for (int i=0; i<argc; ++i)
      arguments.push_back(argv[i]);
    std::vector<std::string>::iterator arg(arguments.begin());    
    stringstream ss(*arg++);
    // keeping string after last /
    while (getline(ss, program_name_,'/')) {}

    try {
      for (; arg!=arguments.end(); ++arg) {
        if (is_long_option(*arg)) {
          std::string key(arg->substr(2));
          std::stringstream ss(key);
          getline(ss, key, '=');
          std::string value;
          getline(ss, value, '\0');
          if (!value.empty()){
            *arg = value;
            *(--arg) = std::string("--")+key;
          }         
          else
            *arg = key;
          std::map<std::string, Option*>::const_iterator
            iter(long_options_.find(key));
          if (iter==long_options_.end()) {
            std::stringstream ss;
            ss << program_name_ << ": unrecognized option `" << key << "'\n"
               << try_help();
            throw std::runtime_error(ss.str());
          }
          else 
            iter->second->parse(arg, arguments.end());
        }
        
        if (is_short_option(*arg)) {
          for (size_t i=1; i<arg->size(); ++i){
            std::map<char, Option*>::const_iterator
              iter(short_options_.find((*arg)[i]));
            if (iter==short_options_.end()) {
              std::stringstream ss;
              ss << program_name_ << ": invalid option -- " << (*arg)[i] << "\n"
                 << try_help() << "\n";
              throw std::runtime_error(ss.str());
            }       
            else 
              iter->second->parse(arg, arguments.end());
          }
        }
      }
      for_each(options_.begin(),options_.end(),
               std::mem_fun(&Option::validate)); 
    }
    catch (std::runtime_error& e){
      std::stringstream ss;
      ss << program_name_ << ": " << e.what();
      throw std::runtime_error(ss.str());
    }
      
  }


  std::string CommandLine::program_name(void) const
  {
    return program_name_;
  }


  std::vector<std::string> CommandLine::split(std::string str, char del) const
  {
    std::vector<std::string> vec;
    std::stringstream ss(str);
    while (std::getline(ss, str, del)){
      vec.push_back(str);
    }
    return vec;
  }

  std::string CommandLine::try_help(void) const
  {
    return std::string("Try `"+program_name()+"' --help for more information.");
  }


  std::ostream& operator<<(std::ostream& os, CommandLine& cmd)
  {
    ColumnStream cs2(os, 2);
    std::string::size_type width = 0;
    for (std::vector<Option*>::const_iterator i(cmd.options_.begin()); 
         i!=cmd.options_.end();++i) {
      std::stringstream ss((*i)->print());
      std::string str;
      getline(ss, str, '\t');
      width = std::max(width, str.size()+3);        
    }
    cs2.width(0)=width;
    cs2.width(1)=76-width;
    cs2.margin(0)=2;

    for (std::vector<Option*>::const_iterator i(cmd.options_.begin()); 
         i!=cmd.options_.end();++i) 
      cs2 << (*i)->print() << "\n";

    return os;
  }


}}} // of namespace utility, yat, and theplu