Remove Point.cpp

This commit is contained in:
Alessandro Ranellucci 2013-07-06 16:39:22 +02:00
parent 5a11d4df89
commit 4093280566
5 changed files with 19 additions and 20 deletions

View file

@ -20,9 +20,7 @@ src/admesh/util.c
src/admesh/util.o
src/ExPolygon.hpp
src/myinit.h
src/Point.cpp
src/Point.hpp
src/Point.o
src/ppport.h
src/TriangleMesh.cpp
src/TriangleMesh.hpp

View file

@ -44,7 +44,7 @@ polygon2perl(Polygon& poly) {
AV* av = newAV();
av_extend(av, num_points-1);
for (unsigned int i = 0; i < num_points; i++) {
av_store(av, i, poly[i]._toPerl());
av_store(av, i, point2perl(poly[i]));
}
return (SV*)newRV_noinc((SV*)av);
}

View file

@ -1,13 +0,0 @@
#include "myinit.h"
#include "Point.hpp"
Point::~Point() {}
SV*
Point::_toPerl() {
AV* av = newAV();
av_fill(av, 1);
av_store_point_xy(av, x, y);
return (SV*)newRV_noinc((SV*)av);
}

View file

@ -14,8 +14,14 @@ class Point
unsigned long x;
unsigned long y;
Point(unsigned long _x = 0, unsigned long _y = 0): x(_x), y(_y) {};
~Point();
SV* _toPerl();
};
SV*
point2perl(Point& point) {
AV* av = newAV();
av_fill(av, 1);
av_store_point_xy(av, point.x, point.y);
return (SV*)newRV_noinc((SV*)av);
}
#endif

View file

@ -7,8 +7,16 @@
%name{Slic3r::Point::XS} class Point {
Point(unsigned long _x = 0, unsigned long _y = 0);
~Point();
SV* _toPerl();
%{
SV*
Point::_toPerl()
CODE:
RETVAL = point2perl(*THIS);
OUTPUT:
RETVAL
%}
};
%package{Slic3r::Point::XS};