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 <exception> |
---|
32 | #include <string> |
---|
33 | #include <cpptcl/cpptcl.h> |
---|
34 | |
---|
35 | #include "SpecialConfig.h" |
---|
36 | #include "util/Debug.h" |
---|
37 | #include "util/StringUtils.h" |
---|
38 | #include "CommandExecutor.h" |
---|
39 | #include "ConsoleCommand.h" |
---|
40 | #include "Core.h" |
---|
41 | #include "TclThreadManager.h" |
---|
42 | |
---|
43 | namespace orxonox |
---|
44 | { |
---|
45 | SetConsoleCommandShortcut(TclBind, tcl); |
---|
46 | SetConsoleCommandShortcut(TclBind, bgerror); |
---|
47 | |
---|
48 | TclBind* TclBind::singletonRef_s = 0; |
---|
49 | |
---|
50 | TclBind::TclBind(const std::string& datapath) |
---|
51 | { |
---|
52 | assert(singletonRef_s == 0); |
---|
53 | singletonRef_s = this; |
---|
54 | this->interpreter_ = 0; |
---|
55 | this->bSetTclDataPath_ = false; |
---|
56 | this->setDataPath(datapath); |
---|
57 | } |
---|
58 | |
---|
59 | TclBind::~TclBind() |
---|
60 | { |
---|
61 | if (this->interpreter_) |
---|
62 | delete this->interpreter_; |
---|
63 | singletonRef_s = 0; |
---|
64 | } |
---|
65 | |
---|
66 | void TclBind::setDataPath(const std::string& datapath) |
---|
67 | { |
---|
68 | // String has POSIX slashes |
---|
69 | this->tclDataPath_ = datapath + "tcl" + '/'; |
---|
70 | this->bSetTclDataPath_ = true; |
---|
71 | |
---|
72 | this->initializeTclInterpreter(); |
---|
73 | } |
---|
74 | |
---|
75 | void TclBind::initializeTclInterpreter() |
---|
76 | { |
---|
77 | if (this->bSetTclDataPath_ && !this->interpreter_) |
---|
78 | { |
---|
79 | this->interpreter_ = this->createTclInterpreter(); |
---|
80 | |
---|
81 | this->interpreter_->def("orxonox::query", TclBind::tcl_query, Tcl::variadic()); |
---|
82 | this->interpreter_->def("orxonox::crossquery", TclThreadManager::tcl_crossquery, Tcl::variadic()); |
---|
83 | this->interpreter_->def("execute", TclBind::tcl_execute, Tcl::variadic()); |
---|
84 | this->interpreter_->def("orxonox::crossexecute", TclThreadManager::tcl_crossexecute, Tcl::variadic()); |
---|
85 | |
---|
86 | try |
---|
87 | { |
---|
88 | this->interpreter_->eval("proc query args { orxonox::query [join $args] }"); |
---|
89 | this->interpreter_->eval("proc crossquery {id args} { orxonox::crossquery 0 $id [join $args] }"); |
---|
90 | this->interpreter_->eval("proc crossexecute {id args} { orxonox::crossquery 0 $id [join $args] }"); |
---|
91 | this->interpreter_->eval("set id 0"); |
---|
92 | this->interpreter_->eval("rename exit tcl::exit; proc exit {} { execute exit }"); |
---|
93 | } |
---|
94 | catch (Tcl::tcl_error const &e) |
---|
95 | { COUT(1) << "Tcl error while creating Tcl-interpreter: " << e.what() << std::endl; } |
---|
96 | catch (std::exception const &e) |
---|
97 | { COUT(1) << "Error while creating Tcl-interpreter: " << e.what() << std::endl; } |
---|
98 | catch (...) |
---|
99 | { COUT(1) << "Error while creating Tcl-interpreter." << std::endl; } |
---|
100 | } |
---|
101 | } |
---|
102 | |
---|
103 | Tcl::interpreter* TclBind::createTclInterpreter() |
---|
104 | { |
---|
105 | Tcl::interpreter* interpreter; |
---|
106 | #ifdef DEPENDENCY_PACKAGE_ENABLE |
---|
107 | if (true)//Core::isDevelopmentRun()) |
---|
108 | interpreter = new Tcl::interpreter(std::string(ORXONOX_DEP_LIB_PATH) + "/tcl"); |
---|
109 | else |
---|
110 | interpreter = new Tcl::interpreter(Core::getRootPathString() + "lib/tcl"); |
---|
111 | #else |
---|
112 | interpreter = new Tcl::interpreter(); |
---|
113 | #endif |
---|
114 | try |
---|
115 | { |
---|
116 | interpreter->eval("source \"" + TclBind::getInstance().tclDataPath_ + "/init.tcl\""); |
---|
117 | } |
---|
118 | catch (Tcl::tcl_error const &e) |
---|
119 | { COUT(1) << "Tcl error while creating Tcl-interpreter: " << e.what() << std::endl; } |
---|
120 | catch (std::exception const &e) |
---|
121 | { COUT(1) << "Error while creating Tcl-interpreter: " << e.what() << std::endl; } |
---|
122 | catch (...) |
---|
123 | { COUT(1) << "Error while creating Tcl-interpreter." << std::endl; } |
---|
124 | |
---|
125 | return interpreter; |
---|
126 | } |
---|
127 | |
---|
128 | std::string TclBind::tcl_query(Tcl::object const &args) |
---|
129 | { |
---|
130 | COUT(4) << "Tcl_query: " << args.get() << std::endl; |
---|
131 | |
---|
132 | std::string command = stripEnclosingBraces(args.get()); |
---|
133 | |
---|
134 | if (!CommandExecutor::execute(command, false)) |
---|
135 | { |
---|
136 | COUT(1) << "Error: Can't execute command \"" << command << "\"!" << std::endl; |
---|
137 | } |
---|
138 | |
---|
139 | if (CommandExecutor::getLastEvaluation().hasReturnvalue()) |
---|
140 | return CommandExecutor::getLastEvaluation().getReturnvalue().getString(); |
---|
141 | |
---|
142 | return ""; |
---|
143 | } |
---|
144 | |
---|
145 | void TclBind::tcl_execute(Tcl::object const &args) |
---|
146 | { |
---|
147 | COUT(4) << "Tcl_execute: " << args.get() << std::endl; |
---|
148 | std::string command = stripEnclosingBraces(args.get()); |
---|
149 | |
---|
150 | if (!CommandExecutor::execute(command, false)) |
---|
151 | { |
---|
152 | COUT(1) << "Error: Can't execute command \"" << command << "\"!" << std::endl; |
---|
153 | } |
---|
154 | } |
---|
155 | |
---|
156 | std::string TclBind::tcl(const std::string& tclcode) |
---|
157 | { |
---|
158 | if (TclBind::getInstance().interpreter_) |
---|
159 | { |
---|
160 | try |
---|
161 | { |
---|
162 | std::string output = TclBind::getInstance().interpreter_->eval(tclcode); |
---|
163 | if (output != "") |
---|
164 | { |
---|
165 | COUT(0) << "tcl> " << output << std::endl; |
---|
166 | } |
---|
167 | return output; |
---|
168 | } |
---|
169 | catch (Tcl::tcl_error const &e) |
---|
170 | { COUT(1) << "tcl> Error: " << e.what() << std::endl; } |
---|
171 | catch (std::exception const &e) |
---|
172 | { COUT(1) << "Error while executing Tcl: " << e.what() << std::endl; } |
---|
173 | } |
---|
174 | |
---|
175 | return ""; |
---|
176 | } |
---|
177 | |
---|
178 | void TclBind::bgerror(std::string error) |
---|
179 | { |
---|
180 | COUT(1) << "Tcl background error: " << stripEnclosingBraces(error) << std::endl; |
---|
181 | } |
---|
182 | |
---|
183 | bool TclBind::eval(const std::string& tclcode) |
---|
184 | { |
---|
185 | try |
---|
186 | { |
---|
187 | TclBind::getInstance().interpreter_->eval(tclcode); |
---|
188 | return true; |
---|
189 | } |
---|
190 | catch (Tcl::tcl_error const &e) |
---|
191 | { COUT(1) << "Tcl error: " << e.what() << std::endl; } |
---|
192 | catch (std::exception const &e) |
---|
193 | { COUT(1) << "Error while executing Tcl: " << e.what() << std::endl; } |
---|
194 | |
---|
195 | return false; |
---|
196 | } |
---|
197 | } |
---|