X-Git-Url: https://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/a8ea1a669f332b0ed29c6271896476f59f357533..d52e64e92557f0b6d7704077ec175c88fa7ca243:/src/lexer.l diff --git a/src/lexer.l b/src/lexer.l index 971b121..0dc3cda 100644 --- a/src/lexer.l +++ b/src/lexer.l @@ -1,5 +1,7 @@ /* GOB C Preprocessor - * Copyright (C) 1999 the Free Software Foundation. + * Copyright (C) 1999-2000 the Free Software Foundation. + * Copyright (C) 2000 Eazel, Inc. + * Copyright (C) 2001-2011 George (Jiri) Lebl * * Author: George Lebl * @@ -93,9 +95,10 @@ add_gtk_doc_func(void) gtk_doc_func = NULL; } -/* Ugly warning avoiding */ +/* Ugly warning / error avoidings */ #ifdef FLEX_SCANNER int yylex(void); +int yywrap(void) { return 1; } #endif %} @@ -187,7 +190,7 @@ REJECT; g_free(str); } -^#[ \t]*include[ \t][<"][^\n">]*[>"] { +^#[ \t]*include[ \t][<"][^\n\r">]*[>"] { if(look_for_includes==1) { char *p; char *file; @@ -197,9 +200,11 @@ REJECT; file++; p = strchr(file,'"'); if(!p) p = strchr(file,'>'); - *p = '\0'; - include_files = g_list_prepend(include_files,g_strdup(file)); - g_free(str); + if (p != NULL) { + *p = '\0'; + include_files = g_list_prepend(include_files,g_strdup(file)); + g_free(str); + } } REJECT; } @@ -342,6 +347,24 @@ REJECT; if(look_for_includes==0) look_for_includes=1; } +^\%(ct|ctop)\{ { + BEGIN(C_CODE); + parenth_depth = 1; + class_after_c = FALSE; + code_type = CTCODE; + clear_cbuf(); + ccode_line = line_no; + if(look_for_includes==0) + look_for_includes=1; + } +^\%(ad|afterdecls)\{ { + BEGIN(C_CODE); + parenth_depth = 1; + class_after_c = FALSE; + code_type = ADCODE; + clear_cbuf(); + ccode_line = line_no; + } ^\%\} { BEGIN(INITIAL); yylval.cbuf = cbuf; @@ -613,13 +636,14 @@ flags { return FLAGS; } [\f\t ] ; /*ignore*/ +<*>[\n\r] ; /*ignore*/ + + <*>. { yylval.line = line_no; return yytext[0]; } -<*>[\n\r] ; /*ignore*/ - ^[ \t]*prealloc[ \t]+[0-9]+[ \t]*$ { char *p; int t;