Subversion Repositories Vertical

%{
/*
 * $Id: frb_yacc.y,v 1.10 2002/10/02 19:37:29 MJAMES Exp $
 *
 * $Log: frb_yacc.y,v $
 * Revision 1.10  2002/10/02 19:37:29  MJAMES
 * Moved dummy functions to a separate support file.
 *
 * Used correct number of arguments to define_pin
 *
 * Revision 1.9  2002/09/09 10:36:20  mjames
 * Checkpoint checkin
 *
 * Revision 1.8  2002/01/21 09:34:50  mjames
 * FRBread adds the ability to ignore .ATT_PIN construct that appears in
 * a recent FRB file.
 *
 * Revision 1.7  2001/10/31 22:20:06  mjames
 * Tidying up problematical comments caused by CVS
 * 'intelligent' comment guessing
 *
 * Revision 1.6  2001/10/02 20:53:47  mjames
 * Moved documentation about code to main program module.
 *
 * Revision 1.5  2001/08/31 09:36:41  mjames
 * removed DOS line endings
 *
 * Revision 1.4  2001/06/06 12:10:22  mjames
 * Move from HPUX
 *
 * Revision 1.3  2001/03/29 08:27:07  mjames
 * Converted frbread for use with the newer files from the drawing office
 *
 * Revision 1.2  2000/12/04 13:14:02  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
 *  */




#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "expression.h"
#include "generic.h"
#include "database.h"


static char IDstr[] = "@(#)$Header: /cygwin/cvsroot/vertical/frb_yacc.y,v 1.10 2002/10/02 19:37:29 MJAMES Exp $";


static socket_t * current_chip;
static char curr_net_nam[MAXIDLEN];
static int curr_pin_dir;
int inside_block;

%}
%union { char * string; }
%token HEADER TIME JOB TYPE APP ADD_COM ADD_TER TER END UNITS 
%token ATT_COM ATT_TRE ATT_PIN
%token NL  ENDFILE
%token <string> ASTRING

%%

file   : objects;



objects : objects object
        | object
        ;


object  : header_line NL
        | add_comp_line NL
        | add_ter_line NL
        | ter_block NL
        | gap
        | END gap
        ;


header_line :junktag { } junk ; 

junktag : HEADER | TIME | JOB | APP  | TYPE | UNITS | ATT_COM | ATT_TRE  | ATT_PIN ;

add_comp_line : ADD_COM  ASTRING ASTRING ASTRING  {
                 current_chip = find_socket(Ident,$2,Create,&socket_head);
                 set_socket(current_chip,Type,$3) ;
                 set_socket(current_chip,Value,$4) ;
                 };

add_ter_line : ADD_TER ASTRING ASTRING ASTRING {
                   define_pin(&routed_list,
                              find_socket(Ident,$2,Create,&socket_head),
                              $4,BIDIR,0,$3,default_vhdl_datatype,NULL);
                   strcpy(curr_net_nam,$4);
                   };

ter_block   : TER ter_lines NL;

ter_lines   : ter_lines NL ter_line 
            | ter_line 
            ;

ter_line:    ASTRING ASTRING {
             define_pin(&routed_list,
                        find_socket(Ident,$1,Create,&socket_head),
                        curr_net_nam,BIDIR,0,$2,default_vhdl_datatype,NULL);
             }
            ;


junk      : any junk 
          | any
          | /* nothing */
          ;


any : ASTRING {  }
    ;



gap              : NL gap
                 | NL
                 ;



%%

/* 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)
  {
  printf("-- end of file at line %d\n",lineno);
  return 1;
  }