Subversion Repositories w11

// $Id: Rlinktpp_Init.cpp 504 2013-04-13 15:37:24Z mueller $
//
// Copyright 2011-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-02-10   485   1.0.5  remove Tcl_InitStubs()
// 2013-01-27   478   1.0.4  add rlinkport
// 2013-01-12   474   1.0.3  add rlinkserver
// 2011-03-20   372   1.0.2  renamed ..tcl -> ..tpp
// 2011-03-19   371   1.0.1  moved Bvi into librtoolstcl
// 2011-03-14   370   1.0    Initial version
// 2011-02-11   360   0.1    First draft
// ---------------------------------------------------------------------------
 
/*!
  \file
  \version $Id: Rlinktpp_Init.cpp 504 2013-04-13 15:37:24Z mueller $
  \brief   Implemenation of Rlinktpp_Init .
*/
 
#include "tcl.h"
 
#include <stdexcept>
 
#include "librtcltools/RtclClassOwned.hpp"
#include "RtclRlinkPort.hpp"
#include "RtclRlinkConnect.hpp"
#include "RtclRlinkServer.hpp"
 
using namespace std;
using namespace Retro;
 
//------------------------------------------+-----------------------------------
extern "C" int Rlinktpp_Init(Tcl_Interp* interp) 
{
  int irc;
 
  // declare package name and version
  irc = Tcl_PkgProvide(interp, "rlinktpp", "1.0.0");
  if (irc != TCL_OK) return irc;
 
  try {
    // register class commands
    RtclClassOwned<RtclRlinkPort>::CreateClass(interp, "rlinkport",
                                               "RlinkPort");
    RtclClassOwned<RtclRlinkConnect>::CreateClass(interp, "rlinkconnect",
                                                  "RlinkConnect");
    RtclClassOwned<RtclRlinkServer>::CreateClass(interp, "rlinkserver",
                                                 "RlinkServer");
    return TCL_OK;
 
  } catch (exception& e) {
    Tcl_AppendResult(interp, "-E: exception caught in Rlinktpp_Init: '", 
                     e.what(), "'", NULL);
  }
  return TCL_ERROR;
}