/* -*- Mode: C -*- /* GObject introspection: C lexer * * Copyright (c) 1997 Sandro Sigala * Copyright (c) 2007-2008 Jürg Billeter * * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ %{ #include #include #include #include "scanner.h" #include "scannerparser.h" #include "grealpath.h" int lineno; extern int yylex (GIGenerator *igenerator); #define YY_DECL int yylex (GIGenerator *igenerator) static int yywrap (void); static void parse_comment (GIGenerator *igenerator); static void process_directive (GIGenerator *igenerator); static int check_identifier (GIGenerator *igenerator, const char *); %} intsuffix ([uU][lL]?)|([lL][uU]?) fracconst ([0-9]*\.[0-9]+)|([0-9]+\.) exppart [eE][-+]?[0-9]+ floatsuffix [fFlL] chartext ([^\'])|(\\.) stringtext ([^\"])|(\\.) %% "\n" { ++lineno; } /* " */ [\t\f\v\r ]+ { /* Ignore whitespace. */ } "/*" { parse_comment(igenerator); } "//".* { } "#define "[a-zA-Z_][a-zA-Z_0-9]*"(" { yyless (yyleng - 1); return FUNCTION_MACRO; } "#define "[a-zA-Z_][a-zA-Z_0-9]* { return OBJECT_MACRO; } "#" { process_directive(igenerator); } "{" { return '{'; } "<%" { return '{'; } "}" { return '}'; } "%>" { return '}'; } "[" { return '['; } "<:" { return '['; } "]" { return ']'; } ":>" { return ']'; } "(" { return '('; } ")" { return ')'; } ";" { return ';'; } ":" { return ':'; } "..." { return ELLIPSIS; } "?" { return '?'; } "." { return '.'; } "+" { return '+'; } "-" { return '-'; } "*" { return '*'; } "/" { return '/'; } "%" { return '%'; } "^" { return '^'; } "&" { return '&'; } "|" { return '|'; } "~" { return '~'; } "!" { return '!'; } "=" { return '='; } "<" { return '<'; } ">" { return '>'; } "+=" { return ADDEQ; } "-=" { return SUBEQ; } "*=" { return MULEQ; } "/=" { return DIVEQ; } "%=" { return MODEQ; } "^=" { return XOREQ; } "&=" { return ANDEQ; } "|=" { return OREQ; } "<<" { return SL; } ">>" { return SR; } "<<=" { return SLEQ; } ">>=" { return SREQ; } "==" { return EQ; } "!=" { return NOTEQ; } "<=" { return LTEQ; } ">=" { return GTEQ; } "&&" { return ANDAND; } "||" { return OROR; } "++" { return PLUSPLUS; } "--" { return MINUSMINUS; } "," { return ','; } "->" { return ARROW; } [a-zA-Z_][a-zA-Z_0-9]* { if (igenerator->macro_scan) return IDENTIFIER; else REJECT; } "auto" { return AUTO; } "_Bool" { return BOOL; } "break" { return BREAK; } "case" { return CASE; } "char" { return CHAR; } "const" { return CONST; } "continue" { return CONTINUE; } "default" { return DEFAULT; } "do" { return DO; } "double" { return DOUBLE; } "else" { return ELSE; } "enum" { return ENUM; } "extern" { return EXTERN; } "float" { return FLOAT; } "for" { return FOR; } "goto" { return GOTO; } "if" { return IF; } "inline" { return INLINE; } "int" { return INT; } "long" { return LONG; } "register" { return REGISTER; } "restrict" { return RESTRICT; } "return" { return RETURN; } "short" { return SHORT; } "signed" { return SIGNED; } "sizeof" { return SIZEOF; } "static" { return STATIC; } "struct" { return STRUCT; } "switch" { return SWITCH; } "typedef" { return TYPEDEF; } "union" { return UNION; } "unsigned" { return UNSIGNED; } "void" { return VOID; } "volatile" { return VOLATILE; } "while" { return WHILE; } [a-zA-Z_][a-zA-Z_0-9]* { return check_identifier(igenerator, yytext); } "0"[xX][0-9a-fA-F]+{intsuffix}? { return INTEGER; } "0"[0-7]+{intsuffix}? { return INTEGER; } [0-9]+{intsuffix}? { return INTEGER; } {fracconst}{exppart}?{floatsuffix}? { return FLOATING; } [0-9]+{exppart}{floatsuffix}? { return FLOATING; } "'"{chartext}*"'" { return CHARACTER; } "L'"{chartext}*"'" { return CHARACTER; } "\""{stringtext}*"\"" { return STRING; } "L\""{stringtext}*"\"" { return STRING; } . { fprintf(stderr, "%s:%d: unexpected character `%c'\n", igenerator->current_filename, lineno, yytext[0]); } %% static int yywrap (void) { return 1; } static void parse_gtkdoc (GIGenerator *igenerator, int *c1, int *c2) { gboolean isline = FALSE; gchar line[256]; int i; gchar **parts; CDirective *directive; char *name, *value; i = 0; do { *c1 = *c2; if (*c1 == '\n') { isline = TRUE; break; } if (i >= 256) break; line[i++] = *c1; *c2 = input(); } while (*c2 != EOF && !(*c1 == '*' && *c2 == '/')); if (!isline) return; line[i] = '\0'; parts = g_strsplit (line, ": ", 2); if (g_strv_length (parts) == 2) { name = parts[0]; value = parts[1]; } else /* parts == 1 */ { name = parts[0]; value = NULL; } directive = cdirective_new (name, value); igenerator->directives = g_slist_prepend (igenerator->directives, directive); g_strfreev (parts); } static void parse_comment (GIGenerator *igenerator) { int c1, c2; c1 = input(); c2 = input(); while (c2 != EOF && !(c1 == '*' && c2 == '/')) { if (c1 == '\n') ++lineno; c1 = c2; c2 = input(); if (c1 == ' ' && c2 == '@') { c1 = c2; c2 = input(); parse_gtkdoc (igenerator, &c1, &c2); } } } static int check_identifier (GIGenerator *igenerator, const char *s) { /* * This function checks if `s' is a type name or an * identifier. */ if (g_igenerator_is_typedef (igenerator, s)) { return TYPEDEF_NAME; } else if (strcmp (s, "__builtin_va_list") == 0) { return TYPEDEF_NAME; } return IDENTIFIER; } static void process_directive (GIGenerator *igenerator) { /* extract current filename from #line directives */ GString *filename_builder; gboolean in_string, found_filename; lineno = 0; found_filename = FALSE; in_string = FALSE; filename_builder = g_string_new (""); int c = input (); while (c != EOF && c != '\n') { if (!in_string) { if (c == '\"') { in_string = TRUE; found_filename = TRUE; } else if (c >= '0' && c <= '9') { if (!found_filename) { lineno = lineno * 10 + (c - '0'); } } } else { if (c == '\"') { in_string = FALSE; } else if (c == '\\') { g_string_append_c (filename_builder, c); c = input (); g_string_append_c (filename_builder, c); } else { g_string_append_c (filename_builder, c); } } c = input (); } if (filename_builder->len > 0) { char *filename = g_strcompress (filename_builder->str); g_free (igenerator->current_filename); igenerator->current_filename = g_realpath(filename); g_free(filename); } g_string_free (filename_builder, TRUE); }