a utility to check that change numbers are sequential.

diff --git a/util/check-changes b/util/check-changes
new file mode 100644 (file)
index 0000000..bf79b47
--- /dev/null
+++ b/util/check-changes
@@ -0,0 +1,27 @@
+#!/usr/bin/perl
+eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
+    if $running_under_some_shell;
+                       # this emulates #! processing on NIH machines.
+                       # (remove #! line above if indigestible)
+
+eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
+                       # process any FOO=bar switches
+
+$, = ' ';              # set output field separator
+$\ = "\n";             # set output record separator
+
+$change = 0;
+$status = 0;
+
+line: while (<>) {
+    ($Fld1,$Fld2) = split(' ', $_, 9999);
+    if ($Fld1 =~ /^[1-9][0-9]*\.$/ && $Fld2 =~ /^\[.*\]$/) {
+       if ($change != 0 && $Fld1 + 1 != $change) {
+           print 'bad change number', $Fld1;
+           $status = 1;
+       }
+       $change = $Fld1;
+    }
+}
+
+exit $status;