Remove any Perl related code from libslic3r

This commit is contained in:
Alessandro Ranellucci
2015-12-08 00:39:54 +01:00
parent 3fac8cd77e
commit 4913e90e10
105 changed files with 907 additions and 1066 deletions

View File

@@ -1,7 +1,7 @@
%module{Slic3r::XS};
%{
#include <myinit.h>
#include <xsinit.h>
#include "libslic3r/BoundingBox.hpp"
#include "libslic3r/Polygon.hpp"
#include "libslic3r/BoundingBox.hpp"
@@ -12,9 +12,9 @@
Clone<Polygon> clone()
%code{% RETVAL = THIS; %};
SV* arrayref()
%code{% RETVAL = THIS->to_AV(); %};
%code{% RETVAL = to_AV(THIS); %};
SV* pp()
%code{% RETVAL = THIS->to_SV_pureperl(); %};
%code{% RETVAL = to_SV_pureperl(THIS); %};
void scale(double factor);
void translate(double x, double y);
void reverse();
@@ -51,7 +51,7 @@ Polygon::new(...)
// ST(0) is class name, ST(1) is first point
RETVAL->points.resize(items-1);
for (unsigned int i = 1; i < items; i++) {
RETVAL->points[i-1].from_SV_check( ST(i) );
from_SV_check(ST(i), &RETVAL->points[i-1]);
}
OUTPUT:
RETVAL
@@ -62,7 +62,7 @@ Polygon::rotate(angle, center_sv)
SV* center_sv;
CODE:
Point center;
center.from_SV_check(center_sv);
from_SV_check(center_sv, &center);
THIS->rotate(angle, center);
%}