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

/* turn on director wrapping Callback */
%feature("director") Callback;

/* Caller::setCallback(Callback *cb) gives ownership of the cb to the
 * Caller object.  The wrapper code should understand this. */
%apply SWIGTYPE *DISOWN { Callback *cb }; 

%include "example.h"