Subversion Repositories Vertical

%{

/*

 * $Id: frb_lex.l,v 1.1.1.1 2003/11/04 23:34:59 mjames Exp $

 *

 * $Log: frb_lex.l,v $

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

 * Imported into local repositrory

 *

 * Revision 1.11  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.10  2002/09/18 09:18:37  mjames

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

 *

 * Revision 1.9  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.8  2002/01/16 11:22:44  mjames

 * database.h header file is read in first as it undefined DLL stuff irrelevant

 * to HPUX

 *

 * Revision 1.7  2001/12/13 22:21:37  mjames

 * Using #ident with header to identify file

 *

 * Added dummy function to satisfy linker needs for read command

 *

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

 * Tidying up problematical comments caused by CVS

 * 'intelligent' comment guessing

 *

 * Revision 1.5  2001/09/16 19:57:29  mjames

 * tidying

 *

 * Revision 1.4  2001/06/06 12:10:22  mjames

 * Move from HPUX

 *

 * Revision 1.3  2001/05/01 15:20:39  mjames

 * Added comment leaders on some patterns matched but not used

 *

 * Revision 1.2  2001/03/29 08:27:07  mjames

 * Converted frbread for use with the newer files from the drawing office

 *

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

 * Inserted new correct version number in vertcl_main.c

 *

 * Added lex files to the list.

 *

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

 * New version including PC

 * 

 * Revision 1.19  2000/01/20  15:58:43  15:58:43  mjames (Mike James)

 * Part of Release R22

 * 

 * Revision 1.18  99/12/22  11:15:24  11:15:24  mjames (Mike James)

 * Part of Release Dec_22_1999

 * 

 * Revision 1.17  99/06/25  14:35:31  14:35:31  mjames (Mike James)

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

 * to the function of acfread yet.

 * 

 * Revision 1.16  98/02/11  11:25:59  11:25:59  mjames (Mike James)

 * Checked in for version 6.2a

 * 

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

 * CHecked in for release rel23041997

 * 

 * 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 */

#include "expression.h"

#if defined HAS_TCL

#include "tcl_l.h"

#endif

#include "generic.h"

#include "database.h"

#include "frb_yacc.h"

#include "lx_support.h"

#define YYLMAX MAXIDLEN

#ident "@(#)$Header: c:\\cygwin\\cvsroot/Vert03/frb_src/frb_lex.l,v 1.1.1.1 2003/11/04 23:34:59 mjames Exp $"

extern  int yyval;

extern int lineno;

%}

L [A-Za-z\~\-]

L2 [A-Za-z0-9_/\~\-.\*]

Ct [ -\~]

Cm [^\n]

D [0-9]

Spc [ \r\t]

S [^\"]

Q [\"]

%%

".HEA"              { return (HEADER); };

".END"              { return (END); };

".TIM"              { return (TIME); };

".UNI"              { return (UNITS); };

".JOB"              { return (JOB); };

".TYP"              { return (TYPE); };

".APP"              { return (APP); };

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

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

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

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

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

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

{Q}{S}*{Q}        {  yylval.string = make_string(yytext,&lx_first,&lx_last) ; /* do it anyway */

                   return(ASTRING); };

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

                   return(ASTRING); };

"--"{Cm}*"\n"     { lineno++; return(NL);/* VHDL comment */  };

"/\*"{Ct}*"*\/"   { break; /* c comment */   };

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

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

.                 { printf("?? unexpected char '%c' code %02X\n",yytext[0]>31?yytext[0]:' ',yytext[0]); };

<<EOF>>           { yyterminate(); };

%%