guile/hull.cc

#include <vtestbed/config/real_type.hh>
#include <vtestbed/core/hull.hh>
#include <vtestbed/guile/macros.hh>
#include <vtestbed/guile/traits.hh>

using object_type = vtb::core::Hull<VTB_REAL_TYPE>;
using traits_type = vtb::guile::Traits<object_type>;

namespace {
    SCM type;
}


namespace vtb {

    namespace guile {

        template <> SCM traits_type::type() { return ::type; }

        SCM make_hull() { return traits_type::make(); }

        template <> void
        traits_type::define() {
            ::type = define_type<object_type>("hull");
            define_procedure("make-hull", 0, 0, 0, VTB_GUILE_0(make_hull));
        }

    }

}