1
#ifndef slic3r_perlglue_hpp_
2
#define slic3r_perlglue_hpp_
8
static const char* name;
9
static const char* name_ref;
12
// use this for typedefs for which the forward prototype
13
// in REGISTER_CLASS won't work
14
#define __REGISTER_CLASS(cname, perlname) \
15
template <>const char* ClassTraits<cname>::name = "Slic3r::" perlname; \
16
template <>const char* ClassTraits<cname>::name_ref = "Slic3r::" perlname "::Ref";
18
#define REGISTER_CLASS(cname,perlname) \
20
__REGISTER_CLASS(cname, perlname);
23
const char* perl_class_name(const T*) { return ClassTraits<T>::name; }
25
const char* perl_class_name_ref(const T*) { return ClassTraits<T>::name_ref; }
28
SV* perl_to_SV_ref(T &t) {
30
sv_setref_pv( sv, perl_class_name_ref(&t), &t );
35
SV* perl_to_SV_clone_ref(const T &t) {
37
sv_setref_pv( sv, perl_class_name(&t), new T(t) );
47
operator T*() const {return val; }
48
static const char* CLASS() { return ClassTraits<T>::name_ref; }
56
Clone(T* t) : val(new T(*t)) {}
57
Clone(const T& t) : val(new T(t)) {}
58
operator T*() const {return val; }
59
static const char* CLASS() { return ClassTraits<T>::name; }