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