Carl Worth | 3a37b87 | 2010-05-10 11:44:09 -0700 | [diff] [blame] | 1 | %{ |
| 2 | /* |
| 3 | * Copyright © 2010 Intel Corporation |
| 4 | * |
| 5 | * Permission is hereby granted, free of charge, to any person obtaining a |
| 6 | * copy of this software and associated documentation files (the "Software"), |
| 7 | * to deal in the Software without restriction, including without limitation |
| 8 | * the rights to use, copy, modify, merge, publish, distribute, sublicense, |
| 9 | * and/or sell copies of the Software, and to permit persons to whom the |
| 10 | * Software is furnished to do so, subject to the following conditions: |
| 11 | * |
| 12 | * The above copyright notice and this permission notice (including the next |
| 13 | * paragraph) shall be included in all copies or substantial portions of the |
| 14 | * Software. |
| 15 | * |
| 16 | * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
| 17 | * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
| 18 | * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL |
| 19 | * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
| 20 | * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
| 21 | * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER |
| 22 | * DEALINGS IN THE SOFTWARE. |
| 23 | */ |
| 24 | |
| 25 | #include <stdio.h> |
| 26 | #include <string.h> |
| 27 | |
Carl Worth | a1e32bc | 2010-05-10 13:17:25 -0700 | [diff] [blame] | 28 | #include "glcpp.h" |
Carl Worth | 3a37b87 | 2010-05-10 11:44:09 -0700 | [diff] [blame] | 29 | #include "glcpp-parse.h" |
| 30 | %} |
| 31 | |
Carl Worth | 38aa835 | 2010-05-10 11:52:29 -0700 | [diff] [blame] | 32 | %option reentrant noyywrap |
Carl Worth | 5070a20 | 2010-05-12 12:45:33 -0700 | [diff] [blame] | 33 | %option extra-type="glcpp_parser_t *" |
Carl Worth | 3a37b87 | 2010-05-10 11:44:09 -0700 | [diff] [blame] | 34 | |
Carl Worth | 0b27b5f | 2010-05-10 16:16:06 -0700 | [diff] [blame] | 35 | SPACE [[:space:]] |
| 36 | NONSPACE [^[:space:]] |
Carl Worth | 33cc400 | 2010-05-12 12:17:10 -0700 | [diff] [blame] | 37 | NEWLINE [\n] |
Carl Worth | 0b27b5f | 2010-05-10 16:16:06 -0700 | [diff] [blame] | 38 | HSPACE [ \t] |
| 39 | HASH ^{HSPACE}*# |
| 40 | IDENTIFIER [_a-zA-Z][_a-zA-Z0-9]* |
Carl Worth | fcbbb46 | 2010-05-13 09:36:23 -0700 | [diff] [blame] | 41 | TOKEN [^[:space:](),]+ |
Carl Worth | 33cc400 | 2010-05-12 12:17:10 -0700 | [diff] [blame] | 42 | |
Carl Worth | 3a37b87 | 2010-05-10 11:44:09 -0700 | [diff] [blame] | 43 | %% |
| 44 | |
Carl Worth | 0a93cbb | 2010-05-13 10:29:07 -0700 | [diff] [blame] | 45 | {HASH}undef{HSPACE}* { |
Carl Worth | cd27e64 | 2010-05-12 13:11:50 -0700 | [diff] [blame] | 46 | return UNDEF; |
| 47 | } |
| 48 | |
Carl Worth | 0a93cbb | 2010-05-13 10:29:07 -0700 | [diff] [blame] | 49 | /* We use the ST_DEFINE and ST_DEFVAL states so that we can |
| 50 | * pass a space token, (yes, a token for whitespace!), since |
| 51 | * the preprocessor specification requires distinguishing |
| 52 | * "#define foo()" from "#define foo ()". |
| 53 | */ |
| 54 | {HASH}define{HSPACE}* { |
Carl Worth | 0a93cbb | 2010-05-13 10:29:07 -0700 | [diff] [blame] | 55 | return DEFINE; |
| 56 | } |
Carl Worth | 012295f | 2010-05-12 13:19:23 -0700 | [diff] [blame] | 57 | |
Carl Worth | 0a93cbb | 2010-05-13 10:29:07 -0700 | [diff] [blame] | 58 | {IDENTIFIER} { |
Carl Worth | cd27e64 | 2010-05-12 13:11:50 -0700 | [diff] [blame] | 59 | yylval.str = xtalloc_strdup (yyextra, yytext); |
Carl Worth | fcbbb46 | 2010-05-13 09:36:23 -0700 | [diff] [blame] | 60 | switch (glcpp_parser_macro_type (yyextra, yylval.str)) |
| 61 | { |
| 62 | case MACRO_TYPE_UNDEFINED: |
| 63 | return IDENTIFIER; |
| 64 | break; |
| 65 | case MACRO_TYPE_OBJECT: |
| 66 | return OBJ_MACRO; |
| 67 | break; |
| 68 | case MACRO_TYPE_FUNCTION: |
| 69 | return FUNC_MACRO; |
| 70 | break; |
| 71 | } |
Carl Worth | cd27e64 | 2010-05-12 13:11:50 -0700 | [diff] [blame] | 72 | } |
| 73 | |
Carl Worth | 0a93cbb | 2010-05-13 10:29:07 -0700 | [diff] [blame] | 74 | [(),] { |
| 75 | return yytext[0]; |
| 76 | } |
Carl Worth | fcbbb46 | 2010-05-13 09:36:23 -0700 | [diff] [blame] | 77 | |
Carl Worth | 012295f | 2010-05-12 13:19:23 -0700 | [diff] [blame] | 78 | {TOKEN} { |
Carl Worth | 5070a20 | 2010-05-12 12:45:33 -0700 | [diff] [blame] | 79 | yylval.str = xtalloc_strdup (yyextra, yytext); |
Carl Worth | 33cc400 | 2010-05-12 12:17:10 -0700 | [diff] [blame] | 80 | return TOKEN; |
| 81 | } |
Carl Worth | 3a37b87 | 2010-05-10 11:44:09 -0700 | [diff] [blame] | 82 | |
Carl Worth | 012295f | 2010-05-12 13:19:23 -0700 | [diff] [blame] | 83 | \n { |
| 84 | return NEWLINE; |
| 85 | } |
| 86 | |
Carl Worth | 48b94da | 2010-05-13 10:46:29 -0700 | [diff] [blame] | 87 | {HSPACE}+ { |
| 88 | return SPACE; |
| 89 | } |
Carl Worth | 012295f | 2010-05-12 13:19:23 -0700 | [diff] [blame] | 90 | |
Carl Worth | 3a37b87 | 2010-05-10 11:44:09 -0700 | [diff] [blame] | 91 | %% |