- class class_metadata
- {
- public:
- void addNasalBase(const naRef& parent)
- {
- assert( naIsHash(parent) );
- _parents.push_back(parent);
- }
-
- protected:
- const std::string _name;
- naGhostType _ghost_type;
- std::vector<class_metadata*> _base_classes;
- std::vector<naRef> _parents;
-
- explicit class_metadata(const std::string& name):
- _name(name)
- {
-
- }
-
- void addBaseClass(class_metadata* base)
- {
- assert(base);
- std::cout << _name << ": addBase(" << base->_name << ")" << std::endl;
- _base_classes.push_back(base);
- }
-
- naRef getParents(naContext c)
- {
- return nasal::to_nasal(c, _parents);
- }
- };
-
- /**
- * Class for exposing C++ objects to Nasal
- */
- template<class T>
- class class_:
- public class_metadata,
- protected boost::mpl::if_< typename class_traits<T>::is_shared,
- SharedPointerPolicy<T>,
- RawPointerPolicy<T> >::type
- {
- private:
- typedef typename class_traits<T>::raw_type raw_type;
-
- public:
-
- typedef boost::function<naRef(naContext c, raw_type*)> getter_t;
- typedef std::map<std::string, getter_t> GetterMap;
-
- static class_& init(const std::string& name)
- {
- getSingletonHolder().reset( new class_(name) );
- return *getSingletonPtr();
- }
-
- static naRef f_create(naContext c, naRef me, int argc, naRef* args)
- {
- return create(c);
- }
-
- static naRef create( naContext c )
- {
- return makeGhost(c, class_::createInstance());
- }
-
- // TODO use variadic template when supporting C++11
- template<class A1>
- static naRef create( naContext c, const A1& a1 )
- {
- return makeGhost(c, class_::createInstance(a1));
- }
-
- class_& bases(const naRef& parent)
- {
- addNasalBase(parent);
- return *this;
- }
-
- template<class Base>
- typename boost::enable_if
- < boost::is_convertible<Base, class_metadata>,
- class_
- >::type&
- bases()
- {
- Base* base = Base::getSingletonPtr();
- addBaseClass( base );
-
- // Replace any getter that is not available in the current class.
- // TODO check if this is the correct behavior of function overriding
- const typename Base::GetterMap& base_getter = base->getGetter();
- for( typename Base::GetterMap::const_iterator getter =
- base_getter.begin();
- getter != base_getter.end();
- ++getter )
- {
- if( _getter.find(getter->first) == _getter.end() )
- _getter.insert( *getter );
- }
-
- return *this;
- }
-
- template<class Type>
- typename boost::enable_if_c
- < !boost::is_convertible< Type, class_metadata>::value,
- class_
- >::type&
- bases()
- {
- return bases< class_<Type> >();
- }
-
- template<class Var>
- class_& member( const std::string& field,
- Var (raw_type::*getter)() const,
- void (raw_type::*setter)(const Var&) = 0 )
- {
- naRef (*to_nasal)(naContext, Var) = &nasal::to_nasal;
- _getter[field] = boost::bind( to_nasal,
- _1,
- boost::bind(getter, _2) );
- return *this;
- }
-
- class_& member( const std::string& field,
- const getter_t& getter )
- {
- _getter[field] = getter;
- return *this;
- }
-
- static class_* getSingletonPtr()
- {
- return getSingletonHolder().get();
- }
-
- const GetterMap& getGetter() const
- {
- return _getter;
- }
-
- private:
-
- typedef std::auto_ptr<class_> class_ptr;
- GetterMap _getter;
-
- explicit class_(const std::string& name):
- class_metadata( name )
- {
- _ghost_type.destroy = &destroyGhost;
- _ghost_type.name = _name.c_str();
- _ghost_type.get_member = &getMember;
- _ghost_type.set_member = 0;
- }
-
- static class_ptr& getSingletonHolder()
- {
- static class_ptr instance;
- return instance;
- }
-
- static naRef makeGhost(naContext c, void *ptr)
- {
- std::cout << "makeGhost " << ptr << std::endl;
- return naNewGhost2(c, &getSingletonPtr()->_ghost_type, ptr);
- }
-
- static void destroyGhost(void *ptr)
- {
- std::cout << "destroyGhost " << ptr << std::endl;
- delete (T*)ptr;
- }
-
- static const char* getMember(naContext c, void* g, naRef field, naRef* out)
- {
- const std::string key = naStr_data(field);
- if( key == "parents" )
- {
- if( getSingletonPtr()->_parents.empty() )
- return 0;
-
- *out = getSingletonPtr()->getParents(c);
- return "";
- }
-
- typename GetterMap::iterator getter =
- getSingletonPtr()->_getter.find(key);
-
- if( getter == getSingletonPtr()->_getter.end() )
- return 0;
-
- *out = getter->second(c, class_::getRawPtr(g));
- return "";
- }
- };