home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / emacs / e2ctags.pl < prev   
Text File  |  1999-07-20  |  2KB  |  76 lines
  1.  
  2. ##e2ctags.pl
  3. ##Convert an Emacs-style TAGS file to a standard ctags file.
  4. ##Runs in a single pass over the TAGS file and keeps the first
  5. ##tag entry found, and the file name and line number the tag can
  6. ##be found on.
  7. ##Then it opens all relevant files and builds the regular expression
  8. ##for ctags.
  9. ##Run over a few test files and compared with a real ctags file shows
  10. ##only extra tags in the translated file, which probably won't hurt
  11. ##vi.
  12. ##
  13.  
  14. use strict;
  15.  
  16. my $filename;
  17. my ($tag,$line_no,$line);
  18. my %tags = ();
  19. my %files = ();
  20. my @lines = ();
  21.  
  22. while (<>) {
  23.   if ($_ eq "\x0C\n") {
  24.     ##Grab next line and parse it for the filename
  25.     $_ = <>;
  26.     chomp;
  27.     s/,\d+$//;
  28.     $filename = $_;
  29.     ++$files{$filename};
  30.     next;
  31.   }
  32.   ##Figure out how many records in this line and
  33.   ##extract the tag name and the line that it is found on
  34.   next if /struct/;
  35.   if (/\x01/) {
  36.     ($tag,$line_no) = /\x7F(\w+)\x01(\d+)/;
  37.     next unless $tag;
  38.     ##Take only the first entry per tag
  39.     next if defined($tags{$tag});
  40.     $tags{$tag}{FILE} = $filename;
  41.     $tags{$tag}{LINE_NO} = $line_no;
  42.   }
  43.   else {
  44.     tr/(//d;
  45.     ($tag,$line_no) = /(\w+)\s*\x7F(\d+),/;
  46.     next unless $tag;
  47.     ##Take only the first entry per tag
  48.     next if defined($tags{$tag});
  49.     $tags{$tag}{FILE} = $filename;
  50.     $tags{$tag}{LINE_NO} = $line_no;
  51.   }
  52. }
  53.  
  54. foreach $filename (keys %files) {
  55.   open FILE, $filename or die "Couldn't open $filename: $!\n";
  56.   @lines = <FILE>;
  57.   close FILE;
  58.   chomp @lines;
  59.   foreach $tag ( keys %tags ) {
  60.     next unless $filename eq $tags{$tag}{FILE};
  61.     $line = $lines[$tags{$tag}{LINE_NO}-1];
  62.     if (length($line) >= 50) {
  63.       $line = substr($line,0,50);
  64.     }
  65.     else {
  66.       $line .= '$';
  67.     }
  68.     $line =~ s#\\#\\\\#;
  69.     $tags{$tag}{LINE} = join '', '/^',$line,'/';
  70.   }
  71. }
  72.  
  73. foreach $tag ( sort keys %tags ) {
  74.   print "$tag\t$tags{$tag}{FILE}\t$tags{$tag}{LINE}\n";
  75. }
  76.