xs/xsp/Point.xsp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33

%module{Slic3r::XS};

%{
#include <myinit.h>
#include "Point.hpp"
%}

%name{Slic3r::Point::XS} class Point {
    Point(unsigned long _x = 0, unsigned long _y = 0);
%{

SV*
Point::_toPerl()
    CODE:
        RETVAL = point2perl(*THIS);
    OUTPUT:
        RETVAL

%}
};

%package{Slic3r::Point::XS};

%{
PROTOTYPES: DISABLE

std::string
hello_world()
  CODE:
    RETVAL = "Hello world!";
  OUTPUT:
    RETVAL
%}