Subversion Repositories Vertical

%{

/* 

 * $Header: C:/cvsroot/Vert03/gen_src/gen_yacc.y,v 1.1.1.1 2003/11/04 23:34:57 mjames Exp $

 *

 * $Log: gen_yacc.y,v $

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

 * Imported into local repositrory

 *

 * 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  2001/10/31 22:20:07  mjames

 * Tidying up problematical comments caused by CVS

 * 'intelligent' comment guessing

 *

 * Revision 1.7  2001/10/02 20:53:46  mjames

 * Moved documentation about code to main program module.

 *

 * Revision 1.6  2001/09/16 19:59:20  mjames

 * tidying

 *

 * Revision 1.5  2001/06/07 10:28:06  MJAMES

 * Removed ] symbol dropped in by mistake

 *

 * Revision 1.4  2001/06/06 14:46:02  mjames

 * Added further Verilog support.

 * Corrected write ext command to not require additional argument.

 * Added write quartus for creation of a pinfit file relevant to Quartus

 *

 * Revision 1.3  2001/06/06 12:10:21  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.18  2000/10/04  10:37:06  10:37:06  mjames (Mike James)

 * Modified for Vertical2 : support COMPONENTS and SIGNALS

 * 

 * Revision 1.15  2000/09/27  10:45:41  10:45:41  mjames (Mike James)

 * Corrected to use correct return code from yyparse()

 * 

 * Revision 1.14  2000/09/21  10:15:45  10:15:45  mjames (Mike James)

 * Part of Release Sep21Alpha

 * 

 * Revision 1.13  2000/08/25  09:57:18  09:57:18  mjames (Mike James)

 * Part of Release Aug25_alpha

 * 

 * Revision 1.12  2000/08/16  08:57:35  08:57:35  mjames (Mike James)

 * Part of Release CD01_Aug2000

 * 

 * Revision 1.11  2000/08/14  14:45:15  14:45:15  mjames (Mike James)

 * Part of Release Aug_14_2000

 * 

 * Revision 1.10  2000/08/11  08:30:36  08:30:36  mjames (Mike James)

 * Part of Release Aug_11_2000

 * 

 * Revision 1.9  2000/08/09  10:31:52  10:31:52  mjames (Mike James)

 * Part of Release Aug__9_2000

 * 

 * Revision 1.8  2000/05/31  11:43:03  11:43:03  mjames (Mike James)

 * Part of Release May_31_2000

 * 

 * Revision 1.7  2000/05/08  17:01:42  17:01:42  mjames (Mike James)

 * Part of Release May__8_2000

 * 

 * Revision 1.6  2000/05/08  16:59:35  16:59:35  mjames (Mike James)

 * Part of Release May__8_2000

 * 

 * Revision 1.5  2000/05/08  16:57:11  16:57:11  mjames (Mike James)

 * Part of Release May__8_2000

 * 

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

 * New version including PC

 * 

 * Revision 1.1  2000/02/23  13:17:00  13:17:00  mjames (Mike James)

 * Initial revision

 * 

 * 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

 * 

 *

 *  */

/*

@title

PROGRAM genread: Converter for .GEN files

@text

PCB netlist to ACFP converter. Looks for netlists in ASCII containing tags like:

@listing

$PACKAGES

$NETS   

$END    

@text

Commonly seen with a '.GEN' file suffix. Lots of exclamation marks '!' in the

netlist file. Mentor Graphics ?

@end

*/

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "expression.h"

#include "generic.h"

#include "database.h"

static char IDstr[] = "@(#)$Header: C:/cvsroot/Vert03/gen_src/gen_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;

%}

%union { char * string; }

%token PACKAGES NETS END NL PLING SEMI DOT COMMA

%token <string> ASTRING

%%

objects : objects object

        | object

        ;

object  : package_list

        | nets_list

        | END  NL

        | gap

        ;

package_list : PACKAGES NL component_lines gap;

nets_list    : NETS     NL nets gap ;

component_lines : component_lines component_line

                | component_line

                ;

component_line :  ASTRING PLING ASTRING SEMI ASTRING NL {

                 current_chip = find_socket(Ident,$5,Create,&socket_head);

                 set_socket(current_chip,Type,$1) ;

                 set_socket(current_chip,Value,$3) ;

                 };

nets            : net nets

                | net

                ;

net  : net_name pins gap;

pins       : pins pin

                | pin

                | pins COMMA NL pins

                ;

net_name   : ASTRING SEMI { strcpy(curr_net_nam,$1); };

pin           : ASTRING DOT ASTRING { define_pin(&routed_list,

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

                              curr_net_nam,BIDIR,0,$3,

                              default_vhdl_datatype,NULL); };

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)

  {

  return 1;

  }