5 function generate_directives
() {
6 perl
-aF'/[\s,]+/' -ne '
7 if (my ($s, $d) = ($F[0] =~ /^([^\s\.]+)\.([^\s\.]+)$/)) { $d{$s}{"$d="} = 1; }
8 END { while (my ($key, $value) = each %d) {
9 printf "[%s]\n%s\n", $key, join("\n", keys(%$value))
13 if [[ $
(generate_directives src
/network
/networkd-network-gperf.gperf |
wc -l) -ne $
(wc -l <test
/fuzz
/fuzz-network-parser
/directives.network
) ]]; then
14 echo "Looks like test/fuzz/fuzz-network-parser/directives.network hasn't been updated"
18 if [[ $
(generate_directives src
/network
/netdev
/netdev-gperf.gperf |
wc -l) -ne $
(wc -l <test
/fuzz
/fuzz-netdev-parser
/directives.netdev
) ]]; then
19 echo "Looks like test/fuzz/fuzz-netdev-parser/directives.netdev hasn't been updated"