Details | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 2 | mjames | 1 | %{ |
| 2 | /* |
||
| 3 | * $Header: c:\\cygwin\\cvsroot/Vert03/gen_src/gen_lex.l,v 1.1.1.1 2003/11/04 23:34:57 mjames Exp $ |
||
| 4 | * |
||
| 5 | * $Log: gen_lex.l,v $ |
||
| 6 | * Revision 1.1.1.1 2003/11/04 23:34:57 mjames |
||
| 7 | * Imported into local repositrory |
||
| 8 | * |
||
| 9 | * Revision 1.8 2002/10/02 19:37:29 MJAMES |
||
| 10 | * Moved dummy functions to a separate support file. |
||
| 11 | * |
||
| 12 | * Used correct number of arguments to define_pin |
||
| 13 | * |
||
| 14 | * Revision 1.7 2002/09/18 09:18:37 mjames |
||
| 15 | * Added dummy function to make code link to create final application |
||
| 16 | * |
||
| 17 | * Revision 1.6 2002/09/09 10:36:20 mjames |
||
| 18 | * Checkpoint checkin |
||
| 19 | * |
||
| 20 | * Revision 1.5 2002/01/16 11:22:44 mjames |
||
| 21 | * database.h header file is read in first as it undefined DLL stuff irrelevant |
||
| 22 | * to HPUX |
||
| 23 | * |
||
| 24 | * Revision 1.4 2001/12/13 22:21:37 mjames |
||
| 25 | * Using #ident with header to identify file |
||
| 26 | * |
||
| 27 | * Added dummy function to satisfy linker needs for read command |
||
| 28 | * |
||
| 29 | * Revision 1.3 2001/10/31 22:20:06 mjames |
||
| 30 | * Tidying up problematical comments caused by CVS |
||
| 31 | * 'intelligent' comment guessing |
||
| 32 | * |
||
| 33 | * Revision 1.2 2001/06/06 12:10:22 mjames |
||
| 34 | * Move from HPUX |
||
| 35 | * |
||
| 36 | * Revision 1.1 2001/02/12 10:51:29 mjames |
||
| 37 | * Inserted new correct version number in vertcl_main.c |
||
| 38 | * |
||
| 39 | * Added lex files to the list. |
||
| 40 | * |
||
| 41 | * Revision 1.17 2000/10/04 10:37:05 10:37:05 mjames (Mike James) |
||
| 42 | * Part of Release PSAVAT01 |
||
| 43 | * |
||
| 44 | * Revision 1.16 2000/10/02 11:04:14 11:04:14 mjames (Mike James) |
||
| 45 | * new_vhdl |
||
| 46 | * |
||
| 47 | * Revision 1.15 2000/09/27 14:42:14 14:42:14 mjames (Mike James) |
||
| 48 | * Part of Release Sep_27_ST_2000 |
||
| 49 | * |
||
| 50 | * Revision 1.14 2000/09/21 10:15:44 10:15:44 mjames (Mike James) |
||
| 51 | * Part of Release Sep21Alpha |
||
| 52 | * |
||
| 53 | * Revision 1.13 2000/08/25 09:57:18 09:57:18 mjames (Mike James) |
||
| 54 | * Part of Release Aug25_alpha |
||
| 55 | * |
||
| 56 | * Revision 1.12 2000/08/16 08:57:35 08:57:35 mjames (Mike James) |
||
| 57 | * Part of Release CD01_Aug2000 |
||
| 58 | * |
||
| 59 | * Revision 1.11 2000/08/14 14:45:15 14:45:15 mjames (Mike James) |
||
| 60 | * Part of Release Aug_14_2000 |
||
| 61 | * |
||
| 62 | * Revision 1.10 2000/08/11 08:30:35 08:30:35 mjames (Mike James) |
||
| 63 | * Part of Release Aug_11_2000 |
||
| 64 | * |
||
| 65 | * Revision 1.9 2000/08/09 10:31:51 10:31:51 mjames (Mike James) |
||
| 66 | * Part of Release Aug__9_2000 |
||
| 67 | * |
||
| 68 | * Revision 1.8 2000/05/31 11:43:03 11:43:03 mjames (Mike James) |
||
| 69 | * Part of Release May_31_2000 |
||
| 70 | * |
||
| 71 | * Revision 1.7 2000/05/08 17:01:41 17:01:41 mjames (Mike James) |
||
| 72 | * Part of Release May__8_2000 |
||
| 73 | * |
||
| 74 | * Revision 1.6 2000/05/08 16:59:34 16:59:34 mjames (Mike James) |
||
| 75 | * Part of Release May__8_2000 |
||
| 76 | * |
||
| 77 | * Revision 1.5 2000/05/08 16:57:11 16:57:11 mjames (Mike James) |
||
| 78 | * Part of Release May__8_2000 |
||
| 79 | * |
||
| 80 | * Revision 1.4 2000/03/08 16:19:04 16:19:04 mjames (Mike James) |
||
| 81 | * New version including PC |
||
| 82 | * |
||
| 83 | * Revision 1.1 2000/02/23 13:16:17 13:16:17 mjames (Mike James) |
||
| 84 | * Initial revision |
||
| 85 | * |
||
| 86 | * Revision 1.6 2000/01/20 15:58:46 15:58:46 mjames (Mike James) |
||
| 87 | * Part of Release R22 |
||
| 88 | * |
||
| 89 | * Revision 1.5 99/12/22 11:15:26 11:15:26 mjames (Mike James) |
||
| 90 | * Part of Release Dec_22_1999 |
||
| 91 | * |
||
| 92 | * Revision 1.4 99/06/25 14:35:43 14:35:43 mjames (Mike James) |
||
| 93 | * Added in reference to expression.h, but no changes made |
||
| 94 | * to the function of acfread yet. |
||
| 95 | * |
||
| 96 | * Revision 1.3 98/02/11 11:26:42 11:26:42 mjames (Mike James) |
||
| 97 | * Checked in for version 6.2a |
||
| 98 | * |
||
| 99 | * Revision 1.2 97/04/23 08:45:04 08:45:04 mjames (Mike James) |
||
| 100 | * CHecked in for release rel23041997 |
||
| 101 | * |
||
| 102 | * Revision 1.1 96/12/13 08:43:24 08:43:24 mjames (Mike James) |
||
| 103 | * Initial revision |
||
| 104 | * |
||
| 105 | * Revision 1.14 96/07/19 14:38:28 14:38:28 mjames (Mike James) |
||
| 106 | * Update to give to PRL |
||
| 107 | * |
||
| 108 | * Revision 1.13 1996/07/12 15:52:12 mjames |
||
| 109 | * Sorted out things like Alias and Jumpers |
||
| 110 | * Work Correctly |
||
| 111 | * Print COrrectly |
||
| 112 | * |
||
| 113 | * Revision 1.12 96/06/17 10:52:22 10:52:22 mjames (Mike James) |
||
| 114 | * Tidying up |
||
| 115 | * |
||
| 116 | * Revision 1.11 96/06/04 11:52:43 11:52:43 mjames (Mike James) |
||
| 117 | * Slight modifications |
||
| 118 | * |
||
| 119 | * Revision 1.10 96/04/26 16:03:54 16:03:54 mjames (Mike James) |
||
| 120 | * Set the limit on token length to be consistent with the rest of the code |
||
| 121 | * |
||
| 122 | * Revision 1.9 96/03/29 14:47:24 14:47:24 mjames (Mike James) |
||
| 123 | * Added VHDL netlist writing to the capabilities of ACFREAD |
||
| 124 | * |
||
| 125 | * Revision 1.8 96/03/18 13:51:30 13:51:30 mjames (Mike James) |
||
| 126 | * Real Revision 2.1 |
||
| 127 | * |
||
| 128 | * Revision 1.6 96/02/13 09:13:19 09:13:19 mjames (Mike James) |
||
| 129 | * Updated to be version 2.0 with net joining |
||
| 130 | * |
||
| 131 | * Revision 1.5 96/02/07 16:01:27 16:01:27 mjames (Mike James) |
||
| 132 | * Added correct RCS header |
||
| 133 | * |
||
| 134 | * Revision 1.4 96/02/07 15:50:32 15:50:32 mjames (Mike James) |
||
| 135 | * Added RCS ident message |
||
| 136 | * |
||
| 137 | * Revision 1.3 96/01/10 13:13:24 13:13:24 mjames (Mike James) |
||
| 138 | * Works in debug mode with EPLD listings and PCB layout |
||
| 139 | * |
||
| 140 | * Revision 1.2 96/01/08 15:23:44 15:23:44 mjames (Mike James) |
||
| 141 | * Managing to make sense of things now |
||
| 142 | * |
||
| 143 | * Revision 1.1 96/01/07 12:40:11 Mike_James |
||
| 144 | * Initial revision |
||
| 145 | * |
||
| 146 | * Revision 1.1 96/01/04 17:55:24 17:55:24 mjames (Mike James) |
||
| 147 | * Initial revision |
||
| 148 | * |
||
| 149 | * Revision 1.2 96/01/04 11:37:16 11:37:16 mjames (Mike James) |
||
| 150 | * Compete parsing of FIT and ACF with ignore of junk . |
||
| 151 | * |
||
| 152 | * Revision 1.1 96/01/04 10:18:25 10:18:25 mjames (Mike James) |
||
| 153 | * Initial revision |
||
| 154 | * |
||
| 155 | * */ |
||
| 156 | #include <stdio.h> |
||
| 157 | /* see makefile for why */ |
||
| 158 | #if defined HAS_TCL |
||
| 159 | #include "tcl_l.h" |
||
| 160 | #endif |
||
| 161 | #include "expression.h" |
||
| 162 | #include "generic.h" |
||
| 163 | #include "database.h" |
||
| 164 | |||
| 165 | #include "gen_yacc.h" |
||
| 166 | #include "lx_support.h" |
||
| 167 | #define YYLMAX MAXIDLEN |
||
| 168 | |||
| 169 | #ident "@(#)$Header: c:\\cygwin\\cvsroot/Vert03/gen_src/gen_lex.l,v 1.1.1.1 2003/11/04 23:34:57 mjames Exp $" |
||
| 170 | |||
| 171 | extern int yyval; |
||
| 172 | |||
| 173 | extern int lineno; |
||
| 174 | %} |
||
| 175 | |||
| 176 | L [A-Za-z\~\-] |
||
| 177 | |||
| 178 | L2 [A-Za-z0-9_/\~\-\*] |
||
| 179 | |||
| 180 | Ct [ -\~] |
||
| 181 | |||
| 182 | Cm [^\n] |
||
| 183 | |||
| 184 | D [0-9] |
||
| 185 | Spc [ \r\t] |
||
| 186 | |||
| 187 | S [^\"] |
||
| 188 | Q [\"] |
||
| 189 | |||
| 190 | |||
| 191 | %% |
||
| 192 | "\$PACKAGES" { free_strings(&lx_first,&lx_last);return (PACKAGES); }; |
||
| 193 | "\$NETS" { free_strings(&lx_first,&lx_last);return (NETS); }; |
||
| 194 | "\$END" { free_strings(&lx_first,&lx_last);return(END); }; |
||
| 195 | |||
| 196 | |||
| 197 | ";" { return(SEMI); }; |
||
| 198 | "!" { return(PLING); }; |
||
| 199 | "." { return(DOT); }; |
||
| 200 | "," { return(COMMA); }; |
||
| 201 | |||
| 202 | {Q}{S}*{Q} { yylval.string = make_string(yytext,&lx_first,&lx_last) ; /* do it anyway */ |
||
| 203 | return(ASTRING); }; |
||
| 204 | {L2}{L2}* { yylval.string = make_string(yytext,&lx_first,&lx_last) ; /* do it anyway */ |
||
| 205 | return(ASTRING); }; |
||
| 206 | |||
| 207 | "--"{Cm}*"\n" { lineno++; return(NL);/* VHDL comment */ }; |
||
| 208 | "/\*"{Ct}*"*\/" { break; /* c comment */ }; |
||
| 209 | |||
| 210 | {Spc} { break; /* white space */ }; |
||
| 211 | "\n" { lineno++; return(NL); }; |
||
| 212 | %% |