Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: code/branches/resource/src/core/TclBind.cc @ 3366

Last change on this file since 3366 was 3366, checked in by rgrieder, 15 years ago

Derived all singletons implemented in a usual manner from orxonox::Singleton<T>.
This resolves inconsistencies with the singletonPtr_s variable in case of exceptions (asserts were being triggered then).
And while at it replaced singletonRef_s with singletonPtr_s for it to be less misleading (as fabian has already pointed out).

  • Property svn:eol-style set to native
File size: 7.1 KB
RevLine 
[1502]1/*
2 *   ORXONOX - the hottest 3D action shooter ever to exist
3 *                    > www.orxonox.net <
4 *
5 *
6 *   License notice:
7 *
8 *   This program is free software; you can redistribute it and/or
9 *   modify it under the terms of the GNU General Public License
10 *   as published by the Free Software Foundation; either version 2
11 *   of the License, or (at your option) any later version.
12 *
13 *   This program is distributed in the hope that it will be useful,
14 *   but WITHOUT ANY WARRANTY; without even the implied warranty of
15 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
16 *   GNU General Public License for more details.
17 *
18 *   You should have received a copy of the GNU General Public License
19 *   along with this program; if not, write to the Free Software
20 *   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
21 *
22 *   Author:
23 *      Fabian 'x3n' Landau
24 *   Co-authors:
25 *      ...
26 *
27 */
28
[1792]29#include "TclBind.h"
30
[3196]31#include <exception>
[1502]32#include <string>
[3196]33#include <cpptcl/cpptcl.h>
34
[3345]35#include "SpecialConfig.h"
[3196]36#include "util/Debug.h"
[3280]37#include "util/StringUtils.h"
[3196]38#include "CommandExecutor.h"
[1502]39#include "ConsoleCommand.h"
[3345]40#include "Core.h"
[1502]41#include "TclThreadManager.h"
42
43namespace orxonox
44{
[1747]45    SetConsoleCommandShortcut(TclBind, tcl);
46    SetConsoleCommandShortcut(TclBind, bgerror);
[1502]47
[3366]48    TclBind* TclBind::singletonPtr_s = 0;
[1792]49
50    TclBind::TclBind(const std::string& datapath)
[1502]51    {
52        this->interpreter_ = 0;
[3344]53        this->bSetTclDataPath_ = false;
[1792]54        this->setDataPath(datapath);
[1502]55    }
56
57    TclBind::~TclBind()
58    {
59        if (this->interpreter_)
60            delete this->interpreter_;
61    }
62
63    void TclBind::setDataPath(const std::string& datapath)
64    {
[2710]65        // String has POSIX slashes
[3344]66        this->tclDataPath_ = datapath + "tcl" + '/';
67        this->bSetTclDataPath_ = true;
[1502]68
[3344]69        this->initializeTclInterpreter();
[1502]70    }
71
[3344]72    void TclBind::initializeTclInterpreter()
[1502]73    {
[3344]74        if (this->bSetTclDataPath_ && !this->interpreter_)
[1502]75        {
[3344]76            this->interpreter_ = this->createTclInterpreter();
77
[3353]78            this->interpreter_->def("::orxonox::query", TclBind::tcl_query, Tcl::variadic());
79            this->interpreter_->def("::orxonox::crossquery", TclThreadManager::tcl_crossquery, Tcl::variadic());
[1502]80            this->interpreter_->def("execute", TclBind::tcl_execute, Tcl::variadic());
[3353]81            this->interpreter_->def("::orxonox::crossexecute", TclThreadManager::tcl_crossexecute, Tcl::variadic());
[1502]82
83            try
84            {
[3353]85                this->interpreter_->eval("proc query        {args}    { ::orxonox::query $args }");
86                this->interpreter_->eval("proc crossquery   {id args} { ::orxonox::crossquery 0 $id $args }");
87                this->interpreter_->eval("proc crossexecute {id args} { ::orxonox::crossquery 0 $id $args }");
[3350]88                this->interpreter_->eval("proc running      {}        { return 1 }");
[1502]89                this->interpreter_->eval("set id 0");
[3353]90                this->interpreter_->eval("rename exit ::tcl::exit; proc exit {} { execute exit }");
[1502]91            }
92            catch (Tcl::tcl_error const &e)
93            {   COUT(1) << "Tcl error while creating Tcl-interpreter: " << e.what() << std::endl;   }
94            catch (std::exception const &e)
95            {   COUT(1) << "Error while creating Tcl-interpreter: " << e.what() << std::endl;   }
[3344]96            catch (...)
97            {   COUT(1) << "Error while creating Tcl-interpreter." << std::endl;   }
[1502]98        }
99    }
100
[3344]101    Tcl::interpreter* TclBind::createTclInterpreter()
[1502]102    {
[3360]103        Tcl::interpreter* interpreter = new Tcl::interpreter();
104        std::string libpath = TclBind::getTclLibraryPath();
105
[3344]106        try
[1502]107        {
[3360]108            if (libpath != "")
109                interpreter->eval("set tcl_library \"" + libpath + "\"");
110
111            Tcl_Init(interpreter->get());
112
[3345]113            interpreter->eval("source \"" + TclBind::getInstance().tclDataPath_ + "/init.tcl\"");
[1502]114        }
[3344]115        catch (Tcl::tcl_error const &e)
[3360]116        {   COUT(1) << "Tcl error while creating Tcl-interpreter: " << e.what() << std::endl; COUT(1) << "Error: Tcl isn't properly initialized. Orxonox might possibly not work like that." << std::endl;   }
[3344]117        catch (std::exception const &e)
[3360]118        {   COUT(1) << "Error while creating Tcl-interpreter: " << e.what() << std::endl; COUT(1) << "Error: Tcl isn't properly initialized. Orxonox might possibly not work like that." << std::endl;   }
[3344]119        catch (...)
[3360]120        {   COUT(1) << "Error while creating Tcl-interpreter." << std::endl; COUT(1) << "Error: Tcl isn't properly initialized. Orxonox might possibly not work like that." << std::endl;   }
[1502]121
[3344]122        return interpreter;
[1502]123    }
124
[3360]125    std::string TclBind::getTclLibraryPath()
126    {
127#ifdef DEPENDENCY_PACKAGE_ENABLE
128        if (Core::isDevelopmentRun())
129            return (std::string(ORXONOX_DEP_LIB_PATH) + "/tcl");
130        else
131            return (Core::getRootPathString() + "lib/tcl");
132#else
133        return "";
134#endif
135    }
136
[1502]137    std::string TclBind::tcl_query(Tcl::object const &args)
138    {
139        COUT(4) << "Tcl_query: " << args.get() << std::endl;
140
141        std::string command = stripEnclosingBraces(args.get());
142
143        if (!CommandExecutor::execute(command, false))
144        {
145            COUT(1) << "Error: Can't execute command \"" << command << "\"!" << std::endl;
146        }
147
148        if (CommandExecutor::getLastEvaluation().hasReturnvalue())
[1747]149            return CommandExecutor::getLastEvaluation().getReturnvalue().getString();
[1502]150
151        return "";
152    }
153
154    void TclBind::tcl_execute(Tcl::object const &args)
155    {
156        COUT(4) << "Tcl_execute: " << args.get() << std::endl;
157        std::string command = stripEnclosingBraces(args.get());
158
159        if (!CommandExecutor::execute(command, false))
160        {
161            COUT(1) << "Error: Can't execute command \"" << command << "\"!" << std::endl;
162        }
163    }
164
165    std::string TclBind::tcl(const std::string& tclcode)
166    {
167        if (TclBind::getInstance().interpreter_)
168        {
169            try
170            {
[3354]171                std::string output = TclBind::getInstance().interpreter_->eval("uplevel #0 " + tclcode);
[1502]172                if (output != "")
173                {
174                    COUT(0) << "tcl> " << output << std::endl;
175                }
176                return output;
177            }
178            catch (Tcl::tcl_error const &e)
179            {   COUT(1) << "tcl> Error: " << e.what() << std::endl;   }
180            catch (std::exception const &e)
181            {   COUT(1) << "Error while executing Tcl: " << e.what() << std::endl;   }
182        }
183
184        return "";
185    }
186
187    void TclBind::bgerror(std::string error)
188    {
189        COUT(1) << "Tcl background error: " << stripEnclosingBraces(error) << std::endl;
190    }
191
192    bool TclBind::eval(const std::string& tclcode)
193    {
194        try
195        {
196            TclBind::getInstance().interpreter_->eval(tclcode);
197            return true;
198        }
199        catch (Tcl::tcl_error const &e)
200        {   COUT(1) << "Tcl error: " << e.what() << std::endl;   }
201        catch (std::exception const &e)
202        {   COUT(1) << "Error while executing Tcl: " << e.what() << std::endl;   }
203
204        return false;
205    }
206}
Note: See TracBrowser for help on using the repository browser.