swig/Examples/tcl/contract/example.c
Dave Beazley 8ed7e36a20 new example
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk/SWIG@5268 626c5289-ae23-0410-ae9c-e8d60b6d4f22
2003-11-05 21:38:02 +00:00

23 lines
314 B
C

/* File : example.c */
/* A global variable */
double Foo = 3.0;
/* Compute the greatest common divisor of positive integers */
int gcd(int x, int y) {
int g;
g = y;
while (x > 0) {
g = x;
x = y % x;
y = g;
}
return g;
}
int fact(int n) {
if (n <= 0) return 1;
return n*fact(n-1);
}