Subversion Repositories Vertical

%{

/*

 * $Id: mentor_yacc.y,v 1.1.1.1 2003/11/04 23:34:57 mjames Exp $

 *

 * $Log: mentor_yacc.y,v $

 * Revision 1.1.1.1  2003/11/04 23:34:57  mjames

 * Imported into local repositrory

 *

 * Revision 1.3  2002/10/02 19:37:28  MJAMES

 * Moved dummy functions to a separate support file.

 *

 * Used correct number of arguments to define_pin

 *

 * Revision 1.2  2002/09/09 10:36:20  mjames

 * Checkpoint checkin

 *

 * Revision 1.1  2002/08/14 12:13:01  mjames

 * Mentor Board Station reader modified to work with latest .nets file format

 *

 * Revision 1.1  2002/04/04 14:53:07  mjames

 * Added mentor board station reader to the portfolio

 *

 * Revision 1.6  2001/10/31 22:20:09  mjames

 * Tidying up problematical comments caused by CVS

 * 'intelligent' comment guessing

 *

 * Revision 1.5  2001/10/02 20:53:27  mjames

 * Moved documentation about code to main program module.

 *

 * Revision 1.4  2001/09/16 19:55:42  mjames

 * tidying

 *

 * Revision 1.3  2001/06/06 12:10:20  mjames

 * Move from HPUX

 *

 * Revision 1.2  2000/12/04 13:14:03  mjames

 * Imported all of the PCB syntax readers.

 *

 * Converted "a/b" to mean "a" divided by "b" insted of a single string

 * "a/b" in Verilog

 *

 * Revision 1.1.1.1  2000/10/19 21:58:38  mjames

 * Mike put it here

 *

 *

 * Revision 1.27  2000/10/04  10:37:07  10:37:07  mjames (Mike James)

 * Modified for Vertical2 : support COMPONENTS and SIGNALS

 * 

 * Revision 1.24  2000/09/27  10:58:04  10:58:04  mjames (Mike James)

 * Using correct return code from yyparse()

 * 

 * Revision 1.13  2000/03/08  16:19:19  16:19:19  mjames (Mike James)

 * New version including PC

 * 

 * Revision 1.10  2000/01/20  15:58:46  15:58:46  mjames (Mike James)

 * Part of Release R22

 * 

 * Revision 1.9  99/12/22  11:15:27  11:15:27  mjames (Mike James)

 * Part of Release Dec_22_1999

 * 

 * Revision 1.8  99/06/25  14:35:45  14:35:45  mjames (Mike James)

 * Added in reference to expression.h, but no changes made 

 * to the function of acfread yet.

 * 

 * Revision 1.7  99/05/04  09:52:32  09:52:32  mjames (Mike James)

 * General checkin

 * 

 * Revision 1.5  98/07/14  13:24:51  13:24:51  mjames (Mike James)

 * Altered calling of some database functions

 * 

 * Revision 1.4  98/02/11  11:26:46  11:26:46  mjames (Mike James)

 * Checked in for version 6.2a

 * 

 * Revision 1.3  97/04/23  08:45:10  08:45:10  mjames (Mike James)

 * CHecked in for release rel23041997

 * 

 * Revision 1.2  96/12/23  15:16:50  15:16:50  mjames (Mike James)

 * Altered because find_socket takes a reference

 * to the head-of-list-pointer noth the pointer itself.

 * 

 * Revision 1.1  96/12/13  08:43:46  08:43:46  mjames (Mike James)

 * Initial revision

 * 

 *

 *  */

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "expression.h"

#include "generic.h"

#include "database.h"

#include "routing.h"

#ident "@(#)$Header: C:/cvsroot/Vert03/mentor_src/mentor_yacc.y,v 1.1.1.1 2003/11/04 23:34:57 mjames Exp $";

static socket_t * current_chip;

static char curr_net_nam[MAXIDLEN];

int inside_block;

static char illegal[]="#$:|/.\\ +-";

static char replace[]="Hsxxnxx_PN";

char *  fix_name(char * str)

  {

  int i,j,l;

  l=strlen(str);

  /* edit out illegal strings from the net name */

  for(i=0;i<l;i++)

    {

    for(j=0;j<sizeof(illegal);j++)

      {

      if (str[i]==illegal[j])

        {

        str[i] = replace[j];

        }

      }

    }

  return str;

  }

%}

%union { char * string; }

%token  NET NET_TYPE  NL QUOTE ENDFILE

%token <string> ASTRING

%token <string> POWERS

%%

file    : objects ENDFILE;

objects : objects object

        | object

        ;

object  : net_list

        | gap

        ;

net_list    : NET  net_name net_items gap ;

net_items  : net_items net_item

           | net_item

           ;

net_item    :   net_attribute

              |   pin

              ;              

net_name   : QUOTE ASTRING QUOTE { strcpy(curr_net_nam,$2); };

pin        : ASTRING '-' ASTRING { define_pin(&routed_list,

                              find_socket(Ident,$1,Create,&socket_head),

                              curr_net_nam,BIDIR,0,fix_name($3),

                              default_vhdl_datatype,NULL); }

            | QUOTE ASTRING '-' ASTRING QUOTE { define_pin(&routed_list,

                              find_socket(Ident,$2,Create,&socket_head),

                              curr_net_nam,BIDIR,0,fix_name($4),

                              default_vhdl_datatype,NULL); }

             ;             

gap              : NL gap

                  | NL

                  ;

net_attribute    : '(' ASTRING ',' 

                   QUOTE ASTRING QUOTE ')' 

    { net_t * thisnet;

      printf("--Net %s has attribute %s,%s (GUESS NOT ROUTABLE!!)\n",curr_net_nam,$2,$5);

      thisnet = find_net(&routed_list,

                Ident,

                curr_net_nam,

                Create);

     if(thisnet)

      {

      thisnet->how_routed = Not_Routable;

     }

    }

              | '(' ASTRING ',' QUOTE POWERS QUOTE ')' 

   {     net_t * thisnet;

         printf("--Net %s has attribute %s,%s (GUESS NOT ROUTABLE!!)\n",curr_net_nam,$2,$5);

         thisnet = find_net(&routed_list,

                Ident,

                curr_net_nam,

                Create);

     if(thisnet)

      {

      thisnet->how_routed = Not_Routable;

      }            

     };

%%

/* defining lineno here */

int lineno;

extern char * yytext;

int yyerror(char * x)

  {

  int token;

  printf("-- Error --> %s near string (%s) at line %d\n",x,yytext,lineno);

/*  for(token = yylex();token >= 0 && token!=NL;token = yylex()); */

  return 1;

  }

int yywrap(void)

  {

  return 1;

  }