mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-21 04:42:53 +08:00
a2c5833233
The result of running etc/update-copyright.py --this-year, fixing all the files whose mode is changed by the script, plus a build with --enable-maintainer-mode --enable-cgen-maint=yes, then checking out */po/*.pot which we don't update frequently. The copy of cgen was with commit d1dd5fcc38ead reverted as that commit breaks building of bfp opcodes files.
442 lines
8.2 KiB
Plaintext
442 lines
8.2 KiB
Plaintext
/* Copyright (C) 2001-2022 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 3 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>
|
|
#include <string.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 void yyerror (const 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 (struct IT_%s *);\n",
|
|
$2, it);
|
|
printf("extern void sysroff_swap_%s_out (FILE *, struct IT_%s *);\n",
|
|
$2, it);
|
|
printf("extern void sysroff_print_%s_out (struct IT_%s *);\n",
|
|
$2, it);
|
|
printf("struct IT_%s { \n", it);
|
|
break;
|
|
case 'i':
|
|
printf("void sysroff_swap_%s_in (struct IT_%s * ptr)\n",$2,it);
|
|
printf("{\n");
|
|
printf("\tunsigned char raw[255];\n");
|
|
printf("\tint idx = 0;\n");
|
|
printf("\tint size;\n");
|
|
printf("\tmemset(raw,0,255);\n");
|
|
printf("\tmemset(ptr,0,sizeof(*ptr));\n");
|
|
printf("\tsize = fillup(raw);\n");
|
|
break;
|
|
case 'g':
|
|
printf("void sysroff_swap_%s_out (FILE * ffile, struct IT_%s * ptr)\n",$2,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 (bfd * abfd, struct IT_%s * ptr)\n",$2, it);
|
|
printf("{\n");
|
|
printf("\tint idx = 0;\n");
|
|
break;
|
|
case 'c':
|
|
printf("void sysroff_print_%s_out (struct IT_%s *ptr)\n",$2,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(ffile,raw, idx, IT_%s_CODE);\n", it);
|
|
/* Fall through. */
|
|
case 'i':
|
|
case 'o':
|
|
case 'c':
|
|
printf("}\n");
|
|
}
|
|
|
|
free (it);
|
|
}
|
|
;
|
|
|
|
|
|
|
|
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);
|
|
/* Fall through. */
|
|
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 ')'
|
|
|
|
{
|
|
free (repeat);
|
|
|
|
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;
|
|
}
|
|
|
|
free ($3);
|
|
}
|
|
|
|
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,ffile);\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;
|
|
}
|
|
|
|
free (desc);
|
|
free (id);
|
|
}
|
|
|
|
;
|
|
|
|
|
|
attr_type:
|
|
TYPE { $$ = $1; }
|
|
| { $$ = "INT";}
|
|
;
|
|
|
|
attr_desc:
|
|
'(' NAME ')'
|
|
{ $$ = $2; }
|
|
;
|
|
|
|
attr_size:
|
|
NUMBER UNIT
|
|
{ $$ = $1 * $2; }
|
|
;
|
|
|
|
|
|
attr_id:
|
|
'(' NAME ')' { $$ = $2; }
|
|
| { $$ = strdup ("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);
|
|
}
|
|
|
|
free ($3);
|
|
free ($4);
|
|
}
|
|
|
|
;
|
|
|
|
|
|
|
|
%%
|
|
/* 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 void
|
|
yyerror (const char *s)
|
|
{
|
|
fprintf(stderr, "%s\n" , s);
|
|
}
|