105436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Common parts between scan-code.l, scan-gram.l, and scan-skel.l.
205436638acc7c010349a69c3395f1a57c642dc62Ying Wang
305436638acc7c010349a69c3395f1a57c642dc62Ying Wang   Copyright (C) 2006, 2009-2012 Free Software Foundation, Inc.
405436638acc7c010349a69c3395f1a57c642dc62Ying Wang
505436638acc7c010349a69c3395f1a57c642dc62Ying Wang   This file is part of Bison, the GNU Compiler Compiler.
605436638acc7c010349a69c3395f1a57c642dc62Ying Wang
705436638acc7c010349a69c3395f1a57c642dc62Ying Wang   This program is free software: you can redistribute it and/or modify
805436638acc7c010349a69c3395f1a57c642dc62Ying Wang   it under the terms of the GNU General Public License as published by
905436638acc7c010349a69c3395f1a57c642dc62Ying Wang   the Free Software Foundation, either version 3 of the License, or
1005436638acc7c010349a69c3395f1a57c642dc62Ying Wang   (at your option) any later version.
1105436638acc7c010349a69c3395f1a57c642dc62Ying Wang
1205436638acc7c010349a69c3395f1a57c642dc62Ying Wang   This program is distributed in the hope that it will be useful,
1305436638acc7c010349a69c3395f1a57c642dc62Ying Wang   but WITHOUT ANY WARRANTY; without even the implied warranty of
1405436638acc7c010349a69c3395f1a57c642dc62Ying Wang   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
1505436638acc7c010349a69c3395f1a57c642dc62Ying Wang   GNU General Public License for more details.
1605436638acc7c010349a69c3395f1a57c642dc62Ying Wang
1705436638acc7c010349a69c3395f1a57c642dc62Ying Wang   You should have received a copy of the GNU General Public License
1805436638acc7c010349a69c3395f1a57c642dc62Ying Wang   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
1905436638acc7c010349a69c3395f1a57c642dc62Ying Wang
2005436638acc7c010349a69c3395f1a57c642dc62Ying Wang#ifndef FLEX_PREFIX
2105436638acc7c010349a69c3395f1a57c642dc62Ying Wang# error "FLEX_PREFIX not defined"
2205436638acc7c010349a69c3395f1a57c642dc62Ying Wang#endif
2305436638acc7c010349a69c3395f1a57c642dc62Ying Wang
2405436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Flex full version as a number.  */
2505436638acc7c010349a69c3395f1a57c642dc62Ying Wang#define FLEX_VERSION                    \
2605436638acc7c010349a69c3395f1a57c642dc62Ying Wang  ((YY_FLEX_MAJOR_VERSION) * 1000000    \
2705436638acc7c010349a69c3395f1a57c642dc62Ying Wang   + (YY_FLEX_MINOR_VERSION) * 1000     \
2805436638acc7c010349a69c3395f1a57c642dc62Ying Wang   + (YY_FLEX_SUBMINOR_VERSION))
2905436638acc7c010349a69c3395f1a57c642dc62Ying Wang
3005436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Pacify "gcc -Wmissing-prototypes" when flex 2.5.31 is used.  */
3105436638acc7c010349a69c3395f1a57c642dc62Ying Wang# if FLEX_VERSION <= 2005031
3205436638acc7c010349a69c3395f1a57c642dc62Ying Wangint   FLEX_PREFIX (get_lineno) (void);
3305436638acc7c010349a69c3395f1a57c642dc62Ying WangFILE *FLEX_PREFIX (get_in) (void);
3405436638acc7c010349a69c3395f1a57c642dc62Ying WangFILE *FLEX_PREFIX (get_out) (void);
3505436638acc7c010349a69c3395f1a57c642dc62Ying Wangint   FLEX_PREFIX (get_leng) (void);
3605436638acc7c010349a69c3395f1a57c642dc62Ying Wangchar *FLEX_PREFIX (get_text) (void);
3705436638acc7c010349a69c3395f1a57c642dc62Ying Wangvoid  FLEX_PREFIX (set_lineno) (int);
3805436638acc7c010349a69c3395f1a57c642dc62Ying Wangvoid  FLEX_PREFIX (set_in) (FILE *);
3905436638acc7c010349a69c3395f1a57c642dc62Ying Wangvoid  FLEX_PREFIX (set_out) (FILE *);
4005436638acc7c010349a69c3395f1a57c642dc62Ying Wangint   FLEX_PREFIX (get_debug) (void);
4105436638acc7c010349a69c3395f1a57c642dc62Ying Wangvoid  FLEX_PREFIX (set_debug) (int);
4205436638acc7c010349a69c3395f1a57c642dc62Ying Wangint   FLEX_PREFIX (lex_destroy) (void);
4305436638acc7c010349a69c3395f1a57c642dc62Ying Wang#endif
4405436638acc7c010349a69c3395f1a57c642dc62Ying Wang
4505436638acc7c010349a69c3395f1a57c642dc62Ying Wang#define last_string    FLEX_PREFIX (last_string)
4605436638acc7c010349a69c3395f1a57c642dc62Ying Wang
4705436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* It seems to be a nice "feature" of Flex that one cannot use yytext,
4805436638acc7c010349a69c3395f1a57c642dc62Ying Wang   yyleng etc. when a prefix is given, since there is no longer a
4905436638acc7c010349a69c3395f1a57c642dc62Ying Wang   #define, but rather the token is actually changed in the output.
5005436638acc7c010349a69c3395f1a57c642dc62Ying Wang   However, this is not true for Flex 2.5.4.  */
5105436638acc7c010349a69c3395f1a57c642dc62Ying Wang#ifndef yyleng
5205436638acc7c010349a69c3395f1a57c642dc62Ying Wang# define yyleng  FLEX_PREFIX (leng)
5305436638acc7c010349a69c3395f1a57c642dc62Ying Wang#endif
5405436638acc7c010349a69c3395f1a57c642dc62Ying Wang#ifndef yytext
5505436638acc7c010349a69c3395f1a57c642dc62Ying Wang# define yytext  FLEX_PREFIX (text)
5605436638acc7c010349a69c3395f1a57c642dc62Ying Wang#endif
5705436638acc7c010349a69c3395f1a57c642dc62Ying Wang
5805436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* Non-reentrant scanners generated by Flex 2.5.9 and later (and some earlier
5905436638acc7c010349a69c3395f1a57c642dc62Ying Wang   versions according to the Flex manual) leak memory if yylex_destroy is not
6005436638acc7c010349a69c3395f1a57c642dc62Ying Wang   invoked.  However, yylex_destroy is not defined before Flex 2.5.9, so give
6105436638acc7c010349a69c3395f1a57c642dc62Ying Wang   an implementation here that at least appears to work with Flex 2.5.4.  */
6205436638acc7c010349a69c3395f1a57c642dc62Ying Wang#if FLEX_VERSION <= 2005009
6305436638acc7c010349a69c3395f1a57c642dc62Ying Wang# define yylex_destroy() yy_delete_buffer (YY_CURRENT_BUFFER)
6405436638acc7c010349a69c3395f1a57c642dc62Ying Wang#endif
6505436638acc7c010349a69c3395f1a57c642dc62Ying Wang
6605436638acc7c010349a69c3395f1a57c642dc62Ying Wang/* OBSTACK_FOR_STRING -- Used to store all the characters that we need to
6705436638acc7c010349a69c3395f1a57c642dc62Ying Wang   keep (to construct ID, STRINGS etc.).  Use the following macros to
6805436638acc7c010349a69c3395f1a57c642dc62Ying Wang   use it.
6905436638acc7c010349a69c3395f1a57c642dc62Ying Wang
7005436638acc7c010349a69c3395f1a57c642dc62Ying Wang   Use STRING_GROW to append what has just been matched, and
7105436638acc7c010349a69c3395f1a57c642dc62Ying Wang   STRING_FINISH to end the string (it puts the ending 0).
7205436638acc7c010349a69c3395f1a57c642dc62Ying Wang   STRING_FINISH also stores this string in LAST_STRING, which can be
7305436638acc7c010349a69c3395f1a57c642dc62Ying Wang   used, and which is used by STRING_FREE to free the last string.  */
7405436638acc7c010349a69c3395f1a57c642dc62Ying Wang
7505436638acc7c010349a69c3395f1a57c642dc62Ying Wang#ifndef FLEX_NO_OBSTACK
7605436638acc7c010349a69c3395f1a57c642dc62Ying Wang
7705436638acc7c010349a69c3395f1a57c642dc62Ying Wangstatic struct obstack obstack_for_string;
7805436638acc7c010349a69c3395f1a57c642dc62Ying Wang
7905436638acc7c010349a69c3395f1a57c642dc62Ying Wang# define STRING_GROW   \
8005436638acc7c010349a69c3395f1a57c642dc62Ying Wang  obstack_grow (&obstack_for_string, yytext, yyleng)
8105436638acc7c010349a69c3395f1a57c642dc62Ying Wang
8205436638acc7c010349a69c3395f1a57c642dc62Ying Wang# define STRING_FINISH					\
8305436638acc7c010349a69c3395f1a57c642dc62Ying Wang  do {							\
8405436638acc7c010349a69c3395f1a57c642dc62Ying Wang    obstack_1grow (&obstack_for_string, '\0');		\
8505436638acc7c010349a69c3395f1a57c642dc62Ying Wang    last_string = obstack_finish (&obstack_for_string);	\
8605436638acc7c010349a69c3395f1a57c642dc62Ying Wang  } while (0)
8705436638acc7c010349a69c3395f1a57c642dc62Ying Wang
8805436638acc7c010349a69c3395f1a57c642dc62Ying Wang# define STRING_FREE \
8905436638acc7c010349a69c3395f1a57c642dc62Ying Wang  obstack_free (&obstack_for_string, last_string)
9005436638acc7c010349a69c3395f1a57c642dc62Ying Wang
9105436638acc7c010349a69c3395f1a57c642dc62Ying Wang#endif
92