#!/bin/sh
find `pwd`/ -type f -name '*.[chyl]' -print|sed 's;//;/;g' | mkid -S.gen=C -

find . -type d -print |while read DIR
do
	[ "$DIR" != "." ] && ln -f -s `pwd`/ID $DIR/ID
done