testtclsh.cpp

Go to the documentation of this file.

// $Id: testtclsh.cpp 1185 2019-07-12 17:29:12Z mueller $
// SPDX-License-Identifier: GPL-3.0-or-later
// Copyright 2013-2018 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
// 
// Revision History: 
// Date         Rev Version  Comment
// 2013-02-10   485   1.0    Initial version
// ---------------------------------------------------------------------------
 
#include <stdlib.h>
#include <stdio.h>
#include <readline/readline.h>
#include <readline/history.h>
 
#include "tcl.h"
 
#include <iostream>
 
using namespace std;
 
extern "C" int Rutiltpp_Init(Tcl_Interp* interp);
extern "C" int Rlinktpp_Init(Tcl_Interp* interp);
//extern "C" int Rusbtpp_Init(Tcl_Interp* interp);
extern "C" int Rwxxtpp_Init(Tcl_Interp* interp);
 
int main(int /*argc*/, const char* /*argv*/[]) 
{
  cout << "testtclsh starting..." << endl;
 
  Tcl_Interp* interp = Tcl_CreateInterp();
  if (!interp) {
    cout << "Tcl_CreateInterp() failed" << endl;
    return 1;
  }
  
  Rutiltpp_Init(interp);
  Rlinktpp_Init(interp);
  // Rusbtpp_Init(interp);
  Rwxxtpp_Init(interp);
 
  char* line;
  while ((line = readline("testtclsh> "))) {
    if (line[0]!=0) add_history(line);
    int rc = Tcl_Eval(interp, line);
    if (rc != TCL_OK) {
      cout << "command '" << line << "' failed" << endl;
    }
    const char* res = Tcl_GetStringResult(interp);
    if (res && res[0])
      cout << Tcl_GetStringResult(interp) << endl;
    free(line);
  }
 
  Tcl_DeleteInterp(interp);
  Tcl_Finalize();
 
  cout << "testtclsh exit..." << endl;
  return 0;
}