daily update
[binutils.git] / binutils / sysinfo.y
bloba7077480bc4a2ccfc793a12de59acb774907f3fe
1 /* Copyright 2001, 2003, 2005 Free Software Foundation, Inc.
2 Written by Steve Chamberlain of Cygnus Support (steve@cygnus.com).
4 This file is part of GNU binutils.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
21 #include <stdio.h>
22 #include <stdlib.h>
24 static char writecode;
25 static char *it;
26 static int code;
27 static char * repeat;
28 static char *oldrepeat;
29 static char *name;
30 static int rdepth;
31 static char *names[] = {" ","[n]","[n][m]"};
32 static char *pnames[]= {"","*","**"};
34 static int yyerror (char *s);
35 extern int yylex (void);
39 %union {
40 int i;
41 char *s;
43 %token COND
44 %token REPEAT
45 %token '(' ')'
46 %token <s> TYPE
47 %token <s> NAME
48 %token <i> NUMBER UNIT
49 %type <i> attr_size
50 %type <s> attr_desc attr_id attr_type
53 top: {
54 switch (writecode)
56 case 'i':
57 printf("#ifdef SYSROFF_SWAP_IN\n");
58 break;
59 case 'p':
60 printf("#ifdef SYSROFF_p\n");
61 break;
62 case 'd':
63 break;
64 case 'g':
65 printf("#ifdef SYSROFF_SWAP_OUT\n");
66 break;
67 case 'c':
68 printf("#ifdef SYSROFF_PRINT\n");
69 printf("#include <stdio.h>\n");
70 printf("#include <stdlib.h>\n");
71 printf("#include <ansidecl.h>\n");
72 break;
75 it_list {
76 switch (writecode) {
77 case 'i':
78 case 'p':
79 case 'g':
80 case 'c':
81 printf("#endif\n");
82 break;
83 case 'd':
84 break;
91 it_list: it it_list
95 it:
96 '(' NAME NUMBER
98 it = $2; code = $3;
99 switch (writecode)
101 case 'd':
102 printf("\n\n\n#define IT_%s_CODE 0x%x\n", it,code);
103 printf("struct IT_%s;\n", it);
104 printf("extern void sysroff_swap_%s_in PARAMS ((struct IT_%s *));\n",
105 $2, it);
106 printf("extern void sysroff_swap_%s_out PARAMS ((FILE *, struct IT_%s *));\n",
107 $2, it);
108 printf("extern void sysroff_print_%s_out PARAMS ((struct IT_%s *));\n",
109 $2, it);
110 printf("struct IT_%s { \n", it);
111 break;
112 case 'i':
113 printf("void sysroff_swap_%s_in(ptr)\n",$2);
114 printf("struct IT_%s *ptr;\n", it);
115 printf("{\n");
116 printf("unsigned char raw[255];\n");
117 printf("\tint idx = 0 ;\n");
118 printf("\tint size;\n");
119 printf("memset(raw,0,255);\n");
120 printf("memset(ptr,0,sizeof(*ptr));\n");
121 printf("size = fillup(raw);\n");
122 break;
123 case 'g':
124 printf("void sysroff_swap_%s_out(file,ptr)\n",$2);
125 printf("FILE * file;\n");
126 printf("struct IT_%s *ptr;\n", it);
127 printf("{\n");
128 printf("\tunsigned char raw[255];\n");
129 printf("\tint idx = 16 ;\n");
130 printf("\tmemset (raw, 0, 255);\n");
131 printf("\tcode = IT_%s_CODE;\n", it);
132 break;
133 case 'o':
134 printf("void sysroff_swap_%s_out(abfd,ptr)\n",$2);
135 printf("bfd * abfd;\n");
136 printf("struct IT_%s *ptr;\n",it);
137 printf("{\n");
138 printf("int idx = 0 ;\n");
139 break;
140 case 'c':
141 printf("void sysroff_print_%s_out(ptr)\n",$2);
142 printf("struct IT_%s *ptr;\n", it);
143 printf("{\n");
144 printf("itheader(\"%s\", IT_%s_CODE);\n",$2,$2);
145 break;
147 case 't':
148 break;
152 it_field_list
155 switch (writecode) {
156 case 'd':
157 printf("};\n");
158 break;
159 case 'g':
160 printf("\tchecksum(file,raw, idx, IT_%s_CODE);\n", it);
162 case 'i':
164 case 'o':
165 case 'c':
166 printf("}\n");
173 it_field_list:
174 it_field it_field_list
175 | cond_it_field it_field_list
176 | repeat_it_field it_field_list
180 repeat_it_field: '(' REPEAT NAME
182 rdepth++;
183 switch (writecode)
185 case 'c':
186 if (rdepth==1)
187 printf("\tprintf(\"repeat %%d\\n\", %s);\n",$3);
188 if (rdepth==2)
189 printf("\tprintf(\"repeat %%d\\n\", %s[n]);\n",$3);
190 case 'i':
191 case 'g':
192 case 'o':
194 if (rdepth==1)
196 printf("\t{ int n; for (n = 0; n < %s; n++) {\n", $3);
198 if (rdepth == 2) {
199 printf("\t{ int m; for (m = 0; m < %s[n]; m++) {\n", $3);
202 break;
205 oldrepeat = repeat;
206 repeat = $3;
209 it_field_list ')'
212 repeat = oldrepeat;
213 oldrepeat =0;
214 rdepth--;
215 switch (writecode)
217 case 'i':
218 case 'g':
219 case 'o':
220 case 'c':
221 printf("\t}}\n");
227 cond_it_field: '(' COND NAME
229 switch (writecode)
231 case 'i':
232 case 'g':
233 case 'o':
234 case 'c':
235 printf("\tif (%s) {\n", $3);
236 break;
240 it_field_list ')'
242 switch (writecode)
244 case 'i':
245 case 'g':
246 case 'o':
247 case 'c':
248 printf("\t}\n");
253 it_field:
254 '(' attr_desc '(' attr_type attr_size ')' attr_id
255 {name = $7; }
256 enums ')'
258 char *desc = $2;
259 char *type = $4;
260 int size = $5;
261 char *id = $7;
262 char *p = names[rdepth];
263 char *ptr = pnames[rdepth];
264 switch (writecode)
266 case 'g':
267 if (size % 8)
270 printf("\twriteBITS(ptr->%s%s,raw,&idx,%d);\n",
272 names[rdepth], size);
275 else {
276 printf("\twrite%s(ptr->%s%s,raw,&idx,%d,file);\n",
277 type,
279 names[rdepth],size/8);
281 break;
282 case 'i':
285 if (rdepth >= 1)
288 printf("if (!ptr->%s) ptr->%s = (%s*)xcalloc(%s, sizeof(ptr->%s[0]));\n",
289 id,
291 type,
292 repeat,
293 id);
296 if (rdepth == 2)
298 printf("if (!ptr->%s[n]) ptr->%s[n] = (%s**)xcalloc(%s[n], sizeof(ptr->%s[n][0]));\n",
299 id,
301 type,
302 repeat,
303 id);
308 if (size % 8)
310 printf("\tptr->%s%s = getBITS(raw,&idx, %d,size);\n",
312 names[rdepth],
313 size);
315 else {
316 printf("\tptr->%s%s = get%s(raw,&idx, %d,size);\n",
318 names[rdepth],
319 type,
320 size/8);
322 break;
323 case 'o':
324 printf("\tput%s(raw,%d,%d,&idx,ptr->%s%s);\n", type,size/8,size%8,id,names[rdepth]);
325 break;
326 case 'd':
327 if (repeat)
328 printf("\t/* repeat %s */\n", repeat);
330 if (type[0] == 'I') {
331 printf("\tint %s%s; \t/* %s */\n",ptr,id, desc);
333 else if (type[0] =='C') {
334 printf("\tchar %s*%s;\t /* %s */\n",ptr,id, desc);
336 else {
337 printf("\tbarray %s%s;\t /* %s */\n",ptr,id, desc);
339 break;
340 case 'c':
341 printf("tabout();\n");
342 printf("\tprintf(\"/*%-30s*/ ptr->%s = \");\n", desc, id);
344 if (type[0] == 'I')
345 printf("\tprintf(\"%%d\\n\",ptr->%s%s);\n", id,p);
346 else if (type[0] == 'C')
347 printf("\tprintf(\"%%s\\n\",ptr->%s%s);\n", id,p);
349 else if (type[0] == 'B')
351 printf("\tpbarray(&ptr->%s%s);\n", id,p);
353 else abort();
354 break;
361 attr_type:
362 TYPE { $$ = $1; }
363 | { $$ = "INT";}
366 attr_desc:
367 '(' NAME ')'
368 { $$ = $2; }
371 attr_size:
372 NUMBER UNIT
373 { $$ = $1 * $2; }
377 attr_id:
378 '(' NAME ')' { $$ = $2; }
379 | { $$ = "dummy";}
382 enums:
383 | '(' enum_list ')' ;
385 enum_list:
387 enum_list '(' NAME NAME ')' {
388 switch (writecode)
390 case 'd':
391 printf("#define %s %s\n", $3,$4);
392 break;
393 case 'c':
394 printf("if (ptr->%s%s == %s) { tabout(); printf(\"%s\\n\");}\n", name, names[rdepth],$4,$3);
403 /* four modes
405 -d write structure definitions for sysroff in host format
406 -i write functions to swap into sysroff format in
407 -o write functions to swap into sysroff format out
408 -c write code to print info in human form */
410 int yydebug;
412 int
413 main (int ac, char **av)
415 yydebug=0;
416 if (ac > 1)
417 writecode = av[1][1];
418 if (writecode == 'd')
420 printf("typedef struct { unsigned char *data; int len; } barray; \n");
421 printf("typedef int INT;\n");
422 printf("typedef char * CHARS;\n");
425 yyparse();
426 return 0;
429 static int
430 yyerror (char *s)
432 fprintf(stderr, "%s\n" , s);
433 return 0;