summaryrefslogtreecommitdiff
path: root/Examples/perl5/extend/example.i
blob: f5e142b88013280223e934f591693f1aeb1c77bd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
/* File : example.i */
%module(directors="1") example
%{
#include "example.h"
%}

%include "std_vector.i"
%include "std_string.i"

/* turn on director wrapping for Manager */
%feature("director") Employee;
%feature("director") Manager;

/* EmployeeList::addEmployee(Employee *p) gives ownership of the
 * employee to the EmployeeList object.  The wrapper code should
 * understand this. */
%apply SWIGTYPE *DISOWN { Employee *p };

%include "example.h"