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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
#!/bin/gawk -f
## Copyright (C) 2012, 2015 Red Hat, Inc.
## Copyright (C) 2025 Mark J. Wielaard <mark@klomp.org>
##
## This file is part of elfutils.
##
## This file is free software; you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation; either version 3 of the License, or
## (at your option) any later version.
##
## elfutils is distributed in the hope that it will be useful, but
## WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program. If not, see <http://www.gnu.org/licenses/>.
$1 == "enum" { set = ""; next }
set == "" && $1 ~ /DW_([A-Z_]+)_([^ ]+)/ {
set = $1;
sub(/^DW_/, "", set);
sub(/_[^[:upper:]_].*$/, "", set);
if (set ~ /LANG_.+/) set = "LANG";
if (set ~ /LNAME_.+/) set = "LNAME";
}
$1 ~ /DW([_A-Z]+)_([^ ]+)/ {
match($1, ("DW_" set "_([^ ]+)"), fields);
elt = fields[1];
if (set in DW)
DW[set] = DW[set] "," elt;
else
DW[set] = elt;
}
END {
print "/* Generated by config/known-dwarf.awk from libdw/dwarf.h contents. */";
n = asorti(DW, sets);
for (i = 1; i <= n; ++i) {
set = sets[i];
if (what && what != set) continue;
split(DW[set], elts, ",");
m = asort(elts);
if (m == 0) continue;
print "\n#define DWARF_ALL_KNOWN_DW_" set " \\";
for (j = 1; j <= m; ++j) {
elt = elts[j];
if (elt ~ /(low?|hi|high)_user$/)
continue;
print " DWARF_ONE_KNOWN_DW_" set " (" elt ", DW_" set "_" elt ") \\";
}
print " /* End of DW_" set "_*. */";
}
}
|
