8c74fa0f46
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2008-maciekd@11187 626c5289-ae23-0410-ae9c-e8d60b6d4f22
15 lines
336 B
OpenEdge ABL
15 lines
336 B
OpenEdge ABL
/* File : example.i */
|
|
%module example
|
|
%{
|
|
#include "example.h"
|
|
%}
|
|
|
|
/* Wrap a function taking a pointer to a function */
|
|
extern int do_op(int a, int b, int (*op)(int, int));
|
|
|
|
/* Now install a bunch of "ops" as constants */
|
|
%constant int (*ADD)(int,int) = add;
|
|
%constant int (*SUB)(int,int) = sub;
|
|
%constant int (*MUL)(int,int) = mul;
|
|
|
|
|