1 /* Copyright 2001, 2003, 2005 Free Software Foundation, Inc.
2    Written by Steve Chamberlain of Cygnus Support (steve@cygnus.com).
3 
4 This file is part of GNU binutils.
5 
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.
10 
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.
15 
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.  */
19 
20 %{
21 #include <stdio.h>
22 #include <stdlib.h>
23 
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[]= {"","*","**"};
33 
34 static int yyerror (char *s);
35 extern int yylex (void);
36 %}
37 
38 
39 %union {
40  int i;
41  char *s;
42 }
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
51 %%
52 
53 top:  {
54   switch (writecode)
55     {
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;
73     }
74  }
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;
85   }
86 }
87 
88   ;
89 
90 
91 it_list: it it_list
92   |
93   ;
94 
95 it:
96 	'(' NAME NUMBER
97       {
98 	it = $2; code = $3;
99 	switch (writecode)
100 	  {
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;
146 
147 	  case 't':
148 	    break;
149 	  }
150 
151       }
152 	it_field_list
153 ')'
154 {
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);
161 
162   case 'i':
163 
164   case 'o':
165   case 'c':
166     printf("}\n");
167   }
168 }
169 ;
170 
171 
172 
173 it_field_list:
174 		it_field it_field_list
175 	|	cond_it_field it_field_list
176 	|	repeat_it_field it_field_list
177 	|
178 	;
179 
180 repeat_it_field: '(' REPEAT NAME
181 	{
182 	  rdepth++;
183 	  switch (writecode)
184 	    {
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':
193 
194 	      if (rdepth==1)
195 		{
196 	      printf("\t{ int n; for (n = 0; n < %s; n++) {\n",    $3);
197 	    }
198 	      if (rdepth == 2) {
199 	      printf("\t{ int m; for (m = 0; m < %s[n]; m++) {\n",    $3);
200 	    }
201 
202 	      break;
203 	    }
204 
205 	  oldrepeat = repeat;
206          repeat = $3;
207 	}
208 
209 	 it_field_list ')'
210 
211 	{
212 	  repeat = oldrepeat;
213 	  oldrepeat =0;
214 	  rdepth--;
215 	  switch (writecode)
216 	    {
217 	    case 'i':
218 	    case 'g':
219 	    case 'o':
220 	    case 'c':
221 	  printf("\t}}\n");
222 	}
223 	}
224        ;
225 
226 
227 cond_it_field: '(' COND NAME
228 	{
229 	  switch (writecode)
230 	    {
231 	    case 'i':
232 	    case 'g':
233 	    case 'o':
234 	    case 'c':
235 	      printf("\tif (%s) {\n", $3);
236 	      break;
237 	    }
238 	}
239 
240 	 it_field_list ')'
241 	{
242 	  switch (writecode)
243 	    {
244 	    case 'i':
245 	    case 'g':
246 	    case 'o':
247 	    case 'c':
248 	  printf("\t}\n");
249 	}
250 	}
251        ;
252 
253 it_field:
254 	'(' attr_desc '(' attr_type attr_size ')' attr_id
255 	{name = $7; }
256 	enums ')'
257 	{
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)
265 	    {
266 	    case 'g':
267 	      if (size % 8)
268 		{
269 
270 		  printf("\twriteBITS(ptr->%s%s,raw,&idx,%d);\n",
271 			 id,
272 			 names[rdepth], size);
273 
274 		}
275 	      else {
276 		printf("\twrite%s(ptr->%s%s,raw,&idx,%d,file);\n",
277 		       type,
278 		       id,
279 		       names[rdepth],size/8);
280 		}
281 	      break;
282 	    case 'i':
283 	      {
284 
285 		if (rdepth >= 1)
286 
287 		  {
288 		    printf("if (!ptr->%s) ptr->%s = (%s*)xcalloc(%s, sizeof(ptr->%s[0]));\n",
289 			   id,
290 			   id,
291 			   type,
292 			   repeat,
293 			   id);
294 		  }
295 
296 		if (rdepth == 2)
297 		  {
298 		    printf("if (!ptr->%s[n]) ptr->%s[n] = (%s**)xcalloc(%s[n], sizeof(ptr->%s[n][0]));\n",
299 			   id,
300 			   id,
301 			   type,
302 			   repeat,
303 			   id);
304 		  }
305 
306 	      }
307 
308 	      if (size % 8)
309 		{
310 		  printf("\tptr->%s%s = getBITS(raw,&idx, %d,size);\n",
311 			 id,
312 			 names[rdepth],
313 			 size);
314 		}
315 	      else {
316 		printf("\tptr->%s%s = get%s(raw,&idx, %d,size);\n",
317 		       id,
318 		       names[rdepth],
319 		       type,
320 		       size/8);
321 		}
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);
329 
330 		  if (type[0] == 'I') {
331 		  printf("\tint %s%s; \t/* %s */\n",ptr,id, desc);
332 		}
333 		  else if (type[0] =='C') {
334 		  printf("\tchar %s*%s;\t /* %s */\n",ptr,id, desc);
335 		}
336 	      else {
337 		printf("\tbarray %s%s;\t /* %s */\n",ptr,id, desc);
338 	      }
339 		  break;
340 		case 'c':
341 	      printf("tabout();\n");
342 		  printf("\tprintf(\"/*%-30s*/ ptr->%s = \");\n", desc, id);
343 
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);
348 
349 		  else   if (type[0] == 'B')
350 		    {
351 		  printf("\tpbarray(&ptr->%s%s);\n", id,p);
352 		}
353 	      else abort();
354 		  break;
355 		}
356 	}
357 
358 	;
359 
360 
361 attr_type:
362 	 TYPE { $$ = $1; }
363  	|  { $$ = "INT";}
364 	;
365 
366 attr_desc:
367 	'(' NAME ')'
368 	{ $$ = $2; }
369 	;
370 
371 attr_size:
372 	 NUMBER UNIT
373 	{ $$ = $1 * $2; }
374 	;
375 
376 
377 attr_id:
378 		'(' NAME ')'	{ $$ = $2; }
379 	|	{ $$ = "dummy";}
380 	;
381 
382 enums:
383 	| '(' enum_list ')' ;
384 
385 enum_list:
386 	|
387 	enum_list '(' NAME NAME ')' {
388 	  switch (writecode)
389 	    {
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);
395 	    }
396 	}
397 
398 	;
399 
400 
401 
402 %%
403 /* four modes
404 
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 */
409 
410 int yydebug;
411 
412 int
413 main (int ac, char **av)
414 {
415   yydebug=0;
416   if (ac > 1)
417     writecode = av[1][1];
418 if (writecode == 'd')
419   {
420     printf("typedef struct { unsigned char *data; int len; } barray; \n");
421     printf("typedef  int INT;\n");
422     printf("typedef  char * CHARS;\n");
423 
424   }
425   yyparse();
426 return 0;
427 }
428 
429 static int
430 yyerror (char *s)
431 {
432   fprintf(stderr, "%s\n" , s);
433   return 0;
434 }
435