1#!/bin/gawk -f
2
3## Copyright (C) 2012, 2015 Red Hat, Inc.
4##
5## This file is part of elfutils.
6##
7## This file 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.
11##
12## elfutils is distributed in the hope that it will be useful, but
13## 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.
16##
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/>.
19
20$1 == "enum" { set = ""; next }
21
22set == "" && $1 ~ /DW_([A-Z_]+)_([^ ]+)/ {
23  set = $1;
24  sub(/^DW_/, "", set);
25  sub(/_[^[:upper:]_].*$/, "", set);
26  if (set ~ /LANG_.+/) set = "LANG";
27}
28
29$1 ~ /DW([_A-Z]+)_([^ ]+)/ {
30  match($1, ("DW_" set "_([^ ]+)"), fields);
31  elt = fields[1];
32  if (set in DW)
33    DW[set] = DW[set] "," elt;
34  else
35    DW[set] = elt;
36}
37
38END {
39  print "/* Generated by config/known-dwarf.awk from libdw/dwarf.h contents.  */";
40  n = asorti(DW, sets);
41  for (i = 1; i <= n; ++i) {
42    set = sets[i];
43    if (what && what != set) continue;
44    split(DW[set], elts, ",");
45    m = asort(elts);
46    if (m == 0) continue;
47    print "\n#define DWARF_ALL_KNOWN_DW_" set " \\";
48    for (j = 1; j <= m; ++j) {
49      elt = elts[j];
50      if (elt ~ /(low?|hi|high)_user$/)
51	continue;
52      print "  DWARF_ONE_KNOWN_DW_" set " (" elt ", DW_" set "_" elt ") \\";
53    }
54    print "  /* End of DW_" set "_*.  */";
55  }
56}
57