mirror of
https://github.com/wfjm/w11.git
synced 2026-02-18 05:44:12 +00:00
2a50d35e71
- use `nullptr` instead of plain '0' - use `[[noreturn]]` (clang -Wmissing-noreturn) - drop never reached returns (clang -Wunreachable-code-return) - drop `throw()` lists, use `noexcept` (clang -Wdeprecated) - add `R*_Init` prototypes (clang -Wmissing-prototypes) - Rw11VirtEthTap.cpp: BUGFIX: buffer not null terminated (coverity)
71 lines
2.4 KiB
C++
71 lines
2.4 KiB
C++
// $Id: Rlinktpp_Init.cpp 1061 2018-10-27 17:39:11Z mueller $
|
|
//
|
|
// Copyright 2011-2018 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 3, 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
|
|
\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); // -Wmissing-prototypes fix
|
|
|
|
//------------------------------------------+-----------------------------------
|
|
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;
|
|
}
|
|
|