trunk/Examples/guile/multivalue/example.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

void divide_l(int a, int b, int *quotient_p, int *remainder_p)
{
  *quotient_p = a/b;
  *remainder_p = a%b;
}

void divide_v(int a, int b, int *quotient_p, int *remainder_p)
{
  *quotient_p = a/b;
  *remainder_p = a%b;
}

void divide_mv(int a, int b, int *quotient_p, int *remainder_p)
{
  *quotient_p = a/b;
  *remainder_p = a%b;
}