import source from 1.3.40
[external/swig.git] / Examples / lua / simple / example.c
1 /* File : example.c */
2
3 /* A global variable */
4 double Foo = 3.0;
5
6 /* Compute the greatest common divisor of positive integers */
7 int gcd(int x, int y) {
8   int g;
9   g = y;
10   while (x > 0) {
11     g = x;
12     x = y % x;
13     y = g;
14   }
15   return g;
16 }
17
18