
rm -f type-index
list=
for i in `ls types`
do
 if [ -d types/$i ] && [ -s types/$i/description ]; then 
  echo '!set description_'$i=`tail -1 types/$i/description` >>type-index
  if [ ! -z "$list" ]; then list="$list,"; fi
  list="$list$i"
 fi
done

echo '!set type_list='$list >>type-index


