1 #include <simgear/math/SGMath.hxx>
4 #include "NasalHash.hxx"
5 #include "NasalString.hxx"
7 #include <boost/shared_ptr.hpp>
15 std::cerr << "failed: line " << __LINE__ << ": " << #a << std::endl; \
21 naRef member(const nasal::CallContext&) { return naNil(); }
24 std::string getString() const { return ""; }
25 void setString(const std::string&) {}
28 const std::string& getVar() const { return var; }
29 void setVar(const std::string v) { var = v; }
35 int getX() const { return _x; }
36 void setX(int x) { _x = x; }
43 struct DoubleDerived2:
49 typedef boost::shared_ptr<Base> BasePtr;
50 typedef boost::shared_ptr<Derived> DerivedPtr;
51 typedef boost::shared_ptr<DoubleDerived> DoubleDerivedPtr;
52 typedef boost::shared_ptr<DoubleDerived2> DoubleDerived2Ptr;
54 naRef member(Derived&, const nasal::CallContext&) { return naNil(); }
55 naRef f_derivedGetX(naContext c, const Derived& d)
57 return nasal::to_nasal(c, d.getX());
60 int main(int argc, char* argv[])
62 naContext c = naNewContext();
65 using namespace nasal;
67 r = to_nasal(c, "Test");
68 VERIFY( strncmp("Test", naStr_data(r), naStr_len(r)) == 0 );
69 VERIFY( from_nasal<std::string>(c, r) == "Test" );
71 r = to_nasal(c, std::string("Test"));
72 VERIFY( strncmp("Test", naStr_data(r), naStr_len(r)) == 0 );
73 VERIFY( from_nasal<std::string>(c, r) == "Test" );
76 VERIFY( naNumValue(r).num == 42 );
77 VERIFY( from_nasal<int>(c, r) == 42 );
79 r = to_nasal(c, 4.2f);
80 VERIFY( naNumValue(r).num == 4.2f );
81 VERIFY( from_nasal<float>(c, r) == 4.2f );
83 float test_data[3] = {0, 4, 2};
84 r = to_nasal(c, test_data);
88 VERIFY( from_nasal<SGVec2f>(c, r) == vec );
90 std::vector<int> std_vec;
91 r = to_nasal(c, std_vec);
93 r = to_nasal(c, "string");
96 from_nasal<int>(c, r);
98 std::cerr << "failed: Expected bad_nasal_cast to be thrown" << std::endl;
101 catch(nasal::bad_nasal_cast&)
106 hash.set("vec2", vec);
107 hash.set("name", "my-name");
108 hash.set("string", std::string("blub"));
110 r = to_nasal(c, hash);
111 VERIFY( naIsHash(r) );
113 VERIFY( hash.get<std::string>("name") == "my-name" );
114 VERIFY( naIsString(hash.get("name")) );
116 Hash mod = hash.createHash("mod");
117 mod.set("parent", hash);
119 String string( to_nasal(c, "Test") );
120 VERIFY( from_nasal<std::string>(c, string.get_naRef()) == "Test" );
121 VERIFY( string.c_str() == std::string("Test") );
122 VERIFY( string.starts_with(string) );
123 VERIFY( string.starts_with(String(c, "T")) );
124 VERIFY( string.starts_with(String(c, "Te")) );
125 VERIFY( string.starts_with(String(c, "Tes")) );
126 VERIFY( string.starts_with(String(c, "Test")) );
127 VERIFY( !string.starts_with(String(c, "Test1")) );
128 VERIFY( !string.starts_with(String(c, "bb")) );
129 VERIFY( !string.starts_with(String(c, "bbasdasdafasd")) );
130 VERIFY( string.find('e') == 1 );
131 VERIFY( string.find('9') == String::npos );
132 VERIFY( string.find_first_of(String(c, "st")) == 2 );
133 VERIFY( string.find_first_of(String(c, "st"), 3) == 3 );
134 VERIFY( string.find_first_of(String(c, "xyz")) == String::npos );
135 VERIFY( string.find_first_not_of(String(c, "Tst")) == 1 );
136 VERIFY( string.find_first_not_of(String(c, "Tse"), 2) == 3 );
137 VERIFY( string.find_first_not_of(String(c, "abc")) == 0 );
138 VERIFY( string.find_first_not_of(String(c, "abc"), 20) == String::npos );
140 Ghost<BasePtr>::init("BasePtr")
141 .method<&Base::member>("member")
142 .member("str", &Base::getString, &Base::setString)
143 .member("var_r", &Base::getVar)
144 .member("var_w", &Base::setVar)
145 .member("var", &Base::getVar, &Base::setVar);
146 Ghost<DerivedPtr>::init("DerivedPtr")
148 .member("x", &Derived::getX, &Derived::setX)
149 .member("x_alternate", &f_derivedGetX)
150 .method_func<&member>("free_member");
151 Ghost<DoubleDerivedPtr>::init("DoubleDerivedPtr")
152 .bases<DerivedPtr>();
153 Ghost<DoubleDerived2Ptr>::init("DoubleDerived2Ptr")
154 .bases< Ghost<DerivedPtr> >();
156 BasePtr d( new Derived );
157 naRef derived = Ghost<BasePtr>::create(c, d);
158 VERIFY( naIsGhost(derived) );
159 VERIFY( std::string("DerivedPtr") == naGhost_type(derived)->name );
161 BasePtr d2( new DoubleDerived );
162 derived = Ghost<BasePtr>::create(c, d2);
163 VERIFY( naIsGhost(derived) );
164 VERIFY( std::string("DoubleDerivedPtr") == naGhost_type(derived)->name );
166 BasePtr d3( new DoubleDerived2 );
167 derived = Ghost<BasePtr>::create(c, d3);
168 VERIFY( naIsGhost(derived) );
169 VERIFY( std::string("DoubleDerived2Ptr") == naGhost_type(derived)->name );
171 VERIFY( Ghost<BasePtr>::isBaseOf(derived) );
172 VERIFY( Ghost<DerivedPtr>::isBaseOf(derived) );
173 VERIFY( Ghost<DoubleDerived2Ptr>::isBaseOf(derived) );
175 VERIFY( Ghost<BasePtr>::fromNasal(c, derived) == d3 );
176 VERIFY( Ghost<BasePtr>::fromNasal(c, derived) != d2 );
177 VERIFY( Ghost<DerivedPtr>::fromNasal(c, derived)
178 == boost::dynamic_pointer_cast<Derived>(d3) );
179 VERIFY( Ghost<DoubleDerived2Ptr>::fromNasal(c, derived)
180 == boost::dynamic_pointer_cast<DoubleDerived2>(d3) );
181 VERIFY( !Ghost<DoubleDerivedPtr>::fromNasal(c, derived) );
183 // Check converting to Ghost if using Nasal hashes with actual ghost inside
184 // the hashes parents vector
185 std::vector<naRef> parents;
186 parents.push_back(hash.get_naRef());
187 parents.push_back(derived);
190 obj.set("parents", parents);
191 VERIFY( Ghost<BasePtr>::fromNasal(c, obj.get_naRef()) == d3 );
193 // Check recursive parents (aka parent-of-parent)
194 std::vector<naRef> parents2;
195 parents2.push_back(obj.get_naRef());
197 derived_obj.set("parents", parents2);
198 VERIFY( Ghost<BasePtr>::fromNasal(c, derived_obj.get_naRef()) == d3 );
201 to_nasal(c, std::string("test-arg"))
203 CallContext cc(c, sizeof(args)/sizeof(args[0]), args);
204 VERIFY( cc.requireArg<std::string>(0) == "test-arg" );
205 VERIFY( cc.getArg<std::string>(0) == "test-arg" );
206 VERIFY( cc.getArg<std::string>(1) == "" );
208 naRef args_vec = nasal::to_nasal(c, args);
209 VERIFY( naIsVector(args_vec) );
211 // TODO actually do something with the ghosts...