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