swig/Examples/test-suite/aggregate.i
Dave Beazley c27b0572ec *** empty log message ***
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5319 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2003-11-13 17:02:30 +00:00

37 lines
960 B
OpenEdge ABL

/* This file tests a few new contract features.
First it checks to make sure the constant aggregation macro
%aggregate_check() works. This is defined in swig.swg.
Next, it checks to make sure a simple contract works.
To support contracts, you need to add a macro to the runtime.
For Python, it looks like this:
#define SWIG_contract_assert(expr, msg) if (!(expr)) { PyErr_SetString(PyExc_RuntimeError, (char *) msg #expr ); goto fail; } else
Note: It is used like this:
SWIG_contract_assert(x == 1, "Some kind of error message");
Note: Contracts are still experimental. The runtime interface may
change in future versions.
*/
%module aggregate
%include "exception.i"
%aggregate_check(int, check_direction, UP, DOWN, LEFT, RIGHT)
%contract move(int x) {
require:
check_direction(x);
}
%inline %{
#define UP 1
#define DOWN 2
#define LEFT 3
#define RIGHT 4
int move(int direction) {
return direction;
}
%}