RtclArgs.ipp

Go to the documentation of this file.

// $Id: RtclArgs.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-03-05   495   1.0.8  add SetResult(bool)
// 2013-03-02   494   1.0.7  add Quit() method
// 2013-02-01   479   1.0.5  add Objv() method
// 2011-03-26   373   1.0.2  add SetResult(string)
// 2011-03-05   366   1.0.1  add NDone(), NOptMiss(), SetResult();
// 2011-02-26   364   1.0    Initial version
// 2011-02-18   362   0.1    First draft
// ---------------------------------------------------------------------------
 
#include "Rtcl.hpp"
 
// all method definitions in namespace Retro
namespace Retro {
 
//------------------------------------------+-----------------------------------
 
inline Tcl_Interp* RtclArgs::Interp() const
{
  return fpInterp;
}
 
//------------------------------------------+-----------------------------------
 
inline int RtclArgs::Objc() const
{
  return fObjc;
}
 
//------------------------------------------+-----------------------------------
 
inline Tcl_Obj* const * RtclArgs::Objv() const
{
  return fObjv;
}
 
//------------------------------------------+-----------------------------------
 
inline bool RtclArgs::OptValid() const
{
  return !fOptErr;
}
 
//------------------------------------------+-----------------------------------
 
inline size_t RtclArgs::NDone() const
{
  return fNDone;
}
 
//------------------------------------------+-----------------------------------
 
inline size_t RtclArgs::NOptMiss() const
{
  return fNOptMiss;
}
 
//------------------------------------------+-----------------------------------
 
inline void RtclArgs::SetResult(const std::string& str)
{
  Rtcl::SetResult(fpInterp, str);
  return;
}
 
//------------------------------------------+-----------------------------------
 
inline void RtclArgs::SetResult(std::ostringstream& sos)
{
  Rtcl::SetResult(fpInterp, sos);
  return;
}
 
//------------------------------------------+-----------------------------------
 
inline void RtclArgs::SetResult(bool val)
{
  Tcl_SetObjResult(fpInterp, Tcl_NewBooleanObj(val));
  return;
}
 
//------------------------------------------+-----------------------------------
 
inline void RtclArgs::SetResult(int val)
{
  Tcl_SetObjResult(fpInterp, Tcl_NewIntObj(val));
  return;
}
 
//------------------------------------------+-----------------------------------
 
inline void RtclArgs::SetResult(double val)
{
  Tcl_SetObjResult(fpInterp, Tcl_NewDoubleObj(val));
  return;
}
 
//------------------------------------------+-----------------------------------
 
inline void RtclArgs::SetResult(Tcl_Obj* pobj)
{
  Tcl_SetObjResult(fpInterp, pobj);
  return;
}
 
//------------------------------------------+-----------------------------------
 
inline void RtclArgs::AppendResult(const std::string& str)
{
  Tcl_AppendResult(fpInterp, str.c_str(), NULL);
  return;
}
 
//------------------------------------------+-----------------------------------
 
inline void RtclArgs::AppendResult(std::ostringstream& sos)
{
  AppendResult(sos.str());
  return;
}
 
//------------------------------------------+-----------------------------------
 
inline void RtclArgs::AppendResultLines(std::ostringstream& sos)
{
  AppendResultLines(sos.str());
  return;
}
 
//------------------------------------------+-----------------------------------
 
inline int RtclArgs::Quit(const std::string& str)
{
  Tcl_AppendResult(fpInterp, str.c_str(), NULL);
  return TCL_ERROR;
}
 
//------------------------------------------+-----------------------------------
 
inline Tcl_Obj* RtclArgs::operator[](size_t ind) const
{
  return fObjv[ind];
}
 
} // end namespace Retro