a627614b58
Perl binding was slimmed down, namely Clipper is no more linked by Perl.
39 lines
495 B
Plaintext
39 lines
495 B
Plaintext
%module{Slic3r::XS};
|
|
%package{Slic3r::XS};
|
|
|
|
#include <xsinit.h>
|
|
#include "Utils.hpp"
|
|
|
|
%{
|
|
|
|
%}
|
|
|
|
%package{Slic3r};
|
|
%{
|
|
|
|
SV*
|
|
VERSION()
|
|
CODE:
|
|
RETVAL = newSVpv(SLIC3R_VERSION, 0);
|
|
OUTPUT: RETVAL
|
|
|
|
SV*
|
|
BUILD()
|
|
CODE:
|
|
RETVAL = newSVpv(SLIC3R_BUILD_ID, 0);
|
|
OUTPUT: RETVAL
|
|
|
|
SV*
|
|
FORK_NAME()
|
|
CODE:
|
|
RETVAL = newSVpv(SLIC3R_APP_NAME, 0);
|
|
OUTPUT: RETVAL
|
|
|
|
void
|
|
set_logging_level(level)
|
|
unsigned int level;
|
|
CODE:
|
|
Slic3r::set_logging_level(level);
|
|
|
|
%}
|