Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: code/branches/network/src/core/TclBind.cc @ 1446

Last change on this file since 1446 was 1446, checked in by landauf, 16 years ago

merged console branch into network branch

after several heavy troubles it compiles, but there is still a bug I couldn't fix: orxonox crashes as soon as one presses a key after opening the console… maybe someone else sees the problem?

File size: 5.5 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 <iostream>
30#include <string>
31
32#include "ConsoleCommand.h"
33#include "CommandExecutor.h"
34#include "Debug.h"
35#include "TclThreadManager.h"
36#include "TclBind.h"
37#include "util/String.h"
38
39namespace orxonox
40{
41    SetConsoleCommandShortcutGeneric(tcl, createConsoleCommand(createFunctor(&TclBind::tcl), "tcl"));
42    SetConsoleCommandShortcutGeneric(bgerror, createConsoleCommand(createFunctor(&TclBind::bgerror), "bgerror"));
43
44    TclBind::TclBind()
45    {
46        this->interpreter_ = 0;
47        this->bSetTclLibPath_ = false;
48    }
49
50    TclBind::~TclBind()
51    {
52        if (this->interpreter_)
53            delete this->interpreter_;
54    }
55
56    TclBind& TclBind::getInstance()
57    {
58        static TclBind instance;
59        return instance;
60    }
61
62    void TclBind::setDataPath(const std::string& datapath)
63    {
64        this->tclLibPath_ = datapath + "/tcl";
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().toString();
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        try
136        {
137            std::string output = TclBind::getInstance().interpreter_->eval(tclcode);
138            if (output != "")
139            {
140                COUT(0) << "tcl> " << output << std::endl;
141            }
142            return output;
143        }
144        catch (Tcl::tcl_error const &e)
145        {   COUT(1) << "tcl> Error: " << e.what() << std::endl;   }
146        catch (std::exception const &e)
147        {   COUT(1) << "Error while executing Tcl: " << e.what() << std::endl;   }
148
149        return "";
150    }
151
152    void TclBind::bgerror(std::string error)
153    {
154        COUT(1) << "Tcl background error: " << stripEnclosingBraces(error) << std::endl;
155    }
156
157    bool TclBind::eval(const std::string& tclcode)
158    {
159        try
160        {
161            TclBind::getInstance().interpreter_->eval(tclcode);
162            return true;
163        }
164        catch (Tcl::tcl_error const &e)
165        {   COUT(1) << "Tcl error: " << e.what() << std::endl;   }
166        catch (std::exception const &e)
167        {   COUT(1) << "Error while executing Tcl: " << e.what() << std::endl;   }
168
169        return false;
170    }
171}
Note: See TracBrowser for help on using the repository browser.