![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to yylex.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / pgrm / lex|
Return to yylex.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / pgrm / lex |
1.1 root 1: /* yylex - scanner front-end for flex */
2:
3: /*-
4: * Copyright (c) 1990 The Regents of the University of California.
5: * All rights reserved.
6: *
7: * This code is derived from software contributed to Berkeley by
8: * Vern Paxson.
9: *
10: * The United States Government has rights in this work pursuant
11: * to contract no. DE-AC03-76SF00098 between the United States
12: * Department of Energy and the University of California.
13: *
14: * Redistribution and use in source and binary forms are permitted provided
15: * that: (1) source distributions retain this entire copyright notice and
16: * comment, and (2) distributions including binaries display the following
17: * acknowledgement: ``This product includes software developed by the
18: * University of California, Berkeley and its contributors'' in the
19: * documentation or other materials provided with the distribution and in
20: * all advertising materials mentioning features or use of this software.
21: * Neither the name of the University nor the names of its contributors may
22: * be used to endorse or promote products derived from this software without
23: * specific prior written permission.
24: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED
25: * WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
26: * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
27: */
28:
29: #ifndef lint
30: static char sccsid[] = "@(#)yylex.c 5.2 (Berkeley) 6/18/90";
31: #endif /* not lint */
32:
33: #include <ctype.h>
34: #include "flexdef.h"
35: #include "parse.h"
36:
37:
38: /* ANSI C does not guarantee that isascii() is defined */
39: #ifndef isascii
40: #define isascii(c) ((c) <= 0177)
41: #endif
42:
43:
44: /* yylex - scan for a regular expression token
45: *
46: * synopsis
47: *
48: * token = yylex();
49: *
50: * token - return token found
51: */
52:
53: int yylex()
54:
55: {
56: int toktype;
57: static int beglin = false;
58:
59: if ( eofseen )
60: toktype = EOF;
61: else
62: toktype = flexscan();
63:
64: if ( toktype == EOF || toktype == 0 )
65: {
66: eofseen = 1;
67:
68: if ( sectnum == 1 )
69: {
70: synerr( "premature EOF" );
71: sectnum = 2;
72: toktype = SECTEND;
73: }
74:
75: else if ( sectnum == 2 )
76: {
77: sectnum = 3;
78: toktype = 0;
79: }
80:
81: else
82: toktype = 0;
83: }
84:
85: if ( trace )
86: {
87: if ( beglin )
88: {
89: fprintf( stderr, "%d\t", num_rules + 1 );
90: beglin = 0;
91: }
92:
93: switch ( toktype )
94: {
95: case '<':
96: case '>':
97: case '^':
98: case '$':
99: case '"':
100: case '[':
101: case ']':
102: case '{':
103: case '}':
104: case '|':
105: case '(':
106: case ')':
107: case '-':
108: case '/':
109: case '\\':
110: case '?':
111: case '.':
112: case '*':
113: case '+':
114: case ',':
115: (void) putc( toktype, stderr );
116: break;
117:
118: case '\n':
119: (void) putc( '\n', stderr );
120:
121: if ( sectnum == 2 )
122: beglin = 1;
123:
124: break;
125:
126: case SCDECL:
127: fputs( "%s", stderr );
128: break;
129:
130: case XSCDECL:
131: fputs( "%x", stderr );
132: break;
133:
134: case WHITESPACE:
135: (void) putc( ' ', stderr );
136: break;
137:
138: case SECTEND:
139: fputs( "%%\n", stderr );
140:
141: /* we set beglin to be true so we'll start
142: * writing out numbers as we echo rules. flexscan() has
143: * already assigned sectnum
144: */
145:
146: if ( sectnum == 2 )
147: beglin = 1;
148:
149: break;
150:
151: case NAME:
152: fprintf( stderr, "'%s'", nmstr );
153: break;
154:
155: case CHAR:
156: switch ( yylval )
157: {
158: case '<':
159: case '>':
160: case '^':
161: case '$':
162: case '"':
163: case '[':
164: case ']':
165: case '{':
166: case '}':
167: case '|':
168: case '(':
169: case ')':
170: case '-':
171: case '/':
172: case '\\':
173: case '?':
174: case '.':
175: case '*':
176: case '+':
177: case ',':
178: fprintf( stderr, "\\%c", yylval );
179: break;
180:
181: default:
182: if ( ! isascii( yylval ) || ! isprint( yylval ) )
183: fprintf( stderr, "\\%.3o", yylval );
184: else
185: (void) putc( yylval, stderr );
186: break;
187: }
188:
189: break;
190:
191: case NUMBER:
192: fprintf( stderr, "%d", yylval );
193: break;
194:
195: case PREVCCL:
196: fprintf( stderr, "[%d]", yylval );
197: break;
198:
199: case EOF_OP:
200: fprintf( stderr, "<<EOF>>" );
201: break;
202:
203: case 0:
204: fprintf( stderr, "End Marker" );
205: break;
206:
207: default:
208: fprintf( stderr, "*Something Weird* - tok: %d val: %d\n",
209: toktype, yylval );
210: break;
211: }
212: }
213:
214: return ( toktype );
215: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.