File Coverage

/usr/local/lib/perl5/site_perl/5.26.1/x86_64-linux/XS/Framework.x/i/xs/typemap/base.h

Criterion	Covered	Total	%
statement	4	4	100.0
branch			n/a
condition			n/a
subroutine			n/a
pod			n/a
total	4	4	100.0

#pragma once
#include "../Sv.h"

namespace xs {

namespace typemap {
    struct DefaultType {};
}

template <class TYPEMAP, class TYPE = TYPEMAP> struct Typemap { using _not_exists = void; };

template <class T, typename = void> struct has_typemap : std::true_type {};
template <class T> struct has_typemap<T, typename Typemap<T>::_not_exists> : std::false_type {};

template <class TYPEMAP, class TYPE = TYPEMAP> struct TypemapBase {
    static inline TYPE in (SV*) = delete;

    static inline Sv create (const TYPE&, const Sv& = Sv()) = delete;

    static inline Sv out (const TYPE& var, const Sv& proto = Sv()) {
        return Typemap<TYPE>::create(var, proto);
    }

    static inline void destroy (const TYPE&, SV*) {}
};

template <class TYPE>
auto in (SV* arg) -> decltype(Typemap<TYPE>::in(arg)) {
    return Typemap<TYPE>::in(arg);
}

template <class TYPEMAP = typemap::DefaultType, class TYPE, typename TM = std::conditional_t<std::is_same<TYPEMAP, typemap::DefaultType>::value, std::decay_t<TYPE>, TYPEMAP>>
Sv out (TYPE&& var, const Sv& proto = Sv()) {
    return Typemap<TM>::out(std::forward<TYPE>(var), proto);
}

}