]>
Commit | Line | Data |
---|---|---|
a2ab58da EV |
1 | #!/bin/bash |
2 | ||
3 | set -e | |
4 | ||
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)) | |
10 | }}' "$1" | |
11 | } | |
12 | ||
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" | |
15 | exit 1 | |
16 | fi | |
17 | ||
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" | |
20 | exit 1 | |
21 | fi |