00001
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00034
00035 #ifndef GROOVX_VISX_FEEDBACKMAP_H_UTC20050626084017_DEFINED
00036 #define GROOVX_VISX_FEEDBACKMAP_H_UTC20050626084017_DEFINED
00037
00038 #include "tcl/list.h"
00039 #include "tcl/obj.h"
00040 #include "tcl/interp.h"
00041
00042 #include "rutz/error.h"
00043 #include "rutz/fstring.h"
00044
00045 #include <vector>
00046
00048 class FeedbackMap
00049 {
00050 public:
00052 FeedbackMap() :
00053 itsUseFeedback(true), itsRep(), itsItems(), isItDirty(true) {}
00054
00056 const rutz::fstring& rep() const { return itsRep; }
00057
00059 void set(const rutz::fstring& new_rep)
00060 {
00061 itsRep = new_rep;
00062 isItDirty = true;
00063 update();
00064 }
00065
00067 void giveFeedback(tcl::interpreter& intp, int response) const
00068 {
00069 if (!itsUseFeedback) return;
00070
00071 update();
00072
00073 intp.set_global_var("resp_val", tcl::convert_from(response));
00074
00075 bool feedbackGiven = false;
00076 for (size_t i = 0; i<itsItems.size() && !feedbackGiven; ++i)
00077 {
00078 feedbackGiven = itsItems[i].invokeIfTrue(intp);
00079 }
00080
00081 intp.unset_global_var("resp_val");
00082 }
00083
00084 private:
00085
00087 void update() const
00088 {
00089 if (!isItDirty) return;
00090
00091 tcl::list pairs_list(tcl::convert_from(itsRep));
00092
00093 itsItems.clear();
00094
00095 for (unsigned int i = 0; i < pairs_list.length(); ++i)
00096 {
00097 tcl::list current_pair(pairs_list[i]);
00098
00099 if (current_pair.length() != 2)
00100 {
00101 throw rutz::error("\"pair\" did not have length 2 "
00102 "in FeedbackMap::update", SRC_POS);
00103 }
00104
00105 itsItems.push_back(Item(current_pair[0], current_pair[1]));
00106 }
00107
00108 isItDirty = false;
00109 }
00110
00112 class Item
00113 {
00114 public:
00116 Item(Tcl_Obj* cond, Tcl_Obj* res) :
00117 itsCondition(cond),
00118 itsResultCmd(res)
00119 {}
00120
00122 bool invokeIfTrue(tcl::interpreter& interp)
00123 {
00124 if (interp.eval_boolean_expr(itsCondition))
00125 {
00126 interp.eval(itsResultCmd);
00127 return true;
00128 }
00129 return false;
00130 }
00131
00132 private:
00133 tcl::obj itsCondition;
00134 tcl::obj itsResultCmd;
00135 };
00136
00137 public:
00138 bool itsUseFeedback;
00139
00140 private:
00141 rutz::fstring itsRep;
00142 mutable std::vector<Item> itsItems;
00143 mutable bool isItDirty;
00144 };
00145
00146 static const char __attribute__((used)) vcid_groovx_visx_feedbackmap_h_utc20050626084017[] = "$Id: feedbackmap.h 10065 2007-04-12 05:54:56Z rjpeters $ $HeadURL: file:
00147 #endif // !GROOVX_VISX_FEEDBACKMAP_H_UTC20050626084017_DEFINED