54 |
|
|
55 |
#define SET_TO_APPLY(res,f,n,x) \ |
#define SET_TO_APPLY(res,f,n,x) \ |
56 |
switch(n) {\ |
switch(n) {\ |
57 |
case 0: res=((f))(); break;\ |
case 0: res=(object)((int (*)())(f))(); break;\ |
58 |
case 1: res=((f))(x[0]); break; \ |
case 1: res=(object)((int (*)())(f))(x[0]); break; \ |
59 |
case 2: res=((f))(x[0],x[1]);break; \ |
case 2: res=(object)((int (*)())(f))(x[0],x[1]);break; \ |
60 |
case 3: res=((f))(x[0],x[1],x[2]);break; \ |
case 3: res=(object)((int (*)())(f))(x[0],x[1],x[2]);break; \ |
61 |
case 4: res=((f))(x[0],x[1],x[2],x[3]);break; \ |
case 4: res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3]);break; \ |
62 |
case 5: res=((f))(x[0],x[1],x[2],x[3],x[4]);break; \ |
case 5: res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3],x[4]);break; \ |
63 |
case 6: res=((f))(x[0],x[1],x[2],x[3],x[4],x[5]); break;\ |
case 6: res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3],x[4],x[5]); break;\ |
64 |
case 7: res=((f))(x[0],x[1],x[2],x[3],x[4],x[5], x[6]); break;\ |
case 7: res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3],x[4],x[5], x[6]); break;\ |
65 |
case 8: res=((f))(x[0],x[1],x[2],x[3],x[4],x[5], x[6],x[7]); break;\ |
case 8: res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3],x[4],x[5], x[6],x[7]); break;\ |
66 |
case 9: res=((f))(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],x[8]);break;\ |
case 9: res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],x[8]);break;\ |
67 |
case 10: res=((f))(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],x[8],x[9]);break;\ |
case 10: res=(object)((int (*)())(f))(x[0],x[1],x[2],x[3],x[4],x[5],x[6],x[7],x[8],x[9]);break;\ |
68 |
default: res=c_apply_n(f,n,x); break;} |
default: res=c_apply_n(f,n,x); break;} |
69 |
|
|
70 |
/* |
/* |