Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: code/archive/shader/src/core/TclBind.cc @ 12397

Last change on this file since 12397 was 1505, checked in by rgrieder, 17 years ago

f* svn: It doesn't even inform you if you attempt to set a non existing property. It is svn:eol-style and not eol-style when using the command by the way…

  • 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 <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" + 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().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        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.