78
|
1 #define __environment _CbC_environment
|
|
2 #define __return _CbC_return
|
|
3
|
|
4 #include "stdio.h"
|
|
5
|
|
6 __code factorial(int n,int result,int orig,__code(*print)(),__code(*exit1)(), void *exit1env)
|
|
7 {
|
|
8 if (n<0) {
|
|
9 printf("#0008:err %d!\n",n);
|
|
10 goto (*exit1)(0,exit1env);
|
|
11 }
|
|
12 if (n==0)
|
|
13 goto (*print)(n,result,orig,print,exit1,exit1env);
|
|
14 else {
|
|
15 result *= n;
|
|
16 n--;
|
|
17 goto factorial(n,result,orig,print,exit1,exit1env);
|
|
18 }
|
|
19 }
|
|
20
|
|
21 __code print(int n,int result,int orig,__code(*print)(),__code (*exit1)(),void*exit1env);
|
|
22
|
|
23 int main( int ac, char *av[])
|
|
24 {
|
|
25 int n;
|
|
26 // n = atoi(av[1]);
|
|
27 n = 10;
|
|
28 goto factorial(n,1,n,print,__return,__environment);
|
|
29 }
|
|
30
|
|
31 __code print(int n,int result,int orig,__code(*print)(),__code (*exit1)(),void*exit1env)
|
|
32 {
|
|
33 printf("#0032:%d! = %d\n",orig, result);
|
|
34 goto (*exit1)(0,exit1env);
|
|
35 }
|
|
36
|