This commit was generated by cvs2svn to track changes on a CVS vendor
[external/binutils.git] / binutils / sysinfo.y
1 %{
2 extern char *word;
3 extern char writecode;
4 extern int number;
5 extern int unit;
6 char nice_name[1000];
7 char *it;
8 int sofar;
9 int width;
10 int code;
11 char * repeat;
12 char *oldrepeat;
13 char *name;
14 int rdepth;
15 char *loop [] = {"","n","m","/*BAD*/"};
16 char *names[] = {" ","[n]","[n][m]"};
17 char *pnames[]= {"","*","**"};
18 %}
19
20
21 %union {
22  int i;
23  char *s;
24
25 %token COND
26 %token REPEAT
27 %token '(' ')' '[' ']'
28 %token <s> TYPE
29 %token <s> NAME
30 %token <i> NUMBER UNIT
31 %type <i> attr_size 
32 %type <s> attr_desc attr_id attr_type
33 %%
34
35 top:  {
36   switch (writecode)
37     {
38     case 'i':
39       printf("#ifdef SYSROFF_SWAP_IN\n");
40       break; 
41     case 'p':
42       printf("#ifdef SYSROFF_p\n");
43       break; 
44     case 'd':
45       break;
46     case 'g':
47       printf("#ifdef SYSROFF_SWAP_OUT\n");
48       break;
49     case 'c':
50       printf("#ifdef SYSROFF_PRINT\n");
51       printf("#include <stdio.h>\n");
52       printf("#include <stdlib.h>\n");
53       break;
54     }
55  } 
56 it_list {
57   switch (writecode) {
58   case 'i':
59   case 'p':
60   case 'g':
61   case 'c':
62     printf("#endif\n");
63     break; 
64   case 'd':
65     break;
66   }
67 }
68
69   ;
70
71
72 it_list: it it_list
73   |
74   ;
75
76 it:
77         '(' NAME NUMBER 
78       {
79         it = $2; code = $3;
80         switch (writecode) 
81           {
82           case 'd':
83             printf("\n\n\n#define IT_%s_CODE 0x%x\n", it,code);
84             printf("struct IT_%s { \n", it);
85             break;
86           case 'i':
87             printf("void sysroff_swap_%s_in(ptr)\n",$2);
88             printf("struct IT_%s *ptr;\n", it);
89             printf("{\n");
90             printf("char raw[255];\n");
91             printf("\tint idx = 0 ;\n");
92             printf("\tint size;\n");
93             printf("memset(raw,0,255);\n");     
94             printf("memset(ptr,0,sizeof(*ptr));\n");
95             printf("size = fillup(raw);\n");
96             break;
97           case 'g':
98             printf("void sysroff_swap_%s_out(file,ptr,last)\n",$2);
99             printf("FILE * file;\n");
100             printf("struct IT_%s *ptr;\n", it);
101             printf("int last;\n");
102             printf("{\n");
103             printf("\tchar raw[255];\n");
104             printf("\tint idx = 16 ;\n");
105             printf("\tmemset (raw, 0, 255);\n");
106             printf("\tcode = IT_%s_CODE;\n", it);
107             break;
108           case 'o':
109             printf("void sysroff_swap_%s_out(abfd,ptr)\n",$2);
110             printf("bfd * abfd;\n");
111             printf("struct IT_%s *ptr;\n",it);
112             printf("{\n");
113             printf("int idx = 0 ;\n");
114             break;
115           case 'c':
116             printf("void sysroff_print_%s_out(ptr)\n",$2);
117             printf("struct IT_%s *ptr;\n", it);
118             printf("{\n");
119             printf("itheader(\"%s\", IT_%s_CODE);\n",$2,$2);
120             break;
121
122           case 't':
123             break;
124           }
125
126       } 
127         it_field_list 
128 ')'
129 {
130   switch (writecode) {
131   case 'd': 
132     printf("};\n");
133     break;
134   case 'g':
135     printf("\tchecksum(file,raw, idx, IT_%s_CODE, last);\n", it);
136     
137   case 'i':
138
139   case 'o':
140   case 'c':
141     printf("}\n");
142   }
143 }
144 ;
145
146
147
148 it_field_list:
149                 it_field it_field_list
150         |       cond_it_field it_field_list     
151         |       repeat_it_field it_field_list
152         |
153         ;
154
155 repeat_it_field: '(' REPEAT NAME
156         {
157           rdepth++;
158           switch (writecode) 
159             {
160             case 'c':
161               if (rdepth==1)
162               printf("\tprintf(\"repeat %%d\\n\", %s);\n",$3);
163               if (rdepth==2)
164               printf("\tprintf(\"repeat %%d\\n\", %s[n]);\n",$3);
165             case 'i':
166             case 'g':
167             case 'o':
168
169               if (rdepth==1) 
170                 {
171               printf("\t{ int n; for (n = 0; n < %s; n++) {\n",    $3);
172             }
173               if (rdepth == 2) {
174               printf("\t{ int m; for (m = 0; m < %s[n]; m++) {\n",    $3);
175             }           
176
177               break;
178             }
179
180           oldrepeat = repeat;
181          repeat = $3;
182         }
183
184          it_field_list ')' 
185
186         {
187           repeat = oldrepeat;
188           oldrepeat =0;
189           rdepth--;
190           switch (writecode)
191             {
192             case 'i':
193             case 'g':
194             case 'o':
195             case 'c':
196           printf("\t}}\n");
197         }
198         }
199        ;
200
201
202 cond_it_field: '(' COND NAME
203         {
204           switch (writecode) 
205             {
206             case 'i':
207             case 'g':
208             case 'o':
209             case 'c':
210               printf("\tif (%s) {\n", $3);
211               break;
212             }
213         }
214
215          it_field_list ')' 
216         {
217           switch (writecode)
218             {
219             case 'i':
220             case 'g':
221             case 'o':
222             case 'c':
223           printf("\t}\n");
224         }
225         }
226        ;
227
228 it_field:
229         '(' attr_desc '(' attr_type attr_size ')' attr_id 
230         {name = $7; } 
231         enums ')'
232         {
233           char *desc = $2;
234           char *type = $4;
235           int size = $5;
236           char *id = $7;
237 char *p = names[rdepth];
238 char *ptr = pnames[rdepth];
239           switch (writecode) 
240             {
241             case 'g':
242               if (size % 8) 
243                 {
244                   
245                   printf("\twriteBITS(ptr->%s%s,raw,&idx,%d);\n",
246                          id,
247                          names[rdepth], size);
248
249                 }
250               else {
251                 printf("\twrite%s(ptr->%s%s,raw,&idx,%d,file);\n",
252                        type,
253                        id,
254                        names[rdepth],size/8);
255                 }
256               break;          
257             case 'i':
258               {
259
260                 if (rdepth >= 1)
261
262                   {
263                     printf("if (!ptr->%s) ptr->%s = (%s*)xcalloc(%s, sizeof(ptr->%s[0]));\n", 
264                            id, 
265                            id,
266                            type,
267                            repeat,
268                            id);
269                   }
270
271                 if (rdepth == 2)
272                   {
273                     printf("if (!ptr->%s[n]) ptr->%s[n] = (%s**)calloc(%s[n], sizeof(ptr->%s[n][0]));\n", 
274                            id, 
275                            id,
276                            type,
277                            repeat,
278                            id);
279                   }
280
281               }
282
283               if (size % 8) 
284                 {
285                   printf("\tptr->%s%s = getBITS(raw,&idx, %d,size);\n",
286                          id,
287                          names[rdepth], 
288                          size);
289                 }
290               else {
291                 printf("\tptr->%s%s = get%s(raw,&idx, %d,size);\n",
292                        id,
293                        names[rdepth],
294                        type,
295                        size/8);
296                 }
297               break;
298             case 'o':
299               printf("\tput%s(raw,%d,%d,&idx,ptr->%s%s);\n", type,size/8,size%8,id,names[rdepth]);
300               break;
301             case 'd':
302               if (repeat) 
303                 printf("\t/* repeat %s */\n", repeat);
304
305                   if (type[0] == 'I') {
306                   printf("\tint %s%s; \t/* %s */\n",ptr,id, desc);
307                 }
308                   else if (type[0] =='C') {
309                   printf("\tchar %s*%s;\t /* %s */\n",ptr,id, desc);
310                 }
311               else {
312                 printf("\tbarray %s%s;\t /* %s */\n",ptr,id, desc);
313               }
314                   break;
315                 case 'c':
316               printf("tabout();\n");
317                   printf("\tprintf(\"/*%-30s*/ ptr->%s = \");\n", desc, id);
318
319                   if (type[0] == 'I')
320                   printf("\tprintf(\"%%d\\n\",ptr->%s%s);\n", id,p);
321                   else   if (type[0] == 'C')
322                   printf("\tprintf(\"%%s\\n\",ptr->%s%s);\n", id,p);
323
324                   else   if (type[0] == 'B') 
325                     {
326                   printf("\tpbarray(&ptr->%s%s);\n", id,p);
327                 }
328               else abort();
329                   break;
330                 }
331         }
332
333         ;
334
335
336 attr_type:      
337          TYPE { $$ = $1; }
338         |  { $$ = "INT";}
339         ;
340
341 attr_desc: 
342         '(' NAME ')'    
343         { $$ = $2; }
344         ;
345
346 attr_size:
347          NUMBER UNIT 
348         { $$ = $1 * $2; }
349         ;
350
351
352 attr_id:
353                 '(' NAME ')'    { $$ = $2; }
354         |       { $$ = "dummy";}
355         ;       
356         
357 enums: 
358         | '(' enum_list ')' ;
359
360 enum_list:
361         |
362         enum_list '(' NAME NAME ')' { 
363           switch (writecode) 
364             {
365             case 'd':
366               printf("#define %s %s\n", $3,$4);
367               break;
368             case 'c':
369                 printf("if (ptr->%s%s == %s) { tabout(); printf(\"%s\\n\");}\n", name, names[rdepth],$4,$3);
370             }
371         }
372
373         ;
374
375
376
377
378 name:
379         NAME
380         {
381           printf("Got %s\n", word);
382         }
383         ;
384
385
386   
387
388
389
390
391 %%
392 /* four modes
393
394    -d write structure defintions for sysroff in host format
395    -i write functions to swap into sysroff format in
396    -o write functions to swap into sysroff format out
397    -c write code to print info in human form */
398
399 #include <stdio.h>
400 #include <stdlib.h>
401 int yydebug;
402 char writecode;
403
404 int 
405 main(ac,av)
406 int ac;
407 char **av;
408 {
409   yydebug=0;
410   if (ac > 1)
411     writecode = av[1][1];
412 if (writecode == 'd')
413   {
414     printf("typedef struct { unsigned char *data; int len; } barray; \n");
415     printf("typedef  int INT;\n");
416     printf("typedef  char * CHARS;\n");
417
418   }
419   yyparse();
420 return 0;
421 }
422
423 int yyerror()
424 {
425   printf("Error twathead\n");
426 }