/usr/src/WrapITK/Tcl/itkTclCommand.cxx is in libinsighttoolkit3-dev 3.20.1+git20120521-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | /*=========================================================================
Program: Insight Segmentation & Registration Toolkit
Module: itkTclCommand.cxx
Language: C++
Date: $Date$
Version: $Revision$
Copyright (c) Insight Software Consortium. All rights reserved.
See ITKCopyright.txt or http://www.itk.org/HTML/Copyright.htm for details.
This software is distributed WITHOUT ANY WARRANTY; without even
the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
PURPOSE. See the above copyright notices for more information.
=========================================================================*/
#include "itkTclCommand.h"
namespace itk
{
TclCommand::TclCommand()
{
m_Interpreter = 0;
}
///! Set the interpreter in which the command is to be invoked.
void TclCommand::SetInterpreter(Tcl_Interp* interp)
{
m_Interpreter = interp;
}
///! Get the interpreter in which the command will be invoked.
Tcl_Interp* TclCommand::GetInterpreter() const
{
return m_Interpreter;
}
///! Set the command to invoke in the interpreter.
void TclCommand::SetCommandString(const char* commandString)
{
m_CommandString = commandString;
}
///! Get the command that will be invoked in the interpreter.
const char* TclCommand::GetCommandString() const
{
return m_CommandString.c_str();
}
///! Execute the callback to the Tcl interpreter.
void TclCommand::Execute(Object*, const EventObject &)
{
this->TclExecute();
}
///! Execute the callback to the Tcl interpreter with a const LightObject
void TclCommand::Execute(const Object*, const EventObject & )
{
this->TclExecute();
}
/**
* Invokes the registered command in the Tcl interpreter. Reports
* command errors as ITK warnings.
*/
void TclCommand::TclExecute() const
{
// Make sure an interpreter has been assigned.
if(!m_Interpreter)
{
itkWarningMacro("Error in itk/tcl callback:\n" <<
m_CommandString.c_str() << std::endl <<
"invoked with no interpreter!");
return;
}
// Try to evaluate the command in the interpreter.
if(Tcl_GlobalEval(m_Interpreter,
const_cast<char*>(m_CommandString.c_str())) == TCL_ERROR)
{
const char* errorInfo = Tcl_GetVar(m_Interpreter, "errorInfo", 0);
if(!errorInfo) { errorInfo = ""; }
itkWarningMacro("Error returned from itk/tcl callback:\n" <<
m_CommandString.c_str() << std::endl << errorInfo <<
" at line number " << m_Interpreter->errorLine);
}
}
} // namespace itk
|