Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: code/branches/buildsystem/src/core/TclBind.cc @ 2570

Last change on this file since 2570 was 1792, checked in by rgrieder, 16 years ago

Changed initialisation of TclThreadManager, TclBind and Shell to match the simple singleton concept (runtime assert in the c'tor).
That simplifies things a lot. The instances now 'belong' to GSRoot.

  • Property svn:eol-style set to native
File size: 5.4 KB
Line 
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
29#include "TclBind.h"
30
31#include <iostream>
32#include <string>
33#include "ConsoleCommand.h"
34#include "CommandExecutor.h"
35#include "TclThreadManager.h"
36#include "util/Debug.h"
37#include "util/String.h"
38
39namespace orxonox
40{
41    SetConsoleCommandShortcut(TclBind, tcl);
42    SetConsoleCommandShortcut(TclBind, bgerror);
43
44    TclBind* TclBind::singletonRef_s = 0;
45
46    TclBind::TclBind(const std::string& datapath)
47    {
48        assert(singletonRef_s == 0);
49        singletonRef_s = this;
50        this->interpreter_ = 0;
51        this->bSetTclLibPath_ = false;
52        this->setDataPath(datapath);
53    }
54
55    TclBind::~TclBind()
56    {
57        if (this->interpreter_)
58            delete this->interpreter_;
59        singletonRef_s = 0;
60    }
61
62    void TclBind::setDataPath(const std::string& datapath)
63    {
64        this->tclLibPath_ = datapath + "/tcl" + TCL_VERSION + "/";
65        this->bSetTclLibPath_ = true;
66
67        this->createTclInterpreter();
68    }
69
70    void TclBind::createTclInterpreter()
71    {
72        if (this->bSetTclLibPath_ && !this->interpreter_)
73        {
74            this->interpreter_ = new Tcl::interpreter(this->tclLibPath_);
75            this->interpreter_->def("orxonox::query", TclBind::tcl_query, Tcl::variadic());
76            this->interpreter_->def("orxonox::crossquery", TclThreadManager::tcl_crossquery, Tcl::variadic());
77            this->interpreter_->def("execute", TclBind::tcl_execute, Tcl::variadic());
78
79            try
80            {
81                this->interpreter_->eval("proc query args { orxonox::query $args }");
82                this->interpreter_->eval("proc crossquery {id args} { orxonox::crossquery 0 $id $args }");
83                this->interpreter_->eval("set id 0");
84                this->interpreter_->eval("rename exit tcl::exit; proc exit {} { execute exit }");
85                this->interpreter_->eval("redef_puts");
86            }
87            catch (Tcl::tcl_error const &e)
88            {   COUT(1) << "Tcl error while creating Tcl-interpreter: " << e.what() << std::endl;   }
89            catch (std::exception const &e)
90            {   COUT(1) << "Error while creating Tcl-interpreter: " << e.what() << std::endl;   }
91        }
92    }
93
94    void TclBind::createNewTclInterpreter()
95    {
96        if (this->interpreter_)
97        {
98            delete this->interpreter_;
99            this->interpreter_ = 0;
100        }
101
102        this->createTclInterpreter();
103    }
104
105    std::string TclBind::tcl_query(Tcl::object const &args)
106    {
107        COUT(4) << "Tcl_query: " << args.get() << std::endl;
108
109        std::string command = stripEnclosingBraces(args.get());
110
111        if (!CommandExecutor::execute(command, false))
112        {
113            COUT(1) << "Error: Can't execute command \"" << command << "\"!" << std::endl;
114        }
115
116        if (CommandExecutor::getLastEvaluation().hasReturnvalue())
117            return CommandExecutor::getLastEvaluation().getReturnvalue().getString();
118
119        return "";
120    }
121
122    void TclBind::tcl_execute(Tcl::object const &args)
123    {
124        COUT(4) << "Tcl_execute: " << args.get() << std::endl;
125        std::string command = stripEnclosingBraces(args.get());
126
127        if (!CommandExecutor::execute(command, false))
128        {
129            COUT(1) << "Error: Can't execute command \"" << command << "\"!" << std::endl;
130        }
131    }
132
133    std::string TclBind::tcl(const std::string& tclcode)
134    {
135        if (TclBind::getInstance().interpreter_)
136        {
137            try
138            {
139                std::string output = TclBind::getInstance().interpreter_->eval(tclcode);
140                if (output != "")
141                {
142                    COUT(0) << "tcl> " << output << std::endl;
143                }
144                return output;
145            }
146            catch (Tcl::tcl_error const &e)
147            {   COUT(1) << "tcl> Error: " << e.what() << std::endl;   }
148            catch (std::exception const &e)
149            {   COUT(1) << "Error while executing Tcl: " << e.what() << std::endl;   }
150        }
151
152        return "";
153    }
154
155    void TclBind::bgerror(std::string error)
156    {
157        COUT(1) << "Tcl background error: " << stripEnclosingBraces(error) << std::endl;
158    }
159
160    bool TclBind::eval(const std::string& tclcode)
161    {
162        try
163        {
164            TclBind::getInstance().interpreter_->eval(tclcode);
165            return true;
166        }
167        catch (Tcl::tcl_error const &e)
168        {   COUT(1) << "Tcl error: " << e.what() << std::endl;   }
169        catch (std::exception const &e)
170        {   COUT(1) << "Error while executing Tcl: " << e.what() << std::endl;   }
171
172        return false;
173    }
174}
Note: See TracBrowser for help on using the repository browser.