Mercurial > hg > CbC > CbC_gcc

comparison CbC-examples/fact-a.c @ 78:365b84b6fe04

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
more examples
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Tue, 20 Sep 2011 17:32:20 +0900
parents
children
comparison
equal deleted inserted replaced
77:65b2ea5f1266 78:365b84b6fe04
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