Subversion Repositories open8_urisc

/* Copyright 2001, 2003, 2005, 2007, 2009 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;
}