#!]1;jonque=]2;jonque/nthiery=    ~ /usr/local/util/bin/perl -w
# -*-Perl-*-

use English;

##### cut here if Tags.pm is in a standard place
BEGIN {
    foreach ("/users/etudiants/nthiery/lib/perl",
	     "/users/92/maths/nthiery/lib/perl") {
	-d $_ and unshift @INC, $_;
    }
}
##### end of cut

use Tags;


$tagparser=new Tags ('perl',
		     {pattern=>q{^\s*sub\s+(?:\w+(?:\'|::))*(\w+)},
		      help=>'subroutines'},
		     {pattern=>q{^([\$\@\%][\w:]+)\s*=},
		      first=>1,
		      option=>'variables',
		      help=>'global variables'});

$tagparser->parse_command_line(@ARGV);

__END__;
##############################################################################
#	Pod documentation.    
##############################################################################

=head1 NAME

ptags - creates tag files for perl

=head1 SYNOPSIS

B<ptags> B<--add> I<variables> F<Tags.pm> F<ptags>

B<ptags> [B<-h>/B<--help>]

=head1 DESCRIPTION

This is a really short perl script that use the package Tags.pm (see
L<Tags.pm>) to creates tag files for perl scripts and perl modules. It
can output either TAGS files for emacs or tag files for vi.

It records in the tag file definition of subroutines and, optionnaly,
definitions of global variables. Tags are found with basic patterns.
For example, for variables, it is the first occurence of C<$bla=>
without indentation.

=head1 SEE ALSO

B<ptags --help> for a precise description of the options.

L<Tags.pm>

http://www.eleves.ens.fr:8080/home/nthiery/Tags/

L<perl>

=head1 AUTHOR

Nicolas Thiery

Nicolas.Thiery@ens.fr

http://www.eleves.ens.fr:8080/home/nthiery/

=cut