Planet
navi homePPSaboutscreenshotsdownloaddevelopmentforum

source: code/trunk/src/cpptcl/details/methods.h @ 1223

Last change on this file since 1223 was 1214, checked in by landauf, 17 years ago

merged console-branch back to trunk.
IMPORTANT: update your media directory!

you need TCL to compile. TCL is available here: ​http://www.tcl.tk/
another option is to check out ​https://svn.orxonox.net/ogre/tcl8.5.2/ and compile it by yourself. makefiles are in the 'macosx', 'unix' and 'win' subfolders.
FindTCL.cmake searches in the usual locations and in ../libs/tcl8.5.2/

the orxonox console can be activated with numpad-enter. whatever you enter will be parsed by TCL. if TCL doesn't know a command, it gets executed by orxonox.

simple tcl commands are: "puts text" to write "text" into the console, "expr 1+1" to calculate the result of the given expression. just try it by yourself with "puts [expr 1+1]".
[x] means: evaluate x and use the returnvalue as an argument. in this case the returned value is "2" and the resulting command therefore "puts 2".

you can combine orxonox and tcl commands. a simple orxonox command is "log text" that writes text into the console and the logfile. test it with "log [expr 1+1]" to write "2" into all output channels of orxonox. something more advanced: "log [clock seconds]" writes the seconds since 1970 into the logfile. feel free to combine both: "log [clock seconds]: 1+1 is [expr 1+1]"

TCL uses variables. to set a new variable, use "set varname value". you can use the variable wherever you want with $varname. with this we can make the above command a bit more elegant:
set myexpression 1+1
log [clock seconds]: $myexpression is [expr $myexpression]

read more about tcl in the wiki: ​http://wiki.tcl.tk/
File size: 15.2 KB
Line 
1//
2// Copyright (C) 2004-2006, Maciej Sobczak
3//
4// Permission to copy, use, modify, sell and distribute this software
5// is granted provided this copyright notice appears in all copies.
6// This software is provided "as is" without express or implied
7// warranty, and with no claim as to its suitability for any purpose.
8//
9
10// Note: this file is not supposed to be a stand-alone header
11
12
13template <class C, typename R>
14class method0 : public object_cmd_base
15{
16     typedef R (C::*mem_type)();
17     typedef R (C::*cmem_type)() const;
18     
19public:
20     method0(mem_type f) : f_(f), cmem_(false) {}
21     method0(cmem_type f) : cf_(f), cmem_(true) {}
22     
23     virtual void invoke(void *pv, Tcl_Interp *interp,
24          int, Tcl_Obj * CONST [], policies const &)
25     {
26          C *p = static_cast<C*>(pv);
27          if (cmem_)
28          {
29               dispatch<R>::do_dispatch(interp, boost::bind(cf_, p));
30          }
31          else
32          {
33               dispatch<R>::do_dispatch(interp, boost::bind(f_, p));
34          }
35     }
36
37private:
38     mem_type f_;
39     cmem_type cf_;
40     bool cmem_;
41};
42
43template <class C, typename R, typename T1>
44class method1 : public object_cmd_base
45{
46     typedef R (C::*mem_type)(T1);
47     typedef R (C::*cmem_type)(T1) const;
48     
49public:
50     method1(mem_type f) : f_(f), cmem_(false) {}
51     method1(cmem_type f) : cf_(f), cmem_(true) {}
52     
53     virtual void invoke(void *pv, Tcl_Interp *interp,
54          int objc, Tcl_Obj * CONST objv[], policies const &)
55     {
56          check_params_no(objc, 3);
57         
58          C *p = static_cast<C*>(pv);
59          if (cmem_)
60          {
61               dispatch<R>::template do_dispatch<T1>(
62                    interp, boost::bind(cf_, p, _1),
63                    tcl_cast<T1>::from(interp, objv[2]));
64          }
65          else
66          {
67               dispatch<R>::template do_dispatch<T1>(
68                    interp, boost::bind(f_, p, _1),
69                    tcl_cast<T1>::from(interp, objv[2]));
70          }
71     }
72
73private:
74     mem_type f_;
75     cmem_type cf_;
76     bool cmem_;
77};
78
79template <class C, typename R, typename T1, typename T2>
80class method2 : public object_cmd_base
81{
82     typedef R (C::*mem_type)(T1, T2);
83     typedef R (C::*cmem_type)(T1, T2) const;
84     
85public:
86     method2(mem_type f) : f_(f), cmem_(false) {}
87     method2(cmem_type f) : cf_(f), cmem_(true) {}
88     
89     virtual void invoke(void *pv, Tcl_Interp *interp,
90          int objc, Tcl_Obj * CONST objv[], policies const &)
91     {
92          check_params_no(objc, 4);
93         
94          C *p = static_cast<C*>(pv);
95          if (cmem_)
96          {
97               dispatch<R>::template do_dispatch<T1, T2>(
98                    interp, boost::bind(cf_, p, _1, _2),
99                    tcl_cast<T1>::from(interp, objv[2]),
100                    tcl_cast<T2>::from(interp, objv[3]));
101          }
102          else
103          {
104               dispatch<R>::template do_dispatch<T1, T2>(
105                    interp, boost::bind(f_, p, _1, _2),
106                    tcl_cast<T1>::from(interp, objv[2]),
107                    tcl_cast<T2>::from(interp, objv[3]));
108          }
109     }
110
111private:
112     mem_type f_;
113     cmem_type cf_;
114     bool cmem_;
115};
116
117template <class C, typename R, typename T1, typename T2, typename T3>
118class method3 : public object_cmd_base
119{
120     typedef R (C::*mem_type)(T1, T2, T3);
121     typedef R (C::*cmem_type)(T1, T2, T3) const;
122     
123public:
124     method3(mem_type f) : f_(f), cmem_(false) {}
125     method3(cmem_type f) : cf_(f), cmem_(true) {}
126     
127     virtual void invoke(void *pv, Tcl_Interp *interp,
128          int objc, Tcl_Obj * CONST objv[], policies const &)
129     {
130          check_params_no(objc, 5);
131         
132          C *p = static_cast<C*>(pv);
133          if (cmem_)
134          {
135               dispatch<R>::template do_dispatch<T1, T2, T3>(
136                    interp, boost::bind(cf_, p, _1, _2, _3),
137                    tcl_cast<T1>::from(interp, objv[2]),
138                    tcl_cast<T2>::from(interp, objv[3]),
139                    tcl_cast<T3>::from(interp, objv[4]));
140          }
141          else
142          {
143               dispatch<R>::template do_dispatch<T1, T2, T3>(
144                    interp, boost::bind(f_, p, _1, _2, _3),
145                    tcl_cast<T1>::from(interp, objv[2]),
146                    tcl_cast<T2>::from(interp, objv[3]),
147                    tcl_cast<T3>::from(interp, objv[4]));
148          }
149     }
150
151private:
152     mem_type f_;
153     cmem_type cf_;
154     bool cmem_;
155};
156
157template <class C, typename R, typename T1, typename T2, typename T3,
158     typename T4>
159class method4 : public object_cmd_base
160{
161     typedef R (C::*mem_type)(T1, T2, T3, T4);
162     typedef R (C::*cmem_type)(T1, T2, T3, T4) const;
163     
164public:
165     method4(mem_type f) : f_(f), cmem_(false) {}
166     method4(cmem_type f) : cf_(f), cmem_(true) {}
167     
168     virtual void invoke(void *pv, Tcl_Interp *interp,
169          int objc, Tcl_Obj * CONST objv[], policies const &)
170     {
171          check_params_no(objc, 6);
172         
173          C *p = static_cast<C*>(pv);
174          if (cmem_)
175          {
176               dispatch<R>::template do_dispatch<T1, T2, T3, T4>(
177                    interp, boost::bind(cf_, p, _1, _2, _3, _4),
178                    tcl_cast<T1>::from(interp, objv[2]),
179                    tcl_cast<T2>::from(interp, objv[3]),
180                    tcl_cast<T3>::from(interp, objv[4]),
181                    tcl_cast<T4>::from(interp, objv[5]));
182          }
183          else
184          {
185               dispatch<R>::template do_dispatch<T1, T2, T3, T4>(
186                    interp, boost::bind(f_, p, _1, _2, _3, _4),
187                    tcl_cast<T1>::from(interp, objv[2]),
188                    tcl_cast<T2>::from(interp, objv[3]),
189                    tcl_cast<T3>::from(interp, objv[4]),
190                    tcl_cast<T4>::from(interp, objv[5]));
191          }
192     }
193
194private:
195     mem_type f_;
196     cmem_type cf_;
197     bool cmem_;
198};
199
200template <class C, typename R, typename T1, typename T2, typename T3,
201     typename T4, typename T5>
202class method5 : public object_cmd_base
203{
204     typedef R (C::*mem_type)(T1, T2, T3, T4, T5);
205     typedef R (C::*cmem_type)(T1, T2, T3, T4, T5) const;
206     
207public:
208     method5(mem_type f) : f_(f), cmem_(false) {}
209     method5(cmem_type f) : cf_(f), cmem_(true) {}
210     
211     virtual void invoke(void *pv, Tcl_Interp *interp,
212          int objc, Tcl_Obj * CONST objv[], policies const &)
213     {
214          check_params_no(objc, 7);
215         
216          C *p = static_cast<C*>(pv);
217          if (cmem_)
218          {
219               dispatch<R>::template do_dispatch<T1, T2, T3, T4, T5>(
220                    interp, boost::bind(cf_, p, _1, _2, _3, _4, _5),
221                    tcl_cast<T1>::from(interp, objv[2]),
222                    tcl_cast<T2>::from(interp, objv[3]),
223                    tcl_cast<T3>::from(interp, objv[4]),
224                    tcl_cast<T4>::from(interp, objv[5]),
225                    tcl_cast<T5>::from(interp, objv[6]));
226          }
227          else
228          {
229               dispatch<R>::template do_dispatch<T1, T2, T3, T4, T5>(
230                    interp, boost::bind(f_, p, _1, _2, _3, _4, _5),
231                    tcl_cast<T1>::from(interp, objv[2]),
232                    tcl_cast<T2>::from(interp, objv[3]),
233                    tcl_cast<T3>::from(interp, objv[4]),
234                    tcl_cast<T4>::from(interp, objv[5]),
235                    tcl_cast<T5>::from(interp, objv[6]));
236          }
237     }
238
239private:
240     mem_type f_;
241     cmem_type cf_;
242     bool cmem_;
243};
244
245template <class C, typename R, typename T1, typename T2, typename T3,
246     typename T4, typename T5, typename T6>
247class method6 : public object_cmd_base
248{
249     typedef R (C::*mem_type)(T1, T2, T3, T4, T5, T6);
250     typedef R (C::*cmem_type)(T1, T2, T3, T4, T5, T6) const;
251     
252public:
253     method6(mem_type f) : f_(f), cmem_(false) {}
254     method6(cmem_type f) : cf_(f), cmem_(true) {}
255     
256     virtual void invoke(void *pv, Tcl_Interp *interp,
257          int objc, Tcl_Obj * CONST objv[], policies const &)
258     {
259          check_params_no(objc, 8);
260         
261          C *p = static_cast<C*>(pv);
262          if (cmem_)
263          {
264               dispatch<R>::template do_dispatch<T1, T2, T3, T4, T5, T6>(
265                    interp, boost::bind(cf_, p, _1, _2, _3, _4, _5, _6),
266                    tcl_cast<T1>::from(interp, objv[2]),
267                    tcl_cast<T2>::from(interp, objv[3]),
268                    tcl_cast<T3>::from(interp, objv[4]),
269                    tcl_cast<T4>::from(interp, objv[5]),
270                    tcl_cast<T5>::from(interp, objv[6]),
271                    tcl_cast<T6>::from(interp, objv[7]));
272          }
273          else
274          {
275               dispatch<R>::template do_dispatch<T1, T2, T3, T4, T5, T6>(
276                    interp, boost::bind(f_, p, _1, _2, _3, _4, _5, _6),
277                    tcl_cast<T1>::from(interp, objv[2]),
278                    tcl_cast<T2>::from(interp, objv[3]),
279                    tcl_cast<T3>::from(interp, objv[4]),
280                    tcl_cast<T4>::from(interp, objv[5]),
281                    tcl_cast<T5>::from(interp, objv[6]),
282                    tcl_cast<T6>::from(interp, objv[7]));
283          }
284     }
285
286private:
287     mem_type f_;
288     cmem_type cf_;
289     bool cmem_;
290};
291
292template <class C, typename R, typename T1, typename T2, typename T3,
293     typename T4, typename T5, typename T6, typename T7>
294class method7 : public object_cmd_base
295{
296     typedef R (C::*mem_type)(T1, T2, T3, T4, T5, T6, T7);
297     typedef R (C::*cmem_type)(T1, T2, T3, T4, T5, T6, T7) const;
298     
299public:
300     method7(mem_type f) : f_(f), cmem_(false) {}
301     method7(cmem_type f) : cf_(f), cmem_(true) {}
302     
303     virtual void invoke(void *pv, Tcl_Interp *interp,
304          int objc, Tcl_Obj * CONST objv[], policies const &)
305     {
306          check_params_no(objc, 9);
307         
308          C *p = static_cast<C*>(pv);
309          if (cmem_)
310          {
311               dispatch<R>::template do_dispatch<T1, T2, T3, T4, T5, T6, T7>(
312                    interp, boost::bind(cf_, p, _1, _2, _3, _4, _5, _6, _7),
313                    tcl_cast<T1>::from(interp, objv[2]),
314                    tcl_cast<T2>::from(interp, objv[3]),
315                    tcl_cast<T3>::from(interp, objv[4]),
316                    tcl_cast<T4>::from(interp, objv[5]),
317                    tcl_cast<T5>::from(interp, objv[6]),
318                    tcl_cast<T6>::from(interp, objv[7]),
319                    tcl_cast<T7>::from(interp, objv[8]));
320          }
321          else
322          {
323               dispatch<R>::template do_dispatch<T1, T2, T3, T4, T5, T6, T7>(
324                    interp, boost::bind(f_, p, _1, _2, _3, _4, _5, _6, _7),
325                    tcl_cast<T1>::from(interp, objv[2]),
326                    tcl_cast<T2>::from(interp, objv[3]),
327                    tcl_cast<T3>::from(interp, objv[4]),
328                    tcl_cast<T4>::from(interp, objv[5]),
329                    tcl_cast<T5>::from(interp, objv[6]),
330                    tcl_cast<T6>::from(interp, objv[7]),
331                    tcl_cast<T7>::from(interp, objv[8]));
332          }
333     }
334
335private:
336     mem_type f_;
337     cmem_type cf_;
338     bool cmem_;
339};
340
341template <class C, typename R, typename T1, typename T2, typename T3,
342     typename T4, typename T5, typename T6, typename T7, typename T8>
343class method8 : public object_cmd_base
344{
345     typedef R (C::*mem_type)(T1, T2, T3, T4, T5, T6, T7, T8);
346     typedef R (C::*cmem_type)(T1, T2, T3, T4, T5, T6, T7, T8) const;
347     
348public:
349     method8(mem_type f) : f_(f), cmem_(false) {}
350     method8(cmem_type f) : cf_(f), cmem_(true) {}
351     
352     virtual void invoke(void *pv, Tcl_Interp *interp,
353          int objc, Tcl_Obj * CONST objv[], policies const &)
354     {
355          check_params_no(objc, 10);
356         
357          C *p = static_cast<C*>(pv);
358          if (cmem_)
359          {
360               dispatch<R>::template do_dispatch<
361                    T1, T2, T3, T4, T5, T6, T7, T8>(
362                    interp, boost::bind(cf_, p,
363                         _1, _2, _3, _4, _5, _6, _7, _8),
364                    tcl_cast<T1>::from(interp, objv[2]),
365                    tcl_cast<T2>::from(interp, objv[3]),
366                    tcl_cast<T3>::from(interp, objv[4]),
367                    tcl_cast<T4>::from(interp, objv[5]),
368                    tcl_cast<T5>::from(interp, objv[6]),
369                    tcl_cast<T6>::from(interp, objv[7]),
370                    tcl_cast<T7>::from(interp, objv[8]),
371                    tcl_cast<T8>::from(interp, objv[9]));
372          }
373          else
374          {
375               dispatch<R>::template do_dispatch<
376                    T1, T2, T3, T4, T5, T6, T7, T8>(
377                    interp, boost::bind(f_, p,
378                         _1, _2, _3, _4, _5, _6, _7, _8),
379                    tcl_cast<T1>::from(interp, objv[2]),
380                    tcl_cast<T2>::from(interp, objv[3]),
381                    tcl_cast<T3>::from(interp, objv[4]),
382                    tcl_cast<T4>::from(interp, objv[5]),
383                    tcl_cast<T5>::from(interp, objv[6]),
384                    tcl_cast<T6>::from(interp, objv[7]),
385                    tcl_cast<T7>::from(interp, objv[8]),
386                    tcl_cast<T8>::from(interp, objv[9]));
387          }
388     }
389
390private:
391     mem_type f_;
392     cmem_type cf_;
393     bool cmem_;
394};
395
396template <class C, typename R, typename T1, typename T2, typename T3,
397     typename T4, typename T5, typename T6, typename T7, typename T8,
398     typename T9>
399class method9 : public object_cmd_base
400{
401     typedef R (C::*mem_type)(T1, T2, T3, T4, T5, T6, T7, T8, T9);
402     typedef R (C::*cmem_type)(T1, T2, T3, T4, T5, T6, T7, T8, T9) const;
403     
404public:
405     method9(mem_type f) : f_(f), cmem_(false) {}
406     method9(cmem_type f) : cf_(f), cmem_(true) {}
407     
408     virtual void invoke(void *pv, Tcl_Interp *interp,
409          int objc, Tcl_Obj * CONST objv[], policies const &)
410     {
411          check_params_no(objc, 11);
412         
413          C *p = static_cast<C*>(pv);
414          if (cmem_)
415          {
416               dispatch<R>::template do_dispatch<
417                    T1, T2, T3, T4, T5, T6, T7, T8, T9>(
418                    interp, boost::bind(cf_, p,
419                         _1, _2, _3, _4, _5, _6, _7, _8, _9),
420                    tcl_cast<T1>::from(interp, objv[2]),
421                    tcl_cast<T2>::from(interp, objv[3]),
422                    tcl_cast<T3>::from(interp, objv[4]),
423                    tcl_cast<T4>::from(interp, objv[5]),
424                    tcl_cast<T5>::from(interp, objv[6]),
425                    tcl_cast<T6>::from(interp, objv[7]),
426                    tcl_cast<T7>::from(interp, objv[8]),
427                    tcl_cast<T8>::from(interp, objv[9]),
428                    tcl_cast<T9>::from(interp, objv[10]));
429          }
430          else
431          {
432               dispatch<R>::template do_dispatch<
433                    T1, T2, T3, T4, T5, T6, T7, T8, T9>(
434                    interp, boost::bind(f_, p,
435                         _1, _2, _3, _4, _5, _6, _7, _8, _9),
436                    tcl_cast<T1>::from(interp, objv[2]),
437                    tcl_cast<T2>::from(interp, objv[3]),
438                    tcl_cast<T3>::from(interp, objv[4]),
439                    tcl_cast<T4>::from(interp, objv[5]),
440                    tcl_cast<T5>::from(interp, objv[6]),
441                    tcl_cast<T6>::from(interp, objv[7]),
442                    tcl_cast<T7>::from(interp, objv[8]),
443                    tcl_cast<T8>::from(interp, objv[9]),
444                    tcl_cast<T9>::from(interp, objv[10]));
445          }
446     }
447
448private:
449     mem_type f_;
450     cmem_type cf_;
451     bool cmem_;
452};
Note: See TracBrowser for help on using the repository browser.