Subversion Repositories w11

// $Id: RtclRw11UnitPC11.cpp 515 2013-05-04 17:28:59Z mueller $
//
// 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
// 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.
//
// This program is distributed in the hope that it will be useful, but
// WITHOUT ANY WARRANTY, without even the implied warranty of MERCHANTABILITY
// or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
// for complete details.
// 
// Revision History: 
// Date         Rev Version  Comment
// 2013-05-03   515   1.0    Initial version
// ---------------------------------------------------------------------------
 
/*!
  \file
  \version $Id: RtclRw11UnitPC11.cpp 515 2013-05-04 17:28:59Z mueller $
  \brief   Implemenation of RtclRw11UnitPC11.
*/
 
#include "RtclRw11UnitPC11.hpp"
 
using namespace std;
 
/*!
  \class Retro::RtclRw11UnitPC11
  \brief FIXME_docs
*/
 
// all method definitions in namespace Retro
namespace Retro {
 
//------------------------------------------+-----------------------------------
//! Constructor
 
RtclRw11UnitPC11::RtclRw11UnitPC11(Tcl_Interp* interp,
                              const std::string& unitcmd,
                              const boost::shared_ptr<Rw11UnitPC11>& spunit)
  : RtclRw11UnitBase<Rw11UnitPC11>("Rw11UnitPC11", spunit),
    RtclRw11UnitStream(this, spunit.get())
{
  // create default unit command
  CreateObjectCmd(interp, unitcmd.c_str());
 
  // for 1st PC11, create also alias
  //   cpuxpca0 -> cpuxpr
  //   cpuxpca1 -> cpuxpp
  if (unitcmd.length() == 8) {
    size_t ind = spunit->Index();
    if (unitcmd.length() == 8 && unitcmd.substr(4,3) == "pca") {
      string alias = unitcmd.substr(0,4);
      alias += (ind==Rw11CntlPC11::kUnit_PR) ? "pr" : "pp";
      Tcl_CreateAlias(interp, alias.c_str(), interp, unitcmd.c_str(), 0, NULL);
    }
  }
}
 
//------------------------------------------+-----------------------------------
//! Destructor
 
RtclRw11UnitPC11::~RtclRw11UnitPC11()
{}
 
} // end namespace Retro