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 22 set == "" && $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 38 END { 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
