#!/usr/local/bin/perl -w

open (Excludes, "< Excludes");
$ex=0;
while ($line = <Excludes>) {
  chomp($line);
  $excluded[++$ex] = $line;
}

$KAT=0.5;

while ($line=<>) {
  chomp($line);
  $p = 1;
  if ($line =~ m/^private/) {$p = 0;}
  else {
    for ($k=1; $k<=$ex; $k++) {if ($line eq $excluded[$k]) {$p=0}};
  }
  if ($p>0) {
    if ($line =~ m/^KAtlas\/Knots\/8/) {$p=0.71486*$KAT;}
    elsif ($line =~ m/^KAtlas\/Knots\/9/) {$p=0.306122*$KAT;}
    elsif ($line =~ m/^KAtlas\/Knots\/10/) {$p=0.0909091*$KAT;}
    elsif ($line =~ m/^KAtlas\/Knots11/) {$p=0.0271739*$KAT;}
    elsif ($line =~ m/^KAtlas\/Links\/8/) {$p=0.517241*$KAT;}
    elsif ($line =~ m/^KAtlas\/Links\/9/) {$p=0.180723*$KAT;}
    elsif ($line =~ m/^KAtlas\/Links\/10/) {$p=0.0522648*$KAT;}
    elsif ($line =~ m/^KAtlas\/Links\/11/) {$p=0.0148957*$KAT;}
    elsif ($line =~ m/^KAtlas\/TorusKnots\/index/) {$p=$KAT;}
    elsif ($line =~ m/^KAtlas\/TorusKnots/) {$p=0.416667*$KAT;}
    elsif ($line =~ m/^KAtlas/) {$p=$KAT;}
    elsif ($line =~ m/^classes\/0/) {$p=0.5;}
    elsif ($line =~ m/^Students\/GreenJ\/4/) {$p=15/108;}
    elsif ($line =~ m/^People\/Eldar\/thesis\/applets/) {$p=15/35;}
  }
  if ($p > 0) {print "[\"".$line."\",".$p."],\n";}
}