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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
|
# Portions Copyright 2007 Sun Microsystems, Inc. All rights reserved.
#
# Print routines to return constant name for associated value.
# The input is dwarf.h
# For each set of names with a common prefix, we create a routine
# to return the name given the value.
# Also print header file that gives prototypes of routines.
# To handle cases where there are multiple names for a single
# value (DW_AT_* has some due to ambiguities in the DWARF2 spec)
# we take the first of a given value as the definitive name.
# TAGs, Attributes, etc are given distinct checks.
#
# to test the code generated in dwarf_names_new.c and dwarf_names_new.h
# you can use this test program
#
# #include "dwarf.h"
# #define NULL (char*)0
# #define DWARF_PRINT_PREFIX mydw_
# #include "dwarf_names_new.h"
# int main()
# {
# printf(mydw_get_TAG_name(DW_TAG_label));
# }
# #include "dwarf_names_new.c"
#
BEGIN {
prefix = "foo"
prefix_id = "foo"
prefix_len = length(prefix)
dw_prefix = "DW_"
dw_len = length(dw_prefix)
start_routine = 0
printf "#include \"globals.h\"\n\n"
printf "#include \"makename.h\"\n\n"
header = "dwarf_names.h"
enum_header = "dwarf_names_enum.h"
dwarf_names_new = "dwarf_names_new.c"
dwarf_names_newh = "dwarf_names_new.h"
printf "/* automatically generated routines */\n" > header
dup_arr["0"] = ""
printf "/* automatically generated enums for dwarf defines */\n" > enum_header
printf "/* automatically generated */\n" > dwarf_names_new
printf "/* make sure to include the corresponding */\n" > dwarf_names_new
printf "/* header here, so DWPREFIX is defined */\n" > dwarf_names_new
printf "/* automatically generated */\n" > dwarf_names_newh
printf "/* define DWARF_PRINT_PREFIX before this point */\n" > dwarf_names_newh
printf "/* if you want one */\n" > dwarf_names_newh
printf "#define dw_glue(x,y) x##y\n" > dwarf_names_newh
printf "#define dw_glue2(x,y) dw_glue(x,y)\n" > dwarf_names_newh
printf "#define DWPREFIX(x) dw_glue2(DWARF_PRINT_PREFIX,x)\n" > dwarf_names_newh
printf "#ifndef __DWARF_NAMES_ENUM_H__\n" > enum_header;
printf "#define __DWARF_NAMES_ENUM_H__\n" > enum_header;
}
{
if (skipit && $1 == "#endif") {
skipit = 0
next
}
if ($2 == 0 || skipit) {
# if 0, skip to endif
skipit = 1
next
}
if ($1 == "#define") {
if (substr($2,1,prefix_len) != prefix) {
# new prefix
if (substr($2,1,dw_len) != dw_prefix) {
# skip
next
} else if (substr($2,1,dw_len+3) == "DW_CFA") {
# skip, cause numbers conflict
# (have both high-order and low-order bits)
next
} else {
# New prefix, empty the dup_arr
for (k in dup_arr)
dup_arr[k] = ""
if (start_routine) {
printf "\tdefault:; }\n\treturn NULL;\n" > dwarf_names_new;
printf "}\n\n" > dwarf_names_new;
# end routine
printf "\tdefault:\n"
printf "\t\t{ \n"
printf "\t\t char buf[100]; \n"
printf "\t\t char *n; \n"
printf "\t\t snprintf(buf,sizeof(buf),\"<Unknown %s value 0x%%x>\",(int)val);\n",prefix_id
printf "\t\t fprintf(stderr,\"%s of %%d (0x%%x) is unknown to dwarfdump. \" \n ", prefix_id
printf "\t\t \"Continuing. \\n\",(int)val,(int)val ); \n"
printf "\t\t n = makename(buf);\n"
printf "\t\t return n; \n"
printf "\t\t} \n"
printf "\t}\n"
printf "/*NOTREACHED*/\n"
printf "}\n\n"
printf "%s\n", last_entry >> enum_header
printf "};\n" >> enum_header
last_entry = "";
}
start_routine = 1
post_dw = substr($2,dw_len+1, length($2))
second_underscore = index(post_dw,"_")
prefix = substr($2,1,second_underscore+dw_len)
prefix_len = length(prefix)
# prefix id is unique part after DW_, e.g. LANG
prefix_id = substr(prefix,dw_len+1,prefix_len-dw_len-1)
printf "/* ARGSUSED */\n"
printf "extern string\n"
printf "get_%s_name (Dwarf_Debug dbg, Dwarf_Half val)\n", prefix_id
printf "{\n"
printf "\tswitch (val) {\n"
printf "extern string get_%s_name (Dwarf_Debug dbg, Dwarf_Half val);\n\n", prefix_id >> header
printf "const char * DWPREFIX(get_%s_name) (unsigned int val){ \n", prefix_id >> dwarf_names_new
printf "\tswitch (val) {\n" >> dwarf_names_new
printf "extern string get_%s_name (Dwarf_Debug dbg, Dwarf_Half val);\n\n", prefix_id >> header
printf "const char * DWPREFIX(get_%s_name) (unsigned int);\n", prefix_id >> dwarf_names_newh
printf "\nenum Dwarf_%s_e {\n", prefix_id >> enum_header
}
}
if (substr($2,1,prefix_len) == prefix) {
if (substr($2,1,dw_len+8) == "DW_CHILDREN" \
|| substr($2,1,dw_len+8) == "DW_children" \
|| substr($2,1,dw_len+4) == "DW_ADDR") {
main_part = substr($2,dw_len+1, length($2))
}
else {
post_dw = substr($2,dw_len+1, length($2))
second_underscore = index(post_dw,"_")
main_part = substr($2,dw_len+second_underscore+1, length($2))
}
if( dup_arr[$3] != $3 ) {
# Take first of those with identical value,
# ignore others.
dup_arr[$3] = $3
printf "\tcase %s:\n", $2
printf "\t\tif (ellipsis)\n"
printf "\t\t\treturn \"%s\";\n", main_part
printf "\t\telse\n"
printf "\t\t\treturn \"%s\";\n", $2
printf "\tcase %s: return \"%s\";\n", $2, $2 >> dwarf_names_new
}
# printf "\t%-40s = %s,\n", $2, $3 > enum_header
if (last_entry != "") {
printf "%s,\n", last_entry > enum_header
}
last_entry = sprintf("\t%-40s = %s", $2, $3)
if ($2 ~ /FRAME_LAST_REG_NUM/) {
last_entry = sprintf("\t%-40s", $2)
}
}
}
}
END {
if (start_routine) {
printf "\tdefault:\n"
printf "\t\tprint_error(dbg, \"get_%s_name unexpected value\",DW_DLV_OK, err);\n", prefix_id
printf "\t}\n"
printf "\t return \"unknown-name-dwarf-error\";\n"
printf "}\n\n"
printf "%s\n", last_entry >> enum_header
printf "};\n" >> enum_header
last_entry = "";
printf "\tdefault:; }\n\treturn NULL;\n}\n" > dwarf_names_new
}
printf "#endif /* __DWARF_NAMES_ENUM_H__ */\n" > enum_header
}
|
