tools/check-directives.sh

   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 ret=0
  14 if [[ $(generate_directives src/network/networkd-network-gperf.gperf | wc -l) -ne $(wc -l <test/fuzz/fuzz-network-parser/directives.network) ]]; then
  15         echo "Looks like test/fuzz/fuzz-network-parser/directives.network hasn't been updated"
  16         ret=1
  17 fi
  18
  19 if [[ $(generate_directives src/network/netdev/netdev-gperf.gperf | wc -l) -ne $(wc -l <test/fuzz/fuzz-netdev-parser/directives.netdev) ]]; then
  20         echo "Looks like test/fuzz/fuzz-netdev-parser/directives.netdev hasn't been updated"
  21         ret=1
  22 fi
  23
  24 if [[ $(generate_directives src/udev/net/link-config-gperf.gperf | wc -l) -ne $(wc -l <test/fuzz/fuzz-link-parser/directives.link) ]]; then
  25         echo "Looks like test/fuzz/fuzz-link-parser/directives.link hasn't been updated"
  26         ret=1
  27 fi
  28
  29 exit $ret