Subversion Repositories w11

// $Id: RtclGetList.cpp 631 2015-01-09 21:36:51Z mueller $

//

// Copyright 2013-2015 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

// 2015-01-08   631   1.1    add Clear(), add '?' (key list) and '*' (kv list)

// 2014-08-22   584   1.0.1  use nullptr

// 2013-02-12   487   1.0    Initial version

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

/*!

  \file

  \version $Id: RtclGetList.cpp 631 2015-01-09 21:36:51Z mueller $

  \brief   Implemenation of class RtclGetList.

*/

#include <iostream>

#include "librtools/Rexception.hpp"

#include "RtclGet.hpp"

#include "RtclGetList.hpp"

#include "RtclOPtr.hpp"

using namespace std;

/*!

  \class Retro::RtclGetList

  \brief FIXME_docs

*/

// all method definitions in namespace Retro

namespace Retro {

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

//! FIXME_docs

RtclGetList::RtclGetList()

  : fMap()

{}

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

//! FIXME_docs

RtclGetList::~RtclGetList()

{

  for (map_cit_t it=fMap.begin(); it != fMap.end(); it++) {

    delete (it->second);

  }

}

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

//! FIXME_docs

void RtclGetList::Add(const std::string& name, RtclGetBase* pget)

{

  typedef std::pair<Retro::RtclGetList::map_it_t, bool>  map_ins_t;

  map_ins_t ret = fMap.insert(map_val_t(name, pget));

  if (ret.second == false)

     throw Rexception("RtclGetList::Add:",

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

  return;

}

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

//! FIXME_docs

void RtclGetList::Clear()

{

  fMap.clear();

  return;

}

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

//! FIXME_docs

int RtclGetList::M_get(RtclArgs& args)

{

  Tcl_Interp* interp = args.Interp();

  string pname("*");

  if (!args.GetArg("??pname", pname)) return TCL_ERROR;

  if (!args.AllDone()) return TCL_ERROR;

  if (pname == "?") {

    RtclOPtr rlist(Tcl_NewListObj(0,nullptr));

    for (const auto& kv : fMap) {

      RtclOPtr pele(Tcl_NewStringObj(kv.first.c_str(), -1));

      Tcl_ListObjAppendElement(nullptr, rlist, pele);

    }

    Tcl_SetObjResult(interp, rlist);

    return TCL_OK;

  } else if (pname == "*") {

    RtclOPtr rlist(Tcl_NewListObj(0,nullptr));

    for (const auto& kv : fMap) {

      RtclOPtr pele(Tcl_NewStringObj(kv.first.c_str(), -1));

      Tcl_ListObjAppendElement(nullptr, rlist, pele);

      Tcl_ListObjAppendElement(nullptr, rlist, kv.second->operator()());

    }

    Tcl_SetObjResult(interp, rlist);

    return TCL_OK;

  }

  map_cit_t it = fMap.lower_bound(pname);

  // complain if not found

  if (it == fMap.end() || pname != it->first.substr(0,pname.length())) {

    Tcl_AppendResult(interp, "-E: unknown property '", pname.c_str(),

                     "': must be ", nullptr);

    const char* delim = "";

    for (map_cit_t it1=fMap.begin(); it1!=fMap.end(); it1++) {

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

      delim = ",";

    }

    return TCL_ERROR;

  }

  // check for ambiguous substring match

  map_cit_t it1 = it;

  it1++;

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

    Tcl_AppendResult(interp, "-E: ambiguous property name '", pname.c_str(),

                     "': must be ", nullptr);

    const char* delim = "";

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

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

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

      delim = ",";

    }

    return TCL_ERROR;

  }

  args.SetResult((it->second)->operator()());

  return TCL_OK;

}

} // end namespace Retro