#!]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 ('cocoal',
		     {pattern=>q{^ \s* Define \s+ (\w+)       },
		      help=>'subroutines'},
		     {pattern=>q{^ \s* (\w+)\s*\([\w\s,]*\) \s*:= },
		      help=>'inlined subroutines'},
		     {pattern=>q{^ \s* Global \s+ (\w+) \s*:= },
		      first=>1,
		      option=>'globalvars',
		      help=>'global variables'},
		     {pattern=>q{^ (?:\w+::)?     (\w+) \s*:= },
		      first=>1,
		      option=>'vars',
		      help=>'variables'},
		     {pattern=>q{^ \s*            (\w+) \s*::= },
		      first=>1,
		      option=>'envs',
		      help=>'ring environnments'});

$tagparser->parse_command_line(@ARGV);

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

=head1 NAME

cocoal - creates tag files for I<CoCoAl>

=head1 SYNOPSIS

B<cocoaltags> B<--add> [I<envs>/I<globalvars>/I<vars>] F<truc.coc>

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

=head1 DESCRIPTION

CoCoAL is the language of the computer algebra system CoCoA. This system
is specialized in Computations in Commutative Algebra

This is a really short perl script that use the package Tags.pm (see
L<Tags.pm>) to creates tag files for cocoal files. 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 environnments, global variables, and, say, not too
local variables. Tags are found with basic patterns (see the script).

=head1 SEE ALSO

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

L<Tags.pm>

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

L<cocoa>

L<perl>

=head1 AUTHOR

Nicolas Thiery

Nicolas.Thiery@ens.fr

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

=cut