+static void propElementSetData( simgear::PropertyBasedElement& el,
+ const std::string& name,
+ naContext c,
+ naRef ref )
+{
+ if( naIsNil(ref) )
+ return el.removeDataProp(name);
+
+ std::string val = nasal::from_nasal<std::string>(c, ref);
+
+ char* end = NULL;
+
+ long val_long = strtol(val.c_str(), &end, 10);
+ if( !*end )
+ return el.setDataProp(name, val_long);
+
+ double val_double = strtod(val.c_str(), &end);
+ if( !*end )
+ return el.setDataProp(name, val_double);
+
+ el.setDataProp(name, val);
+}
+
+/**
+ * Accessor for HTML5 data properties.
+ *
+ * # set single property:
+ * el.data("myKey", 5);
+ *
+ * # set multiple properties
+ * el.data({myProp1: 12, myProp2: "test"});
+ *
+ * # get value of properties
+ * el.data("myKey"); # 5
+ * el.data("myProp2"); # "test"
+ *
+ * # remove a single property
+ * el.data("myKey", nil);
+ *
+ * # remove multiple properties
+ * el.data({myProp1: nil, myProp2: nil});
+ *
+ * # set and remove multiple properties
+ * el.data({newProp: "some text...", removeProp: nil});
+ *
+ *
+ * @see http://api.jquery.com/data/
+ */
+static naRef f_propElementData( simgear::PropertyBasedElement& el,
+ const nasal::CallContext& ctx )
+{
+ if( ctx.isHash(0) )
+ {
+ // Add/delete properties given as hash
+ nasal::Hash obj = ctx.requireArg<nasal::Hash>(0);
+ for(nasal::Hash::iterator it = obj.begin(); it != obj.end(); ++it)
+ propElementSetData(el, it->getKey(), ctx.c, it->getValue<naRef>());
+
+ return ctx.to_nasal(&el);
+ }
+
+ std::string name = ctx.getArg<std::string>(0);
+ if( !name.empty() )
+ {
+ if( ctx.argc == 1 )
+ {
+ // name + additional argument -> add/delete property
+ SGPropertyNode* node = el.getDataProp<SGPropertyNode*>(name);
+ if( !node )
+ return naNil();
+
+ return ctx.to_nasal( node->getStringValue() );
+ }
+ else
+ {
+ // only name -> get property
+ propElementSetData(el, name, ctx.c, ctx.requireArg<naRef>(1));
+ return ctx.to_nasal(&el);
+ }
+ }
+
+ return naNil();
+}
+
+template<int Mask>
+naRef f_eventGetModifier(sc::MouseEvent& event, naContext)
+{
+ return naNum((event.getModifiers() & Mask) != 0);
+}
+
+static naRef f_createCustomEvent(const nasal::CallContext& ctx)
+{
+ std::string const& type = ctx.requireArg<std::string>(0);
+ if( type.empty() )
+ return naNil();
+
+ simgear::StringMap detail;
+ if( ctx.isHash(1) )
+ {
+ nasal::Hash const& cfg = ctx.requireArg<nasal::Hash>(1);
+ naRef na_detail = cfg.get("detail");
+ if( naIsHash(na_detail) )
+ detail = ctx.from_nasal<simgear::StringMap>(na_detail);
+ }
+
+ return NasalCustomEvent::create(
+ ctx.c,
+ sc::CustomEventPtr(new sc::CustomEvent(type, detail))
+ );
+}
+
+struct CustomEventDetailWrapper:
+ public SGReferenced
+{
+ sc::CustomEventPtr _event;
+
+ CustomEventDetailWrapper(const sc::CustomEventPtr& event):
+ _event(event)
+ {
+
+ }
+
+ bool _get( const std::string& key,
+ std::string& value_out ) const
+ {
+ if( !_event )
+ return false;
+
+ simgear::StringMap::const_iterator it = _event->detail.find(key);
+ if( it == _event->detail.end() )
+ return false;
+
+ value_out = it->second;
+ return true;
+ }
+
+ bool _set( const std::string& key,
+ const std::string& value )
+ {
+ if( !_event )
+ return false;
+
+ _event->detail[ key ] = value;
+ return true;
+ }
+};
+
+static naRef f_customEventGetDetail( sc::CustomEvent& event,
+ naContext c )
+{
+ return nasal::to_nasal(
+ c,
+ CustomEventDetailPtr(new CustomEventDetailWrapper(&event))
+ );
+}
+