Files
cpp-thirdparty/winx64/bin/swigwin-4.0.0/Examples/perl5/callback/example.i
2019-08-04 21:38:19 -05:00

16 lines
354 B
OpenEdge ABL

/* 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"