#! /bin/sh

# Complain about unused functions
t=__wt.$$
trap 'rm -f $t; exit 0' 0 1 2 3 13 15

# List of files to search.
l=`sed -e 's,#.*,,' -e '/^$/d' -e 's,^,../,' filelist`
l="$l `echo ../src/*/*.i`"

(
# Copy out the functions we don't use, but it's OK.
sed -e '/^$/d' -e '/^#/d' < s_funcs.list

# Get the list of functions
search=`egrep -h '^[a-zA-Z0-9_]*\(' $l | sed 's/(.*//' | sort -u`

# Print the list of functions, followed by the occurrences: we're looking for
# functions that only appear once
echo "$search"
sed -n '/{/,/^}/p' $l | fgrep -wo "$search"

sed -n '/^#define/,/[^\\]$/p' ../src/include/*.h ../src/include/*.in |
    fgrep -who "$search"
) | sort | uniq -u > $t

test -s $t && cat $t

exit 0