penelope

#if defined(SWIGPERL)
%module(directors="1") CRFSuite
#else
%module(directors="1") crfsuite
#endif

%{
#include "crfsuite_api.hpp"
%}

%include "std_string.i"
%include "std_vector.i"
%include "exception.i"

#ifdef SWIGPERL
// PERL5 Scalar value -> STL std::string
%typemap(in) const std::string& ($basetype temp) {
    STRLEN len;
    char *s = SvPV($input, len);
    temp.assign(s, len);
    $1 = &temp;
}
%typemap(freearg) const std::string& ""
#endif

%feature("director") Trainer;

%exception {
    try {
        $action
    } catch(const std::invalid_argument& e) {
        SWIG_exception(SWIG_IOError, e.what());
    } catch(const std::runtime_error& e) {
        SWIG_exception(SWIG_RuntimeError, e.what());
    } catch (const std::exception& e) {
        SWIG_exception(SWIG_RuntimeError, e.what());
    } catch(...) {
        SWIG_exception(SWIG_RuntimeError,"Unknown exception");
    }
}

%include "crfsuite_api.hpp"

%template(Item) std::vector<CRFSuite::Attribute>;
%template(ItemSequence) std::vector<CRFSuite::Item>;
%template(StringList) std::vector<std::string>;