89935047 BJ |
1 | # astags |
2 | # (c) 1979 Regents of the University of California |
3 | grep '^[a-zA-Z_].*:' $* >/tmp/$$ |
4 | ex - /tmp/$$ << 'EOF' |
5 | 1,$s/:[^:]*$// |
6 | 1,$s/\(.*\):\(.*\)/\2 \1 \/^\2\// |
7 | w |
8 | q |
9 | 'EOF' |
10 | sort -d /tmp/$$ | uniq >! tags |
11 | rm /tmp/$$ |