|
79
|
1
|
|
|
2
|
|
|
3 code (*conv)(int,code (*)());
|
|
|
4 code a2(int i,code conv());
|
|
|
5 code a3(int i,code conv());
|
|
|
6 code a4(int i,code conv());
|
|
|
7 code a5(int i,code conv());
|
|
|
8
|
|
|
9 code (*exit0)(int);
|
|
|
10 void *env;
|
|
|
11
|
|
|
12 code
|
|
|
13 a2(int i,code conv())
|
|
|
14 {
|
|
80
|
15 printf("a2 %d %x\n",i,conv);
|
|
79
|
16 goto conv(i+1,a4);
|
|
|
17 }
|
|
|
18
|
|
|
19 code
|
|
|
20 a3(int i,code (*conv)())
|
|
|
21 {
|
|
80
|
22 printf("a3 %d %x\n",i,conv);
|
|
79
|
23 goto conv(i+1,a5);
|
|
|
24 }
|
|
|
25
|
|
|
26 code
|
|
|
27 a4(int i,code conv())
|
|
|
28 {
|
|
80
|
29 printf("a4 %d %x\n",i,conv);
|
|
|
30 goto (*conv)(i+1,a6);
|
|
79
|
31 }
|
|
|
32
|
|
|
33 code
|
|
|
34 a5(int i,code (*conv)())
|
|
|
35 {
|
|
80
|
36 printf("a5 %d %x\n",i,conv);
|
|
|
37 goto (*conv)(i+1,i+2,i+3,a7);
|
|
|
38 }
|
|
|
39
|
|
|
40 code
|
|
|
41 a6(int i,int j,int k,code conv())
|
|
|
42 {
|
|
|
43 printf("a6 %d %x\n",i,conv);
|
|
|
44 goto conv(i+1,j,k,a8);
|
|
|
45 }
|
|
|
46
|
|
|
47 code
|
|
|
48 a7(int i,,int j,int k,code (*conv)())
|
|
|
49 {
|
|
|
50 printf("a7 %d %x\n",i,conv);
|
|
|
51 goto conv(i+1,j,k,a9);
|
|
|
52 }
|
|
|
53
|
|
|
54 code
|
|
|
55 a8(int i,int j,int k,code conv())
|
|
|
56 {
|
|
|
57 printf("a8 %d %x\n",i,conv);
|
|
|
58 goto (*conv)(i+1,j,k,exit0);
|
|
|
59 }
|
|
|
60
|
|
|
61 code
|
|
|
62 a9(int i,int j,int k,code (*conv)())
|
|
|
63 {
|
|
|
64 printf("a9 %d %x\n",i,conv);
|
|
79
|
65 goto (*conv)(i+1),env;
|
|
|
66 }
|
|
|
67
|
|
|
68 main(int ac,char *av[]) {
|
|
|
69 exit0 = return;
|
|
|
70 env = environment;
|
|
|
71 conv = a2;
|
|
|
72 goto conv(1,a3);
|
|
|
73 }
|
