:
#ident	"@(#)routines	1.2	90/08/16"
#ident "@(#)routines	1.2 89/09/29"
#	@(#) routines 1.2 89/01/25 
#	routines: finds driver entry points in a driver object module

case $# in
	0) echo "syntax: routines object_module1 object_module2 ..."
	   exit 1 
	;;
esac
cat $* | od -c | \
awk '{ for ( i=2 ; i <= NF ; i++) if ( y=length($i) == 1 ) { printf("%s",$i) ; x = 1 } else if ( x == 1 ) { printf("\n"); x = 0 }} ' | \
egrep 'open$
close$
read$
write$
ioctl$
strategy$
tab$
_tty$
halt$
poll$
stream$
init$
^spl
startup$
exit$
fork$
exec$
init$
intr$' | sort | uniq | sed 's/^_//p' 
