scripts/vhdltags

   1 #!/bin/sh
   2 # Etags is case sensitive so parsing VHDL is a little ugly.
   3
   4 FILES=""
   5 OUTPUTFILE=TAGS
   6
   7 while [ "$1"x != "x" ] ; do
   8     case $1 in
   9     -o)
  10         shift
  11         OUTPUTFILE=$1
  12         ;;
  13     *)
  14         FILES="$FILES $1"
  15         ;;
  16     esac
  17     shift
  18 done
  19
  20 etags --language=none \
  21       --regex='/[ \t]*\([Aa][Rr][Cc][Hh][Ii][Tt][Ee][Cc][Tt][Uu][Rr][Ee]\)[ \t]+\([^ \t]*\)[ \t]+\(OF\|of\)[ \t]+\([^ \t]*\)/\4-\2/' \
  22       --regex='/[ \t]*\([Cc][Oo][Nn][Ff][Ii][Gg][Uu][Rr][Aa][Tt][Ii][Oo][Nn]\)[ \t]+\([^ \t]*\)[ \t]+\(OF\|of\)[ \t]+\([^ \t]*\)/\2/' \
  23       --regex='/[ \t]*\('\
  24 '[Aa][Tt][Tt][Rr][Ii][Bb][Uu][Tt][Ee]\|'\
  25 '[Ee][Nn][Tt][Ii][Tt][Yy]\|'\
  26 '[Ff][Uu][Nn][Cc][Tt][Ii][Oo][Nn]\|'\
  27 '[Pp][Aa][Cc][Kk][Aa][Gg][Ee]\([ \t]+[Bb][Oo][Dd][Yy]\)?\|'\
  28 '[Pp][Rr][Oo][Cc][Ee][Dd][Uu][Rr][Ee]\|'\
  29 '[Pp][Rr][Oo][Cc][Ee][Ss][Ss]\|'\
  30 '[Tt][Yy][Pp][Ee]\|'\
  31 '[Ss][Uu][Bb][Tt][Yy][Pp][Ee]'\
  32 '\)[ \t]+\([^ \t(]+\)/\3/' \
  33       --regex='/[ \t]*\([Cc][Oo][Nn][Ss][Tt][Aa][Nn][Tt]\)[ \t]+\([^ \t]+\)/\2/' \
  34       -o "$OUTPUTFILE" $FILES