/trunk/Examples/ocaml/argout_ref/example.c

 1/* File : example.c */
 2
 3/* Compute the greatest common divisor of positive integers */
 4int gcd(int x, int y) {
 5  int g;
 6  g = y;
 7  while (x > 0) {
 8    g = x;
 9    x = y % x;
10    y = g;
11  }
12  return g;
13}
14
15extern "C" void factor( int &x, int &y ) {
16    int gcd_xy = gcd( x,y );
17    x /= gcd_xy;
18    y /= gcd_xy;
19}