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