mltags

   1 #!/bin/sh
   2 exec etags \
   3   --language=none \
   4   --regex='/[ \t]*\(exception\|datatype\|type\|val\|and\|fun\|structure\|signature\|functor\) \([A-Za-z_0-9]+\)/\2/' \
   5   --regex='/[ \t]*[=|] \([A-Z_]+\)/\1/' \
   6   $*
   7
   8 #  --regex='/[ \t]*val [^:]+:[ \t]*\(.*\)/\1/' \