ipsec-tools/misc/cvs2cl.pl

250 # Show tags (symbolic names) in output?
253 # Show tags separately in output?
275 # Show tags only matching certain regular expression.
303 # Whether to enable 'delta' mode, and for what start/end tags.
320 # latest observed times for the start/end tags in delta mode
368       # We might be including revision numbers and/or tags and/or
523           if ( $Show_Tags and defined $qunkref->tags ) {
524             my @tags = grep ($non_unanimous_tags{$_}, @{$qunkref->tags});
526             if (@tags) {
527               $beauty .= " (tags: ";
528               $beauty .= join (', ', @tags);
592       if ($Show_Tags && (defined $qunkref->tags)) {
593         my @tags = grep ($non_unanimous_tags{$_}, @{$qunkref->tags});
594         if ((scalar (@tags)) > 0) {
599             $b .= " (tags: ";
601           $b .= join (', ', @tags);
620   # Unanimous tags always come last.
901   # don't have to detect common dir, common tags, branch prefixing,
910     my $tags        = $qunkref->tags;
933     foreach my $tag (@$tags) {
1078       if defined $qunk->{tags} and grep $_ eq $ignore_tag, @{$qunk->{tags}};
1084         if ! defined $qunk->{tags} or ! grep $_ eq $show_tag, @{$qunk->{tags}};
1233                 if (defined ($qunkref2->tags)) {
1234                   for my $tag (@{$qunkref2->tags}) {
1262         my %tags;
1266               if (defined ($qunkref2->tags)) {
1267                 for my $tag (@{$qunkref2->tags}) {
1268                   $tags{$tag} = 1;
1275         foreach my $tag (sort keys %tags) {
1626               ! grep exists $ignore_tags{$_}, @{$_->tags})
1632                 grep exists $show_tags{$_}, @{$_->tags} )
1681     if (defined ($qunkref->tags)) {
1682       foreach my $tag (@{$qunkref->tags}) {
1694         if ((! (defined ($qunkref->tags)))
1695             or (! (grep ($_ eq $tag, @{$qunkref->tags})))) {
1812 # number, tags, branches, etc.  The reason to have these things
1828 #     tags        =>    [ "tag1", "tag2", ... ],
1878     $self{tags} = delete $symbolic_names->{$revision};
1879     &main::delta_check($time, $self{tags});
1894 sub tags        { $_[0]->{tags}     }
1896   exists $_[0]->{tags};
2400   my ($time, $tags) = @_;
2403   # beginning and ending tags, and when we get around to printing output, we
2409     if $time > $Delta_StartTime and $Delta_From and grep { $_ eq $Delta_From } @$tags;
2412     if $time > $Delta_EndTime and $Delta_To and grep { $_ eq $Delta_To } @$tags;
2581              'tags|t'         => \$Show_Tags,
2856 "universal tags" -- a universal tag is one held by all the files in a given
2887 =item B<-t>, B<--tags>
2889 Show tags (symbolic names) in output.
2893 Show tags in output on their first occurance.
3068 the given tags are ignored.
3074 any of the given tags are logged.
3078 Attempt a delta between two tags (since I<FROM_TAG> up to and