URL https://opencores.org/ocsvn/sc2v/sc2v/trunk

Subversion Repositories sc2v

[/] [sc2v/] [trunk/] [src/] [sc2v_step1.y] - Blame information for rev 39

Details | Compare with Previous | View Log


/* -----------------------------------------------------------------------------
 *
 *  SystemC to Verilog Translator v0.4
 *  Provided by Universidad Rey Juan Carlos
 *
 * -----------------------------------------------------------------------------
 *  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 Library 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */
 
 
%{
#include 
#include 
#include "sglib.h"
#include "sc2v_step1.h"
 
  int lineno = 1;
  int processfound = 0;
  int switchfound = 0;
  int lastswitch=0;
  int switchparenthesis[256];
  int ifdeffound = 0;
  char *processname, *processname2;
  char *fileregs;
  char *filename;
  int openedkeys = 0;
  int newline = 0;
  int reg_found = 0;
  int sigreg_found = 0;
  int reglenght = 0;
  int writelenght = 0;
  int array_size=0;
  int integer_found=0;
  int regs_end;
  int i = 0;                    //for loops counter
  FILE *file;
  FILE *regs_file;
  char *regname, *regname2;
  char *lastword;               // Stores last WORD for use it in WRITE
  char *file_defines;
  FILE *FILE_DEFINES;
  char *file_writes;
  FILE *FILE_WRITES;            //FILE to store .write to know if it is a wire or reg
  int definefound = 0;
  int defineinvocationfound = 0;
  int opencorchfound = 0;
  int defineparenthesis = 0;
  int openedcase = 0;
  int writingvar=0;
 
  int default_break_found = 0;
  int default_found;
 
  int struct_found=0;
  int end_struct=0;
  int ignore_semicolon=0;
  char *structname;
 
//Directives variables
  int translate;
  int verilog;
  int writemethod;
 
  void yyerror (const char *str)
  {
    fprintf (stderr, "line: %d error: %s\n", lineno, str);
  }
 
  int yywrap ()
  {
    return 1;
  }
 
  main ()
  {
    int i;
 
    defineslist = NULL;
    regslist = NULL;
    structslist = NULL;
    structsreglist = NULL;
 
    fprintf (stderr, "\nSystemC to Verilog Translator v0.6");
    fprintf (stderr,
             "\nProvided by URJC(Universidad Rey Juan Carlos)\nhttp://gdhwsw.escet.urjc.es\n\n");
    fprintf (stderr, "Parsing implementation file.......\n\n");
 
    processname = (char *) malloc (256 * sizeof (char));
    processname2 = (char *) malloc (256 * sizeof (char));
    fileregs = (char *) malloc (256 * sizeof (char));
 
    file_defines = (char *) malloc (256 * sizeof (char));
    strcpy (file_defines, (char *) "file_defines.sc2v");
    FILE_DEFINES = fopen (file_defines, (char *) "w");
 
    file_writes = (char *) malloc (256 * sizeof (char));
    strcpy (file_writes, (char *) "file_writes.sc2v");
    FILE_WRITES = fopen (file_writes, (char *) "w");
 
    lastword = (char *) malloc (sizeof (char) * 256);
    structname = (char *) malloc (sizeof (char) * 256);
 
    for (i = 0; i < 256; i++)
      switchparenthesis[i] = 0;
 
    translate = 1;
    verilog = 0;
    writemethod = 0;
 
    FILE *yyin = stdin;
    FILE *yyout = stdout;
    yyparse ();
    fclose (FILE_WRITES);
    fclose (FILE_DEFINES);
 
    fprintf (stderr, "\nDone\n\n");
  }
 
%}
 
%token NUMBER WORD SC_REG SC_SIGREG BOOL BIGGER LOWER OPENKEY CLOSEKEY WRITE SYMBOL NEWLINE ENUM INCLUDE
%token COLON SEMICOLON RANGE OPENPAR CLOSEPAR TWODOUBLEPOINTS OPENCORCH CLOSECORCH SWITCH CASE DEFAULT BREAK
%token HEXA DEFINE READ TRANSLATEOFF TRANSLATEON VERILOGBEGIN VERILOGEND TAB DOLLAR MINEQ
%token VOID TTRUE TFALSE ENDFUNC INC DEC INTEGER EQUALS
%token PIFDEF PIFNDEF PENDDEF PELSE COMMENT STRUCT DOT
 
%% commands:    /* empty */
|commands command;
 
command:
  struct_dec
  |
  endfunc
  |
  voidword
  |
  include
  |
  dollar
  |
  tab
  |
  read
  |
  sc_reg
  |
  sc_sigreg
  |
  integer
  |
  number
  |
  bool
  |
  word
  |
  symbol
  |
  write
  |
  newline
  |
  openkey
  |
  closekey
  |
  colon
  |
  semicolon
  |
  range
  |
  openpar
  |
  closepar
  |
  void
  |
  opencorch
  |
  closecorch
  |
  bigger
  |
  lower
  |
  switch
  |
  case_only
  |
  case_number
  |
  case_hexnumber
  |
  case_hexword
  |
  case_hexnumberword
  |
  case_word
  |
  case_default
  |
  break
  |
  hexa
  |
  definemacro
  |
  defineword
  |
  definewordsimple
  |
  definenumber
  |
  translateoff
  |
  translateon
  |
  verilogbegin
  |
  verilogend
  |
  ifdef
  |
  ifndef
  |
  endif
  |
  pelse
  |
  ttrue
  |
  tfalse
  |
  increment
  |
  decrement
  |
  equal
  |
  minorequal
  |
  comment
  |
  struct_access
  ;
 
struct_access:
WORD DOT WORD
{
 
/*Struct access
 Check if it is a var acess or a reg*/
 if (newline){
   for (i = 0; i < openedkeys; i++)
      fprintf (file, "   ");
 }
 
 strcpy(structname,(char *)$3);
 strcat(structname,(char *)$1);
 regname2 = IsReg (regslist, structname);
 
 if (regname2 == NULL){
  fprintf (file, "%s ", structname);
 }else{
  fprintf (file, "%s", regname2);
}
  newline = 0;
 
 
 /*printf("Access to struct %s.%s\n",(char *)$1,(char *)$3);*/
}
 
minorequal:
MINEQ
{
 //This rule is needed because <= in the step two could be confused with a non-blocking assignment
 defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          fprintf (file, "<1+");
        }
    }
  else if (verilog == 1)
    fprintf (file, "<=");
};
 
endfunc:
ENDFUNC
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          for (i = 0; i < openedkeys; i++)
            fprintf (file, "   ");
          fprintf (file, "%s = ", processname);
        }
    }
  else if (verilog == 1)
    fprintf (file, "return ");
};
 
 
voidword:
VOID
{
  defineparenthesis = 0;
  if (verilog == 1)
    fprintf (file, " void");
};
 
 
include:
INCLUDE
{
  defineparenthesis = 0;
  if (verilog == 1)
    fprintf (file, " #include");
};
 
 
dollar:
DOLLAR
{
  defineparenthesis = 0;
  if (verilog == 1)
    fprintf (file, " $");
};
 
 
tab:
TAB
{
  defineparenthesis = 0;
  if (verilog == 1)
    fprintf (file, " \t");
};
 
read:
READ OPENPAR CLOSEPAR
{
  defineparenthesis = 0;
  if (verilog == 1)
    fprintf (file, ".read()");
 
}
 
definewordsimple:
DEFINE WORD
{
 
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          fprintf (file, "`define %s\n", (char *) $2);
        }
      else
        {
          fprintf (FILE_DEFINES, "`define %s\n", (char *) $2);
        }
    }
  else if (verilog == 1)
    fprintf (file, "#define %s\n", (char *) $2);
 
};
 
defineword:
DEFINE WORD WORD
{
 
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          fprintf (file, "`define %s %s\n", (char *) $2, (char *) $3);
          defineslist = InsertDefine (defineslist, (char *) $2);
        }
      else
        {
          fprintf (FILE_DEFINES, "`define %s %s\n", (char *) $2, (char *) $3);
          defineslist = InsertDefine (defineslist, (char *) $2);
        }
    }
  else if (verilog == 1)
    fprintf (file, "#define %s %s\n", (char *) $2, (char *) $3);
 
};
 
definenumber:
DEFINE WORD NUMBER
{
 
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          fprintf (file, "`define %s %d\n", (char *) $2, (int) $3);
          defineslist = InsertDefine (defineslist, (char *) $2);
        }
      else
        {
          fprintf (FILE_DEFINES, "`define %s %d\n", (char *) $2, (int) $3);
          defineslist = InsertDefine (defineslist, (char *) $2);
        }
    }
  else if (verilog == 1)
    fprintf (file, "#define %s %d\n", (char *) $2, (int) $3);
 
};
 
 
definemacro:
DEFINE WORD OPENPAR CLOSEPAR
{
  defineparenthesis = 0;
  //Macro found
  if (translate == 1 && verilog == 0)
    {
      defineslist = InsertDefine (defineslist, (char *) $2);
 
      definefound = 1;
      if (processfound)
        fprintf (file, "`define %s ", (char *) $2);
      else
        fprintf (FILE_DEFINES, "`define %s ", (char *) $2);
    }
  else if (verilog == 1)
    fprintf (file, "#define %s ()", (char *) $2);
}
 
void:
WORD TWODOUBLEPOINTS WORD OPENPAR
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      strcpy (processname, (char *) $4);
      strcpy (processname2, (char *) $4);
      strcat (processname2, (char *) ".sc2v");
      strcpy (fileregs, (char *) $4);
      strcat (fileregs, (char *) "_regs.sc2v");
    }
  else if (verilog == 1)
    fprintf (file, " %s::%s()", (char *) $1, (char *) $3);
 
}
 
sc_reg:
SC_REG LOWER NUMBER BIGGER
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          writelenght=1;
          reglenght = $3;
          reg_found = 1;
        }
    }
};
 
sc_sigreg:
SC_SIGREG LOWER NUMBER BIGGER
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          writelenght=1;
          reglenght = $3;
          sigreg_found = 1;
        }
    }
};
 
integer:
INTEGER
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          fprintf (regs_file, "integer ");
          integer_found = 1;
        }
    }
};
 
 
bool:
BOOL
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          writelenght=1;
          reglenght=0;
          reg_found = 1;
        }
    }
  else if (verilog == 1)
    fprintf (file, "bool");
}
 
;
 
range:
RANGE OPENPAR NUMBER COLON NUMBER CLOSEPAR
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        fprintf (file, "[%d:%d]", $3, $5);
      else if (definefound)
        fprintf (FILE_DEFINES, "[%d:%d]", $3, $5);
    }
  else if (verilog == 1)
    fprintf (file, ".range(%d,%d)", $3, $5);
}
 
;
 
number:
NUMBER
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
       if(opencorchfound && (reg_found || sigreg_found))
        fprintf (regs_file, "%d:0",$1-1);
       else
        fprintf (file, "%d", $1);
      else if (definefound)
        fprintf (FILE_DEFINES, "%d", $1);
    }
  else if (verilog == 1)
    fprintf (file, "%d", $1);
};
 
increment:
WORD INC
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
       if (processfound){
        regname2 = IsReg (regslist, (char *) $1);
        if (regname2 == NULL){
            fprintf (file, "%s=%s+1", (char *) $1,(char *)$1);
        }else
            fprintf (file, "%s=%s+1", regname2,regname2);
       }
  else if (verilog == 1)
    fprintf (file, "%s++ ", (char *) $1);
};
 
decrement:
WORD DEC
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
      if (processfound){
        regname2 = IsReg (regslist, (char *) $1);
        if (regname2 == NULL){
            fprintf (file, "%s=%s+1", (char *) $1,(char *)$1);
        }else
            fprintf (file, "%s=%s+1", regname2,regname2);
      }
  else if (verilog == 1)
    fprintf (file, "%s-- ", (char *) $1);
};
 
word:
WORD
{
 
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
          if(opencorchfound==0){
                strcpy (lastword, (char *) $1);
          }
 
      if (processfound)
        {
          if(lastswitch){
            openedcase=0;
          }else if (openedcase){
              fprintf (file, " :\n");
 
              for (i = 0; i < openedkeys; i++)
                fprintf (file, "   ");
 
              fprintf(file,"begin\n");
              openedcase=0;
          }
          if (end_struct){
             end_struct=0;
             struct_found=0;
             ignore_semicolon=1;
             structslist=InsertStruct(structslist,(char *)$1,structsreglist);
 
             //ShowStructs(structslist);
 
             /*Now we should convert all the elements of the struct into regs*/
             StructRegNode *srll;
             SGLIB_LIST_MAP_ON_ELEMENTS (StructRegNode,structsreglist, srll,next,
             {
               if(srll->length==0)
                 fprintf (regs_file, "reg ");
               else
                 fprintf (regs_file, "reg[%d:0] ", (-1 +srll->length));
 
               regname =(char *) malloc (sizeof (char) * (strlen (srll->name) + 1));
               regname2 = (char *) malloc (sizeof (char) * (strlen (srll->name) + strlen (processname)+strlen((char *)$1)) + 1);
               strcpy (regname, srll->name);
               strcpy (regname2, srll->name);
               strcat (regname, (char *)$1);
               strcat (regname2, (char *)$1);
               strcat (regname2, processname);
               fprintf (regs_file, "%s;\n", regname2); /*By the moment no arrays inside the struct supported*/
 
               regslist = InsertReg (regslist, regname, regname2);
               free (regname);
               free (regname2);
               structsreglist=NULL;
               reg_found=0; /*To avoid arrays in sructs the interpretation finish here*/
          sigreg_found = 0;
             );}
 
          }else if(struct_found && (reg_found || sigreg_found)){
              structsreglist=InsertStructReg(structsreglist,(char *)$1,reglenght);
 
          }else if (reg_found || sigreg_found){
              if(writelenght){
               writelenght=0;
               if(reglenght==0)
            if(sigreg_found)
                    fprintf (regs_file, "reg signed");
            else
               fprintf (regs_file, "reg ");
               else
            if(sigreg_found)
               fprintf (regs_file, "reg signed [%d:0] ", (-1 +reglenght));
            else
                fprintf (regs_file, "reg [%d:0] ", (-1 +reglenght));
              }
 
              regname = (char *) malloc (sizeof (char) * (strlen ((char *) $1) + 1));
              regname2 = (char *) malloc (sizeof (char) * (strlen ((char *) $1) + strlen (processname)) + 1);
              strcpy (regname, (char *) $1);
              strcpy (regname2, (char *) $1);
              strcat (regname2, processname);
              fprintf (regs_file, "%s", regname2);
 
              regslist = InsertReg (regslist, regname, regname2);
              free (regname);
              free (regname2);
          }else if(integer_found){
              regname = (char *) malloc (sizeof (char) * (strlen ((char *) $1) + 1));
              regname2 = (char *) malloc (sizeof (char) * (strlen ((char *) $1) + strlen (processname)) + 1);
              strcpy (regname, (char *) $1);
              strcpy (regname2, (char *) $1);
              strcat (regname2, processname);
              fprintf (regs_file, "%s;\n", regname2);
 
              regslist = InsertReg (regslist, regname, regname2);
 
              //After adding to list print it
              fprintf (file, "%s ", regname2);
              integer_found=0;
              free (regname);
              free (regname2);
 
          }else{
 
              if (newline){
                for (i = 0; i < openedkeys; i++)
                  fprintf (file, "   ");
              }
 
              regname2 = IsReg (regslist, (char *) $1);
              if (regname2 == NULL){
                if (IsDefine (defineslist, (char *) $1)){
                   if (ifdeffound == 0){
                      fprintf (file, "`%s", (char *) $1);
                      defineinvocationfound = 1;
                   }else{
                      fprintf (file, "%s", (char *) $1);
                      ifdeffound = 0;
                   }
                }else{
                   fprintf (file, "%s ", (char *) $1);
                }
             }else
                fprintf (file, "%s", regname2);
 
             newline = 0;
          }
 
        }else if (definefound)
        {
 
          if (IsDefine (defineslist, (char *) $1))
            {
 
              fprintf (FILE_DEFINES, "`%s", (char *) $1);
            }
          else
            {
              fprintf (FILE_DEFINES, "%s ", (char *) $1);
            }
        }
    }
  else if (verilog == 1)
    fprintf (file, "%s ", (char *) $1);
  lastswitch=0;
};
 
symbol:
SYMBOL
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          if (reg_found || sigreg_found)
            fprintf (regs_file, "%s", (char *) $1);
          else
            fprintf (file, "%s", (char *) $1);
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, "%s", (char *) $1);
        }
    }
  else if (verilog == 1)
    fprintf (file, "%s", (char *) $1);
};
 
equal:
EQUALS
{
  defineparenthesis = 0;
  reg_found=0;
  sigreg_found=0;
  if (translate == 1 && verilog == 0)
  {
   if (processfound)
        fprintf (file, "=");
        writingvar=1;
  }
  else if (definefound)
    fprintf (FILE_DEFINES, "=");
  else if (verilog == 1)
    fprintf (file, "=");
 
}
 
write:
WRITE
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      writemethod = 1;
      if (processfound)
        {
          fprintf (file, " <= ");
          fprintf (FILE_WRITES, "%s\n", lastword);
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, " <= ");
        }
 
    }
  else if (verilog == 1)
    {
      fprintf (file, ".write");
    }
};
 
newline:
NEWLINE
{
  defineparenthesis = 0;
  writingvar=0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound & !reg_found & !openedcase & !sigreg_found)
        {
          fprintf (file, "\n");
          newline = 1;
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, "\n");
        }
 
    }
  else if (verilog == 1)
    fprintf (file, "\n");
};
 
colon:
COLON
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          if (reg_found || sigreg_found)
            {
              fprintf (regs_file, ",");
            }
          else
            fprintf (file, ",");
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, ",");
        }
    }
  else if (verilog == 1)
    fprintf (file, ",");
};
 
semicolon:
SEMICOLON
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound && !struct_found && !ignore_semicolon)
        {
          if (reg_found || sigreg_found)
            {
              fprintf (regs_file, ";\n");
              reg_found = 0;
         sigreg_found = 0;
            }
          else
            {
            if (defineinvocationfound == 0 || writingvar)
                  fprintf (file, ";");
            }
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, ";");
        }
    }
  else if (verilog == 1)
    fprintf (file, ";");
 
  writingvar=0;
  defineinvocationfound = 0;
  ignore_semicolon=0;
};
 
 
openpar:
OPENPAR
{
  defineparenthesis = 1;
  if (translate == 1 && verilog == 0 && defineinvocationfound == 0)
    {
      if (processfound)
        {
          fprintf (file, "(");
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, "(");
        }
 
    }
  else if (verilog == 1)
    {
      fprintf (file, "(");
    }
  //If par after a sc_reg declaration the declaration is a type cast
  reg_found=0;
  sigreg_found=0;
}
 
closepar:
CLOSEPAR
{
  if (translate == 1 && verilog == 0)
    {
 
      if (processfound)
        {
          if (defineparenthesis == 0)
            {
              fprintf (file, ")");
              defineinvocationfound = 0;
            }
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, ")");
        }
    }
  else if (verilog == 1)
    fprintf (file, ")");
 
};
 
 
opencorch:
OPENCORCH
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          opencorchfound = 1;
          if (reg_found || sigreg_found)
            {
              fprintf (regs_file, "[");
            }
          else
            fprintf (file, "[");
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, "[");
 
        }
    }
  else if (verilog == 1)
    fprintf (file, "[");
};
 
closecorch:
CLOSECORCH
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
          {
          opencorchfound = 0;
          if (reg_found || sigreg_found)
            {
              fprintf (regs_file, "]");
            }
          else
            fprintf (file, "]");
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, "]");
        }
    }
  else if (verilog == 1)
    fprintf (file, "]");
};
 
 
openkey:
OPENKEY
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      openedkeys++;
      if (!definefound)
        {
          if (openedkeys == 1)
            {
              printf ("Found process %s\n", processname);
              file = fopen (processname2, (char *) "w");
              regs_file = fopen (fileregs, (char *) "w");
              processfound = 1;
            }
          if (processfound)
            if (openedkeys != switchparenthesis[switchfound])
              {
                fprintf (file, "\n");
                for (i = 0; i < openedkeys; i++)
                  fprintf (file, "   ");
                fprintf (file, "begin\n");
                newline = 1;
              }
        }
    }
  else if (verilog == 1)
    fprintf (file, "{");
};
 
closekey:
CLOSEKEY
{
  defineparenthesis = 0;
  if(struct_found){
    end_struct=1;
  }else if (translate == 1 && verilog == 0){
      if (processfound && !definefound){
          if (openedkeys == switchparenthesis[switchfound] && switchfound > 0){
              fprintf (file, "\n");
              if (default_found & !default_break_found){
                  for (i = 0; i < openedkeys - 1; i++)
                    fprintf (file, "   ");
                  fprintf (file, "end\n");
                  default_found = 0;
              }
              for (i = 0; i < openedkeys - 1; i++)
                fprintf (file, "   ");
 
              fprintf (file, "endcase\n");
              newline = 1;
              switchparenthesis[switchfound] = 0;
              switchfound--;
          }else{
              fprintf (file, "\n");
              for (i = 0; i < openedkeys; i++)
                fprintf (file, "   ");
              fprintf (file, "end\n");
              newline = 1;
          }
      }
 
      openedkeys--;
      if (definefound)
        {
          definefound = 0;
          if (processfound)
            fprintf (file, "\n//Dummy Comment\n");
          else
            fprintf (FILE_DEFINES, "\n//Dummy Comment\n");
        }
      else if (openedkeys == 0)
        {
          fclose (file);
          fclose (regs_file);
          processfound = 0;
          /*Clear process struct list*/
          structslist=NULL;
        }
    }
  else if (verilog == 1)
    fprintf (file, "}");
};
 
 
bigger:
BIGGER
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          fprintf (file, ">");
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, ">");
        }
    }
  else if (verilog == 1)
    fprintf (file, ">");
};
 
lower:
LOWER
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          fprintf (file, "<");
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, "<");
        }
    }
  else if (verilog == 1)
    fprintf (file, "<");
};
 
 
switch:
SWITCH
  {
    defineparenthesis = 0;
    lastswitch=1;
    if (translate == 1 && verilog == 0)
      {
        if (processfound && !openedcase)
          {
            fprintf (file, "\n");
            for (i = 0; i < openedkeys; i++)
              fprintf (file, "   ");
            fprintf (file, "case");
            switchfound++;
            switchparenthesis[switchfound] = openedkeys + 1;
          }else if (processfound)
          {
            fprintf (file, ":\n");
            for (i = 0; i < openedkeys; i++)
              fprintf (file, "   ");
            fprintf(file,"begin\n");
            for (i = 0; i < openedkeys; i++)
              fprintf (file, "   ");
            fprintf (file, "case");
            switchfound++;
            switchparenthesis[switchfound] = openedkeys + 1;
          }
      }
    else if (verilog == 1)
      fprintf (file, "switch");
  };
 
case_number:
CASE NUMBER SYMBOL
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
         if (!openedcase)
          for (i = 0; i < openedkeys; i++)
            fprintf (file, "   ");
          if (openedcase)
            fprintf (file, ", %d", $2);
          else
            fprintf (file, "%d", $2);
 
          newline = 1;
          openedcase = 1;
 
        }
    }
  else if (verilog == 1)
    fprintf (file, "case %d %s", $2, (char *) $3);
};
 
case_hexnumber:
CASE HEXA NUMBER SYMBOL
{
  //Is a dec number
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
         if (!openedcase)
          for (i = 0; i < openedkeys; i++)
            fprintf (file, "   ");
          if (openedcase)
            fprintf (file, ", 'h%d", $3);
          else
            fprintf (file, "'h%d", $3);
 
          newline = 1;
          openedcase = 1;
 
        }
    }
  else if (verilog == 1)
    fprintf (file, "case %d %s", $3, (char *) $4);
};
 
case_hexword:
CASE HEXA WORD SYMBOL
{
  //Begin with a-F
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
         if (!openedcase)
          for (i = 0; i < openedkeys; i++)
            fprintf (file, "   ");
          if (openedcase)
            fprintf (file, ", 'h%s", (char *)$3);
          else
            fprintf (file, "'h%s", (char *)$3);
 
          newline = 1;
          openedcase = 1;
 
        }
    }
  else if (verilog == 1)
    fprintf (file, "case 0x%s %s", (char *)$3, (char *) $4);
};
 
case_hexnumberword:
CASE HEXA NUMBER WORD SYMBOL
{
  //Hex number beginning with dec number
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
         if (!openedcase)
          for (i = 0; i < openedkeys; i++)
            fprintf (file, "   ");
          if (openedcase)
            fprintf (file, ", 'h%d%s", $3,(char *)$4);
          else
            fprintf (file, "'h%d%s", $3,(char *)$4);
 
          newline = 1;
          openedcase = 1;
 
        }
    }
  else if (verilog == 1)
    fprintf (file, "case %d%s %s", $3, (char *) $4, (char *)$5);
};
 
case_word:
CASE WORD SYMBOL
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
         if (!openedcase)
          for (i = 0; i < openedkeys; i++)
            fprintf (file, "   ");
          if (openedcase){
            if (IsDefine (defineslist, (char *) $2))
              fprintf (file, ", `%s", (char *) $2);
                else
                  fprintf (file, ", %s", (char *) $2);
          }else{
            if (IsDefine (defineslist, (char *) $2))
              fprintf (file, "`%s", (char *) $2);
                else
                  fprintf (file, "%s", (char *) $2);
      }
          newline = 1;
          openedcase = 1;
 
        }
    }
  else if (verilog == 1)
    fprintf (file, "case %s %s", (char *) $2, (char *) $3);
};
 
case_default:
DEFAULT SYMBOL
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
         if (!openedcase)
          for (i = 0; i < openedkeys; i++)
            fprintf (file, "   ");
          fprintf (file, "default:\n");
          for (i = 0; i < openedkeys; i++)
            fprintf (file, "   ");
          fprintf (file, "begin\n");
          newline = 1;
          default_found = 1;
        }
    }
  else if (verilog == 1)
    fprintf (file, "default %s", (char *) $2);
};
 
case_only:
CASE OPENPAR
{
  defineparenthesis = 0;
  //This rule occurs when in Verilog mode a case appears
  if (verilog == 1)
    fprintf (file, "case(");
};
 
break:
BREAK SEMICOLON
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          if (newline == 0)
            fprintf (file, "\n");
          for (i = 0; i < openedkeys; i++)
            fprintf (file, "   ");
          fprintf (file, "end\n");
          if (default_found)
            {
              default_break_found = 1;
            }
        }
    }
  else if (verilog == 1)
    fprintf (file, "break;");
};
 
hexa:
HEXA
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          fprintf (file, "'h");
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, "'h");
        }
    }
  else if (verilog == 1)
    fprintf (file, "0x");
};
 
translateoff:
TRANSLATEOFF
{
  defineparenthesis = 0;
  translate = 0;
  fprintf (stderr, "line: %d Found Translate off directive \n", lineno);
};
 
translateon:
TRANSLATEON
{
  defineparenthesis = 0;
  translate = 1;
  fprintf (stderr, "line: %d Found Translate on directive \n", lineno);
};
 
verilogbegin:
VERILOGBEGIN
{
  defineparenthesis = 0;
  verilog = 1;
  fprintf (stderr, "line: %d Found Verilog Begin directive \n", lineno);
};
 
verilogend:
VERILOGEND
{
  defineparenthesis = 0;
  verilog = 0;
  fprintf (stderr, "line: %d Found Verilog End directive \n", lineno);
};
 
ifdef:
PIFDEF
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          ifdeffound = 1;
          fprintf (file, "`ifdef");
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, "`ifdef");
        }
    }
  else if (verilog == 1)
    fprintf (file, "#ifdef");
};
 
ifndef:
PIFNDEF
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          ifdeffound = 1;
          fprintf (file, "`ifndef");
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, "`ifndef");
        }
    }
  else if (verilog == 1)
    fprintf (file, "#ifndef");
};
 
endif:
PENDDEF
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          fprintf (file, "`endif");
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, "`endif");
        }
    }
  else if (verilog == 1)
    fprintf (file, "#endif");
};
 
pelse:
PELSE
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          fprintf (file, "`else");
        }
      else if (definefound)
        {
          fprintf (FILE_DEFINES, "`else");
        }
    }
  else if (verilog == 1)
    fprintf (file, "#else");
};
 
ttrue:
TTRUE
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          fprintf (file, "1");
        }
    }
  else if (verilog == 1)
    fprintf (file, "1");
};
 
 
tfalse:
TFALSE
{
  defineparenthesis = 0;
  if (translate == 1 && verilog == 0)
    {
      if (processfound)
        {
          fprintf (file, "0");
        }
    }
  else if (verilog == 1)
    fprintf (file, "0");
};
 
comment:
COMMENT
{
if(processfound){
  //To manage comments inside switch statements
  if(lastswitch){
        openedcase=0;
  }else if (openedcase){
        fprintf (file, " :\n");
      for (i = 0; i < openedkeys; i++)
                fprintf (file, "   ");
        fprintf(file,"begin\n");
        openedcase=0;
  }
  //indent
  if(newline){
    for (i = 0; i < openedkeys; i++)
          fprintf (file, "   ");
        newline=0;
  }
  fprintf (file, " %s", (char *)$1);
 }
}
 
struct_dec:
STRUCT OPENKEY
{
  struct_found=1;
}
 

Line No.	Rev	Author	Line
1	2	jcastillo	`/* -----------------------------------------------------------------------------`
2			`*`
3	16	jcastillo	`* SystemC to Verilog Translator v0.4`
4	31	jcastillo	`* Provided by Universidad Rey Juan Carlos`
5	2	jcastillo	`*`
6			`* -----------------------------------------------------------------------------`
7			`* This program is free software; you can redistribute it and/or modify`
8			`* it under the terms of the GNU General Public License as published by`
9			`* the Free Software Foundation; either version 2 of the License, or`
10			`* (at your option) any later version.`
11			`*`
12			`* This program is distributed in the hope that it will be useful,`
13			`* but WITHOUT ANY WARRANTY; without even the implied warranty of`
14			`* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
15			`* GNU Library General Public License for more details.`
16			`*`
17			`* You should have received a copy of the GNU General Public License`
18			`* along with this program; if not, write to the Free Software`
19			`* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.`
20			`*/`
21
22
23			`%{`
24			`#include`
25			`#include`
26	33	jcastillo	`#include "sglib.h"`
27	14	jcastillo	`#include "sc2v_step1.h"`
28	2	jcastillo
29	16	jcastillo	`int lineno = 1;`
30	12	jcastillo	`int processfound = 0;`
31			`int switchfound = 0;`
32	23	jcastillo	`int lastswitch=0;`
33	12	jcastillo	`int switchparenthesis[256];`
34			`int ifdeffound = 0;`
35			`char processname, processname2;`
36			`char *fileregs;`
37			`char *filename;`
38			`int openedkeys = 0;`
39			`int newline = 0;`
40			`int reg_found = 0;`
41	35	jcastillo	`int sigreg_found = 0;`
42	25	jcastillo	`int reglenght = 0;`
43			`int writelenght = 0;`
44	20	jcastillo	`int array_size=0;`
45	19	jcastillo	`int integer_found=0;`
46	12	jcastillo	`int regs_end;`
47			`int i = 0; //for loops counter`
48			`FILE *file;`
49			`FILE *regs_file;`
50			`char regname, regname2;`
51			`char *lastword; // Stores last WORD for use it in WRITE`
52			`char *file_defines;`
53			`FILE *FILE_DEFINES;`
54			`char *file_writes;`
55			`FILE *FILE_WRITES; //FILE to store .write to know if it is a wire or reg`
56			`int definefound = 0;`
57			`int defineinvocationfound = 0;`
58			`int opencorchfound = 0;`
59			`int defineparenthesis = 0;`
60			`int openedcase = 0;`
61	28	jcastillo	`int writingvar=0;`
62	2	jcastillo
63	12	jcastillo	`int default_break_found = 0;`
64			`int default_found;`
65	2	jcastillo
66	33	jcastillo	`int struct_found=0;`
67			`int end_struct=0;`
68			`int ignore_semicolon=0;`
69			`char *structname;`
70
71	4	jcastillo	`//Directives variables`
72	12	jcastillo	`int translate;`
73			`int verilog;`
74			`int writemethod;`
75	4	jcastillo
76	12	jcastillo	`void yyerror (const char *str)`
77			`{`
78	15	jcastillo	`fprintf (stderr, "line: %d error: %s\n", lineno, str);`
79	12	jcastillo	`}`
80	2	jcastillo
81	12	jcastillo	`int yywrap ()`
82			`{`
83			`return 1;`
84			`}`
85	2	jcastillo
86	12	jcastillo	`main ()`
87			`{`
88			`int i;`
89	10	jcastillo
90	16	jcastillo	`defineslist = NULL;`
91			`regslist = NULL;`
92	33	jcastillo	`structslist = NULL;`
93			`structsreglist = NULL;`
94	2	jcastillo
95	35	jcastillo	`fprintf (stderr, "\nSystemC to Verilog Translator v0.6");`
96	16	jcastillo	`fprintf (stderr,`
97	35	jcastillo	`"\nProvided by URJC(Universidad Rey Juan Carlos)\nhttp://gdhwsw.escet.urjc.es\n\n");`
98	16	jcastillo	`fprintf (stderr, "Parsing implementation file.......\n\n");`
99
100	14	jcastillo	`processname = (char ) malloc (256 sizeof (char));`
101			`processname2 = (char ) malloc (256 sizeof (char));`
102			`fileregs = (char ) malloc (256 sizeof (char));`
103	12	jcastillo
104	14	jcastillo	`file_defines = (char ) malloc (256 sizeof (char));`
105	12	jcastillo	`strcpy (file_defines, (char *) "file_defines.sc2v");`
106			`FILE_DEFINES = fopen (file_defines, (char *) "w");`
107	16	jcastillo
108	14	jcastillo	`file_writes = (char ) malloc (256 sizeof (char));`
109	12	jcastillo	`strcpy (file_writes, (char *) "file_writes.sc2v");`
110			`FILE_WRITES = fopen (file_writes, (char *) "w");`
111
112	16	jcastillo	`lastword = (char ) malloc (sizeof (char) 256);`
113	33	jcastillo	`structname = (char ) malloc (sizeof (char) 256);`
114	12	jcastillo
115			`for (i = 0; i < 256; i++)`
116			`switchparenthesis[i] = 0;`
117
118			`translate = 1;`
119			`verilog = 0;`
120			`writemethod = 0;`
121	16	jcastillo
122			`FILE *yyin = stdin;`
123			`FILE *yyout = stdout;`
124	12	jcastillo	`yyparse ();`
125			`fclose (FILE_WRITES);`
126			`fclose (FILE_DEFINES);`
127	16	jcastillo
128			`fprintf (stderr, "\nDone\n\n");`
129	12	jcastillo	`}`
130
131	2	jcastillo	`%}`
132
133	35	jcastillo	`%token NUMBER WORD SC_REG SC_SIGREG BOOL BIGGER LOWER OPENKEY CLOSEKEY WRITE SYMBOL NEWLINE ENUM INCLUDE`
134	16	jcastillo	`%token COLON SEMICOLON RANGE OPENPAR CLOSEPAR TWODOUBLEPOINTS OPENCORCH CLOSECORCH SWITCH CASE DEFAULT BREAK`
135	19	jcastillo	`%token HEXA DEFINE READ TRANSLATEOFF TRANSLATEON VERILOGBEGIN VERILOGEND TAB DOLLAR MINEQ`
136			`%token VOID TTRUE TFALSE ENDFUNC INC DEC INTEGER EQUALS`
137	33	jcastillo	`%token PIFDEF PIFNDEF PENDDEF PELSE COMMENT STRUCT DOT`
138	2	jcastillo
139	16	jcastillo	`%% commands: /* empty */`
140	12	jcastillo	`\|commands command;`
141	2	jcastillo
142			`command:`
143	33	jcastillo	`struct_dec`
144	16	jcastillo	`\|`
145	33	jcastillo	`endfunc`
146			`\|`
147	12	jcastillo	`voidword`
148			`\|`
149			`include`
150			`\|`
151			`dollar`
152			`\|`
153			`tab`
154			`\|`
155			`read`
156			`\|`
157	16	jcastillo	`sc_reg`
158	12	jcastillo	`\|`
159	35	jcastillo	`sc_sigreg`
160			`\|`
161	19	jcastillo	`integer`
162			`\|`
163	12	jcastillo	`number`
164			`\|`
165			`bool`
166			`\|`
167			`word`
168			`\|`
169			`symbol`
170			`\|`
171			`write`
172			`\|`
173			`newline`
174			`\|`
175			`openkey`
176			`\|`
177			`closekey`
178			`\|`
179			`colon`
180			`\|`
181			`semicolon`
182			`\|`
183			`range`
184			`\|`
185			`openpar`
186			`\|`
187	19	jcastillo	`closepar`
188			`\|`
189			`void`
190			`\|`
191			`opencorch`
192			`\|`
193			`closecorch`
194			`\|`
195			`bigger`
196			`\|`
197			`lower`
198			`\|`
199			`switch`
200			`\|`
201			`case_only`
202			`\|`
203			`case_number`
204			`\|`
205			`case_hexnumber`
206			`\|`
207	24	jcastillo	`case_hexword`
208			`\|`
209			`case_hexnumberword`
210			`\|`
211	19	jcastillo	`case_word`
212			`\|`
213			`case_default`
214			`\|`
215			`break`
216			`\|`
217			`hexa`
218			`\|`
219			`definemacro`
220			`\|`
221			`defineword`
222			`\|`
223	39	vasiliev	`definewordsimple`
224			`\|`
225	19	jcastillo	`definenumber`
226			`\|`
227			`translateoff`
228			`\|`
229			`translateon`
230			`\|`
231			`verilogbegin`
232			`\|`
233			`verilogend`
234			`\|`
235			`ifdef`
236	27	jcastillo	`\|`
237			`ifndef`
238	19	jcastillo	`\|`
239			`endif`
240			`\|`
241			`pelse`
242			`\|`
243			`ttrue`
244			`\|`
245			`tfalse`
246			`\|`
247			`increment`
248			`\|`
249			`decrement`
250			`\|`
251			`equal`
252			`\|`
253	28	jcastillo	`minorequal`
254			`\|`
255	33	jcastillo	`comment`
256			`\|`
257			`struct_access`
258			`;`
259
260			`struct_access:`
261			`WORD DOT WORD`
262			`{`
263	35	jcastillo
264	33	jcastillo	`/*Struct access`
265			`Check if it is a var acess or a reg*/`
266			`if (newline){`
267			`for (i = 0; i < openedkeys; i++)`
268			`fprintf (file, " ");`
269			`}`
270	35	jcastillo
271	33	jcastillo	`strcpy(structname,(char *)$3);`
272			`strcat(structname,(char *)$1);`
273			`regname2 = IsReg (regslist, structname);`
274	35	jcastillo
275			`if (regname2 == NULL){`
276	33	jcastillo	`fprintf (file, "%s ", structname);`
277	35	jcastillo	`}else{`
278	33	jcastillo	`fprintf (file, "%s", regname2);`
279	35	jcastillo	`}`
280	33	jcastillo	`newline = 0;`
281
282	35	jcastillo
283			`/printf("Access to struct %s.%s\n",(char )$1,(char )$3);/`
284	33	jcastillo	`}`
285
286	19	jcastillo	`minorequal:`
287			`MINEQ`
288			`{`
289			`//This rule is needed because <= in the step two could be confused with a non-blocking assignment`
290			`defineparenthesis = 0;`
291			`if (translate == 1 && verilog == 0)`
292			`{`
293			`if (processfound)`
294			`{`
295			`fprintf (file, "<1+");`
296			`}`
297			`}`
298			`else if (verilog == 1)`
299			`fprintf (file, "<=");`
300			`};`
301	4	jcastillo
302	16	jcastillo	`endfunc:`
303			`ENDFUNC`
304			`{`
305			`defineparenthesis = 0;`
306			`if (translate == 1 && verilog == 0)`
307			`{`
308			`if (processfound)`
309			`{`
310			`for (i = 0; i < openedkeys; i++)`
311			`fprintf (file, " ");`
312			`fprintf (file, "%s = ", processname);`
313			`}`
314			`}`
315			`else if (verilog == 1)`
316			`fprintf (file, "return ");`
317			`};`
318	12	jcastillo
319	16	jcastillo
320	4	jcastillo	`voidword:`
321	12	jcastillo	`VOID`
322			`{`
323			`defineparenthesis = 0;`
324			`if (verilog == 1)`
325			`fprintf (file, " void");`
326			`};`
327	4	jcastillo
328	12	jcastillo
329	4	jcastillo	`include:`
330	12	jcastillo	`INCLUDE`
331			`{`
332			`defineparenthesis = 0;`
333			`if (verilog == 1)`
334			`fprintf (file, " #include");`
335			`};`
336	4	jcastillo
337
338			`dollar:`
339	12	jcastillo	`DOLLAR`
340			`{`
341			`defineparenthesis = 0;`
342			`if (verilog == 1)`
343			`fprintf (file, " $");`
344			`};`
345	4	jcastillo
346
347			`tab:`
348	12	jcastillo	`TAB`
349			`{`
350			`defineparenthesis = 0;`
351			`if (verilog == 1)`
352			`fprintf (file, " \t");`
353			`};`
354
355	2	jcastillo	`read:`
356	12	jcastillo	`READ OPENPAR CLOSEPAR`
357			`{`
358			`defineparenthesis = 0;`
359			`if (verilog == 1)`
360			`fprintf (file, ".read()");`
361	4	jcastillo
362	12	jcastillo	`}`
363
364	39	vasiliev	`definewordsimple:`
365			`DEFINE WORD`
366			`{`
367
368			`defineparenthesis = 0;`
369			`if (translate == 1 && verilog == 0)`
370			`{`
371			`if (processfound)`
372			`{`
373			fprintf (file, "`define %s\n", (char *) $2);
374			`}`
375			`else`
376			`{`
377			fprintf (FILE_DEFINES, "`define %s\n", (char *) $2);
378			`}`
379			`}`
380			`else if (verilog == 1)`
381			`fprintf (file, "#define %s\n", (char *) $2);`
382
383			`};`
384
385	12	jcastillo	`defineword:`
386			`DEFINE WORD WORD`
387			`{`
388	16	jcastillo
389	12	jcastillo	`defineparenthesis = 0;`
390			`if (translate == 1 && verilog == 0)`
391			`{`
392			`if (processfound)`
393			`{`
394			fprintf (file, "`define %s %s\n", (char ) $2, (char ) $3);
395	16	jcastillo	`defineslist = InsertDefine (defineslist, (char *) $2);`
396	12	jcastillo	`}`
397			`else`
398			`{`
399			fprintf (FILE_DEFINES, "`define %s %s\n", (char ) $2, (char ) $3);
400	16	jcastillo	`defineslist = InsertDefine (defineslist, (char *) $2);`
401	12	jcastillo	`}`
402			`}`
403			`else if (verilog == 1)`
404			`fprintf (file, "#define %s %s\n", (char ) $2, (char ) $3);`
405
406			`};`
407
408			`definenumber:`
409			`DEFINE WORD NUMBER`
410			`{`
411	16	jcastillo
412	12	jcastillo	`defineparenthesis = 0;`
413			`if (translate == 1 && verilog == 0)`
414			`{`
415			`if (processfound)`
416			`{`
417			fprintf (file, "`define %s %d\n", (char *) $2, (int) $3);
418	16	jcastillo	`defineslist = InsertDefine (defineslist, (char *) $2);`
419	12	jcastillo	`}`
420			`else`
421			`{`
422			fprintf (FILE_DEFINES, "`define %s %d\n", (char *) $2, (int) $3);
423	16	jcastillo	`defineslist = InsertDefine (defineslist, (char *) $2);`
424	12	jcastillo	`}`
425			`}`
426			`else if (verilog == 1)`
427			`fprintf (file, "#define %s %d\n", (char *) $2, (int) $3);`
428
429			`};`
430
431
432			`definemacro:`
433			`DEFINE WORD OPENPAR CLOSEPAR`
434			`{`
435			`defineparenthesis = 0;`
436			`//Macro found`
437			`if (translate == 1 && verilog == 0)`
438			`{`
439	16	jcastillo	`defineslist = InsertDefine (defineslist, (char *) $2);`
440
441	12	jcastillo	`definefound = 1;`
442			`if (processfound)`
443			fprintf (file, "`define %s ", (char *) $2);
444			`else`
445			fprintf (FILE_DEFINES, "`define %s ", (char *) $2);
446			`}`
447			`else if (verilog == 1)`
448			`fprintf (file, "#define %s ()", (char *) $2);`
449			`}`
450
451	19	jcastillo	`void:`
452			`WORD TWODOUBLEPOINTS WORD OPENPAR`
453	12	jcastillo	`{`
454			`defineparenthesis = 0;`
455			`if (translate == 1 && verilog == 0)`
456			`{`
457			`strcpy (processname, (char *) $4);`
458			`strcpy (processname2, (char *) $4);`
459			`strcat (processname2, (char *) ".sc2v");`
460			`strcpy (fileregs, (char *) $4);`
461			`strcat (fileregs, (char *) "_regs.sc2v");`
462			`}`
463			`else if (verilog == 1)`
464			`fprintf (file, " %s::%s()", (char ) $1, (char ) $3);`
465
466			`}`
467
468	16	jcastillo	`sc_reg:`
469			`SC_REG LOWER NUMBER BIGGER`
470	12	jcastillo	`{`
471			`defineparenthesis = 0;`
472			`if (translate == 1 && verilog == 0)`
473			`{`
474			`if (processfound)`
475			`{`
476	25	jcastillo	`writelenght=1;`
477			`reglenght = $3;`
478	12	jcastillo	`reg_found = 1;`
479			`}`
480			`}`
481	16	jcastillo	`};`
482	2	jcastillo
483	35	jcastillo	`sc_sigreg:`
484			`SC_SIGREG LOWER NUMBER BIGGER`
485			`{`
486			`defineparenthesis = 0;`
487			`if (translate == 1 && verilog == 0)`
488			`{`
489			`if (processfound)`
490			`{`
491			`writelenght=1;`
492			`reglenght = $3;`
493			`sigreg_found = 1;`
494			`}`
495			`}`
496			`};`
497
498	19	jcastillo	`integer:`
499			`INTEGER`
500			`{`

Browse

Tools

Subversion Repositories sc2v

[/] [sc2v/] [trunk/] [src/] [sc2v_step1.y] - Blame information for rev 39