// $Id: RtclRlinkServer.cpp 513 2013-05-01 14:02:06Z mueller $
|
// $Id: RtclRlinkServer.cpp 513 2013-05-01 14:02:06Z mueller $
|
//
|
//
|
// Copyright 2013- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
// Copyright 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
|
// 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
|
// 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.
|
// 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
|
// This program is distributed in the hope that it will be useful, but
|
// WITHOUT ANY WARRANTY, without even the implied warranty of MERCHANTABILITY
|
// WITHOUT ANY WARRANTY, without even the implied warranty of MERCHANTABILITY
|
// or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
// or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
// for complete details.
|
// for complete details.
|
//
|
//
|
// Revision History:
|
// Revision History:
|
// Date Rev Version Comment
|
// Date Rev Version Comment
|
// 2013-05-01 513 1.0.5 TraceLevel now uint32_t
|
// 2013-05-01 513 1.0.5 TraceLevel now uint32_t
|
// 2013-04-26 510 1.0.4 change M_attn, now -info instead of -show
|
// 2013-04-26 510 1.0.4 change M_attn, now -info instead of -show
|
// 2013-04-21 509 1.0.3 add server -resume
|
// 2013-04-21 509 1.0.3 add server -resume
|
// 2013-02-05 483 1.0.2 ClassCmdConfig: use RtclArgs
|
// 2013-02-05 483 1.0.2 ClassCmdConfig: use RtclArgs
|
// 2013-02-05 482 1.0.1 add shared_ptr to RlinkConnect object
|
// 2013-02-05 482 1.0.1 add shared_ptr to RlinkConnect object
|
// 2013-01-12 474 1.0 Initial version
|
// 2013-01-12 474 1.0 Initial version
|
// ---------------------------------------------------------------------------
|
// ---------------------------------------------------------------------------
|
|
|
/*!
|
/*!
|
\file
|
\file
|
\version $Id: RtclRlinkServer.cpp 513 2013-05-01 14:02:06Z mueller $
|
\version $Id: RtclRlinkServer.cpp 513 2013-05-01 14:02:06Z mueller $
|
\brief Implemenation of class RtclRlinkServer.
|
\brief Implemenation of class RtclRlinkServer.
|
*/
|
*/
|
|
|
#include <ctype.h>
|
#include <ctype.h>
|
|
|
#include <stdexcept>
|
#include <stdexcept>
|
#include <iostream>
|
#include <iostream>
|
#include <vector>
|
#include <vector>
|
#include <string>
|
#include <string>
|
#include <memory>
|
#include <memory>
|
|
|
#include "boost/bind.hpp"
|
#include "boost/bind.hpp"
|
|
|
#include "librtools/RosPrintBvi.hpp"
|
#include "librtools/RosPrintBvi.hpp"
|
#include "librtcltools/Rtcl.hpp"
|
#include "librtcltools/Rtcl.hpp"
|
#include "librtcltools/RtclOPtr.hpp"
|
#include "librtcltools/RtclOPtr.hpp"
|
#include "librtcltools/RtclStats.hpp"
|
#include "librtcltools/RtclStats.hpp"
|
#include "librtcltools/RtclContext.hpp"
|
#include "librtcltools/RtclContext.hpp"
|
#include "RtclRlinkConnect.hpp"
|
#include "RtclRlinkConnect.hpp"
|
|
|
#include "RtclRlinkServer.hpp"
|
#include "RtclRlinkServer.hpp"
|
|
|
using namespace std;
|
using namespace std;
|
|
|
/*!
|
/*!
|
\class Retro::RtclRlinkServer
|
\class Retro::RtclRlinkServer
|
\brief FIXME_docs
|
\brief FIXME_docs
|
*/
|
*/
|
|
|
// all method definitions in namespace Retro
|
// all method definitions in namespace Retro
|
namespace Retro {
|
namespace Retro {
|
|
|
//------------------------------------------+-----------------------------------
|
//------------------------------------------+-----------------------------------
|
//! Default constructor
|
//! Default constructor
|
|
|
RtclRlinkServer::RtclRlinkServer(Tcl_Interp* interp, const char* name)
|
RtclRlinkServer::RtclRlinkServer(Tcl_Interp* interp, const char* name)
|
: RtclProxyOwned<RlinkServer>("RlinkServer", interp, name,
|
: RtclProxyOwned<RlinkServer>("RlinkServer", interp, name,
|
new RlinkServer()),
|
new RlinkServer()),
|
fspConn()
|
fspConn()
|
{
|
{
|
AddMeth("server", boost::bind(&RtclRlinkServer::M_server, this, _1));
|
AddMeth("server", boost::bind(&RtclRlinkServer::M_server, this, _1));
|
AddMeth("attn", boost::bind(&RtclRlinkServer::M_attn, this, _1));
|
AddMeth("attn", boost::bind(&RtclRlinkServer::M_attn, this, _1));
|
AddMeth("stats", boost::bind(&RtclRlinkServer::M_stats, this, _1));
|
AddMeth("stats", boost::bind(&RtclRlinkServer::M_stats, this, _1));
|
AddMeth("print", boost::bind(&RtclRlinkServer::M_print, this, _1));
|
AddMeth("print", boost::bind(&RtclRlinkServer::M_print, this, _1));
|
AddMeth("dump", boost::bind(&RtclRlinkServer::M_dump, this, _1));
|
AddMeth("dump", boost::bind(&RtclRlinkServer::M_dump, this, _1));
|
AddMeth("$default", boost::bind(&RtclRlinkServer::M_default, this, _1));
|
AddMeth("$default", boost::bind(&RtclRlinkServer::M_default, this, _1));
|
}
|
}
|
|
|
//------------------------------------------+-----------------------------------
|
//------------------------------------------+-----------------------------------
|
//! Destructor
|
//! Destructor
|
|
|
RtclRlinkServer::~RtclRlinkServer()
|
RtclRlinkServer::~RtclRlinkServer()
|
{
|
{
|
for (alist_it_t it = fAttnHdl.begin(); it != fAttnHdl.end(); it++) {
|
for (alist_it_t it = fAttnHdl.begin(); it != fAttnHdl.end(); it++) {
|
delete (*it);
|
delete (*it);
|
}
|
}
|
}
|
}
|
|
|
//------------------------------------------+-----------------------------------
|
//------------------------------------------+-----------------------------------
|
//! FIXME_docs
|
//! FIXME_docs
|
|
|
int RtclRlinkServer::ClassCmdConfig(RtclArgs& args)
|
int RtclRlinkServer::ClassCmdConfig(RtclArgs& args)
|
{
|
{
|
string parent;
|
string parent;
|
if (!args.GetArg("parent", parent)) return kERR;
|
if (!args.GetArg("parent", parent)) return kERR;
|
|
|
// locate RlinkConnect proxy and object -> setup Server->Connect linkage
|
// locate RlinkConnect proxy and object -> setup Server->Connect linkage
|
RtclProxyBase* pprox = RtclContext::Find(args.Interp()).FindProxy(
|
RtclProxyBase* pprox = RtclContext::Find(args.Interp()).FindProxy(
|
"RlinkConnect", parent);
|
"RlinkConnect", parent);
|
if (pprox == 0)
|
if (pprox == 0)
|
return args.Quit(string("-E: object '") + parent +
|
return args.Quit(string("-E: object '") + parent +
|
"' not found or not type RlinkConnect");
|
"' not found or not type RlinkConnect");
|
|
|
// make RtclRlinkServer object be co-owner of RlinkConnect object
|
// make RtclRlinkServer object be co-owner of RlinkConnect object
|
fspConn = dynamic_cast<RtclRlinkConnect*>(pprox)->ObjSPtr();
|
fspConn = dynamic_cast<RtclRlinkConnect*>(pprox)->ObjSPtr();
|
// set RlinkConnect in RlinkServer (make RlinkServer also co-owner)
|
// set RlinkConnect in RlinkServer (make RlinkServer also co-owner)
|
Obj().SetConnect(fspConn);
|
Obj().SetConnect(fspConn);
|
|
|
return kOK;
|
return kOK;
|
}
|
}
|
|
|
//------------------------------------------+-----------------------------------
|
//------------------------------------------+-----------------------------------
|
//! FIXME_docs
|
//! FIXME_docs
|
|
|
int RtclRlinkServer::M_server(RtclArgs& args)
|
int RtclRlinkServer::M_server(RtclArgs& args)
|
{
|
{
|
static RtclNameSet optset("-start|-stop|-resume|-test|-trace");
|
static RtclNameSet optset("-start|-stop|-resume|-test|-trace");
|
string opt;
|
string opt;
|
if (args.NextOpt(opt, optset)) {
|
if (args.NextOpt(opt, optset)) {
|
if (opt == "-start") { // server -start
|
if (opt == "-start") { // server -start
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
Obj().Start();
|
Obj().Start();
|
} else if (opt == "-stop") { // server -stop
|
} else if (opt == "-stop") { // server -stop
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
Obj().Stop();
|
Obj().Stop();
|
} else if (opt == "-resume") { // server -resume
|
} else if (opt == "-resume") { // server -resume
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
Obj().Resume();
|
Obj().Resume();
|
} else if (opt == "-test") { // server -test
|
} else if (opt == "-test") { // server -test
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
args.SetResult(Obj().IsActive());
|
args.SetResult(Obj().IsActive());
|
} else if (opt == "-trace") { // server -trace ...
|
} else if (opt == "-trace") { // server -trace ...
|
uint32_t level;
|
uint32_t level;
|
if (!args.GetArg("?level", level)) return kERR;
|
if (!args.GetArg("?level", level)) return kERR;
|
if (args.NOptMiss()==0) { // server -trace level
|
if (args.NOptMiss()==0) { // server -trace level
|
Obj().SetTraceLevel(level);
|
Obj().SetTraceLevel(level);
|
} else { // server -trace
|
} else { // server -trace
|
args.SetResult((int)Obj().TraceLevel());
|
args.SetResult((int)Obj().TraceLevel());
|
}
|
}
|
}
|
}
|
|
|
} else { // server
|
} else { // server
|
if (!args.OptValid()) return kERR;
|
if (!args.OptValid()) return kERR;
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
args.SetResult(Obj().IsActive());
|
args.SetResult(Obj().IsActive());
|
}
|
}
|
|
|
return kOK;
|
return kOK;
|
}
|
}
|
|
|
//------------------------------------------+-----------------------------------
|
//------------------------------------------+-----------------------------------
|
//! FIXME_docs
|
//! FIXME_docs
|
|
|
int RtclRlinkServer::M_attn(RtclArgs& args)
|
int RtclRlinkServer::M_attn(RtclArgs& args)
|
{
|
{
|
static RtclNameSet optset("-add|-remove|-info|-test|-list");
|
static RtclNameSet optset("-add|-remove|-info|-test|-list");
|
|
|
Tcl_Interp* interp = args.Interp();
|
Tcl_Interp* interp = args.Interp();
|
|
|
string opt;
|
string opt;
|
|
|
if (args.NextOpt(opt, optset)) {
|
if (args.NextOpt(opt, optset)) {
|
if (opt == "-add") { // attn -add mask script
|
if (opt == "-add") { // attn -add mask script
|
uint16_t mask=0;
|
uint16_t mask=0;
|
Tcl_Obj* script=0;
|
Tcl_Obj* script=0;
|
if (!args.GetArg("mask", mask,0xff,1)) return kERR;
|
if (!args.GetArg("mask", mask,0xff,1)) return kERR;
|
if (!args.GetArg("script", script)) return kERR;
|
if (!args.GetArg("script", script)) return kERR;
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
|
|
unique_ptr<RtclAttnShuttle> p(new RtclAttnShuttle(mask, script));
|
unique_ptr<RtclAttnShuttle> p(new RtclAttnShuttle(mask, script));
|
try {
|
try {
|
p->Add(&Obj(), interp);
|
p->Add(&Obj(), interp);
|
} catch (exception& e) {
|
} catch (exception& e) {
|
return args.Quit(string("-E: handler rejected: ")+e.what());
|
return args.Quit(string("-E: handler rejected: ")+e.what());
|
}
|
}
|
fAttnHdl.push_back(p.release());
|
fAttnHdl.push_back(p.release());
|
return kOK;
|
return kOK;
|
|
|
} else if (opt == "-remove") { // attn -remove mask
|
} else if (opt == "-remove") { // attn -remove mask
|
uint16_t mask=0;
|
uint16_t mask=0;
|
if (!args.GetArg("mask", mask)) return kERR;
|
if (!args.GetArg("mask", mask)) return kERR;
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
for (alist_it_t it = fAttnHdl.end(); it != fAttnHdl.begin(); ) {
|
for (alist_it_t it = fAttnHdl.end(); it != fAttnHdl.begin(); ) {
|
it--;
|
it--;
|
if ((*it)->Mask() == mask) {
|
if ((*it)->Mask() == mask) {
|
fAttnHdl.erase(it);
|
fAttnHdl.erase(it);
|
delete (*it);
|
delete (*it);
|
return kOK;
|
return kOK;
|
}
|
}
|
}
|
}
|
return args.Quit(string("-E: no handler defined for '") +
|
return args.Quit(string("-E: no handler defined for '") +
|
args.PeekArgString(-1) + "'");
|
args.PeekArgString(-1) + "'");
|
|
|
} else if (opt == "-info") { // attn -info mask
|
} else if (opt == "-info") { // attn -info mask
|
uint16_t mask=0;
|
uint16_t mask=0;
|
if (!args.GetArg("mask", mask)) return kERR;
|
if (!args.GetArg("mask", mask)) return kERR;
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
RtclOPtr pres(Tcl_NewListObj(0,0));
|
RtclOPtr pres(Tcl_NewListObj(0,0));
|
for (alist_it_t it = fAttnHdl.begin(); it != fAttnHdl.end(); it++) {
|
for (alist_it_t it = fAttnHdl.begin(); it != fAttnHdl.end(); it++) {
|
if ((*it)->Mask() & mask) {
|
if ((*it)->Mask() & mask) {
|
RtclOPtr pele(Tcl_NewListObj(0,0));
|
RtclOPtr pele(Tcl_NewListObj(0,0));
|
Tcl_ListObjAppendElement(NULL, pele, Tcl_NewIntObj((*it)->Mask()) );
|
Tcl_ListObjAppendElement(NULL, pele, Tcl_NewIntObj((*it)->Mask()) );
|
Tcl_ListObjAppendElement(NULL, pele, (*it)->Script() );
|
Tcl_ListObjAppendElement(NULL, pele, (*it)->Script() );
|
Tcl_ListObjAppendElement(NULL, pres, pele);
|
Tcl_ListObjAppendElement(NULL, pres, pele);
|
}
|
}
|
}
|
}
|
args.SetResult(pres);
|
args.SetResult(pres);
|
return kOK;
|
return kOK;
|
|
|
} else if (opt == "-test") { // attn -test mask
|
} else if (opt == "-test") { // attn -test mask
|
uint16_t mask=0;
|
uint16_t mask=0;
|
if (!args.GetArg("mask", mask)) return kERR;
|
if (!args.GetArg("mask", mask)) return kERR;
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
int nhdl = 0;
|
int nhdl = 0;
|
for (alist_it_t it = fAttnHdl.begin(); it != fAttnHdl.end(); it++) {
|
for (alist_it_t it = fAttnHdl.begin(); it != fAttnHdl.end(); it++) {
|
if ((*it)->Mask() & mask) {
|
if ((*it)->Mask() & mask) {
|
nhdl += 1;
|
nhdl += 1;
|
int rc = Tcl_EvalObjEx(interp, (*it)->Script(), TCL_EVAL_GLOBAL);
|
int rc = Tcl_EvalObjEx(interp, (*it)->Script(), TCL_EVAL_GLOBAL);
|
if (rc != kOK) return rc;
|
if (rc != kOK) return rc;
|
}
|
}
|
}
|
}
|
if (nhdl) return kOK;
|
if (nhdl) return kOK;
|
return args.Quit(string("-E: no handler defined for '") +
|
return args.Quit(string("-E: no handler defined for '") +
|
args.PeekArgString(-1) + "'");
|
args.PeekArgString(-1) + "'");
|
|
|
} else if (opt == "-list") { // attn -list
|
} else if (opt == "-list") { // attn -list
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
vector<uint16_t> vres;
|
vector<uint16_t> vres;
|
for (alist_it_t it = fAttnHdl.begin(); it != fAttnHdl.end(); it++) {
|
for (alist_it_t it = fAttnHdl.begin(); it != fAttnHdl.end(); it++) {
|
vres.push_back((*it)->Mask());
|
vres.push_back((*it)->Mask());
|
}
|
}
|
args.SetResult(Rtcl::NewListIntObj(vres));
|
args.SetResult(Rtcl::NewListIntObj(vres));
|
}
|
}
|
|
|
} else { // attn
|
} else { // attn
|
if (!args.OptValid()) return kERR;
|
if (!args.OptValid()) return kERR;
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
uint16_t mask=0;
|
uint16_t mask=0;
|
for (alist_it_t it = fAttnHdl.begin(); it != fAttnHdl.end(); it++) {
|
for (alist_it_t it = fAttnHdl.begin(); it != fAttnHdl.end(); it++) {
|
mask |= (*it)->Mask();
|
mask |= (*it)->Mask();
|
}
|
}
|
args.SetResult(mask);
|
args.SetResult(mask);
|
}
|
}
|
|
|
return kOK;
|
return kOK;
|
}
|
}
|
|
|
//------------------------------------------+-----------------------------------
|
//------------------------------------------+-----------------------------------
|
//! FIXME_docs
|
//! FIXME_docs
|
|
|
int RtclRlinkServer::M_stats(RtclArgs& args)
|
int RtclRlinkServer::M_stats(RtclArgs& args)
|
{
|
{
|
RtclStats::Context cntx;
|
RtclStats::Context cntx;
|
if (!RtclStats::GetArgs(args, cntx)) return kERR;
|
if (!RtclStats::GetArgs(args, cntx)) return kERR;
|
if (!RtclStats::Collect(args, cntx, Obj().Stats())) return kERR;
|
if (!RtclStats::Collect(args, cntx, Obj().Stats())) return kERR;
|
return kOK;
|
return kOK;
|
}
|
}
|
|
|
//------------------------------------------+-----------------------------------
|
//------------------------------------------+-----------------------------------
|
//! FIXME_docs
|
//! FIXME_docs
|
|
|
int RtclRlinkServer::M_print(RtclArgs& args)
|
int RtclRlinkServer::M_print(RtclArgs& args)
|
{
|
{
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
|
|
ostringstream sos;
|
ostringstream sos;
|
Obj().Print(sos);
|
Obj().Print(sos);
|
args.SetResult(sos);
|
args.SetResult(sos);
|
return kOK;
|
return kOK;
|
}
|
}
|
|
|
//------------------------------------------+-----------------------------------
|
//------------------------------------------+-----------------------------------
|
//! FIXME_docs
|
//! FIXME_docs
|
|
|
int RtclRlinkServer::M_dump(RtclArgs& args)
|
int RtclRlinkServer::M_dump(RtclArgs& args)
|
{
|
{
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
|
|
ostringstream sos;
|
ostringstream sos;
|
Obj().Dump(sos, 0);
|
Obj().Dump(sos, 0);
|
args.SetResult(sos);
|
args.SetResult(sos);
|
return kOK;
|
return kOK;
|
}
|
}
|
|
|
//------------------------------------------+-----------------------------------
|
//------------------------------------------+-----------------------------------
|
//! FIXME_docs
|
//! FIXME_docs
|
|
|
int RtclRlinkServer::M_default(RtclArgs& args)
|
int RtclRlinkServer::M_default(RtclArgs& args)
|
{
|
{
|
if (!args.AllDone()) return kERR;
|
if (!args.AllDone()) return kERR;
|
ostringstream sos;
|
ostringstream sos;
|
sos << "no default output defined yet...\n";
|
sos << "no default output defined yet...\n";
|
args.AppendResultLines(sos);
|
args.AppendResultLines(sos);
|
return kOK;
|
return kOK;
|
}
|
}
|
|
|
} // end namespace Retro
|
} // end namespace Retro
|
|
|