ed84d6b162
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/branches/gsoc2009-sploving@11288 626c5289-ae23-0410-ae9c-e8d60b6d4f22
21 lines
258 B
OpenEdge ABL
21 lines
258 B
OpenEdge ABL
/* File : example.i */
|
|
%module example
|
|
|
|
%contract gcd(int x, int y) {
|
|
require:
|
|
x >= 0;
|
|
y >= 0;
|
|
}
|
|
|
|
%contract fact(int n) {
|
|
require:
|
|
n >= 0;
|
|
ensure:
|
|
fact >= 1;
|
|
}
|
|
|
|
%inline %{
|
|
extern int gcd(int x, int y);
|
|
extern int fact(int n);
|
|
extern double Foo;
|
|
%}
|