Mercurial > hg > CbC > old > examples

comparison deep-nested-struct.c @ 0:e59ebf6fe2b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author kinjo
date Sat, 26 Nov 2005 11:36:16 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:e59ebf6fe2b0
1 // to test a deep-nested struct
2 // this example tests a 2 nested struct
3 #define NULL ((void*)0)
4 struct nest1{
5 int i;
6 int j;
7 char k;
8 };
9 struct nest0{
10 int huga;
11 long hoge;
12 float aho;
13 struct nest1 n1;
14 };
15 struct nest{
16 char *str;
17 char *p;
18 void *env;
19 code (*ret)(int);
20 struct nest0 n0;
21 };
22 code
23 dmpn2(code(*ret)(int), void *env)
24 {
25 goto ret(0), env;
26 }
27 code
28 dmpn1(struct nest1 *test1, code(*ret)(int), void *env)
29 {
30 printf("dmpn1: %d %d %d\n",
31 test1->i,
32 test1->j,
33 test1->k);
34 goto dmpn2(ret,env);
35 }
36 code
37 dmpn0(struct nest0 *test0, code(*ret)(), void *env)
38 {
39 printf("dmpn0: %d %ld %f\n",
40 test0->huga,
41 test0->hoge,
42 test0->aho);
43 goto dmpn1(&(test0->n1), ret, env);
44 }
45 code
46 dmpn(struct nest *test)
47 {
48 printf("dmpn: %x %x\n", test->str, test->p);
49 goto dmpn0(&(test->n0), test->ret, test->env);
50 }
51 void
52 dmp(struct nest *n)
53 {
54 n->ret=return;
55 n->env=environment;
56 goto dmpn(n);
57 }
58 int
59 main()
60 {
61 struct nest test;
62 test.str=NULL;
63 test.p=NULL;
64 test.n0.huga=1;
65 test.n0.hoge=2;
66 test.n0.aho=3.0;
67 test.n0.n1.i=10;
68 test.n0.n1.j=20;
69 test.n0.n1.k=30;
70 // dmp(&test);
71 return(0);
72 }