swig/Examples/ocaml/contract/example.i
Art Yerkes 2e96036cdb Added contract example.
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5375 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2003-11-23 12:55:53 +00:00

18 lines
No EOL
259 B
OpenEdge ABL

%module example
%{
#include <math.h>
%}
/* File : example.i */
%module example
%contract cos(double d) {
require:
d >= -3.14159265358979323845254338327950;
d < 3.14159265358979323846264338327950;
ensure:
cos >= -1.0;
cos <= 1.0;
}
double cos(double d);