3 # Copyright (c) 2015 Elvira Khabirova <lineprinter0@gmail.com>
4 # Copyright (c) 2015-2016 Dmitry V. Levin <ldv@altlinux.org>
5 # Copyright (c) 2015-2017 The strace developers.
8 # Redistribution and use in source and binary forms, with or without
9 # modification, are permitted provided that the following conditions
11 # 1. Redistributions of source code must retain the above copyright
12 # notice, this list of conditions and the following disclaimer.
13 # 2. Redistributions in binary form must reproduce the above copyright
14 # notice, this list of conditions and the following disclaimer in the
15 # documentation and/or other materials provided with the distribution.
16 # 3. The name of the author may not be used to endorse or promote products
17 # derived from this software without specific prior written permission.
19 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
20 # IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
21 # OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
22 # IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
23 # INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
24 # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
25 # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
26 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
27 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
28 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
30 function compare_indices(i1, v1, i2, v2, \
33 c1 = strtonum(sprintf("%s", i1))
34 c2 = strtonum(sprintf("%s", i2))
39 function array_get(array_idx, array_member, \
42 array_return = array[array_idx][array_member]
43 if ("" == array_return) {
44 printf("%s: index [%s] without %s\n",
45 FILENAME, array_idx, array_member) > "/dev/stderr"
50 function array_seq(array_idx)
52 if ("seq" in array[array_idx])
53 return array[array_idx]["seq"]
55 array[array_idx]["seq"] = index_seq
58 function enter(array_idx,
61 if (array_idx in called) {
62 printf("%s: index loop detected:", FILENAME) > "/dev/stderr"
64 printf(" %s", item) > "/dev/stderr"
65 print "" > "/dev/stderr"
70 function leave(array_idx, to_return)
72 delete called[array_idx]
75 function update_upper_bound(idx, val, \
78 count = array[idx]["count"]
81 array[idx]["count"] = count * val
82 array[idx]["upper_bound"] = array[idx]["upper_bound"] "[" val "]"
84 function what_is(what_idx, \
85 item, loc_diff, location, prev_location, prev_returned_size, \
86 special, to_return, type_idx)
89 special = array_get(what_idx, "special")
92 switch (array_get(what_idx, "encoding")) {
95 8 * array_get(what_idx, "byte_size"))
99 8 * array_get(what_idx, "byte_size"))
101 default: # float, signed/unsigned char
102 printf("%s ", array_get(what_idx, "name"))
105 returned_size = array_get(what_idx, "byte_size")
107 case "enumeration_type":
108 returned_size = array_get(what_idx, "byte_size")
109 printf("uint%s_t ", 8 * returned_size)
112 printf("mpers_ptr_t ")
113 returned_size = array_get(what_idx, "byte_size")
116 type_idx = array_get(what_idx, "type")
118 to_return = array[what_idx]["upper_bound"]
121 returned_size = array[what_idx]["count"] * returned_size
122 return leave(what_idx, to_return)
124 case "structure_type":
129 prev_returned_size = 0
130 for (item in array) {
131 if ("parent" in array[item] && \
132 array_get(item, "parent") == what_idx) {
133 location = array_get(item, "location")
134 loc_diff = location - prev_location - \
137 printf("unsigned char mpers_%s_%s[%s];\n",
138 "filler", array_seq(item), loc_diff)
140 prev_location = location
141 returned = what_is(item)
142 prev_returned_size = returned_size
143 printf("%s%s;\n", array[item]["name"], returned)
146 returned_size = array_get(what_idx, "byte_size")
147 loc_diff = returned_size - prev_location - prev_returned_size
149 printf("unsigned char mpers_%s_%s[%s];\n",
150 "end_filler", array_seq(item), loc_diff)
152 printf("} ATTRIBUTE_PACKED ")
156 for (item in array) {
157 if ("parent" in array[item] && \
158 array_get(item, "parent") == what_idx) {
159 returned = what_is(item)
160 printf("%s%s;\n", array[item]["name"], returned)
164 returned_size = array_get(what_idx, "byte_size")
167 type_idx = array_get(what_idx, "type")
168 return leave(what_idx, what_is(type_idx))
171 type_idx = array_get(what_idx, "type")
172 return leave(what_idx, what_is(type_idx))
175 type_idx = array_get(what_idx, "type")
179 return leave(what_idx, "")
182 match(ARCH_FLAG, /[[:digit:]]+/, temparray)
183 default_pointer_size = temparray[0] / 8
184 print "#include <inttypes.h>"
187 match($0, /([[:alnum:]]+)><([[:alnum:]]+)/, matches)
189 idx = "0x" matches[2]
190 array[idx]["idx"] = idx
193 /^DW_AT_data_member_location/ {
194 if (!match($0, /\(DW_OP_plus_uconst:[[:space:]]+([[:digit:]]+)\)/, temparray))
195 match($0, /([[:digit:]]+)/, temparray)
196 array[idx]["location"] = temparray[1]
199 match($0, /:[[:space:]]+([[:alpha:]_][[:alnum:]_[:space:]]*)/, \
201 array[idx]["name"] = temparray[1]
204 match($0, /[[:digit:]]+/, temparray)
205 array[idx]["byte_size"] = temparray[0]
208 match($0, /[[:digit:]]+/, temparray)
209 array[idx]["encoding"] = temparray[0]
212 match($0, /:[[:space:]]+<(0x[[:xdigit:]]*)>$/, temparray)
213 array[idx]["type"] = temparray[1]
215 /^DW_AT_upper_bound/ {
216 match($0, /[[:digit:]]+/, temparray)
217 update_upper_bound(parent[level - 1], temparray[0] + 1)
220 match($0, /[[:digit:]]+/, temparray)
221 update_upper_bound(parent[level - 1], temparray[0])
223 /^Abbrev Number:[^(]+\(DW_TAG_/ {
224 if (match($0, /typedef|union_type|structure_type|pointer_type\
225 |enumeration_type|array_type|base_type|member/, temparray)) {
226 array[idx]["special"] = temparray[0]
227 if ("pointer_type" == temparray[0])
228 array[idx]["byte_size"] = default_pointer_size
229 if (level > 1 && "member" == temparray[0])
230 array[idx]["parent"] = parent[level-1]
234 PROCINFO["sorted_in"] = "compare_indices"
235 for (item in array) {
236 if (array[item]["special"] == "pointer_type") {
238 "uint" 8 * array_get(item, "byte_size") "_t"
239 print "#ifndef mpers_ptr_t_is_" mpers_ptr_t
240 print "typedef " mpers_ptr_t " mpers_ptr_t;"
241 print "#define mpers_ptr_t_is_" mpers_ptr_t
246 for (item in array) {
247 if (array[item]["name"] == VAR_NAME) {
248 type = array_get(item, "type")
251 name = array_get(type, "name")
252 print ARCH_FLAG "_" name ";"
253 print "#define MPERS_" \
254 ARCH_FLAG "_" name " " \