mirror of
https://github.com/wfjm/w11.git
synced 2026-02-18 13:47:24 +00:00
- migrate to rlink protocol version 4
- Goals for rlink v4
- 16 bit addresses (instead of 8 bit)
- more robust encoding, support for error recovery at transport level
- add features to reduce round trips
- improved attention handling
- new 'list abort' command
- For further details see README_Rlink_V4.txt
- use own C++ based tcl shell tclshcpp instead of tclsh
This commit is contained in:
@@ -1,6 +1,6 @@
|
||||
// $Id: Rlinktpp_Init.cpp 504 2013-04-13 15:37:24Z mueller $
|
||||
// $Id: Rlinktpp_Init.cpp 584 2014-08-22 19:38:12Z mueller $
|
||||
//
|
||||
// Copyright 2011-2013 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
|
||||
// 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
|
||||
@@ -13,6 +13,7 @@
|
||||
//
|
||||
// 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
|
||||
@@ -24,7 +25,7 @@
|
||||
|
||||
/*!
|
||||
\file
|
||||
\version $Id: Rlinktpp_Init.cpp 504 2013-04-13 15:37:24Z mueller $
|
||||
\version $Id: Rlinktpp_Init.cpp 584 2014-08-22 19:38:12Z mueller $
|
||||
\brief Implemenation of Rlinktpp_Init .
|
||||
*/
|
||||
|
||||
@@ -61,7 +62,7 @@ extern "C" int Rlinktpp_Init(Tcl_Interp* interp)
|
||||
|
||||
} catch (exception& e) {
|
||||
Tcl_AppendResult(interp, "-E: exception caught in Rlinktpp_Init: '",
|
||||
e.what(), "'", NULL);
|
||||
e.what(), "'", nullptr);
|
||||
}
|
||||
return TCL_ERROR;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user