tools/check-directives.sh

   1 #!/bin/bash
   2 set -e
   3
   4 which perl &>/dev/null || exit 77
   5
   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))
  11         }}' "$1"
  12 }
  13
  14 ret=0
  15 if ! diff \
  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"
  19     ret=1
  20 fi
  21
  22 if ! diff \
  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"
  26     ret=1
  27 fi
  28
  29 if ! diff \
  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"
  33     ret=1
  34 fi
  35
  36 exit $ret