#!/bin/ksh

Usage() {
	print -u2 "Usage: $0 dir {F77_CALL|F77_NAME}"
	exit 1
}

if [ -z "$1" ]; then
	Usage
fi
if [ ! -d "$1" ]; then
	Usage
fi
DIR="$1"
shift
if [ -z "$1" ]; then
	Usage
fi
WHAT="$1"
cd $DIR
echo "Basedir: " `pwd`
find . -type f -exec fgrep -l "$WHAT" {} \;  | while read FILE; do
	if [ ${FILE%%.orig} != "$FILE" ]; then
		continue
	fi
	print "FILE: $FILE"
	fgrep "$WHAT" "$FILE" | cut -f2 -d\( | cut -f 1 -d\) | while read CALL ; do 
		LEN=$(print -n "$CALL" | wc -c)
		if [ $LEN -lt 4 ]; then
			continue
		fi
		print "CALL: $CALL"
		fgrep "$CALL" $STUDIO_HOME/prod/include/cc/sunperf.h
	done
done