/
githubmirror
/
elfutils
Обзор
Документация
Войти
/
githubmirror
/
elfutils
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
config/known-dwarf.awk
56 строк
2 KB
Petr Machata
Publish known-dwarf.h
31 мар 2015, 20:01
31 мар 2015, 20:01
7f61734
Код
Авторство
О чём код?
#!/bin/gawk -f ## Copyright (C) 2012, 2015 Red Hat, Inc. ## ## 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"; } $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 "_*. */"; } }