]> granicus.if.org Git - strace/blob - m4/gen_bpf_attr_m4.sh
print_array: enhance printing of unfetchable object addresses
[strace] / m4 / gen_bpf_attr_m4.sh
1 #!/bin/sh -efu
2 # Copyright (c) 2018 Dmitry V. Levin <ldv@altlinux.org>
3 # All rights reserved.
4 #
5 # Redistribution and use in source and binary forms, with or without
6 # modification, are permitted provided that the following conditions
7 # are met:
8 # 1. Redistributions of source code must retain the above copyright
9 #    notice, this list of conditions and the following disclaimer.
10 # 2. Redistributions in binary form must reproduce the above copyright
11 #    notice, this list of conditions and the following disclaimer in the
12 #    documentation and/or other materials provided with the distribution.
13 # 3. The name of the author may not be used to endorse or promote products
14 #    derived from this software without specific prior written permission.
15 #
16 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
17 # IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
18 # OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
19 # IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
20 # INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
21 # NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
22 # DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
23 # THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
24 # (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
25 # THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
26
27 input=bpf_attr.h
28 output="${0%/*}"/bpf_attr.m4
29 exec > "$output"
30
31 cat <<EOF
32 dnl Generated by $0 from $input; do not edit.
33 AC_DEFUN([st_BPF_ATTR], [dnl
34         AC_CHECK_MEMBERS(m4_normalize([
35 EOF
36
37 gawk -e '
38 /^struct ([^[:space:]]+)_struct([[:space:]]+\/\* ([^[:space:]]+) \*\/)?[[:space:]]+{/ {
39         match($0, /^struct ([^[:space:]]+)_struct([[:space:]]+\/\* ([^[:space:]]+) \*\/)?[[:space:]]+{/, a)
40
41         struct_name = a[1]
42         subtype_name = a[3]
43
44         if (struct_name ~ /^BPF_/)
45                 prefix = "union bpf_attr"
46         else
47                 prefix = "struct " struct_name
48
49         if (subtype_name != "")
50                 prefix = prefix "." subtype_name
51
52         in_struct = 1
53         next
54 }
55
56 /^}( ATTRIBUTE_ALIGNED\(.*\))?;/ {
57         in_struct = 0
58         next
59 }
60
61 (in_struct == 1) {
62         if (match($0, /^[[:space:]]+[^;\[\]]+[[:space:]]+([^[:space:]\[\];]+)(\[[^;]*\])?;$/, a)) {
63                 print "\t\t" prefix "." a[1] ","
64         }
65 }
66 ' < "$input" | sort -u
67
68 cat <<'EOF'
69                 union bpf_attr.dummy
70         ]),,, [#include <linux/bpf.h>])
71 ])
72 EOF