[1188] | 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 | |
---|
[1151] | 29 | #include <iostream> |
---|
| 30 | #include <string> |
---|
| 31 | |
---|
| 32 | #include "ConsoleCommand.h" |
---|
[1187] | 33 | #include "CommandExecutor.h" |
---|
[1151] | 34 | #include "Debug.h" |
---|
| 35 | #include "TclBind.h" |
---|
| 36 | |
---|
| 37 | namespace orxonox |
---|
| 38 | { |
---|
[1194] | 39 | ConsoleCommandShortcutGeneric(tcl, createExecutor(createFunctor(&TclBind::tcl), "tcl", AccessLevel::None)); |
---|
[1151] | 40 | |
---|
[1194] | 41 | TclBind::TclBind() |
---|
[1151] | 42 | { |
---|
[1194] | 43 | this->interpreter_ = 0; |
---|
| 44 | this->bSetTclLibPath_ = false; |
---|
| 45 | } |
---|
| 46 | |
---|
| 47 | TclBind::~TclBind() |
---|
| 48 | { |
---|
| 49 | if (this->interpreter_) |
---|
| 50 | delete this->interpreter_; |
---|
| 51 | } |
---|
| 52 | |
---|
| 53 | TclBind& TclBind::getInstance() |
---|
| 54 | { |
---|
| 55 | static TclBind instance; |
---|
| 56 | return instance; |
---|
| 57 | } |
---|
| 58 | |
---|
| 59 | void TclBind::setDataPath(const std::string& datapath) |
---|
| 60 | { |
---|
| 61 | this->tclLibPath_ = datapath + "/tcl"; |
---|
| 62 | this->bSetTclLibPath_ = true; |
---|
| 63 | |
---|
| 64 | this->createTclInterpreter(); |
---|
| 65 | } |
---|
| 66 | |
---|
| 67 | void TclBind::createTclInterpreter() |
---|
| 68 | { |
---|
| 69 | if (this->bSetTclLibPath_ && !this->interpreter_) |
---|
| 70 | { |
---|
| 71 | this->interpreter_ = new Tcl::interpreter(this->tclLibPath_); |
---|
| 72 | this->interpreter_->def("puts", TclBind::puts, Tcl::variadic()); |
---|
| 73 | this->interpreter_->def("execute", TclBind::execute, Tcl::variadic()); |
---|
| 74 | this->interpreter_->eval("proc unknown {args} { return [execute $args] }"); |
---|
| 75 | } |
---|
| 76 | } |
---|
| 77 | |
---|
| 78 | void TclBind::createNewTclInterpreter() |
---|
| 79 | { |
---|
| 80 | if (this->interpreter_) |
---|
| 81 | { |
---|
| 82 | delete this->interpreter_; |
---|
| 83 | this->interpreter_ = 0; |
---|
| 84 | } |
---|
| 85 | |
---|
| 86 | this->createTclInterpreter(); |
---|
| 87 | } |
---|
| 88 | |
---|
| 89 | void TclBind::puts(Tcl::object const &args) |
---|
| 90 | { |
---|
[1187] | 91 | COUT(0) << args.get() << std::endl; |
---|
[1151] | 92 | } |
---|
| 93 | |
---|
[1194] | 94 | std::string TclBind::execute(Tcl::object const &args) |
---|
[1151] | 95 | { |
---|
[1189] | 96 | std::cout << "Tcl_execute: args: " << args.get() << std::endl; |
---|
[1188] | 97 | std::string command = args.get(); |
---|
[1189] | 98 | |
---|
[1188] | 99 | if (command.size() >= 2 && command[0] == '{' && command[command.size() - 1] == '}') |
---|
| 100 | command = command.substr(1, command.size() - 2); |
---|
[1189] | 101 | |
---|
[1194] | 102 | if (!CommandExecutor::execute(command)) |
---|
[1188] | 103 | COUT(1) << "Error: Can't execute command \"" << command << "\"!" << std::endl; |
---|
[1189] | 104 | |
---|
[1194] | 105 | if (CommandExecutor::getLastEvaluation().hasReturnvalue()) |
---|
| 106 | return CommandExecutor::getLastEvaluation().getReturnvalue().toString(); |
---|
[1189] | 107 | |
---|
[1187] | 108 | return ""; |
---|
[1151] | 109 | } |
---|
| 110 | |
---|
[1194] | 111 | std::string TclBind::tcl(const std::string& tclcode) |
---|
[1151] | 112 | { |
---|
| 113 | try |
---|
| 114 | { |
---|
[1194] | 115 | std::string output = TclBind::getInstance().interpreter_->eval(tclcode); |
---|
[1188] | 116 | if (output != "") |
---|
| 117 | COUT(0) << "tcl> " << output << std::endl; |
---|
[1151] | 118 | return output; |
---|
| 119 | } |
---|
| 120 | catch (Tcl::tcl_error const &e) |
---|
| 121 | { |
---|
[1188] | 122 | COUT(1) << "tcl> Error: " << e.what() << std::endl; |
---|
[1151] | 123 | } |
---|
| 124 | catch (std::exception const &e) |
---|
| 125 | { |
---|
| 126 | COUT(1) << "Error while executing tcl: " << e.what() << std::endl; |
---|
| 127 | } |
---|
| 128 | |
---|
| 129 | return ""; |
---|
| 130 | } |
---|
| 131 | } |
---|