Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
XSのときにはperlapiのpodとppportから生成したtagファイルにjumpするように
  • Loading branch information
walf443 committed Jan 2, 2010
1 parent 017952d commit 195d86a
Show file tree
Hide file tree
Showing 3 changed files with 35 additions and 0 deletions.
9 changes: 9 additions & 0 deletions Makefile
Expand Up @@ -40,6 +40,15 @@ $(HOME)/.pythonrc:
$(HOME)/.module-setup:
ln -sf `pwd`/module-setup $(HOME)/.module-setup

maketags: vim/tags/perlapi.tags \
vim/tags/ppport.tags

vim/tags/perlapi.tags:
perl vim/tags/make_perlapi_tags.pl > vim/tags/perlapi.tags

vim/tags/ppport.tags:
ctags -f vim/tags/ppport.tags --language-force=c `perldoc -ml Devel::PPPort`

phpref:
wget http://jp.php.net/get/php_manual_ja.tar.gz/from/this/mirror
tar xvzf php_manual_ja.tar.gz
Expand Down
4 changes: 4 additions & 0 deletions vim/after/ftplugin/xs.vim
@@ -0,0 +1,4 @@

set tags+=~/.vim/tags/perlapi.tags
set tags+=~/.vim/tags/ppport.tags

22 changes: 22 additions & 0 deletions vim/tags/make_perlapi_tags.pl
@@ -0,0 +1,22 @@
use strict;
use warnings;
use Path::Class;

my $perlapi = `perldoc -ml perlapi`;
chomp $perlapi;

my $io = file($perlapi)->openr;
my $line_number = 1;
my @lines;
while ( my $line = <$io> ) {
if ( $line =~ /=item (.+)/ ) {
my $keyword = $1;
push @lines, "$keyword\t$perlapi\t$line_number\n";
}
$line_number++;
}

for my $line ( sort @lines ) {
print $line;
}

0 comments on commit 195d86a

Please sign in to comment.