4 which perl
&>/dev
/null ||
exit 77
6 function generate_directives
() {
7 perl
-aF'/[\s,]+/' -ne '
8 if (my ($s, $d) = ($F[0] =~ /^([^\s\.]+)\.([^\s\.]+)$/)) { $d{$s}{"$d="} = 1; }
9 END { while (my ($key, $value) = each %d) {
10 printf "[%s]\n%s\n", $key, join("\n", keys(%$value))
16 <(generate_directives
"$1"/src
/network
/networkd-network-gperf.gperf |
sort) \
17 <(cat "$1"/test
/fuzz
/fuzz-network-parser
/directives.network |
sort); then
18 echo "Looks like test/fuzz/fuzz-network-parser/directives.network hasn't been updated"
23 <(generate_directives
"$1"/src
/network
/netdev
/netdev-gperf.gperf |
sort) \
24 <(cat "$1"/test
/fuzz
/fuzz-netdev-parser
/directives.netdev |
sort); then
25 echo "Looks like test/fuzz/fuzz-netdev-parser/directives.netdev hasn't been updated"
30 <(generate_directives
"$1"/src
/udev
/net
/link-config-gperf.gperf |
sort) \
31 <(cat "$1"/test
/fuzz
/fuzz-link-parser
/directives.link |
sort) ; then
32 echo "Looks like test/fuzz/fuzz-link-parser/directives.link hasn't been updated"