diff options
Diffstat (limited to 'xs/src/Point.cpp')
-rw-r--r-- | xs/src/Point.cpp | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/xs/src/Point.cpp b/xs/src/Point.cpp new file mode 100644 index 000000000..a4c905eae --- /dev/null +++ b/xs/src/Point.cpp @@ -0,0 +1,14 @@ +#include "myinit.h" +#include "Point.hpp" + +Point::Point(unsigned long x, unsigned long y) {} +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); +} |