Add script to measure file error rate.

Signed-off-by: Stefan Westerfeld <stefan@space.twc.de>

src/ber-test.sh

-# pseudo random pattern
+# pseudo random pattern, 128 bit
 
 PATTERN=4e1243bd22c66e76c2ba9eddc1f91394
 TRANSFORM=$1
@@ -8,6 +8,9 @@ fi
 if [ "x$AWM_SEEDS" == "x" ]; then
   AWM_SEEDS=0
 fi
+if [ "x$AWM_REPORT" == "x" ]; then
+  AWM_REPORT=ber
+fi
 
 {
   if [ "x$AWM_SET" == "xsmall" ]; then
@@ -76,4 +79,13 @@ do
     # decoding with original
     # audiowmark cmp-delta "$i" t.wav $PATTERN $AWM_PARAMS --seed $SEED
   done
-done | grep bit_error_rate | awk 'BEGIN { max_er = er = n = 0 } { er += $2; n++; if ($2 > max_er) max_er = $2;} END { print er / n, max_er; }'
+done | grep bit_error_rate | {
+  if [ "x$AWM_REPORT" == "xber" ]; then
+    awk 'BEGIN { max_er = er = n = 0 } { er += $2; n++; if ($2 > max_er) max_er = $2;} END { print er / n, max_er; }'
+  elif [ "x$AWM_REPORT" == "xfer" ]; then
+    awk 'BEGIN { bad = n = 0 } { if ($2 > 0) bad++; n++; } END { print bad, n, bad * 100.0 / n; }'
+  else
+    echo "unknown report $AWM_REPORT" >&2
+    exit 1
+  fi
+}

src/fer-test.sh

+#!/bin/bash
+SEEDS="$1"
+MAX_SEED=$(($SEEDS - 1))
+P="$2"
+shift 2
+echo "n seeds       : $SEEDS"
+echo "ber-test args : $@"
+echo "params        : $P"
+for seed in $(seq 0 $MAX_SEED)
+do
+  echo $(AWM_SEEDS=$seed AWM_PARAMS="$P" AWM_REPORT="fer" ber-test.sh "$@")
+done | awk '{bad += $1; files += $2; print bad, files, bad * 100. / files }'

src/seed-test.sh

-MAX_SEED=$1
+SEEDS="$1"
+MAX_SEED=$(($SEEDS - 1))
 P1="$2"
 P2="$3"
 shift 3
-echo "max seed      : $MAX_SEED"
+echo "n seeds       : $SEEDS"
 echo "ber-test args : $@"
 echo "left          : $P1"
 echo "right         : $P2"