Mercurial > hg > CbC > CbC_examples
view fact-a.c @ 8:37a10fd62ea9
add programs for prototype generation checking
author | Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> |
---|---|
date | Sat, 21 Feb 2015 21:19:46 +0900 |
parents | 35d6eabeadb0 |
children | 0d306982c8b9 |
line wrap: on
line source
#ifdef GCC #define __environment _CbC_environment #define __return _CbC_return #endif #include "stdio.h" __code factorial(int n,int result,int orig,__code(*print)(),__code(*exit1)(), void *exit1env); __code print(int n,int result,int orig,__code(*print)(),__code (*exit1)(),void*exit1env); __code factorial(int n,int result,int orig,__code(*print)(int,int,int,__code(*)(),__code(*)(),void*),__code(*exit1)(int,void *), void *exit1env) { if (n<0) { printf("#0008:err %d!\n",n); goto (*exit1)(0,exit1env); } if (n==0) goto (*print)(n,result,orig,print,exit1,exit1env); else { result *= n; n--; goto factorial(n,result,orig,print,exit1,exit1env); } } int main( int ac, char *av[]) { int n; n = 10; goto factorial(n,1,n,print,__return,__environment); } __code print(int n,int result,int orig,__code(*print)(),__code (*exit1)(int, void*),void*exit1env) { printf("#0032:%d! = %d\n",orig, result); goto (*exit1)(0,exit1env); }