Developer reorganization.

diff --git a/src/tools/make_ctags b/src/tools/make_ctags
new file mode 100755 (executable)
index 0000000..ef99564
--- /dev/null
+++ b/src/tools/make_ctags
@@ -0,0 +1,10 @@
+#!/bin/sh
+trap "rm -f /tmp/$$" 0 1 2 3 15
+rm -f ./tags
+find `pwd`/ -type f -name '*.[chyl]' -print|xargs ctags -t -a -f tags
+sort tags >/tmp/$$ && mv /tmp/$$ tags
+
+find . -type d -print |while read DIR
+do
+   [ "$DIR" != "." ] && ln -f -s `pwd`/tags $DIR/tags
+done

diff --git a/src/tools/make_etags b/src/tools/make_etags
new file mode 100755 (executable)
index 0000000..94b9597
--- /dev/null
+++ b/src/tools/make_etags
@@ -0,0 +1,10 @@
+#!/bin/sh
+trap "rm -f /tmp/$$" 0 1 2 3 15
+rm -f ./TAGS
+find `pwd`/ -type f -name '*.[chyl]' -print | \
+  xargs etags --append --output=TAGS
+
+find . -type d -print | \
+while read DIR; do
+  [ "$DIR" != "." ] && ln -f -s `pwd`/TAGS $DIR
+done

diff --git a/src/tools/make_mkid b/src/tools/make_mkid
new file mode 100755 (executable)
index 0000000..01ed0f0
--- /dev/null
+++ b/src/tools/make_mkid
@@ -0,0 +1,7 @@
+#!/bin/sh
+find `pwd`/ -type f -name '*.[chyl]' -print|sed 's;//;/;g' | mkid -S.gen=C -
+
+find . -type d -print |while read DIR
+do
+   [ "$DIR" != "." ] && ln -f -s `pwd`/ID $DIR/ID
+done