1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
$NetBSD: patch-src_parse_l,v 1.1 2011/10/13 22:11:26 dholland Exp $
Recognize and ignore _Pragma(), needed for -current's headers.
--- src/parse.l~ 2011-06-18 09:45:04.000000000 +0000
+++ src/parse.l
@@ -14,6 +14,7 @@ IS ((u|U|l|L)+|([iI
%x CPP_INCLUDE CPP_INC_FILE CPP_INC_FLAGS
%x CPP_DEFINE CPP_DEFINE_ARGP CPP_DEFINE_BODY CPP_DEFINE_ARGS
%x GNU_LABEL GNU_VA_ARG GNU_ATTRIBUTE GNU_TYPEOF GNU_OFFSETOF
+%x C99_PRAGMA
%{
/***************************************
@@ -83,6 +84,9 @@ static int gnu_typ_depth=0;
/*+ To get around the GCC __offsetof keyword, skip over matched () counted by this. +*/
static int gnu_offset_depth=0;
+/*+ To get around the C99 _Pragma keyword, skip over matched () counted by this. +*/
+static int c99_prag_depth=0;
+
/*+ If we see a comment immediately after a ',', ';', '};', '},' or ')' then push it before. +*/
static int push_past=0;
@@ -311,6 +315,11 @@ static int push_past=0;
"_Complex" { }
"_Bool" { yylval="_Bool"; return(BOOL); }
+("_Pragma") { c99_prag_depth=0; BEGIN(C99_PRAGMA); }
+<C99_PRAGMA>"(" { c99_prag_depth++; }
+<C99_PRAGMA>[^()]+ { }
+<C99_PRAGMA>")" { if(--c99_prag_depth==0) { BEGIN(INITIAL); } }
+
/* C language keywords. */
"auto" { yylval="auto" ; return(AUTO); }
|
