RtclClassBase.hpp

Go to the documentation of this file.

// $Id: RtclClassBase.hpp 1186 2019-07-12 17:49:59Z mueller $
// SPDX-License-Identifier: GPL-3.0-or-later
// Copyright 2011-2018 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
// 
// Revision History: 
// Date         Rev Version  Comment
// 2018-12-16  1084   1.0.2  use =delete for noncopyable instead of boost
// 2011-04-24   380   1.0.1  use boost::noncopyable (instead of private dcl's)
// 2011-02-20   363   1.0    Initial version
// 2011-02-11   360   0.1    First draft
// ---------------------------------------------------------------------------
 
#ifndef included_Retro_RtclClassBase
#define included_Retro_RtclClassBase 1
 
#include "tcl.h"
 
namespace Retro {
 
  class RtclClassBase {
    public:
 
      explicit      RtclClassBase(const std::string& type = std::string());
      virtual      ~RtclClassBase();
    
                    RtclClassBase(const RtclClassBase&) = delete; // noncopyable 
      RtclClassBase& operator=(const RtclClassBase&) = delete;    // noncopyable
 
      const std::string& Type() const;
      Tcl_Command        Token() const;
 
    // some constants (also defined in cpp)
      static const int kOK  = TCL_OK;       
      static const int kERR = TCL_ERROR;    
 
    protected:
      void          SetType(const std::string& type);
 
      void          CreateClassCmd(Tcl_Interp* interp, const char* name);
 
      virtual int   TclClassCmd(Tcl_Interp* interp, int objc, 
                                Tcl_Obj* const objv[]);
 
      virtual int   ClassCmdList(Tcl_Interp* interp);
      virtual int   ClassCmdDelete(Tcl_Interp* interp, const char* name);
      virtual int   ClassCmdCreate(Tcl_Interp* interp, int objc, 
                                   Tcl_Obj* const objv[]) = 0;
 
      static int    ThunkTclClassCmd(ClientData cdata, Tcl_Interp* interp, 
                                     int objc, Tcl_Obj* const objv[]);
 
      static void   ThunkTclCmdDeleteProc(ClientData cdata);
      static void   ThunkTclExitProc(ClientData cdata);
    
    protected:
      std::string   fType;                  
      Tcl_Interp*   fInterp;                
      Tcl_Command   fCmdToken;              
  };
  
} // end namespace Retro
 
#include "RtclClassBase.ipp"
 
#endif