cvs commit: modperl-2.0/lib/Apache ParseSource.pm

[dougm]

dougm       01/10/20 22:04:27

  Modified:    lib/Apache ParseSource.pm
  Log:
  add function attributes to aid filtering in .{exp,def} filtering
  
  Revision  Changes    Path
  1.31      +6 -1      modperl-2.0/lib/Apache/ParseSource.pm
  
  Index: ParseSource.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/lib/Apache/ParseSource.pm,v
  retrieving revision 1.30
  retrieving revision 1.31
  diff -u -r1.30 -r1.31
  --- ParseSource.pm    2001/10/21 04:53:59     1.30
  +++ ParseSource.pm    2001/10/21 05:04:27     1.31
  @@ -300,9 +300,12 @@
           my($rtype, $name, $args) = @$entry;
           next unless $name =~ $wanted;
           next if $seen{$name}++;
  +        my @attr;
   
           for (qw(static __inline__)) {
  -            $rtype =~ s/^$_\s+//;
  +            if ($rtype =~ s/^($_)\s+//) {
  +                push @attr, $1;
  +            }
           }
   
           #XXX: working around C::Scan confusion here
  @@ -320,6 +323,8 @@
                  { type => $_->[0], name => $_->[1] }
              } @$args],
           };
  +
  +        $func->{attr} = \@attr if @attr;
   
           push @functions, $func;
       }