33 void forth_do_sou(struct tdesc *tdp, struct node *np);
34 void forth_do_enum(struct tdesc *tdp, struct node *np);
35 void forth_do_intrinsic(struct tdesc *tdp, struct node *np);
37 static void switch_on_type(struct mlist *mlp, struct tdesc *tdp,
40 static void print_intrinsic(struct mlist *mlp, struct tdesc *tdp,
42 static void print_forward(struct mlist *mlp, struct tdesc *tdp,
44 static void print_pointer(struct mlist *mlp, struct tdesc *tdp,
46 static void print_array(struct mlist *mlp, struct tdesc *tdp,
48 static void print_function(struct mlist *mlp, struct tdesc *tdp,
50 static void print_union(struct mlist *mlp, struct tdesc *tdp,
52 static void print_enum(struct mlist *mlp, struct tdesc *tdp,
54 static void print_forward(struct mlist *mlp, struct tdesc *tdp,
56 static void print_typeof(struct mlist *mlp, struct tdesc *tdp,
58 static void print_struct(struct mlist *mlp, struct tdesc *tdp,
60 static void print_volatile(struct mlist *mlp, struct tdesc *tdp,
64 forth_do_intrinsic(struct tdesc *tdp, struct node *np)  in forth_do_intrinsic()  argument
69 forth_do_sou(struct tdesc *tdp, struct node *np)  in forth_do_sou()  argument
77 	printf("h# %x constant %s-sz\n", tdp->size, np->name);  in forth_do_sou()
79 		tdp->size, np->name, np->name);  in forth_do_sou()
85 	for (mlp = tdp->data.members.back; mlp != NULL; mlp = mlp->prev) {  in forth_do_sou()
108 forth_do_enum(struct tdesc *tdp, struct node *np)  in forth_do_enum()  argument
114 	for (elp = tdp->data.emem; elp != NULL; elp = elp->next) {  in forth_do_enum()
122 switch_on_type(struct mlist *mlp, struct tdesc *tdp, char *format, int level)  in switch_on_type()  argument
124 	switch (tdp->type) {  in switch_on_type()
126 		print_intrinsic(mlp, tdp, format, level);  in switch_on_type()
129 		print_pointer(mlp, tdp, format, level);  in switch_on_type()
132 		print_array(mlp, tdp, format, level);  in switch_on_type()
135 		print_function(mlp, tdp, format, level);  in switch_on_type()
138 		print_union(mlp, tdp, format, level);  in switch_on_type()
141 		print_enum(mlp, tdp, format, level);  in switch_on_type()
144 		print_forward(mlp, tdp, format, level);  in switch_on_type()
147 		print_typeof(mlp, tdp, format, level);  in switch_on_type()
150 		print_struct(mlp, tdp, format, level);  in switch_on_type()
153 		print_volatile(mlp, tdp, format, level);  in switch_on_type()
163 print_forward(struct mlist *mlp, struct tdesc *tdp, char *format, int level)  in print_forward()  argument
170 print_typeof(struct mlist *mlp, struct tdesc *tdp, char *format, int level)  in print_typeof()  argument
172 	switch_on_type(mlp, tdp->data.tdesc, format, level);  in print_typeof()
176 print_volatile(struct mlist *mlp, struct tdesc *tdp, char *format, int level)  in print_volatile()  argument
178 	switch_on_type(mlp, tdp->data.tdesc, format, level);  in print_volatile()
182 print_intrinsic(struct mlist *mlp, struct tdesc *tdp, char *format, int level)  in print_intrinsic()  argument
187 		switch (tdp->size) {  in print_intrinsic()
214 		switch (tdp->size) {  in print_intrinsic()
236 print_pointer(struct mlist *mlp, struct tdesc *tdp, char *format, int level)  in print_pointer()  argument
240 		switch (tdp->size) {  in print_pointer()
261 print_array(struct mlist *mlp, struct tdesc *tdp, char *format, int level)  in print_array()  argument
263 	struct ardef *ap = tdp->data.ardef;  in print_array()
279 print_function(struct mlist *mlp, struct tdesc *tdp, char *format, int level)  in print_function()  argument
281 	fprintf(stderr, "function in struct %s\n", tdp->name);  in print_function()
286 print_struct(struct mlist *mlp, struct tdesc *tdp, char *format, int level)  in print_struct()  argument
298 print_union(struct mlist *mlp, struct tdesc *tdp, char *format, int level)  in print_union()  argument
310 print_enum(struct mlist *mlp, struct tdesc *tdp, char *format, int level)  in print_enum()  argument