URL
https://opencores.org/ocsvn/w11/w11/trunk
Subversion Repositories w11
[/] [w11/] [tags/] [w11a_V0.7/] [tools/] [src/] [librlinktpp/] [Rlinktpp_Init.cpp] - Rev 36
Go to most recent revision | Compare with Previous | Blame | View Log
// $Id: Rlinktpp_Init.cpp 584 2014-08-22 19:38:12Z mueller $ // // Copyright 2011-2014 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 // 2014-08-22 584 1.0.6 use nullptr // 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 584 2014-08-22 19:38:12Z 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(), "'", nullptr); } return TCL_ERROR; }
Go to most recent revision | Compare with Previous | Blame | View Log