00001 00004 00005 // 00006 // Copyright (c) 2002-2004 California Institute of Technology 00007 // Copyright (c) 2004-2007 University of Southern California 00008 // Rob Peters <rjpeters at usc dot edu> 00009 // 00010 // created: Wed Jan 30 11:41:47 2002 00011 // commit: $Id: tclprocwrapper.h 10065 2007-04-12 05:54:56Z rjpeters $ 00012 // $HeadURL: file:///lab/rjpeters/svnrepo/code/trunk/groovx/src/tcl-io/tclprocwrapper.h $ 00013 // 00014 // -------------------------------------------------------------------- 00015 // 00016 // This file is part of GroovX. 00017 // [http://ilab.usc.edu/rjpeters/groovx/] 00018 // 00019 // GroovX is free software; you can redistribute it and/or modify it 00020 // under the terms of the GNU General Public License as published by 00021 // the Free Software Foundation; either version 2 of the License, or 00022 // (at your option) any later version. 00023 // 00024 // GroovX is distributed in the hope that it will be useful, but 00025 // WITHOUT ANY WARRANTY; without even the implied warranty of 00026 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00027 // General Public License for more details. 00028 // 00029 // You should have received a copy of the GNU General Public License 00030 // along with GroovX; if not, write to the Free Software Foundation, 00031 // Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA. 00032 // 00034 00035 #ifndef GROOVX_TCL_IO_TCLPROCWRAPPER_H_UTC20050712162004_DEFINED 00036 #define GROOVX_TCL_IO_TCLPROCWRAPPER_H_UTC20050712162004_DEFINED 00037 00038 #include "io/io.h" 00039 00040 #include "tcl/interp.h" 00041 00042 #include "rutz/fstring.h" 00043 00044 namespace tcl 00045 { 00046 class ProcWrapper; 00047 } 00048 00050 class tcl::ProcWrapper : public io::serializable 00051 { 00052 private: 00053 ProcWrapper(const ProcWrapper&); 00054 ProcWrapper& operator=(const ProcWrapper&); 00055 00056 tcl::interpreter itsInterp; 00057 const rutz::fstring itsName; 00058 rutz::fstring itsArgs; 00059 rutz::fstring itsBody; 00060 00061 public: 00063 ProcWrapper(const tcl::interpreter& intp); 00064 00066 ProcWrapper(const tcl::interpreter& intp, const rutz::fstring& name); 00067 00068 virtual ~ProcWrapper() throw(); 00069 00070 virtual void read_from(io::reader& reader); 00071 virtual void write_to(io::writer& writer) const; 00072 00075 void define(const rutz::fstring& args, const rutz::fstring& body); 00076 00078 bool isNoop() const; 00079 00080 // Just run the code, but don't yet extract a result from the interpreter 00081 void invoke(const rutz::fstring& args); 00082 00083 template <class T> 00084 T call(const rutz::fstring& args) 00085 { 00086 // might throw if Tcl code raises an error: 00087 invoke(args); 00088 00089 // might throw if conversion to T fails: 00090 return itsInterp.template get_result<T>(); 00091 } 00092 00093 const rutz::fstring& name() const { return itsName; } 00094 const rutz::fstring& args() const { return itsArgs; } 00095 const rutz::fstring& body() const { return itsBody; } 00096 00097 rutz::fstring fullSpec() const; 00098 }; 00099 00100 static const char __attribute__((used)) vcid_groovx_tcl_io_tclprocwrapper_h_utc20050712162004[] = "$Id: tclprocwrapper.h 10065 2007-04-12 05:54:56Z rjpeters $ $HeadURL: file: 00101 #endif // !GROOVX_TCL_IO_TCLPROCWRAPPER_H_UTC20050712162004_DEFINED