… | |
… | |
246 | %define class-name kw_lex |
246 | %define class-name kw_lex |
247 | %define lookup-function-name match |
247 | %define lookup-function-name match |
248 | %struct-type |
248 | %struct-type |
249 | %compare-strncmp |
249 | %compare-strncmp |
250 | %delimiters=, |
250 | %delimiters=, |
251 | struct kw { const char *name; enum kw index; }; |
251 | struct keyword_idx { const char *name; enum keyword index; }; |
252 | %% |
252 | %% |
253 | EOF |
253 | EOF |
254 | |
254 | |
255 | for (@kw) { |
255 | for (@kw) { |
256 | printf GPERF "%s,%s\n", $_, "KW_" . uc; |
256 | printf GPERF "%s,%s\n", $_, "KW_" . uc; |