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

#  --regex='/[ \t]*val [^:]+:[ \t]*\(.*\)/\1/' \