gas/
[binutils.git] / binutils / sysinfo.y
blob1e6f75bc8c9a15296f4ed81dd804562ee2d35f4b
1 /* Copyright 2001, 2003, 2005, 2007 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 3 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,
19 MA 02110-1301, USA. */
22 #include <stdio.h>
23 #include <stdlib.h>
25 static char writecode;
26 static char *it;
27 static int code;
28 static char * repeat;
29 static char *oldrepeat;
30 static char *name;
31 static int rdepth;
32 static char *names[] = {" ","[n]","[n][m]"};
33 static char *pnames[]= {"","*","**"};
35 static int yyerror (char *s);
36 extern int yylex (void);
40 %union {
41 int i;
42 char *s;
44 %token COND
45 %token REPEAT
46 %token '(' ')'
47 %token <s> TYPE
48 %token <s> NAME
49 %token <i> NUMBER UNIT
50 %type <i> attr_size
51 %type <s> attr_desc attr_id attr_type
54 top: {
55 switch (writecode)
57 case 'i':
58 printf("#ifdef SYSROFF_SWAP_IN\n");
59 break;
60 case 'p':
61 printf("#ifdef SYSROFF_p\n");
62 break;
63 case 'd':
64 break;
65 case 'g':
66 printf("#ifdef SYSROFF_SWAP_OUT\n");
67 break;
68 case 'c':
69 printf("#ifdef SYSROFF_PRINT\n");
70 printf("#include <stdio.h>\n");
71 printf("#include <stdlib.h>\n");
72 printf("#include <ansidecl.h>\n");
73 break;
76 it_list {
77 switch (writecode) {
78 case 'i':
79 case 'p':
80 case 'g':
81 case 'c':
82 printf("#endif\n");
83 break;
84 case 'd':
85 break;
92 it_list: it it_list
96 it:
97 '(' NAME NUMBER
99 it = $2; code = $3;
100 switch (writecode)
102 case 'd':
103 printf("\n\n\n#define IT_%s_CODE 0x%x\n", it,code);
104 printf("struct IT_%s;\n", it);
105 printf("extern void sysroff_swap_%s_in PARAMS ((struct IT_%s *));\n",
106 $2, it);
107 printf("extern void sysroff_swap_%s_out PARAMS ((FILE *, struct IT_%s *));\n",
108 $2, it);
109 printf("extern void sysroff_print_%s_out PARAMS ((struct IT_%s *));\n",
110 $2, it);
111 printf("struct IT_%s { \n", it);
112 break;
113 case 'i':
114 printf("void sysroff_swap_%s_in(ptr)\n",$2);
115 printf("struct IT_%s *ptr;\n", it);
116 printf("{\n");
117 printf("unsigned char raw[255];\n");
118 printf("\tint idx = 0 ;\n");
119 printf("\tint size;\n");
120 printf("memset(raw,0,255);\n");
121 printf("memset(ptr,0,sizeof(*ptr));\n");
122 printf("size = fillup(raw);\n");
123 break;
124 case 'g':
125 printf("void sysroff_swap_%s_out(file,ptr)\n",$2);
126 printf("FILE * file;\n");
127 printf("struct IT_%s *ptr;\n", it);
128 printf("{\n");
129 printf("\tunsigned char raw[255];\n");
130 printf("\tint idx = 16 ;\n");
131 printf("\tmemset (raw, 0, 255);\n");
132 printf("\tcode = IT_%s_CODE;\n", it);
133 break;
134 case 'o':
135 printf("void sysroff_swap_%s_out(abfd,ptr)\n",$2);
136 printf("bfd * abfd;\n");
137 printf("struct IT_%s *ptr;\n",it);
138 printf("{\n");
139 printf("int idx = 0 ;\n");
140 break;
141 case 'c':
142 printf("void sysroff_print_%s_out(ptr)\n",$2);
143 printf("struct IT_%s *ptr;\n", it);
144 printf("{\n");
145 printf("itheader(\"%s\", IT_%s_CODE);\n",$2,$2);
146 break;
148 case 't':
149 break;
153 it_field_list
156 switch (writecode) {
157 case 'd':
158 printf("};\n");
159 break;
160 case 'g':
161 printf("\tchecksum(file,raw, idx, IT_%s_CODE);\n", it);
163 case 'i':
165 case 'o':
166 case 'c':
167 printf("}\n");
174 it_field_list:
175 it_field it_field_list
176 | cond_it_field it_field_list
177 | repeat_it_field it_field_list
181 repeat_it_field: '(' REPEAT NAME
183 rdepth++;
184 switch (writecode)
186 case 'c':
187 if (rdepth==1)
188 printf("\tprintf(\"repeat %%d\\n\", %s);\n",$3);
189 if (rdepth==2)
190 printf("\tprintf(\"repeat %%d\\n\", %s[n]);\n",$3);
191 case 'i':
192 case 'g':
193 case 'o':
195 if (rdepth==1)
197 printf("\t{ int n; for (n = 0; n < %s; n++) {\n", $3);
199 if (rdepth == 2) {
200 printf("\t{ int m; for (m = 0; m < %s[n]; m++) {\n", $3);
203 break;
206 oldrepeat = repeat;
207 repeat = $3;
210 it_field_list ')'
213 repeat = oldrepeat;
214 oldrepeat =0;
215 rdepth--;
216 switch (writecode)
218 case 'i':
219 case 'g':
220 case 'o':
221 case 'c':
222 printf("\t}}\n");
228 cond_it_field: '(' COND NAME
230 switch (writecode)
232 case 'i':
233 case 'g':
234 case 'o':
235 case 'c':
236 printf("\tif (%s) {\n", $3);
237 break;
241 it_field_list ')'
243 switch (writecode)
245 case 'i':
246 case 'g':
247 case 'o':
248 case 'c':
249 printf("\t}\n");
254 it_field:
255 '(' attr_desc '(' attr_type attr_size ')' attr_id
256 {name = $7; }
257 enums ')'
259 char *desc = $2;
260 char *type = $4;
261 int size = $5;
262 char *id = $7;
263 char *p = names[rdepth];
264 char *ptr = pnames[rdepth];
265 switch (writecode)
267 case 'g':
268 if (size % 8)
271 printf("\twriteBITS(ptr->%s%s,raw,&idx,%d);\n",
273 names[rdepth], size);
276 else {
277 printf("\twrite%s(ptr->%s%s,raw,&idx,%d,file);\n",
278 type,
280 names[rdepth],size/8);
282 break;
283 case 'i':
286 if (rdepth >= 1)
289 printf("if (!ptr->%s) ptr->%s = (%s*)xcalloc(%s, sizeof(ptr->%s[0]));\n",
290 id,
292 type,
293 repeat,
294 id);
297 if (rdepth == 2)
299 printf("if (!ptr->%s[n]) ptr->%s[n] = (%s**)xcalloc(%s[n], sizeof(ptr->%s[n][0]));\n",
300 id,
302 type,
303 repeat,
304 id);
309 if (size % 8)
311 printf("\tptr->%s%s = getBITS(raw,&idx, %d,size);\n",
313 names[rdepth],
314 size);
316 else {
317 printf("\tptr->%s%s = get%s(raw,&idx, %d,size);\n",
319 names[rdepth],
320 type,
321 size/8);
323 break;
324 case 'o':
325 printf("\tput%s(raw,%d,%d,&idx,ptr->%s%s);\n", type,size/8,size%8,id,names[rdepth]);
326 break;
327 case 'd':
328 if (repeat)
329 printf("\t/* repeat %s */\n", repeat);
331 if (type[0] == 'I') {
332 printf("\tint %s%s; \t/* %s */\n",ptr,id, desc);
334 else if (type[0] =='C') {
335 printf("\tchar %s*%s;\t /* %s */\n",ptr,id, desc);
337 else {
338 printf("\tbarray %s%s;\t /* %s */\n",ptr,id, desc);
340 break;
341 case 'c':
342 printf("tabout();\n");
343 printf("\tprintf(\"/*%-30s*/ ptr->%s = \");\n", desc, id);
345 if (type[0] == 'I')
346 printf("\tprintf(\"%%d\\n\",ptr->%s%s);\n", id,p);
347 else if (type[0] == 'C')
348 printf("\tprintf(\"%%s\\n\",ptr->%s%s);\n", id,p);
350 else if (type[0] == 'B')
352 printf("\tpbarray(&ptr->%s%s);\n", id,p);
354 else abort();
355 break;
362 attr_type:
363 TYPE { $$ = $1; }
364 | { $$ = "INT";}
367 attr_desc:
368 '(' NAME ')'
369 { $$ = $2; }
372 attr_size:
373 NUMBER UNIT
374 { $$ = $1 * $2; }
378 attr_id:
379 '(' NAME ')' { $$ = $2; }
380 | { $$ = "dummy";}
383 enums:
384 | '(' enum_list ')' ;
386 enum_list:
388 enum_list '(' NAME NAME ')' {
389 switch (writecode)
391 case 'd':
392 printf("#define %s %s\n", $3,$4);
393 break;
394 case 'c':
395 printf("if (ptr->%s%s == %s) { tabout(); printf(\"%s\\n\");}\n", name, names[rdepth],$4,$3);
404 /* four modes
406 -d write structure definitions for sysroff in host format
407 -i write functions to swap into sysroff format in
408 -o write functions to swap into sysroff format out
409 -c write code to print info in human form */
411 int yydebug;
413 int
414 main (int ac, char **av)
416 yydebug=0;
417 if (ac > 1)
418 writecode = av[1][1];
419 if (writecode == 'd')
421 printf("typedef struct { unsigned char *data; int len; } barray; \n");
422 printf("typedef int INT;\n");
423 printf("typedef char * CHARS;\n");
426 yyparse();
427 return 0;
430 static int
431 yyerror (char *s)
433 fprintf(stderr, "%s\n" , s);
434 return 0;