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
|
#!/bin/awk -f
$1 == "enum" { set = ""; next }
set == "" && $1 ~ /DW_([A-Z_]+)_([^ ]+)/ {
set = $1;
sub(/^DW_/, "", set);
sub(/_[^[:upper:]_].*$/, "", set);
if (set ~ /LANG_.+/) set = "LANG";
}
$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;
if ($NF == "*/" && $4 == "/*") {
c = $5;
for (i = 6; i < NF; ++i) c = c " " $i;
comment[set, elt] = c;
}
}
END {
print "/* Generated by config/dwarf-known.awk from libdw.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);
lo = hi = "";
if (m == 0) continue;
print "\n#define ALL_KNOWN_DW_" set " \\";
for (j = 1; j <= m; ++j) {
elt = elts[j];
if (elt ~ /(lo|low)_user$/) {
lo = elt;
continue;
}
if (elt ~ /(hi|high)_user$/) {
hi = elt;
continue;
}
if (comment[set, elt])
print " ONE_KNOWN_DW_" set "_DESC (" elt ", DW_" set "_" elt \
", \"" comment[set, elt] "\") \\";
else
print " ONE_KNOWN_DW_" set " (" elt ", DW_" set "_" elt ") \\";
}
print " /* End of DW_" set "_*. */";
}
}
|
