URL
https://opencores.org/ocsvn/w11/w11/trunk
Subversion Repositories w11
[/] [w11/] [tags/] [w11a_V0.6/] [tools/] [src/] [librutiltpp/] [Rutiltpp_Init.cpp] - Rev 10
Go to most recent revision | Compare with Previous | Blame | View Log
// $Id: Rutiltpp_Init.cpp 374 2011-03-27 17:02:47Z mueller $ // // Copyright 2011- 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 // 2011-03-20 372 1.0.2 renamed ..tcl -> ..tpp // 2011-03-19 371 1.0 Initial version // --------------------------------------------------------------------------- /*! \file \version $Id: Rutiltpp_Init.cpp 374 2011-03-27 17:02:47Z mueller $ \brief Implemenation of Rutiltpp_Init . */ #include "tcl.h" #include <stdexcept> #include "RtclBvi.hpp" using namespace std; using namespace Retro; //------------------------------------------+----------------------------------- extern "C" int Rutiltpp_Init(Tcl_Interp* interp) { int irc; // use stubs const char* vers = Tcl_InitStubs(interp, TCL_VERSION, 0); if (vers == NULL) return TCL_ERROR; // declare package name and version irc = Tcl_PkgProvide(interp, "rutiltpp", "1.0.0"); if (irc != TCL_OK) return irc; try { // register general commands 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