#!/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