#! /usr/bin/perl -w

my(@path) = @ARGV;
my($n) = $#path;
my(@file);

for($i=0; $i<$n; $i++)
  { my ($f) = $path[$i]; 
    $f =~ tr:/:_:;
    $file[$i] = "/tmp/$$" . $f;
    printf "%s\n", $file[$i];
    my($awk) = '/NF==2/{print $2;}';
    my($msg) = 
      ` cat ${path[$i]}/fonts.dir | \
        sed -e '1d' -e 's/^[^ ]*[ ]//' | \
        sort > ${file[$i]} \
      `;
    if (defined($msg))
      { ${msg} =~ y:\n: :;
        printf '** %s: %s\n', ${path[$i]}, $msg;
      }
  }

for($i=0; $i<$n; $i++)
  { printf "%2d", $i;
    for($j=0; $j<=$i; $j++)
      { my($m) = `bool 1.2 ${file[$i]} ${file[$j]} | wc -l`;
        printf " %4d", $m;
      }
    printf "\n";
  }