Subversion Repositories Vertical

%{

/*

 * $Header: C:/cvsroot/Vert03/mentor_src/mentor_lex.l,v 1.2 2004/06/22 21:44:12 mjames Exp $ 

 *

 * $Log: mentor_lex.l,v $

 * Revision 1.2  2004/06/22 21:44:12  mjames

 * Firrst build most files

 *

 * 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/18 09:18:37  mjames

 * Added dummy function to make code link to create final application

 *

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

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

 *

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

 * Added mentor board station reader to the portfolio

 *

 * Revision 1.4  2001/12/13 22:21:36  mjames

 * Using #ident with header to identify file

 *

 * Added dummy function to satisfy linker needs for read command

 *

 * Revision 1.3  2001/10/31 22:20:08  mjames

 * Tidying up problematical comments caused by CVS

 * 'intelligent' comment guessing

 *

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

 * Move from HPUX

 *

 * Revision 1.1  2001/02/12 10:51:29  mjames

 * Inserted new correct version number in vertcl_main.c

 *

 * Added lex files to the list.

 *

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

 * Part of Release PSAVAT01

 * 

 * Revision 1.21  2000/10/02  11:04:16  11:04:16  mjames (Mike James)

 * new_vhdl

 * 

 * Revision 1.20  2000/09/27  14:42:16  14:42:16  mjames (Mike James)

 * Part of Release Sep_27_ST_2000

 * 

 * Revision 1.19  2000/09/21  10:15:46  10:15:46  mjames (Mike James)

 * Part of Release Sep21Alpha

 * 

 * Revision 1.18  2000/08/25  09:57:13  09:57:13  mjames (Mike James)

 * Part of Release Aug25_alpha

 * 

 * Revision 1.17  2000/08/16  08:57:29  08:57:29  mjames (Mike James)

 * Part of Release CD01_Aug2000

 * 

 * Revision 1.16  2000/08/14  14:45:10  14:45:10  mjames (Mike James)

 * Part of Release Aug_14_2000

 * 

 * Revision 1.15  2000/08/11  08:30:31  08:30:31  mjames (Mike James)

 * Part of Release Aug_11_2000

 * 

 * Revision 1.14  2000/08/09  10:31:45  10:31:45  mjames (Mike James)

 * Part of Release Aug__9_2000

 * 

 * Revision 1.13  2000/05/31  11:42:55  11:42:55  mjames (Mike James)

 * Part of Release May_31_2000

 * 

 * Revision 1.12  2000/05/08  17:01:36  17:01:36  mjames (Mike James)

 * Part of Release May__8_2000

 * 

 * Revision 1.11  2000/05/08  16:59:29  16:59:29  mjames (Mike James)

 * Part of Release May__8_2000

 * 

 * Revision 1.10  2000/05/08  16:57:06  16:57:06  mjames (Mike James)

 * Part of Release May__8_2000

 * 

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

 * New version including PC

 * 

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

 * Part of Release R22

 * 

 * Revision 1.5  99/12/22  11:15:26  11:15:26  mjames (Mike James)

 * Part of Release Dec_22_1999

 * 

 * Revision 1.4  99/06/25  14:35:43  14:35:43  mjames (Mike James)

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

 * to the function of acfread yet.

 * 

 * Revision 1.3  98/02/11  11:26:42  11:26:42  mjames (Mike James)

 * Checked in for version 6.2a

 * 

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

 * CHecked in for release rel23041997

 * 

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

 * Initial revision

 * 

 * Revision 1.14  96/07/19  14:38:28  14:38:28  mjames (Mike James)

 * Update to give to PRL

 *

 * Revision 1.13  1996/07/12  15:52:12  mjames

 * Sorted out things like Alias and Jumpers

 * Work Correctly

 * Print COrrectly

 *

 * Revision 1.12  96/06/17  10:52:22  10:52:22  mjames (Mike James)

 * Tidying up

 *

 * Revision 1.11  96/06/04  11:52:43  11:52:43  mjames (Mike James)

 * Slight modifications

 *

 * Revision 1.10  96/04/26  16:03:54  16:03:54  mjames (Mike James)

 *  Set the limit on token length to be consistent with the rest of the code

 *

 * Revision 1.9  96/03/29  14:47:24  14:47:24  mjames (Mike James)

 * Added VHDL netlist writing to the capabilities of ACFREAD

 *

 * Revision 1.8  96/03/18  13:51:30  13:51:30  mjames (Mike James)

 * Real Revision 2.1

 *

 * Revision 1.6  96/02/13  09:13:19  09:13:19  mjames (Mike James)

 * Updated to be version 2.0 with net joining

 *

 * Revision 1.5  96/02/07  16:01:27  16:01:27  mjames (Mike James)

 * Added correct RCS header

 *

 * Revision 1.4  96/02/07  15:50:32  15:50:32  mjames (Mike James)

 * Added RCS ident message

 *

 * Revision 1.3  96/01/10  13:13:24  13:13:24  mjames (Mike James)

 * Works in debug mode with EPLD listings and PCB layout

 *

 * Revision 1.2  96/01/08  15:23:44  15:23:44  mjames (Mike James)

 * Managing to make sense of things now

 *

 * Revision 1.1  96/01/07  12:40:11  Mike_James

 * Initial revision

 *

 * Revision 1.1  96/01/04  17:55:24  17:55:24  mjames (Mike James)

 * Initial revision

 *

 * Revision 1.2  96/01/04  11:37:16  11:37:16  mjames (Mike James)

 * Compete parsing of FIT and ACF with ignore of junk .

 *

 * Revision 1.1  96/01/04  10:18:25  10:18:25  mjames (Mike James)

 * Initial revision

 *

 *  */

#include <stdio.h>

/* see makefile for why */

#if defined HAS_LEX

#include "tcl_l.h"

#endif

#include "mentor_yacc.h"

#include "lx_support.h"

#include "expression.h"

#include "generic.h"

#include "database.h"

#define YYLMAX MAXIDLEN

#ident "@(#)$Header: C:/cvsroot/Vert03/mentor_src/mentor_lex.l,v 1.2 2004/06/22 21:44:12 mjames Exp $"

extern  int yyval;

extern int lineno;

%}

L [A-Za-z0-9_\~]

L2 [A-Za-z0-9_\+\./\~\*\#|\(\)\$\:]

L3 [A-Za-z0-9_\-\+\./\~\*\#|\(\)\$\:]

Ct [ -\~]

Cm [^\n]

D [0-9]

Spc [ \r\t]

S [^\']

Q [\']

%x inquote in2quote escquote esc2quote nettype netquote net2quote

%%

^"#"{Cm}*"\n"     { lineno++; return(NL);/* Single line */  };

"NET_TYPE"        { free_strings(&lx_first,&lx_last); BEGIN(nettype); return (NET_TYPE); };

"NET"             { free_strings(&lx_first,&lx_last);return (NET); };

<net2quote,netquote>"POWERS"      { yylval.string = make_string(yytext,&lx_first,&lx_last);return (POWERS); /* all of these are power supply attributes */ };

<net2quote,netquote>"HI-CURRENT"  { yylval.string = make_string(yytext,&lx_first,&lx_last);return (POWERS); /* all of these are power supply attributes */ };

<net2quote,netquote>"GROUND"      { yylval.string = make_string(yytext,&lx_first,&lx_last);return (POWERS);  /* all of these are power supply attributes */};   

<net2quote,netquote>"SUPPLY"      { yylval.string = make_string(yytext,&lx_first,&lx_last);return (POWERS);  /* all of these are power supply attributes */};   

<net2quote,netquote>"POWER"       { yylval.string = make_string(yytext,&lx_first,&lx_last);return (POWERS);  /* all of these are power supply attributes */};   

<INITIAL>"'/"       { BEGIN(escquote);return (QUOTE);};

<INITIAL>"\"/"      { BEGIN(esc2quote);return (QUOTE);};

<INITIAL>"'"       { BEGIN(inquote);return (QUOTE);};     

<nettype>"'"        { BEGIN(netquote);return (QUOTE);};   

<netquote,escquote,inquote>"'"       { BEGIN(INITIAL) ;return (QUOTE);};

<INITIAL>"\""      { BEGIN(in2quote);return (QUOTE);};     

<nettype>"\""      { BEGIN(net2quote);return (QUOTE);};     

<net2quote,esc2quote,in2quote>"\""     { BEGIN(INITIAL) ;return (QUOTE);};

<INITIAL>{L}+      { yylval.string = make_string(yytext,&lx_first,&lx_last) ; /* do it anyway */

                     return(ASTRING); };

<netquote,net2quote,inquote,in2quote>{L2}({L2})*    { yylval.string = make_string(yytext,&lx_first,&lx_last) ; /* do it anyway */

                     return(ASTRING); };

<escquote,esc2quote>{L3}* { yylval.string = make_string(yytext,&lx_first,&lx_last) ; /* do it anyway */

                     return(ASTRING); };

{Spc}             { break; /* white space */ };

<INITIAL,inquote,in2quote>"-"                { return ('-'); };

"("                { return ('('); };

")"                { return (')'); };

<INITIAL,nettype>","                { return (','); };

"\n"              { lineno++;return(NL); };

$$             { return (ENDFILE); };

%%