/* Copyright (C) 2001-2014 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> 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 (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); 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,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; } } ; 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; }