[deliverable/binutils-gdb.git] / binutils / sysinfo.y

/* Copyright 2001, 2003, 2005 Free Software Foundation, Inc.
   Written by Steve Chamberlain of Cygnus Support (steve@cygnus.com).

This file is part of GNU binutils.

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA.  */

%{
#include <stdio.h>
#include <stdlib.h>

static char writecode;
static char *it;
static int code;
static char * repeat;
static char *oldrepeat;
static char *name;
static int rdepth;
static char *names[] = {" ","[n]","[n][m]"};
static char *pnames[]= {"","*","**"};

static int yyerror (char *s);
extern int yylex (void);
%}


%union {
 int i;
 char *s;
} 
%token COND
%token REPEAT
%token '(' ')'
%token <s> TYPE
%token <s> NAME
%token <i> NUMBER UNIT
%type <i> attr_size 
%type <s> attr_desc attr_id attr_type
%%

top:  {
  switch (writecode)
    {
    case 'i':
      printf("#ifdef SYSROFF_SWAP_IN\n");
      break; 
    case 'p':
      printf("#ifdef SYSROFF_p\n");
      break; 
    case 'd':
      break;
    case 'g':
      printf("#ifdef SYSROFF_SWAP_OUT\n");
      break;
    case 'c':
      printf("#ifdef SYSROFF_PRINT\n");
      printf("#include <stdio.h>\n");
      printf("#include <stdlib.h>\n");
      printf("#include <ansidecl.h>\n");
      break;
    }
 } 
it_list {
  switch (writecode) {
  case 'i':
  case 'p':
  case 'g':
  case 'c':
    printf("#endif\n");
    break; 
  case 'd':
    break;
  }
}

  ;


it_list: it it_list
  |
  ;

it:
	'(' NAME NUMBER 
      {
	it = $2; code = $3;
	switch (writecode) 
	  {
	  case 'd':
	    printf("\n\n\n#define IT_%s_CODE 0x%x\n", it,code);
	    printf("struct IT_%s;\n", it);
	    printf("extern void sysroff_swap_%s_in PARAMS ((struct IT_%s *));\n",
		   $2, it);
	    printf("extern void sysroff_swap_%s_out PARAMS ((FILE *, struct IT_%s *));\n",
		   $2, it);
	    printf("extern void sysroff_print_%s_out PARAMS ((struct IT_%s *));\n",
		   $2, it);
	    printf("struct IT_%s { \n", it);
	    break;
	  case 'i':
	    printf("void sysroff_swap_%s_in(ptr)\n",$2);
	    printf("struct IT_%s *ptr;\n", it);
	    printf("{\n");
	    printf("unsigned char raw[255];\n");
	    printf("\tint idx = 0 ;\n");
	    printf("\tint size;\n");
	    printf("memset(raw,0,255);\n");	
	    printf("memset(ptr,0,sizeof(*ptr));\n");
	    printf("size = fillup(raw);\n");
	    break;
	  case 'g':
	    printf("void sysroff_swap_%s_out(file,ptr)\n",$2);
	    printf("FILE * file;\n");
	    printf("struct IT_%s *ptr;\n", it);
	    printf("{\n");
	    printf("\tunsigned char raw[255];\n");
	    printf("\tint idx = 16 ;\n");
	    printf("\tmemset (raw, 0, 255);\n");
	    printf("\tcode = IT_%s_CODE;\n", it);
	    break;
	  case 'o':
	    printf("void sysroff_swap_%s_out(abfd,ptr)\n",$2);
	    printf("bfd * abfd;\n");
	    printf("struct IT_%s *ptr;\n",it);
	    printf("{\n");
	    printf("int idx = 0 ;\n");
	    break;
	  case 'c':
	    printf("void sysroff_print_%s_out(ptr)\n",$2);
	    printf("struct IT_%s *ptr;\n", it);
	    printf("{\n");
	    printf("itheader(\"%s\", IT_%s_CODE);\n",$2,$2);
	    break;

	  case 't':
	    break;
	  }

      } 
	it_field_list 
')'
{
  switch (writecode) {
  case 'd': 
    printf("};\n");
    break;
  case 'g':
    printf("\tchecksum(file,raw, idx, IT_%s_CODE);\n", it);
    
  case 'i':

  case 'o':
  case 'c':
    printf("}\n");
  }
}
;


it_field_list:
		it_field it_field_list
	|	cond_it_field it_field_list	
	|	repeat_it_field it_field_list
	|
	;

repeat_it_field: '(' REPEAT NAME
	{
	  rdepth++;
	  switch (writecode) 
	    {
	    case 'c':
	      if (rdepth==1)
	      printf("\tprintf(\"repeat %%d\\n\", %s);\n",$3);
	      if (rdepth==2)
	      printf("\tprintf(\"repeat %%d\\n\", %s[n]);\n",$3);
	    case 'i':
	    case 'g':
	    case 'o':

	      if (rdepth==1) 
		{
	      printf("\t{ int n; for (n = 0; n < %s; n++) {\n",    $3);
	    }
	      if (rdepth == 2) {
	      printf("\t{ int m; for (m = 0; m < %s[n]; m++) {\n",    $3);
	    }		

	      break;
	    }

	  oldrepeat = repeat;
         repeat = $3;
	}

	 it_field_list ')' 

	{
	  repeat = oldrepeat;
	  oldrepeat =0;
	  rdepth--;
	  switch (writecode)
	    {
	    case 'i':
	    case 'g':
	    case 'o':
	    case 'c':
	  printf("\t}}\n");
	}
	}
       ;


cond_it_field: '(' COND NAME
	{
	  switch (writecode) 
	    {
	    case 'i':
	    case 'g':
	    case 'o':
	    case 'c':
	      printf("\tif (%s) {\n", $3);
	      break;
	    }
	}

	 it_field_list ')' 
	{
	  switch (writecode)
	    {
	    case 'i':
	    case 'g':
	    case 'o':
	    case 'c':
	  printf("\t}\n");
	}
	}
       ;

it_field:
	'(' attr_desc '(' attr_type attr_size ')' attr_id 
	{name = $7; } 
	enums ')'
	{
	  char *desc = $2;
	  char *type = $4;
	  int size = $5;
	  char *id = $7;
char *p = names[rdepth];
char *ptr = pnames[rdepth];
	  switch (writecode) 
	    {
	    case 'g':
	      if (size % 8) 
		{
		  
		  printf("\twriteBITS(ptr->%s%s,raw,&idx,%d);\n",
			 id,
			 names[rdepth], size);

		}
	      else {
		printf("\twrite%s(ptr->%s%s,raw,&idx,%d,file);\n",
		       type,
		       id,
		       names[rdepth],size/8);
		}
	      break;	      
	    case 'i':
	      {

		if (rdepth >= 1)

		  {
		    printf("if (!ptr->%s) ptr->%s = (%s*)xcalloc(%s, sizeof(ptr->%s[0]));\n", 
			   id, 
			   id,
			   type,
			   repeat,
			   id);
		  }

		if (rdepth == 2)
		  {
		    printf("if (!ptr->%s[n]) ptr->%s[n] = (%s**)xcalloc(%s[n], sizeof(ptr->%s[n][0]));\n", 
			   id, 
			   id,
			   type,
			   repeat,
			   id);
		  }

	      }

	      if (size % 8) 
		{
		  printf("\tptr->%s%s = getBITS(raw,&idx, %d,size);\n",
			 id,
			 names[rdepth], 
			 size);
		}
	      else {
		printf("\tptr->%s%s = get%s(raw,&idx, %d,size);\n",
		       id,
		       names[rdepth],
		       type,
		       size/8);
		}
	      break;
	    case 'o':
	      printf("\tput%s(raw,%d,%d,&idx,ptr->%s%s);\n", type,size/8,size%8,id,names[rdepth]);
	      break;
	    case 'd':
	      if (repeat) 
		printf("\t/* repeat %s */\n", repeat);

		  if (type[0] == 'I') {
		  printf("\tint %s%s; \t/* %s */\n",ptr,id, desc);
		}
		  else if (type[0] =='C') {
		  printf("\tchar %s*%s;\t /* %s */\n",ptr,id, desc);
		}
	      else {
		printf("\tbarray %s%s;\t /* %s */\n",ptr,id, desc);
	      }
		  break;
		case 'c':
	      printf("tabout();\n");
		  printf("\tprintf(\"/*%-30s*/ ptr->%s = \");\n", desc, id);

		  if (type[0] == 'I')
		  printf("\tprintf(\"%%d\\n\",ptr->%s%s);\n", id,p);
		  else   if (type[0] == 'C')
		  printf("\tprintf(\"%%s\\n\",ptr->%s%s);\n", id,p);

		  else   if (type[0] == 'B') 
		    {
		  printf("\tpbarray(&ptr->%s%s);\n", id,p);
		}
	      else abort();
		  break;
		}
	}

	;


attr_type:	
	 TYPE { $$ = $1; }
 	|  { $$ = "INT";}
	;

attr_desc: 
	'(' NAME ')'	
	{ $$ = $2; }
	;

attr_size:
	 NUMBER UNIT 
	{ $$ = $1 * $2; }
	;


attr_id:
		'(' NAME ')'	{ $$ = $2; }
	|	{ $$ = "dummy";}
	;	
	
enums: 
	| '(' enum_list ')' ;

enum_list:
	|
	enum_list '(' NAME NAME ')' { 
	  switch (writecode) 
	    {
	    case 'd':
	      printf("#define %s %s\n", $3,$4);
	      break;
	    case 'c':
		printf("if (ptr->%s%s == %s) { tabout(); printf(\"%s\\n\");}\n", name, names[rdepth],$4,$3);
	    }
	}

	;


%%
/* four modes

   -d write structure definitions for sysroff in host format
   -i write functions to swap into sysroff format in
   -o write functions to swap into sysroff format out
   -c write code to print info in human form */

int yydebug;

int 
main (int ac, char **av)
{
  yydebug=0;
  if (ac > 1)
    writecode = av[1][1];
if (writecode == 'd')
  {
    printf("typedef struct { unsigned char *data; int len; } barray; \n");
    printf("typedef  int INT;\n");
    printf("typedef  char * CHARS;\n");

  }
  yyparse();
return 0;
}

static int
yyerror (char *s)
{
  fprintf(stderr, "%s\n" , s);
  return 0;
}
Commit	Line	Data
dc3c06c2	1	/* Copyright 2001, 2003, 2005 Free Software Foundation, Inc.
8c2bc687 NC	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
b43b5d5f	18	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
8c2bc687	19
252b5132 RH	20	%{
	21	#include <stdio.h>
	22	#include <stdlib.h>
	23
89b78896 BE	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[]= {"","","**"};
dc3c06c2 AM	33
	34	static int yyerror (char *s);
	35	extern int yylex (void);
252b5132 RH	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");
c32144ff	71	printf("#include <ansidecl.h>\n");
252b5132 RH	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);
c32144ff AJ	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);
252b5132 RH	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");
dc3c06c2	116	printf("unsigned char raw[255];\n");
252b5132 RH	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");
dc3c06c2	128	printf("\tunsigned char raw[255];\n");
252b5132 RH	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
50c2245b	405	-d write structure definitions for sysroff in host format
252b5132 RH	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;
252b5132 RH	411
252b5132 RH	412	int
2da42df6	413	main (int ac, char **av)
252b5132 RH	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
dc3c06c2	429	static int
2da42df6	430	yyerror (char *s)
252b5132 RH	431	{
	432	fprintf(stderr, "%s\n" , s);
	433	return 0;
	434	}