56 lines
1.6 KiB
C
56 lines
1.6 KiB
C
/* $NetBSD: lex_var.h,v 1.1.1.1 2004/03/28 08:56:35 martti Exp $ */
|
|
|
|
|
|
extern long string_start;
|
|
extern long string_end;
|
|
extern char *string_val;
|
|
extern long pos;
|
|
|
|
#define YY_INPUT(buf, result, max_size) \
|
|
if (pos >= string_start && pos <= string_end) { \
|
|
buf[0] = string_val[pos - string_start]; \
|
|
pos++; \
|
|
result = 1; \
|
|
} else if ( yy_current_buffer->yy_is_interactive ) \
|
|
{ \
|
|
int c = '*', n; \
|
|
for ( n = 0; n < 1 && \
|
|
(c = getc( yyin )) != EOF && c != '\n'; ++n ) \
|
|
buf[n] = (char) c; \
|
|
if ( c == '\n' ) \
|
|
buf[n++] = (char) c; \
|
|
if ( c == EOF && ferror( yyin ) ) \
|
|
YY_FATAL_ERROR( "input in flex scanner failed" ); \
|
|
result = n; \
|
|
pos++; \
|
|
} \
|
|
else if ( ((result = fread( buf, 1, 1, yyin )) == 0) \
|
|
&& ferror( yyin ) ) \
|
|
YY_FATAL_ERROR( "input in flex scanner failed" );
|
|
|
|
#ifdef input
|
|
# undef input
|
|
# define input() (((pos >= string_start) && (pos < string_end)) ? \
|
|
yysptr = yysbuf, string_val[pos++ - string_start] : \
|
|
((yytchar = yysptr > yysbuf ? U(*--yysptr) : \
|
|
getc(yyin)) == 10 ? (pos++, yylineno++, yytchar) : \
|
|
yytchar) == EOF ? (pos++, 0) : (pos++, yytchar))
|
|
#endif
|
|
|
|
#ifdef lex_input
|
|
# undef lex_input
|
|
# define lex_input() (((pos >= string_start) && (pos < string_end)) ? \
|
|
yysptr = yysbuf, string_val[pos++ - string_start] : \
|
|
((yytchar = yysptr > yysbuf ? U(*--yysptr) : \
|
|
getc(yyin)) == 10 ? (pos++, yylineno++, yytchar) : \
|
|
yytchar) == EOF ? (pos++, 0) : (pos++, yytchar))
|
|
#endif
|
|
|
|
#ifdef unput
|
|
# undef unput
|
|
# define unput(c) { if (pos > 0) pos--; \
|
|
yytchar = (c); if (yytchar == '\n') yylineno--; \
|
|
*yysptr++ = yytchar; }
|
|
#endif
|
|
|