\section{Tcl\-Interp Class Reference}
\label{class_tcl_interp}\index{TclInterp@{TclInterp}}
Encapsulates Tcl interpret, manages logging.  


{\tt \#include $<$tcl\_\-interp.h$>$}

Inheritance diagram for Tcl\-Interp::\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[height=2cm]{class_tcl_interp}
\end{center}
\end{figure}
\subsection*{Public Member Functions}
\begin{CompactItemize}
\item 
const char $\ast$ {\bf get\-Type} () const 
\begin{CompactList}\small\item\em Return type of class. \item\end{CompactList}\item 
Tcl\_\-Interp $\ast$ {\bf get\-Interp} () const 
\begin{CompactList}\small\item\em Returns pointer to Tcl interpret. \item\end{CompactList}\item 
{\bf Tcl\-Interp} (Tcl\_\-Interp $\ast$interp, ostream \&logstream)
\item 
{\bf Tcl\-Interp} (Tcl\_\-Interp $\ast$interp, const char $\ast$file\-Name)
\item 
int {\bf eval} (const string \&s) const 
\begin{CompactList}\small\item\em Evaluate script in shell. \item\end{CompactList}\item 
Tcl\_\-Obj $\ast$ {\bf get\-Obj\-Result} () const 
\begin{CompactList}\small\item\em Return script evaluation result. \item\end{CompactList}\item 
char $\ast$ {\bf get\-Str\-Result} () const 
\begin{CompactList}\small\item\em Return script evaluation result. \item\end{CompactList}\item 
int {\bf get\-Int\-Result} () const 
\begin{CompactList}\small\item\em Return script evaluation result. \item\end{CompactList}\item 
bool {\bf is\-Null\-Result} () const 
\begin{CompactList}\small\item\em Test if script evaluation result is NULL. \item\end{CompactList}\end{CompactItemize}
\subsection*{Static Public Member Functions}
\begin{CompactItemize}
\item 
static string \& {\bf get\-Code\-Name} (int ret\-Code)
\begin{CompactList}\small\item\em Translates Tcl shell return code in integer format to string. \item\end{CompactList}\end{CompactItemize}
\subsection*{Public Attributes}
\begin{CompactItemize}
\item 
bool {\bf logging}\label{class_tcl_interp_ad8a2265fa17b7808fca5ae77cada94f}

\begin{CompactList}\small\item\em If true, each eval command will be logged. \item\end{CompactList}\end{CompactItemize}
\subsection*{Static Public Attributes}
\begin{CompactItemize}
\item 
static {\bf Ptr}$<$ {\bf Tcl\-Interp} $>$ {\bf default\-Interp}\label{class_tcl_interp_da18f0f0542f58fdc51b4ead233c59a3}

\begin{CompactList}\small\item\em Default intepret. \item\end{CompactList}\end{CompactItemize}


\subsection{Detailed Description}
Encapsulates Tcl interpret, manages logging. 

\begin{Desc}
\item[Date:]01-11-2006\end{Desc}
\begin{Desc}
\item[Author:]Ondrej Svejdar\end{Desc}
\begin{Desc}
\item[{\bf Todo}]\end{Desc}
\begin{Desc}
\item[{\bf Bug}]\end{Desc}




\subsection{Constructor \& Destructor Documentation}
\index{TclInterp@{Tcl\-Interp}!TclInterp@{TclInterp}}
\index{TclInterp@{TclInterp}!TclInterp@{Tcl\-Interp}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}Tcl\-Interp::Tcl\-Interp (Tcl\_\-Interp $\ast$ {\em interp}, ostream \& {\em logstream})}\label{class_tcl_interp_58c20ae7b7170515445c6ee502335f43}


\begin{Desc}
\item[Parameters:]
\begin{description}
\item[{\em interp}]interpret \item[{\em logstream}]reference to logstream \end{description}
\end{Desc}
\index{TclInterp@{Tcl\-Interp}!TclInterp@{TclInterp}}
\index{TclInterp@{TclInterp}!TclInterp@{Tcl\-Interp}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}Tcl\-Interp::Tcl\-Interp (Tcl\_\-Interp $\ast$ {\em interp}, const char $\ast$ {\em file\-Name})}\label{class_tcl_interp_0e56a970fbdf446698fdda7216aca632}


\begin{Desc}
\item[Parameters:]
\begin{description}
\item[{\em interp}]interpret \item[{\em file\-Name}]file for logging \end{description}
\end{Desc}


\subsection{Member Function Documentation}
\index{TclInterp@{Tcl\-Interp}!eval@{eval}}
\index{eval@{eval}!TclInterp@{Tcl\-Interp}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Tcl\-Interp::eval (const string \& {\em s}) const}\label{class_tcl_interp_7e1638efde87a793d83132b8ceb470b4}


Evaluate script in shell. 

\begin{Desc}
\item[Parameters:]
\begin{description}
\item[{\em s}]string to evaluate \end{description}
\end{Desc}
\begin{Desc}
\item[Returns:]script evaluation return code \end{Desc}
\index{TclInterp@{Tcl\-Interp}!getCodeName@{getCodeName}}
\index{getCodeName@{getCodeName}!TclInterp@{Tcl\-Interp}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}string \& Tcl\-Interp::get\-Code\-Name (int {\em ret\-Code})\hspace{0.3cm}{\tt  [static]}}\label{class_tcl_interp_fde73309bd6947b85052c2a5eb1ad0a6}


Translates Tcl shell return code in integer format to string. 

\begin{Desc}
\item[Parameters:]
\begin{description}
\item[{\em ret\-Code}]Tcl shell return code value \end{description}
\end{Desc}
\begin{Desc}
\item[Returns:]name of return code \end{Desc}
\index{TclInterp@{Tcl\-Interp}!getInterp@{getInterp}}
\index{getInterp@{getInterp}!TclInterp@{Tcl\-Interp}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}Tcl\_\-Interp$\ast$ Tcl\-Interp::get\-Interp () const\hspace{0.3cm}{\tt  [inline]}}\label{class_tcl_interp_748c0c9235508d51672630a162758768}


Returns pointer to Tcl interpret. 

\begin{Desc}
\item[Returns:]pointer to Tcl interpret \end{Desc}
\index{TclInterp@{Tcl\-Interp}!getIntResult@{getIntResult}}
\index{getIntResult@{getIntResult}!TclInterp@{Tcl\-Interp}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}int Tcl\-Interp::get\-Int\-Result () const}\label{class_tcl_interp_c82f7a71c700708d31cdbfd0e789381d}


Return script evaluation result. 

\begin{Desc}
\item[Returns:]result as integer value \end{Desc}
\index{TclInterp@{Tcl\-Interp}!getObjResult@{getObjResult}}
\index{getObjResult@{getObjResult}!TclInterp@{Tcl\-Interp}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}Tcl\_\-Obj $\ast$ Tcl\-Interp::get\-Obj\-Result () const}\label{class_tcl_interp_c37c0006b13aeaad971c4072db8394a1}


Return script evaluation result. 

\begin{Desc}
\item[Returns:]pointer to result \end{Desc}
\index{TclInterp@{Tcl\-Interp}!getStrResult@{getStrResult}}
\index{getStrResult@{getStrResult}!TclInterp@{Tcl\-Interp}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}char $\ast$ Tcl\-Interp::get\-Str\-Result () const}\label{class_tcl_interp_3c86f3493d26791c6c5ab9239d549494}


Return script evaluation result. 

\begin{Desc}
\item[Returns:]pointer to result \end{Desc}
\index{TclInterp@{Tcl\-Interp}!getType@{getType}}
\index{getType@{getType}!TclInterp@{Tcl\-Interp}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}const char $\ast$ Tcl\-Interp::get\-Type () const\hspace{0.3cm}{\tt  [virtual]}}\label{class_tcl_interp_1413702cbda682553d02b08afccebfc3}


Return type of class. 

\begin{Desc}
\item[Returns:]type of class \end{Desc}


Reimplemented from {\bf TObject} {\rm (p.\,\pageref{class_t_object_1413702cbda682553d02b08afccebfc3})}.\index{TclInterp@{Tcl\-Interp}!isNullResult@{isNullResult}}
\index{isNullResult@{isNullResult}!TclInterp@{Tcl\-Interp}}
\subsubsection{\setlength{\rightskip}{0pt plus 5cm}bool Tcl\-Interp::is\-Null\-Result () const}\label{class_tcl_interp_d7fad98c2b3b04b01ba86dfcbeba0c81}


Test if script evaluation result is NULL. 

\begin{Desc}
\item[Returns:]true if script evaluation result is NULL \end{Desc}


The documentation for this class was generated from the following files:\begin{CompactItemize}
\item 
H:/projs/dot\-NET/eda/src/tk/tcl\_\-interp.h\item 
H:/projs/dot\-NET/eda/src/tk/tcl\_\-interp.cpp\end{CompactItemize}
