Subversion Repositories sc2v

/* -----------------------------------------------------------------------------

 *

 *  SystemC to Verilog Translator v0.2

 *  Provided by OpenSoc Design

 *

 *  www.opensocdesign.com

 *

 * -----------------------------------------------------------------------------

 *  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 

int module_found = 0;

int concat_found = 0;

int opened_pars;

int *concat_par_num;

int concats_found = 0;

char *aux;

void yyerror(const char *str)

{

        fprintf(stderr,"error: %s\n",str);

}

int yywrap()

{

        return 1;

}

main()

{

        concat_par_num = (int *)malloc(16*sizeof(int));

        *concat_par_num = 0;

        yyparse();

}

%}

%token WORD

%token OPENPAR CLOSEPAR

%token MODULE

%%

commands: /* empty */

        | commands command

        ;

command:

        module

        |

        closepar

        |

        concat

        |

        openpar

        ;

module:

        MODULE

        {

                module_found = 1;

                opened_pars++;

                printf("%s",(char *)$1);

        };

openpar:

        OPENPAR

        {

                printf("(");

                opened_pars++;

        };

closepar:

        CLOSEPAR

        {

                if(module_found)

                {

                        printf(")");

                        opened_pars--;

                        module_found = 0;

                }

                else if(concat_found)

                {

                     if(opened_pars == *(concat_par_num + concats_found))

                        {

                        printf("}");

                        concats_found--;

                        if(concats_found == 0)

                         {

                          concat_found = 0;

                         }

                        }

                     else

                        {

                         printf(")");

                        }

                     opened_pars--;

                }

                else

                {

                        opened_pars--;

                        printf(")");

                }

        };

concat:

        WORD

        {

                aux = (char *)$1;

                aux++;

                printf("{%s",aux);

                concat_found = 1;

                opened_pars++;

                concats_found++;

                *(concat_par_num + concats_found) = opened_pars;

        };