#!/bin/sh
mkid `find \`pwd\`/ \( -name _deadcode -a -prune \) -o \
-type f -name '*.[chyl]' -print|sed 's;//;/;g'`
find . -name 'CVS' -prune -o -type d -print |while read DIR
do
[ "$DIR" != "." ] && ln -f -s `pwd`/ID $DIR/ID
done