Mercurial > hg > CbC > CbC_gcc
annotate gcc/gengtype-lex.l @ 136:4627f235cf2a
fix c-next example
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Thu, 08 Nov 2018 14:11:56 +0900 |
| parents | 84e7813d76e9 |
| children | 1830386684a0 |
| rev | line source |
|---|---|
| 0 | 1 /* -*- indented-text -*- */ |
| 2 /* Process source files and output type information. | |
| 131 | 3 Copyright (C) 2002-2018 Free Software Foundation, Inc. |
| 0 | 4 |
| 5 This file is part of GCC. | |
| 6 | |
| 7 GCC is free software; you can redistribute it and/or modify it under | |
| 8 the terms of the GNU General Public License as published by the Free | |
| 9 Software Foundation; either version 3, or (at your option) any later | |
| 10 version. | |
| 11 | |
| 12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY | |
| 13 WARRANTY; without even the implied warranty of MERCHANTABILITY or | |
| 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License | |
| 15 for more details. | |
| 16 | |
| 17 You should have received a copy of the GNU General Public License | |
| 18 along with GCC; see the file COPYING3. If not see | |
| 19 <http://www.gnu.org/licenses/>. */ | |
| 20 | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
21 %option noinput |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
0
diff
changeset
|
22 |
| 0 | 23 %{ |
| 111 | 24 #ifdef HOST_GENERATOR_FILE |
| 25 #include "config.h" | |
| 26 #define GENERATOR_FILE 1 | |
| 27 #else | |
| 0 | 28 #include "bconfig.h" |
| 111 | 29 #endif |
| 0 | 30 #include "system.h" |
| 31 | |
| 32 #define malloc xmalloc | |
| 33 #define realloc xrealloc | |
| 34 | |
| 35 #include "gengtype.h" | |
| 36 | |
| 37 #define YY_DECL int yylex (const char **yylval) | |
| 38 #define yyterminate() return EOF_TOKEN | |
| 39 | |
| 40 struct fileloc lexer_line; | |
| 41 int lexer_toplevel_done; | |
| 42 | |
| 43 static void | |
| 44 update_lineno (const char *l, size_t len) | |
| 45 { | |
| 46 while (len-- > 0) | |
| 47 if (*l++ == '\n') | |
| 48 lexer_line.line++; | |
| 49 } | |
| 50 | |
| 51 %} | |
| 52 | |
| 111 | 53 CID [[:alpha:]_][[:alnum:]_]* |
| 0 | 54 WS [[:space:]]+ |
| 55 HWS [ \t\r\v\f]* | |
| 111 | 56 IWORD short|long|(un)?signed|char|int|HOST_WIDE_INT|uint64_t|int64_t|bool|size_t|BOOL_BITFIELD|CPPCHAR_SIGNED_T|ino_t|dev_t|HARD_REG_SET |
| 0 | 57 ITYPE {IWORD}({WS}{IWORD})* |
| 111 | 58 /* Include '::' in identifiers to capture C++ scope qualifiers. */ |
| 59 ID {CID}({HWS}::{HWS}{CID})* | |
| 0 | 60 EOID [^[:alnum:]_] |
| 111 | 61 CXX_KEYWORD inline|public:|private:|protected:|template|operator|friend|static |
| 0 | 62 |
| 63 %x in_struct in_struct_comment in_comment | |
| 64 %option warn noyywrap nounput nodefault perf-report | |
| 65 %option 8bit never-interactive | |
| 66 %% | |
| 67 /* Do this on entry to yylex(): */ | |
| 68 *yylval = 0; | |
| 69 if (lexer_toplevel_done) | |
| 70 { | |
| 71 BEGIN(INITIAL); | |
| 72 lexer_toplevel_done = 0; | |
| 73 } | |
| 74 | |
| 75 /* Things we look for in skipping mode: */ | |
| 76 <INITIAL>{ | |
| 77 ^{HWS}typedef/{EOID} { | |
| 78 BEGIN(in_struct); | |
| 79 return TYPEDEF; | |
| 80 } | |
| 81 ^{HWS}struct/{EOID} { | |
| 82 BEGIN(in_struct); | |
| 83 return STRUCT; | |
| 84 } | |
| 85 ^{HWS}union/{EOID} { | |
| 86 BEGIN(in_struct); | |
| 87 return UNION; | |
| 88 } | |
| 111 | 89 ^{HWS}class/{EOID} { |
| 90 BEGIN(in_struct); | |
| 91 return STRUCT; | |
| 92 } | |
| 0 | 93 ^{HWS}extern/{EOID} { |
| 94 BEGIN(in_struct); | |
| 95 return EXTERN; | |
| 96 } | |
| 97 ^{HWS}static/{EOID} { | |
| 98 BEGIN(in_struct); | |
| 99 return STATIC; | |
| 100 } | |
| 101 } | |
| 102 | |
| 111 | 103 /* Parsing inside a struct, union or class declaration. */ |
| 0 | 104 <in_struct>{ |
| 105 "/*" { BEGIN(in_struct_comment); } | |
| 111 | 106 "//".*\n { lexer_line.line++; } |
| 0 | 107 |
| 108 {WS} { update_lineno (yytext, yyleng); } | |
| 109 \\\n { lexer_line.line++; } | |
| 110 | |
| 111 "const"/{EOID} /* don't care */ | |
| 111 | 112 {CXX_KEYWORD}/{EOID} | |
| 113 "~" | | |
| 114 "^" | | |
| 115 "&" { | |
| 116 *yylval = XDUPVAR (const char, yytext, yyleng, yyleng + 1); | |
| 117 return IGNORABLE_CXX_KEYWORD; | |
| 118 } | |
| 0 | 119 "GTY"/{EOID} { return GTY_TOKEN; } |
| 120 "union"/{EOID} { return UNION; } | |
| 121 "struct"/{EOID} { return STRUCT; } | |
| 111 | 122 "class"/{EOID} { return STRUCT; } |
| 123 "typedef"/{EOID} { return TYPEDEF; } | |
| 0 | 124 "enum"/{EOID} { return ENUM; } |
| 125 "ptr_alias"/{EOID} { return PTR_ALIAS; } | |
| 126 "nested_ptr"/{EOID} { return NESTED_PTR; } | |
| 111 | 127 "user"/{EOID} { return USER_GTY; } |
| 0 | 128 [0-9]+ { return NUM; } |
| 129 | |
| 130 {IWORD}({WS}{IWORD})*/{EOID} | | |
| 131 "ENUM_BITFIELD"{WS}?"("{WS}?{ID}{WS}?")" { | |
| 132 size_t len; | |
| 133 | |
| 134 for (len = yyleng; ISSPACE (yytext[len-1]); len--) | |
| 135 ; | |
| 136 | |
| 137 *yylval = XDUPVAR (const char, yytext, len, len+1); | |
| 138 update_lineno (yytext, yyleng); | |
| 139 return SCALAR; | |
| 140 } | |
| 141 | |
| 142 {ID}/{EOID} { | |
| 143 *yylval = XDUPVAR (const char, yytext, yyleng, yyleng+1); | |
| 144 return ID; | |
| 145 } | |
| 146 | |
| 147 \"([^"\\]|\\.)*\" { | |
| 148 *yylval = XDUPVAR (const char, yytext+1, yyleng-2, yyleng-1); | |
| 149 return STRING; | |
| 150 } | |
| 151 /* This "terminal" avoids having to parse integer constant expressions. */ | |
| 152 "["[^\[\]]*"]" { | |
| 153 *yylval = XDUPVAR (const char, yytext+1, yyleng-2, yyleng-1); | |
| 154 return ARRAY; | |
| 155 } | |
| 156 "'"("\\".|[^\\])"'" { | |
| 157 *yylval = XDUPVAR (const char, yytext+1, yyleng-2, yyleng); | |
| 158 return CHAR; | |
| 159 } | |
| 160 | |
| 161 "..." { return ELLIPSIS; } | |
| 111 | 162 [(){},*:<>;=%/|+\!\?\.-] { return yytext[0]; } |
| 0 | 163 |
| 164 /* ignore pp-directives */ | |
| 165 ^{HWS}"#"{HWS}[a-z_]+[^\n]*\n {lexer_line.line++;} | |
| 166 | |
| 167 . { | |
| 168 error_at_line (&lexer_line, "unexpected character `%s'", yytext); | |
| 169 } | |
| 170 } | |
| 171 | |
| 172 "/*" { BEGIN(in_comment); } | |
| 111 | 173 "//".*\n { lexer_line.line++; } |
| 0 | 174 \n { lexer_line.line++; } |
| 175 {ID} | | |
| 176 "'"("\\".|[^\\])"'" | | |
| 177 [^"/\n] /* do nothing */ | |
| 178 \"([^"\\]|\\.|\\\n)*\" { update_lineno (yytext, yyleng); } | |
| 179 "/"/[^*] /* do nothing */ | |
| 180 | |
| 181 <in_comment,in_struct_comment>{ | |
| 182 \n { lexer_line.line++; } | |
| 183 [^*\n]{16} | | |
| 184 [^*\n] /* do nothing */ | |
| 185 "*"/[^/] /* do nothing */ | |
| 186 } | |
| 111 | 187 |
| 0 | 188 <in_comment>"*/" { BEGIN(INITIAL); } |
| 189 <in_struct_comment>"*/" { BEGIN(in_struct); } | |
| 190 | |
| 191 ["/] | | |
| 192 <in_struct_comment,in_comment>"*" { | |
| 193 error_at_line (&lexer_line, | |
| 194 "unterminated comment or string; unexpected EOF"); | |
| 195 } | |
| 196 | |
| 197 ^{HWS}"#"{HWS}"define"{WS}"GTY(" /* do nothing */ | |
| 198 | |
| 199 %% | |
| 200 | |
| 201 void | |
| 202 yybegin (const char *fname) | |
| 203 { | |
| 204 yyin = fopen (fname, "r"); | |
| 205 if (yyin == NULL) | |
| 206 { | |
| 207 perror (fname); | |
| 208 exit (1); | |
| 209 } | |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
210 lexer_line.file = input_file_by_name (fname); |
| 0 | 211 lexer_line.line = 1; |
| 212 } | |
| 213 | |
| 214 void | |
| 215 yyend (void) | |
| 216 { | |
| 217 fclose (yyin); | |
| 218 } |