Subversion Repositories w11

// $Id: RtclNameSet.cpp 584 2014-08-22 19:38:12Z mueller $

//

// Copyright 2011-2014 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

// 2014-08-22   584   1.1.1  use nullptr

// 2013-05-19   521   1.1    add CheckMatch()

// 2013-02-03   481   1.0.1  use Rexception

// 2011-02-20   363   1.0    Initial version

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

/*!

  \file

  \version $Id: RtclNameSet.cpp 584 2014-08-22 19:38:12Z mueller $

  \brief   Implemenation of RtclNameSet.

*/

// debug

#include <iostream>

#include "RtclNameSet.hpp"

#include "librtools/Rexception.hpp"

using namespace std;

/*!

  \class Retro::RtclNameSet

  \brief FIXME_docs

*/

// all method definitions in namespace Retro

namespace Retro {

typedef std::pair<RtclNameSet::nset_it_t, bool>  nset_ins_t;

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

//! Default constructor

RtclNameSet::RtclNameSet()

  : fSet()

{}

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

//! FIXME_docs

RtclNameSet::RtclNameSet(const std::string& nset)

  : fSet()

{

  size_t ibeg=0;

  while (true) {

    size_t iend = nset.find_first_of('|', ibeg);

    if (iend-ibeg > 0) {

      string name(nset, ibeg, iend-ibeg);

      nset_ins_t ret = fSet.insert(name);

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

          throw Rexception("RtclNameSet::<ctor>", "Bad args: " +

                           string("duplicate name '") + name +

                           "' in set '" + nset + "'");

    }

    if (iend == string::npos) break;

    ibeg = iend+1;

  }

}

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

//! Destructor

RtclNameSet::~RtclNameSet()

{}

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

//! FIXME_docs

bool RtclNameSet::Check(Tcl_Interp* interp, std::string& rval,

                        const std::string& tval) const

{

  return CheckMatch(interp, rval, tval, true) > 0;

}

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

//! FIXME_docs

//  irc = 1 -> match

//        0 -> ambiguous match  --> tcl err

//       -1 -> no match         --> tcl err if misserr

int RtclNameSet::CheckMatch(Tcl_Interp* interp, std::string& rval,

                            const std::string& tval, bool misserr) const

{

  rval.clear();

  nset_cit_t it = fSet.lower_bound(tval);

  // no leading substring match

  if (it==fSet.end() || tval!=it->substr(0,tval.length())) {

    if (misserr) {

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

                       "': must be ", nullptr);

      const char* delim = "";

      for (nset_cit_t it1=fSet.begin(); it1!=fSet.end(); it1++) {

        Tcl_AppendResult(interp, delim, it1->c_str(), nullptr);

        delim = ",";

      }

    }

    return -1;

  }

  // check for ambiguous substring match

  if (tval != *it) {

    nset_cit_t it1 = it;

    it1++;

    if (it1!=fSet.end() && tval==it1->substr(0,tval.length())) {

      Tcl_AppendResult(interp, "-E: ambiguous option '", tval.c_str(),

                       "': must be ", nullptr);

      const char* delim = "";

      for (it1=it; it1!=fSet.end() &&

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

        Tcl_AppendResult(interp, delim, it1->c_str(), nullptr);

        delim = ",";

      }

      return 0;

    }

  }

  rval = *it;

  return 1;

}

} // end namespace Retro