config/known-dwarf.awk

   1 #!/bin/gawk -f
   2
   3 ## Copyright (C) 2012 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   if ($NF == "*/" && $4 == "/*") {
  37     c = $5;
  38     for (i = 6; i < NF; ++i) c = c " " $i;
  39     comment[set, elt] = c;
  40   }
  41 }
  42
  43 END {
  44   print "/* Generated by config/known-dwarf.awk from libdw/dwarf.h contents.  */";
  45   n = asorti(DW, sets);
  46   for (i = 1; i <= n; ++i) {
  47     set = sets[i];
  48     if (what && what != set) continue;
  49     split(DW[set], elts, ",");
  50     m = asort(elts);
  51     lo = hi = "";
  52     if (m == 0) continue;
  53     print "\n#define ALL_KNOWN_DW_" set " \\";
  54     for (j = 1; j <= m; ++j) {
  55       elt = elts[j];
  56       if (elt ~ /(lo|low)_user$/) {
  57         lo = elt;
  58         continue;
  59       }
  60       if (elt ~ /(hi|high)_user$/) {
  61         hi = elt;
  62         continue;
  63       }
  64       if (comment[set, elt])
  65         print "  ONE_KNOWN_DW_" set "_DESC (" elt ", DW_" set "_" elt \
  66           ", \"" comment[set, elt] "\") \\";
  67       else
  68         print "  ONE_KNOWN_DW_" set " (" elt ", DW_" set "_" elt ") \\";
  69     }
  70     print "  /* End of DW_" set "_*.  */";
  71   }
  72 }