diff --git a/src/MAKE_CTAGS b/src/MAKE_CTAGS
new file mode 100644
index 0000000000000000000000000000000000000000..ef99564694c138fb2e880ac4c5ac3429b9cb2e16
--- /dev/null
+++ b/src/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