Subversion Repositories w11

// $Id: RtclCmdBase.cpp 516 2013-05-05 21:24:52Z mueller $

//

// Copyright 2011-2013 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>

//

// This program is free software; you may redistribute and/or modify it under

// the terms of the GNU General Public License as published by the Free

// Software Foundation, either version 2, or at your option any later version.

//

// This program 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 complete details.

// 

// Revision History: 

// Date         Rev Version  Comment

// 2013-02-10   485   1.0.2  add static const defs

// 2013-02-05   483   1.0.1  remove 'unknown specified, full match only' logic

// 2013-02-02   480   1.0    Initial version (refactored out from ProxyBase)

// ---------------------------------------------------------------------------

/*!

  \file

  \version $Id: RtclCmdBase.cpp 516 2013-05-05 21:24:52Z mueller $

  \brief   Implemenation of RtclCmdBase.

*/

#include "RtclCmdBase.hpp"

#include "librtools/Rexception.hpp"

#include "Rtcl.hpp"

using namespace std;

/*!

  \class Retro::RtclCmdBase

  \brief FIXME_docs

*/

// all method definitions in namespace Retro

namespace Retro {

typedef std::pair<RtclCmdBase::mmap_it_t, bool>  mmap_ins_t;

//------------------------------------------+-----------------------------------

// constants definitions

const int RtclCmdBase::kOK;

const int RtclCmdBase::kERR;

//------------------------------------------+-----------------------------------

//! FIXME_docs

RtclCmdBase::RtclCmdBase()

  : fMapMeth()

{}

//------------------------------------------+-----------------------------------

//! Destructor

RtclCmdBase::~RtclCmdBase()

{}

//------------------------------------------+-----------------------------------

//! FIXME_docs

int RtclCmdBase::DispatchCmd(RtclArgs& args)

{

  mmap_cit_t it_match;

  Tcl_Interp* interp = args.Interp();

  // no method name given

  if (args.Objc() <= 1) {                   // no args

    it_match = fMapMeth.find("$default");   // default method registered ?

    if (it_match != fMapMeth.end()) {

      return (it_match->second)(args);

    }

    Tcl_WrongNumArgs(interp, 1, args.Objv(), "option ?args?"); // or fail

    return kERR;

  }

  // here if at least method name given

  string name(Tcl_GetString(args[1]));

  it_match = fMapMeth.lower_bound(name);

  // no leading substring match

  if (it_match==fMapMeth.end() ||

      name!=it_match->first.substr(0,name.length())) {

    mmap_cit_t it_un = fMapMeth.find("$unknown"); // unknown method registered ?

    if (it_un!=fMapMeth.end()) {

      return (it_un->second)(args);

    }

    Tcl_AppendResult(interp, "-E: bad option '", name.c_str(),

                     "': must be ", NULL);

    const char* delim = "";

    for (mmap_cit_t it1=fMapMeth.begin(); it1!=fMapMeth.end(); it1++) {

      if (it1->first.c_str()[0] != '$') {

        Tcl_AppendResult(interp, delim, it1->first.c_str(), NULL);

        delim = ",";

      }

    }

    return kERR;

  }

  // check for ambiguous substring match

  if (name != it_match->first) {

    mmap_cit_t it1 = it_match;

    it1++;

    if (it1!=fMapMeth.end() && name==it1->first.substr(0,name.length())) {

      Tcl_AppendResult(interp, "-E: ambiguous option '",

                       name.c_str(), "': must be ", NULL);

      const char* delim = "";

      for (it1=it_match; it1!=fMapMeth.end() &&

             name==it1->first.substr(0,name.length()); it1++) {

        Tcl_AppendResult(interp, delim, it1->first.c_str(), NULL);

        delim = ",";

      }

      return kERR;

    }

  }

  return (it_match->second)(args);

}

//------------------------------------------+-----------------------------------

//! FIXME_docs

void RtclCmdBase::AddMeth(const std::string& name, const methfo_t& methfo)

{

  mmap_ins_t ret = fMapMeth.insert(mmap_val_t(name, methfo));

  if (ret.second == false)                  // or use !(ret.second)

    throw Rexception("RtclCmdBase::AddMeth:",

                     string("Bad args: duplicate name: '") + name + "'");

  return;

}

} // end namespace Retro