1
0
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:
Walter F.J. Mueller
2014-12-20 16:39:52 +00:00
parent 093d540121
commit d87ac86f53
203 changed files with 9324 additions and 10881 deletions

View File

@@ -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;
}