1 /* Producer string parsers for GDB.
3 Copyright (C) 2012-2022 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
22 #include "gdbsupport/selftest.h"
23 #include "gdbsupport/gdb_regex.h"
28 producer_is_gcc_ge_4 (const char *producer
)
32 if (! producer_is_gcc (producer
, &major
, &minor
))
44 producer_is_gcc (const char *producer
, int *major
, int *minor
)
48 if (producer
!= NULL
&& startswith (producer
, "GNU "))
57 /* Skip any identifier after "GNU " - such as "C11" "C++" or "Java".
58 A full producer string might look like:
60 "GNU Fortran 4.8.2 20140120 (Red Hat 4.8.2-16) -mtune=generic ..."
61 "GNU C++14 5.0.0 20150123 (experimental)"
63 cs
= &producer
[strlen ("GNU ")];
64 while (*cs
&& !isspace (*cs
))
66 if (*cs
&& isspace (*cs
))
68 if (sscanf (cs
, "%d.%d", major
, minor
) == 2)
72 /* Not recognized as GCC. */
79 producer_is_icc_ge_19 (const char *producer
)
83 if (! producer_is_icc (producer
, &major
, &minor
))
92 producer_is_icc (const char *producer
, int *major
, int *minor
)
94 compiled_regex
i_re ("Intel(R)", 0, "producer_is_icc");
95 if (producer
== nullptr || i_re
.exec (producer
, 0, nullptr, 0) != 0)
98 /* Prepare the used fields. */
100 if (major
== nullptr)
102 if (minor
== nullptr)
108 compiled_regex
re ("[0-9]+\\.[0-9]+", REG_EXTENDED
, "producer_is_icc");
109 regmatch_t version
[1];
110 if (re
.exec (producer
, ARRAY_SIZE (version
), version
, 0) == 0
111 && version
[0].rm_so
!= -1)
113 const char *version_str
= producer
+ version
[0].rm_so
;
114 sscanf (version_str
, "%d.%d", major
, minor
);
121 /* See producer.h. */
124 producer_is_llvm (const char *producer
)
126 return ((producer
!= NULL
) && (startswith (producer
, "clang ")
127 || startswith (producer
, " F90 Flang ")));
130 /* See producer.h. */
133 producer_is_clang (const char *producer
, int *major
, int *minor
)
135 if (producer
!= nullptr && startswith (producer
, "clang version "))
138 if (major
== nullptr)
140 if (minor
== nullptr)
143 /* The full producer string will look something like
144 "clang version XX.X.X ..."
145 So we can safely ignore all characters before the first digit. */
146 const char *cs
= producer
+ strlen ("clang version ");
148 if (sscanf (cs
, "%d.%d", major
, minor
) == 2)
154 #if defined GDB_SELF_TEST
155 namespace selftests
{
159 producer_parsing_tests ()
162 /* Check that we don't crash if "Version" is not found in what
163 looks like an ICC producer string. */
164 static const char icc_no_version
[] = "Intel(R) foo bar";
166 int major
= 0, minor
= 0;
167 SELF_CHECK (!producer_is_icc (icc_no_version
, &major
, &minor
));
168 SELF_CHECK (!producer_is_gcc (icc_no_version
, &major
, &minor
));
172 static const char extern_f_14_0
[] = "\
173 Intel(R) Fortran Intel(R) 64 Compiler XE for applications running on \
175 Version 14.0.1.074 Build 20130716";
177 int major
= 0, minor
= 0;
178 SELF_CHECK (producer_is_icc (extern_f_14_0
, &major
, &minor
)
179 && major
== 14 && minor
== 0);
180 SELF_CHECK (!producer_is_gcc (extern_f_14_0
, &major
, &minor
));
184 static const char intern_f_14
[] = "\
185 Intel(R) Fortran Intel(R) 64 Compiler XE for applications running on \
189 int major
= 0, minor
= 0;
190 SELF_CHECK (producer_is_icc (intern_f_14
, &major
, &minor
)
191 && major
== 14 && minor
== 0);
192 SELF_CHECK (!producer_is_gcc (intern_f_14
, &major
, &minor
));
196 static const char intern_c_14
[] = "\
197 Intel(R) C++ Intel(R) 64 Compiler XE for applications running on \
200 int major
= 0, minor
= 0;
201 SELF_CHECK (producer_is_icc (intern_c_14
, &major
, &minor
)
202 && major
== 14 && minor
== 0);
203 SELF_CHECK (!producer_is_gcc (intern_c_14
, &major
, &minor
));
207 static const char intern_c_18
[] = "\
208 Intel(R) C++ Intel(R) 64 Compiler for applications running on \
211 int major
= 0, minor
= 0;
212 SELF_CHECK (producer_is_icc (intern_c_18
, &major
, &minor
)
213 && major
== 18 && minor
== 0);
217 static const char gnu
[] = "GNU C 4.7.2";
218 SELF_CHECK (!producer_is_icc (gnu
, NULL
, NULL
));
220 int major
= 0, minor
= 0;
221 SELF_CHECK (producer_is_gcc (gnu
, &major
, &minor
)
222 && major
== 4 && minor
== 7);
226 static const char gnu_exp
[] = "GNU C++14 5.0.0 20150123 (experimental)";
227 int major
= 0, minor
= 0;
228 SELF_CHECK (!producer_is_icc (gnu_exp
, NULL
, NULL
));
229 SELF_CHECK (producer_is_gcc (gnu_exp
, &major
, &minor
)
230 && major
== 5 && minor
== 0);
234 static const char clang_llvm_exp
[] = "clang version 12.0.0 (CLANG: bld#8)";
235 int major
= 0, minor
= 0;
236 SELF_CHECK (!producer_is_icc (clang_llvm_exp
, NULL
, NULL
));
237 SELF_CHECK (!producer_is_gcc (clang_llvm_exp
, &major
, &minor
));
238 SELF_CHECK (producer_is_llvm (clang_llvm_exp
));
242 static const char flang_llvm_exp
[] = " F90 Flang - 1.5 2017-05-01";
243 int major
= 0, minor
= 0;
244 SELF_CHECK (!producer_is_icc (flang_llvm_exp
, NULL
, NULL
));
245 SELF_CHECK (!producer_is_gcc (flang_llvm_exp
, &major
, &minor
));
246 SELF_CHECK (producer_is_llvm (flang_llvm_exp
));
253 void _initialize_producer ();
255 _initialize_producer ()
257 #if defined GDB_SELF_TEST
258 selftests::register_test
259 ("producer-parser", selftests::producer::producer_parsing_tests
);