2BSD/bin/ucb/astags

#
grep '^[a-zA-Z_].*:' $* >/tmp/$$
ex - /tmp/$$ << 'EOF'
1,$s/:[^:]*$//
1,$s/\(.*\):\(.*\)/\2	\1	\/^\2\//
w
q
'EOF'
sort -d /tmp/$$ | uniq >! tags
rm /tmp/$$