🚀 go-pugleaf

<from gnu.emacs.help>
PH> I wonder if there is anyone who has adapdet ctags/etags for VHDL.

No, but I wrote a trivial PERL script.  RMS, I *really* hope posting
this here isn't against all etiquette, since I'm unable at this point to
put a full GNU copyleft on it.  Sorry if this is a problem.

From my original internal release announcement:

Lack of VHDL tags support was driving me insane (ok, so it was more like
a short walk for me...).  So, this morning I wrote a perl script to
generate a TAGS table.  To make the table, type something like:

% vtags *.vhdl

To use the tables within GNU Emacs, heh, it's cool.  Type M-. when
you're on the function, entity, type, etc., that you want to find.
EMACS will prompt you for an item for which to search, the default being
that to which you're pointing.  Hit return, and *whoof*, the appropriate
file is opened, and you're pointing at that item. Of course, there's
some problems with overloading, scoping, etc, so it still needs some
work.  But it's a start.

  -Todd P. Carpenter                                 
Honeywell Technology Center 3660 Technology Drive, Minneapolis, MN 55418-1006
US-612-951-7229(w) 951-7438(f) 698-1934(h)   carpenter_todd@htc.honeywell.com   
User Manual, p34, line 5: This carbon unit not authorized to possess opinions


#!/usr/local/bin/perl
#------------------------------------------------------------------------------
#--                                     copyright 1994
#--                                     Honeywell Technology Center
#--                                     All Rights Reserved, except as noted:
#-- 
#--   This code is freely distributable, as long as the copyright notice
#--   remains intact, and code changes are marked.
#-- 
#--   File name :  vtags
#--   Title     :  VHDL Tags generator.  
#-- 
#--   Purpose   :  Generate TAGS file for GNU Emacs.
#--                
#--   Usage     :  vtags [-h] [-o <TAGSFILE>] files
#-- 
#--   Example   :  % vtags *.vhdl
#--                 
#--   Maint     :  vhdl-mode@src.honeywell.com 
#--
#------------------------------------------------------------------------------

# -----------------------------------------------------------------------------
# parse the input switches if any
$OutFile = ">TAGS";
while ($_ = $ARGV[0], /^-/) {
  shift;
  last if /^--$/;
  /^-o/ && do {
    $OutFile = ">" .$ARGV[0];
    shift;
  };

  # print out header for help
  /^-h.*/ && do { $MyName = $0; 
                  open MyName;  
                  while (<MyName>)
                    { print if s/^#-- //; };
                  exit;
                  };
 };

@VHDLTags =
 (
  "ARCHITECTURE",
  "ATTRIBUTE",
  "CONFIGURATION",
  # "CONSTANT", # might want these back
  "ENTITY",
  "FUNCTION",
  # "GENERIC", # Whoa, these are ugly with the maps.
  "PACKAGE",
  "PROCEDURE",
  "PROCESS",
  # "SIGNAL", # just too many
  "SUBTYPE",
  "TYPE",
  # "VARIABLE",# too many
  );

# -----------------------------------------------------------------------------
# reset the output to the final file, and print the file to it.
open OutFile || die "Can't open tagsfile $OutFile: $!\n";
select(OutFile);

# -----------------------------------------------------------------------------
# build tags table.
while (<>) {
  if ($. == 1) {print "\n" .$ARGV .",0\n"; $charpos = 0};
  if (eof) {close (ARGV);};
  foreach $VHDLTag (@VHDLTags) {
    if (/^( *$VHDLTag +[^ (:]*)/)
        {print $1 ."" .$. .",$charpos\n";}
  }
  $charpos += length;
}

# -----------------------------------------------------------------------------