RtclClassOwned.ipp

Go to the documentation of this file.

// $Id: RtclClassOwned.ipp 1186 2019-07-12 17:49:59Z mueller $
//  SPDX-License-Identifier: GPL-3.0-or-later
// Copyright 2011-2013 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
// 
// Revision History: 
// Date         Rev Version  Comment
// 2013-01-13   474   1.0.1  ClassCmdCreate(): fix configuration failed logic
// 2011-02-20   363   1.0    Initial version
// 2011-02-11   360   0.1    First draft
// ---------------------------------------------------------------------------
 
#include <iostream>
#include <string>
 
#include "RtclProxyBase.hpp"
#include "RtclArgs.hpp"
 
// all method definitions in namespace Retro
namespace Retro {
 
//------------------------------------------+-----------------------------------
 
template <class TP>
inline RtclClassOwned<TP>::RtclClassOwned(const std::string& type)
  : RtclClassBase(type)
{}
 
//------------------------------------------+-----------------------------------
 
template <class TP>
inline RtclClassOwned<TP>::~RtclClassOwned()
{}
 
//------------------------------------------+-----------------------------------
 
template <class TP>
inline int RtclClassOwned<TP>::ClassCmdCreate(Tcl_Interp* interp, int objc, 
                                              Tcl_Obj* const objv[])
{
  RtclArgs  args(interp, objc, objv, 1);
  std::string name;
  if (!args.GetArg("name", name)) return kERR;
  
  // create new proxy object
  TP* pobj = new TP(interp, name.c_str());
  // execute configure, delete command in case configure failed
  //   Note: deleting the command will implicitely delete the object..
  if (pobj->ClassCmdConfig(args) != kOK) {
    ClassCmdDelete(interp, name.c_str());
    return kERR;
  }
  return kOK;
}
 
//------------------------------------------+-----------------------------------
 
template <class TP>
inline void RtclClassOwned<TP>::CreateClass(Tcl_Interp* interp, 
                                            const char* name, 
                                            const std::string& type)
{
  RtclClassOwned<TP>* p = new RtclClassOwned<TP>(type);
  p->CreateClassCmd(interp, name);
  return;
}
 
} // end namespace Retro