Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: code/branches/consolecommands3/src/libraries/core/TclBind.h @ 7189

Last change on this file since 7189 was 7189, checked in by landauf, 14 years ago

changed passing of the returnvalue in the command execution pipeline:

  • Functor: operator() directly returns the returnvalue of the executed function (if any, otherwise a MultiType whose null() function evaluates to true). The returnvalue is no longer stored in the Functor.
  • Executor: The same behavior of operator() like in Functor. Additionally the parse() function returns the returnvalue of the executed function instead of a boolean status. The status can be retrieved by passing a pointer to a bool to the function.
  • CommandExecutor: execute() works like before (returns only a boolean status), but added a new function query() which returns the returnvalue of the executed command. The status of query() can be retrieved by optionally passing an pointer to a bool.
  • CommandEvaluation: same as for CommandExecutor: execute() like before, added query()
  • TclBind::eval() returns the returnvalue of the evaluated tcl command. The status can also be retrieved by passing a pointer to a bool.
  • The Shell prints the returnvalue (if available) of an executed command
  • added a constructor to MultiType to directly create it from an mbool. The mbool will be converted to a bool, so it loses it's internal state.
  • Property svn:eol-style set to native
File size: 2.2 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#ifndef _TclBind_H__
30#define _TclBind_H__
31
32#include "CorePrereqs.h"
33
34#include <cassert>
35#include <string>
36#include "util/Singleton.h"
37
38namespace orxonox
39{
40    class _CoreExport TclBind : public Singleton<TclBind>
41    {
42        friend class Singleton<TclBind>;
43        public:
44            TclBind(const std::string& datapath);
45            ~TclBind();
46
47            static std::string tcl(const std::string& tclcode);
48            static void bgerror(const std::string& error);
49
50            void setDataPath(const std::string& datapath);
51            const std::string& getTclDataPath() const { return this->tclDataPath_; }
52            static std::string getTclLibraryPath();
53
54            void initializeTclInterpreter();
55            static Tcl::interpreter* createTclInterpreter();
56            Tcl::interpreter* getTclInterpreter() const { return this->interpreter_; }
57
58            static std::string tcl_query(Tcl::object const &args);
59            static void tcl_execute(Tcl::object const &args);
60
61            static std::string eval(const std::string& tclcode, bool* success = 0);
62
63        private:
64            TclBind(const TclBind& other);
65
66            Tcl::interpreter* interpreter_;
67            std::string tclDataPath_;
68            bool bSetTclDataPath_;
69
70            static TclBind* singletonPtr_s;
71    };
72}
73
74#endif /* _TclBind_H__ */
Note: See TracBrowser for help on using the repository browser.