URL
https://opencores.org/ocsvn/w11/w11/trunk
Subversion Repositories w11
[/] [w11/] [tags/] [w11a_V0.6/] [tools/] [src/] [librutiltpp/] [Rutiltpp_Init.cpp] - Rev 40
Go to most recent revision | Compare with Previous | Blame | View Log
// $Id: Rutiltpp_Init.cpp 521 2013-05-20 22:16:45Z 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-05-17 512 1.0.3 add RtclSystem::CreateCmds() // 2013-02-10 485 1.0.2 remove Tcl_InitStubs() // 2011-03-20 372 1.0.1 renamed ..tcl -> ..tpp // 2011-03-19 371 1.0 Initial version // --------------------------------------------------------------------------- /*! \file \version $Id: Rutiltpp_Init.cpp 521 2013-05-20 22:16:45Z mueller $ \brief Implemenation of Rutiltpp_Init . */ #include "tcl.h" #include <stdexcept> #include "RtclSystem.hpp" #include "RtclBvi.hpp" using namespace std; using namespace Retro; //------------------------------------------+----------------------------------- extern "C" int Rutiltpp_Init(Tcl_Interp* interp) { int irc; // declare package name and version irc = Tcl_PkgProvide(interp, "rutiltpp", "1.0.0"); if (irc != TCL_OK) return irc; try { // register general commands RtclSystem::CreateCmds(interp); RtclBvi::CreateCmds(interp); return TCL_OK; } catch (exception& e) { Tcl_AppendResult(interp, "-E: exception caught in Rutiltpp_Init: '", e.what(), "'", NULL); } return TCL_ERROR; }
Go to most recent revision | Compare with Previous | Blame | View Log