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;
  }