#!/bin/csh

set path=($path /atuin/Projects/Serendipity/SN/Code/docCL/bin)

rm -r Distances Words
mkdir Distances Words

foreach group (`ls -1 Combs`)

echo $group
rm -r Associations QA associations >& /dev/null

foreach file (`cat Combs/$group`)

echo "<inputdoc id=\042Data/${file}\042>" > /tmp/foo$$
cat Data/$file | sed 's/[-\.@]/ /g' >> /tmp/foo$$
echo "</inputdoc>" >> /tmp/foo$$
cat /tmp/foo$$ >> associations

end
rm /tmp/foo$$

mkdir QA Associations
cd QA

myclusterDocs2.sh ../associations


foreach file (`cat ../Combs/$group`)
echo $file
latat -c "(make-tripledb db 1997)(link-file db docdb.hdr)(s db Data/$file)(exit)" > ../Associations/$file
end
cd ..

echo "" > Distances/$group.lock
echo "" > Distances/$group.dist
echo "" > Distances/$group.files
echo `wc -l Combs/$group` > Distances/$group.n
foreach file1 (`ls Associations/*`)
echo $file1 >> Distances/$group.files
  foreach file2 (`ls Associations/*`)
    Code/dist $file1 $file2 >> Distances/$group.dist
  end
end
rm Distances/$group.lock

mv Associations Words/$group
rm -r QA associations

end