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