VB6プロジェクト内で利用されていないクラスファイルをリストアップするスクリプト

#!/bin/bash
# find up the not required classes for msvb6proj
# usage: `bash nrc.sh srcdir | xargs rm`
dir=$@;
dir=${$@:-"."};
# if [ $# -lt 1 ]; then
#     dir=".";
# else
#     dir=$@;
# fi
classes=`find $dir -name '*.cls'`;
files=`find $dir -name '*.bas' -or -name '*.frm'`;
for filename in $classes ; do
  classname=`grep "VB_Name =" "$filename" | sed -e 's/Attribute VB_Name = "//i' -e 's/"//gi'`;
  flag=0;
  for target in $files $classes; do
    [ $target == $filename ] && continue;
    m=`grep -e " As $classname\>" -e " New $classname\>" -e "Implements $classname\>" "$target" | wc -l`;
    echo Found $m $classname in $target 1>&2;
    if [ $m -gt 0 ]; then
      echo "---next-->" 1>&2;
      flag=1;
      break;
    fi
  done
  if [ $flag -eq 0 ] ; then
    echo "*** HIT ***" 1>&2;
    echo $filename;
  fi
done
exit;