[unix-history] / src / ctags.sh

# ctags
# (c) 1979 Regents of the University of California
grep '^[a-z].*)$' $* >/tmp/$$
ed - /tmp/$$ << 'EOF'
1,$s/(.*//
1,$s/\(.*\):\(.*\)/\2	\1	\/^\2\//
w
q
'EOF'
sort -d /tmp/$$ | uniq >tags
rm /tmp/$$
Commit	Line	Data
fe3aaec5 BJ	1	# ctags
	2	# (c) 1979 Regents of the University of California
	3	grep '^[a-z].)$' $ >/tmp/$$
	4	ed - /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/$$