RtclRw11Cntl.cpp

Go to the documentation of this file.

// $Id: RtclRw11Cntl.cpp 1186 2019-07-12 17:49:59Z mueller $
// SPDX-License-Identifier: GPL-3.0-or-later
// Copyright 2013-2019 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
// 
// Revision History: 
// Date         Rev Version  Comment
// 2019-06-07  1160   1.1.6  use RtclStats::Exec()
// 2019-02-23  1114   1.1.5  use std::bind instead of lambda
// 2018-12-17  1085   1.1.4  use std::lock_guard instead of boost
// 2018-12-15  1082   1.1.3  use lambda instead of boost::bind
// 2017-04-16   877   1.1.2  add UnitCommands(); add Class()
// 2017-04-02   865   1.0.2  M_dump: use GetArgsDump and Dump detail
// 2015-03-27   660   1.0.1  add M_start
// 2013-03-06   495   1.0    Initial version
// 2013-02-08   484   0.1    First draft
// ---------------------------------------------------------------------------
 
#include <functional>
 
#include "librtcltools/RtclStats.hpp"
#include "librtcltools/RtclOPtr.hpp"
 
#include "RtclRw11Cntl.hpp"
 
using namespace std;
using namespace std::placeholders;
 
// all method definitions in namespace Retro
namespace Retro {
 
//------------------------------------------+-----------------------------------
 
RtclRw11Cntl::RtclRw11Cntl(const std::string& type,
                           const std::string& cclass)
  : RtclProxyBase(type),
    fClass(cclass),
    fGets(),
    fSets()
{
  AddMeth("get",      bind(&RtclRw11Cntl::M_get,     this, _1));
  AddMeth("set",      bind(&RtclRw11Cntl::M_set,     this, _1));
  AddMeth("probe",    bind(&RtclRw11Cntl::M_probe,   this, _1));
  AddMeth("start",    bind(&RtclRw11Cntl::M_start,   this, _1));
  AddMeth("stats",    bind(&RtclRw11Cntl::M_stats,   this, _1));
  AddMeth("dump",     bind(&RtclRw11Cntl::M_dump,    this, _1));
  AddMeth("$default", bind(&RtclRw11Cntl::M_default, this, _1));
 
  fGets.Add<Tcl_Obj*>      ("units",  
                              bind(&RtclRw11Cntl::UnitCommands, this));
  fGets.Add<const string&> ("class",  
                              bind(&RtclRw11Cntl::Class, this));
}
 
//------------------------------------------+-----------------------------------
 
RtclRw11Cntl::~RtclRw11Cntl()
{}
 
//------------------------------------------+-----------------------------------
 
int RtclRw11Cntl::M_get(RtclArgs& args)
{
  // synchronize with server thread
  lock_guard<RlinkConnect> lock(Obj().Connect());
  return fGets.M_get(args);
}
 
//------------------------------------------+-----------------------------------
 
int RtclRw11Cntl::M_set(RtclArgs& args)
{
  // synchronize with server thread
  lock_guard<RlinkConnect> lock(Obj().Connect());
  return fSets.M_set(args);
}
 
//------------------------------------------+-----------------------------------
 
int RtclRw11Cntl::M_probe(RtclArgs& args)
{
  if (!args.AllDone()) return kERR;
  args.SetResult(Obj().Probe());
  return kOK;
}
 
//------------------------------------------+-----------------------------------
 
int RtclRw11Cntl::M_start(RtclArgs& args)
{
  if (!args.AllDone()) return kERR;
  Obj().Probe();
  Obj().Start();
  return kOK;
}
 
//------------------------------------------+-----------------------------------
 
int RtclRw11Cntl::M_stats(RtclArgs& args)
{
  RtclStats::Context cntx;
  if (!RtclStats::GetArgs(args, cntx)) return kERR;
  if (!RtclStats::Exec(args, cntx, Obj().Stats())) return kERR;
  return kOK;
}
 
//------------------------------------------+-----------------------------------
 
int RtclRw11Cntl::M_dump(RtclArgs& args)
{
  int detail=0;
  if (!GetArgsDump(args, detail)) return kERR;
  if (!args.AllDone()) return kERR;
 
  ostringstream sos;
  Obj().Dump(sos, 0, "", detail);
  args.SetResult(sos);
  return kOK;
}
 
//------------------------------------------+-----------------------------------
 
int RtclRw11Cntl::M_default(RtclArgs& args)
{
  if (!args.AllDone()) return kERR;
  ostringstream sos;
  sos << "no default output defined yet...\n";
  args.AppendResultLines(sos);
  return kOK;
}
 
//------------------------------------------+-----------------------------------
 
Tcl_Obj* RtclRw11Cntl::UnitCommands()
{
  Tcl_Obj* rlist = Tcl_NewListObj(0,nullptr);
  for (size_t i = 0; i < Obj().NUnit(); i++) {
    string ucmd = CommandName() + to_string(i);
    RtclOPtr pele(Tcl_NewStringObj(ucmd.data(), ucmd.length()));
    Tcl_ListObjAppendElement(nullptr, rlist, pele);
  }
  return rlist;
}
 
//------------------------------------------+-----------------------------------
 
const std::string& RtclRw11Cntl::Class() const
{
  return fClass;
}
 
} // end namespace Retro